Coverage report: /development/source/library/org/datagraph/spocq-shard/src/core/encoding/sparql-1-0-5-formula.lisp

KindCoveredAll%
expression1668026321 63.4
branch6331868 33.9
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 
2
 (IN-PACKAGE "ORG.DATAGRAPH.SPOCQ.SPARQL-1-0-4") 
3
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathRangeStart|)) 
4
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathRangeEnd|)) 
5
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathRangeCount|)) 
6
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-ArithmeticAggregateOperator|)) 
7
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteral|)) 
8
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralUnsigned|)) 
9
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralPositive|)) 
10
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralNegative|)) 
11
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-String|)) 
12
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PrefixedName|)) 
13
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Distinctness|)) 
14
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Wild|)) 
15
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-OrderDirection|)) 
16
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Undef|)) 
17
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Silence|)) 
18
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-GraphRefKeyword|)) 
19
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathCardinality|)) 
20
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathInvertOp|)) 
21
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-RelationalOperator|)) 
22
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-AdditiveOperator|)) 
23
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-MultiplicativeOperator|)) 
24
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-UnaryOperator|)) 
25
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NullOperator|)) 
26
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NullOrUnaryOperator|)) 
27
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinUnaryOperator|)) 
28
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinBinaryOperator|)) 
29
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinListOperator|)) 
30
 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BooleanLiteral|)) 
31
 (DECLAIM (FTYPE (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES T T T)) |Sparql-Parser|)) 
32
 (DEFUN |IS-PathRangeStart| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM)))))
33
 (DEFUN |IS-PathRangeEnd| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM)))))
34
 (DEFUN |IS-PathRangeCount| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM)))))
35
 (DEFUN |IS-ArithmeticAggregateOperator| (ATN-PARSER::ITEM)
36
   (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-ARITHMETIC_AGGREGATE_OPERATOR ATN-PARSER::ITEM)))))
37
 (DEFUN |IS-NumericLiteral| (ATN-PARSER::ITEM)
38
   (%ATN-TRACE-FORM
39
    (AND ATN-PARSER::ITEM
40
         (OR (|IS-NumericLiteralUnsigned| ATN-PARSER::ITEM) (|IS-NumericLiteralPositive| ATN-PARSER::ITEM)
41
             (|IS-NumericLiteralNegative| ATN-PARSER::ITEM)))))
42
 (DEFUN |IS-NumericLiteralUnsigned| (ATN-PARSER::ITEM)
43
   (%ATN-TRACE-FORM
44
    (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM) (IS-DECIMAL ATN-PARSER::ITEM) (IS-DOUBLE ATN-PARSER::ITEM)))))
45
 (DEFUN |IS-NumericLiteralPositive| (ATN-PARSER::ITEM)
46
   (%ATN-TRACE-FORM
47
    (AND ATN-PARSER::ITEM
48
         (OR (IS-INTEGER_POSITIVE ATN-PARSER::ITEM) (IS-DECIMAL_POSITIVE ATN-PARSER::ITEM) (IS-DOUBLE_POSITIVE ATN-PARSER::ITEM)))))
49
 (DEFUN |IS-NumericLiteralNegative| (ATN-PARSER::ITEM)
50
   (%ATN-TRACE-FORM
51
    (AND ATN-PARSER::ITEM
52
         (OR (IS-INTEGER_NEGATIVE ATN-PARSER::ITEM) (IS-DECIMAL_NEGATIVE ATN-PARSER::ITEM) (IS-DOUBLE_NEGATIVE ATN-PARSER::ITEM)))))
53
 (DEFUN |IS-String| (ATN-PARSER::ITEM)
54
   (%ATN-TRACE-FORM
55
    (AND ATN-PARSER::ITEM
56
         (OR (IS-STRING_LITERAL1 ATN-PARSER::ITEM) (IS-STRING_LITERAL2 ATN-PARSER::ITEM) (IS-STRING_LITERAL_LONG1 ATN-PARSER::ITEM)
57
             (IS-STRING_LITERAL_LONG2 ATN-PARSER::ITEM)))))
58
 (DEFUN |IS-PrefixedName| (ATN-PARSER::ITEM)
59
   (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-PNAME_LN ATN-PARSER::ITEM) (IS-PNAME_NS ATN-PARSER::ITEM)))))
60
 (DEFUN |IS-Distinctness| (ATN-PARSER::ITEM)
61
   (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:DISTINCT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:REDUCED)))))
62
 (DEFUN |IS-Wild| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*)))))
63
 (DEFUN |IS-OrderDirection| (ATN-PARSER::ITEM)
64
   (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:ASC) (EQ ATN-PARSER::ITEM 'SPOCQ.S:DESC)))))
65
 (DEFUN |IS-Undef| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:UNDEF)))))
66
 (DEFUN |IS-Silence| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:SILENT)))))
67
 (DEFUN |IS-GraphRefKeyword| (ATN-PARSER::ITEM)
68
   (%ATN-TRACE-FORM
69
    (AND ATN-PARSER::ITEM
70
         (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:DEFAULT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:NAMED) (EQ ATN-PARSER::ITEM 'SPOCQ.S:ALL)))))
71
 (DEFUN |IS-PathCardinality| (ATN-PARSER::ITEM)
72
   (%ATN-TRACE-FORM
73
    (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*) (EQ ATN-PARSER::ITEM 'SPOCQ.S:?) (EQ ATN-PARSER::ITEM 'SPOCQ.S:+)))))
74
 (DEFUN |IS-PathInvertOp| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:^)))))
75
 (DEFUN |IS-RelationalOperator| (ATN-PARSER::ITEM)
76
   (%ATN-TRACE-FORM
77
    (AND ATN-PARSER::ITEM
78
         (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:=) (EQ ATN-PARSER::ITEM 'SPOCQ.S:!=) (EQ ATN-PARSER::ITEM 'SPOCQ.S:<)
79
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:>) (EQ ATN-PARSER::ITEM 'SPOCQ.S:<=) (EQ ATN-PARSER::ITEM 'SPOCQ.S:>=)))))
80
 (DEFUN |IS-AdditiveOperator| (ATN-PARSER::ITEM)
81
   (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:+) (EQ ATN-PARSER::ITEM 'SPOCQ.S:-)))))
82
 (DEFUN |IS-MultiplicativeOperator| (ATN-PARSER::ITEM)
83
   (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*) (EQ ATN-PARSER::ITEM 'SPOCQ.S:/)))))
84
 (DEFUN |IS-UnaryOperator| (ATN-PARSER::ITEM)
85
   (%ATN-TRACE-FORM
86
    (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:!) (EQ ATN-PARSER::ITEM 'SPOCQ.S:+) (EQ ATN-PARSER::ITEM 'SPOCQ.S:-)))))
87
 (DEFUN |IS-NullOperator| (ATN-PARSER::ITEM)
88
   (%ATN-TRACE-FORM
89
    (AND ATN-PARSER::ITEM
90
         (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:RAND) (EQ ATN-PARSER::ITEM 'SPOCQ.S:NOW) (EQ ATN-PARSER::ITEM 'SPOCQ.S:UUID)
91
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRUUID) (EQ ATN-PARSER::ITEM 'SPOCQ.S:THEN)))))
92
 (DEFUN |IS-NullOrUnaryOperator| (ATN-PARSER::ITEM)
93
   (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:BNODE)))))
94
 (DEFUN |IS-BuiltinUnaryOperator| (ATN-PARSER::ITEM)
95
   (%ATN-TRACE-FORM
96
    (AND ATN-PARSER::ITEM
97
         (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:STR) (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANG) (EQ ATN-PARSER::ITEM 'SPOCQ.S:DATATYPE)
98
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:BOUND) (EQ ATN-PARSER::ITEM 'SPOCQ.S:IRI) (EQ ATN-PARSER::ITEM 'SPOCQ.S:URI)
99
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:ABS) (EQ ATN-PARSER::ITEM 'SPOCQ.S:CEIL) (EQ ATN-PARSER::ITEM 'SPOCQ.S:FLOOR)
100
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:ROUND) (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRLEN) (EQ ATN-PARSER::ITEM 'SPOCQ.S:UCASE)
101
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:LCASE) (EQ ATN-PARSER::ITEM 'SPOCQ.S:ENCODE_FOR_URI) (EQ ATN-PARSER::ITEM 'SPOCQ.S:YEAR)
102
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:MONTH) (EQ ATN-PARSER::ITEM 'SPOCQ.S:DAY) (EQ ATN-PARSER::ITEM 'SPOCQ.S:HOURS)
103
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:MINUTES) (EQ ATN-PARSER::ITEM 'SPOCQ.S:SECONDS) (EQ ATN-PARSER::ITEM 'SPOCQ.S:TIMEZONE)
104
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:TZ) (EQ ATN-PARSER::ITEM 'SPOCQ.S:MD5) (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA1)
105
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA224) (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA256) (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA384)
106
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA512) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isIRI|) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isURI|)
107
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isBlank|) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isLiteral|)
108
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isNumeric|)))))
109
 (DEFUN |IS-BuiltinBinaryOperator| (ATN-PARSER::ITEM)
110
   (%ATN-TRACE-FORM
111
    (AND ATN-PARSER::ITEM
112
         (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANGMATCHES) (EQ ATN-PARSER::ITEM 'SPOCQ.S:CONTAINS)
113
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRSTARTS) (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRENDS)
114
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRBEFORE) (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRAFTER) (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRLANG)
115
             (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRDT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|sameTerm|)))))
116
 (DEFUN |IS-BuiltinListOperator| (ATN-PARSER::ITEM)
117
   (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:CONCAT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:COALESCE)))))
118
 (DEFUN |IS-BooleanLiteral| (ATN-PARSER::ITEM)
119
   (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:|true|) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|false|)))))
120
 (PROGN
121
  (DEFVAR |Sparql-INDEX|)
122
  (DEFUN |Sparql| (ATN-PARSER::INDEX &AUX (|Prologue| NIL) (|Query| NIL) (|Update| NIL))
123
    "{1 } Sparql ::= Prologue* ((Query | Update))
124
 (|Prologue| |Query| |Update|)"
125
    (DECLARE (SPECIAL |Sparql-INDEX|))
126
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Sparql-INDEX| *ATN-LEVEL))
127
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
128
    (IF (< |Sparql-INDEX| ATN-PARSER::INDEX)
129
        (LET ((|Sparql-INDEX| ATN-PARSER::INDEX)
130
              (*ATN-LEVEL (1+ *ATN-LEVEL))
131
              (*ATN-STACK (CONS '|Sparql| *ATN-STACK))
132
              (ATN-PARSER::ATN-STRUCTURE NIL))
133
          (DECLARE (SPECIAL |Sparql-INDEX|))
134
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
135
          (DECLARE (TYPE CONS *ATN-STACK))
136
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
137
            (%ATN-BLOCK |Sparql|
138
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
139
                                   (SETF *ATN-TERM* '|Sparql|)
140
                                   (WHEN (INPUT-EOF? ATN-PARSER::INDEX)
141
                                     (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE)))
142
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
143
                                   ATN-PARSER::INDEX)
144
                                 (|Sparql.2| (ATN-PARSER::INDEX)
145
                                   (%ATN-NODE-BLOCK |Sparql.2|
146
                                                    (%ATN-EDGE-BLOCK (POP |Sparql|)
147
                                                                     (WHEN T
148
                                                                       (SETF *ATN-TERM* '|Sparql|)
149
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Sparql|
150
                                                                                   ATN-PARSER::INDEX
151
                                                                                   (LIST '|Prologue| |Prologue| '|Query| |Query|
152
                                                                                         '|Update| |Update|))
153
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
154
                                                                              (IF (EQ *ATN-REDUCE* T)
155
                                                                                  (|Sparql-Constructor| |Prologue| |Query| |Update|)
156
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
157
                                                                                      (CONS '|Sparql|
158
                                                                                            (DELETE NIL
159
                                                                                                    (LIST |Prologue| |Query|
160
                                                                                                          |Update|)))
161
                                                                                      '|Sparql|))))
162
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
163
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
164
                                 (|Sparql.5| (ATN-PARSER::INDEX)
165
                                   (%ATN-NODE-BLOCK |Sparql.5|
166
                                                    (%ATN-EDGE-BLOCK (PUSH |Prologue|)
167
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
168
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Prologue| ATN-PARSER::INDEX)
169
                                                                       (COND
170
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Prologue|)
171
                                                                         (LET ((|Prologue442| |Prologue|))
172
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
173
                                                                             (DESTRUCTURING-BIND
174
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
175
                                                                                 ATN-PARSER::RESULT-AND-INDEX
176
                                                                               (WHEN ATN-PARSER::RESULT
177
                                                                                 (SETF |Prologue|
178
                                                                                         (CONS ATN-PARSER::RESULT |Prologue|)))
179
                                                                               (|Sparql.5| ATN-PARSER::RESULT-INDEX))
180
                                                                             (SETF |Prologue| |Prologue442|))))
181
                                                                        (T (SETF *ATN-TERM?* '|Prologue|)
182
                                                                         (|Sparql/Sparql.2.4| ATN-PARSER::INDEX)))))))
183
                                 (|Sparql/fail.3| (ATN-PARSER::INDEX)
184
                                   (%ATN-NODE-BLOCK |Sparql/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
185
                                 (|Sparql/Sparql.2.4| (ATN-PARSER::INDEX)
186
                                   (%ATN-NODE-BLOCK |Sparql/Sparql.2.4|
187
                                                    (%ATN-EDGE-BLOCK OR
188
                                                                     (PROGN
189
                                                                      (%ATN-EDGE-BLOCK (PUSH |Query|)
190
                                                                                       (MULTIPLE-VALUE-BIND
191
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
192
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Query|
193
                                                                                                                    ATN-PARSER::INDEX)
194
                                                                                         (COND
195
                                                                                          (ATN-PARSER::SUCCESS
196
                                                                                           (SETF *ATN-TERM* '|Query|)
197
                                                                                           (LET ((|Query439| |Query|))
198
                                                                                             (DOLIST
199
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
200
                                                                                                  ATN-PARSER::RESULT)
201
                                                                                               (DESTRUCTURING-BIND
202
                                                                                                   (
203
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
204
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
205
                                                                                                 (WHEN ATN-PARSER::RESULT
206
                                                                                                   (SETF |Query|
207
                                                                                                           ATN-PARSER::RESULT))
208
                                                                                                 (|Sparql.2|
209
                                                                                                  ATN-PARSER::RESULT-INDEX))
210
                                                                                               (SETF |Query| |Query439|))))
211
                                                                                          (T (SETF *ATN-TERM?* '|Query|) NIL))))
212
                                                                      (%ATN-EDGE-BLOCK (PUSH |Update|)
213
                                                                                       (MULTIPLE-VALUE-BIND
214
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
215
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Update|
216
                                                                                                                    ATN-PARSER::INDEX)
217
                                                                                         (COND
218
                                                                                          (ATN-PARSER::SUCCESS
219
                                                                                           (SETF *ATN-TERM* '|Update|)
220
                                                                                           (LET ((|Update440| |Update|))
221
                                                                                             (DOLIST
222
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
223
                                                                                                  ATN-PARSER::RESULT)
224
                                                                                               (DESTRUCTURING-BIND
225
                                                                                                   (
226
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
227
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
228
                                                                                                 (WHEN ATN-PARSER::RESULT
229
                                                                                                   (SETF |Update|
230
                                                                                                           ATN-PARSER::RESULT))
231
                                                                                                 (|Sparql.2|
232
                                                                                                  ATN-PARSER::RESULT-INDEX))
233
                                                                                               (SETF |Update| |Update440|))))
234
                                                                                          (T (SETF *ATN-TERM?* '|Update|) NIL))))
235
                                                                      (|Sparql/fail.3| ATN-PARSER::INDEX)))))
236
                                 (|Sparql/start.1| (ATN-PARSER::INDEX)
237
                                   (%ATN-NODE-BLOCK |Sparql/start.1|
238
                                                    (%ATN-EDGE-BLOCK (PUSH |Prologue|)
239
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
240
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Prologue| ATN-PARSER::INDEX)
241
                                                                       (COND
242
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Prologue|)
243
                                                                         (LET ((|Prologue441| |Prologue|))
244
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
245
                                                                             (DESTRUCTURING-BIND
246
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
247
                                                                                 ATN-PARSER::RESULT-AND-INDEX
248
                                                                               (WHEN ATN-PARSER::RESULT
249
                                                                                 (SETF |Prologue|
250
                                                                                         (CONS ATN-PARSER::RESULT |Prologue|)))
251
                                                                               (|Sparql.5| ATN-PARSER::RESULT-INDEX))
252
                                                                             (SETF |Prologue| |Prologue441|))))
253
                                                                        (T (SETF *ATN-TERM?* '|Prologue|)
254
                                                                         (|Sparql/Sparql.2.4| ATN-PARSER::INDEX))))))))
255
                          (|Sparql/start.1| ATN-PARSER::INDEX)
256
                          (SETF *ATN-NODE NIL)
257
                          NIL
258
                          (IF ATN-PARSER::ATN-STRUCTURE
259
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
260
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
261
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Sparql| ATN-PARSER::INDEX *ATN-STACK))))
262
 (PROGN
263
  (DEFVAR |Query-INDEX|)
264
  (DEFUN |Query|
265
         (ATN-PARSER::INDEX
266
          &AUX (|AskQuery| NIL) (|ConstructQuery| NIL) (|DescribeQuery| NIL) (|FieldClause| NIL) (|SelectQuery| NIL))
267
    "{2 } Query ::= ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery)) FieldClause?
268
 (|AskQuery| |ConstructQuery| |DescribeQuery| |FieldClause| |SelectQuery|)"
269
    (DECLARE (SPECIAL |Query-INDEX|))
270
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Query-INDEX| *ATN-LEVEL))
271
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
272
    (IF (< |Query-INDEX| ATN-PARSER::INDEX)
273
        (LET ((|Query-INDEX| ATN-PARSER::INDEX)
274
              (*ATN-LEVEL (1+ *ATN-LEVEL))
275
              (*ATN-STACK (CONS '|Query| *ATN-STACK))
276
              (ATN-PARSER::ATN-STRUCTURE NIL))
277
          (DECLARE (SPECIAL |Query-INDEX|))
278
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
279
          (DECLARE (TYPE CONS *ATN-STACK))
280
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
281
            (%ATN-BLOCK |Query|
282
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
283
                                   (SETF *ATN-TERM* '|Query|)
284
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
285
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
286
                                   ATN-PARSER::INDEX)
287
                                 (|Query.2| (ATN-PARSER::INDEX)
288
                                   (%ATN-NODE-BLOCK |Query.2|
289
                                                    (%ATN-EDGE-BLOCK (POP |Query|)
290
                                                                     (WHEN T
291
                                                                       (SETF *ATN-TERM* '|Query|)
292
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Query|
293
                                                                                   ATN-PARSER::INDEX
294
                                                                                   (LIST '|AskQuery| |AskQuery| '|ConstructQuery|
295
                                                                                         |ConstructQuery| '|DescribeQuery|
296
                                                                                         |DescribeQuery| '|FieldClause|
297
                                                                                         |FieldClause| '|SelectQuery|
298
                                                                                         |SelectQuery|))
299
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
300
                                                                              (IF (EQ *ATN-REDUCE* T)
301
                                                                                  (|Query-Constructor| |AskQuery| |ConstructQuery|
302
                                                                                                       |DescribeQuery| |FieldClause|
303
                                                                                                       |SelectQuery|)
304
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
305
                                                                                      (CONS '|Query|
306
                                                                                            (DELETE NIL
307
                                                                                                    (LIST |AskQuery|
308
                                                                                                          |ConstructQuery|
309
                                                                                                          |DescribeQuery|
310
                                                                                                          |FieldClause|
311
                                                                                                          |SelectQuery|)))
312
                                                                                      '|Query|))))
313
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
314
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
315
                                 (|Query/fail.3| (ATN-PARSER::INDEX)
316
                                   (%ATN-NODE-BLOCK |Query/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
317
                                 (|Query/Query.2.4| (ATN-PARSER::INDEX)
318
                                   (%ATN-NODE-BLOCK |Query/Query.2.4|
319
                                                    (%ATN-EDGE-BLOCK (PUSH |FieldClause|)
320
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
321
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|FieldClause| ATN-PARSER::INDEX)
322
                                                                       (COND
323
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|FieldClause|)
324
                                                                         (LET ((|FieldClause443| |FieldClause|))
325
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
326
                                                                             (DESTRUCTURING-BIND
327
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
328
                                                                                 ATN-PARSER::RESULT-AND-INDEX
329
                                                                               (WHEN ATN-PARSER::RESULT
330
                                                                                 (SETF |FieldClause| ATN-PARSER::RESULT))
331
                                                                               (|Query.2| ATN-PARSER::RESULT-INDEX))
332
                                                                             (SETF |FieldClause| |FieldClause443|))))
333
                                                                        (T (SETF *ATN-TERM?* '|FieldClause|)
334
                                                                         (|Query.2| ATN-PARSER::INDEX)))))))
335
                                 (|Query/start.1| (ATN-PARSER::INDEX)
336
                                   (%ATN-NODE-BLOCK |Query/start.1|
337
                                                    (%ATN-EDGE-BLOCK OR
338
                                                                     (PROGN
339
                                                                      (%ATN-EDGE-BLOCK (PUSH |SelectQuery|)
340
                                                                                       (MULTIPLE-VALUE-BIND
341
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
342
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|SelectQuery|
343
                                                                                                                    ATN-PARSER::INDEX)
344
                                                                                         (COND
345
                                                                                          (ATN-PARSER::SUCCESS
346
                                                                                           (SETF *ATN-TERM* '|SelectQuery|)
347
                                                                                           (LET ((|SelectQuery444| |SelectQuery|))
348
                                                                                             (DOLIST
349
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
350
                                                                                                  ATN-PARSER::RESULT)
351
                                                                                               (DESTRUCTURING-BIND
352
                                                                                                   (
353
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
354
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
355
                                                                                                 (WHEN ATN-PARSER::RESULT
356
                                                                                                   (SETF |SelectQuery|
357
                                                                                                           ATN-PARSER::RESULT))
358
                                                                                                 (|Query/Query.2.4|
359
                                                                                                  ATN-PARSER::RESULT-INDEX))
360
                                                                                               (SETF |SelectQuery|
361
                                                                                                       |SelectQuery444|))))
362
                                                                                          (T (SETF *ATN-TERM?* '|SelectQuery|)
363
                                                                                           NIL))))
364
                                                                      (%ATN-EDGE-BLOCK (PUSH |ConstructQuery|)
365
                                                                                       (MULTIPLE-VALUE-BIND
366
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
367
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
368
                                                                                            '|ConstructQuery| ATN-PARSER::INDEX)
369
                                                                                         (COND
370
                                                                                          (ATN-PARSER::SUCCESS
371
                                                                                           (SETF *ATN-TERM* '|ConstructQuery|)
372
                                                                                           (LET ((|ConstructQuery445|
373
                                                                                                  |ConstructQuery|))
374
                                                                                             (DOLIST
375
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
376
                                                                                                  ATN-PARSER::RESULT)
377
                                                                                               (DESTRUCTURING-BIND
378
                                                                                                   (
379
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
380
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
381
                                                                                                 (WHEN ATN-PARSER::RESULT
382
                                                                                                   (SETF |ConstructQuery|
383
                                                                                                           ATN-PARSER::RESULT))
384
                                                                                                 (|Query/Query.2.4|
385
                                                                                                  ATN-PARSER::RESULT-INDEX))
386
                                                                                               (SETF |ConstructQuery|
387
                                                                                                       |ConstructQuery445|))))
388
                                                                                          (T (SETF *ATN-TERM?* '|ConstructQuery|)
389
                                                                                           NIL))))
390
                                                                      (%ATN-EDGE-BLOCK (PUSH |DescribeQuery|)
391
                                                                                       (MULTIPLE-VALUE-BIND
392
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
393
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|DescribeQuery|
394
                                                                                                                    ATN-PARSER::INDEX)
395
                                                                                         (COND
396
                                                                                          (ATN-PARSER::SUCCESS
397
                                                                                           (SETF *ATN-TERM* '|DescribeQuery|)
398
                                                                                           (LET ((|DescribeQuery446|
399
                                                                                                  |DescribeQuery|))
400
                                                                                             (DOLIST
401
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
402
                                                                                                  ATN-PARSER::RESULT)
403
                                                                                               (DESTRUCTURING-BIND
404
                                                                                                   (
405
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
406
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
407
                                                                                                 (WHEN ATN-PARSER::RESULT
408
                                                                                                   (SETF |DescribeQuery|
409
                                                                                                           ATN-PARSER::RESULT))
410
                                                                                                 (|Query/Query.2.4|
411
                                                                                                  ATN-PARSER::RESULT-INDEX))
412
                                                                                               (SETF |DescribeQuery|
413
                                                                                                       |DescribeQuery446|))))
414
                                                                                          (T (SETF *ATN-TERM?* '|DescribeQuery|)
415
                                                                                           NIL))))
416
                                                                      (%ATN-EDGE-BLOCK (PUSH |AskQuery|)
417
                                                                                       (MULTIPLE-VALUE-BIND
418
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
419
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|AskQuery|
420
                                                                                                                    ATN-PARSER::INDEX)
421
                                                                                         (COND
422
                                                                                          (ATN-PARSER::SUCCESS
423
                                                                                           (SETF *ATN-TERM* '|AskQuery|)
424
                                                                                           (LET ((|AskQuery447| |AskQuery|))
425
                                                                                             (DOLIST
426
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
427
                                                                                                  ATN-PARSER::RESULT)
428
                                                                                               (DESTRUCTURING-BIND
429
                                                                                                   (
430
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
431
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
432
                                                                                                 (WHEN ATN-PARSER::RESULT
433
                                                                                                   (SETF |AskQuery|
434
                                                                                                           ATN-PARSER::RESULT))
435
                                                                                                 (|Query/Query.2.4|
436
                                                                                                  ATN-PARSER::RESULT-INDEX))
437
                                                                                               (SETF |AskQuery| |AskQuery447|))))
438
                                                                                          (T (SETF *ATN-TERM?* '|AskQuery|) NIL))))
439
                                                                      (|Query/fail.3| ATN-PARSER::INDEX))))))
440
                          (|Query/start.1| ATN-PARSER::INDEX)
441
                          (SETF *ATN-NODE NIL)
442
                          NIL
443
                          (IF ATN-PARSER::ATN-STRUCTURE
444
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
445
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
446
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Query| ATN-PARSER::INDEX *ATN-STACK))))
447
 (PROGN
448
  (DEFVAR |Prologue-INDEX|)
449
  (DEFUN |Prologue| (ATN-PARSER::INDEX &AUX (|BaseDecl| NIL) (|Pragma| NIL) (|PrefixDecl| NIL))
450
    "{4 } Prologue ::= ((BaseDecl | PrefixDecl | Pragma))
451
 (|BaseDecl| |Pragma| |PrefixDecl|)"
452
    (DECLARE (SPECIAL |Prologue-INDEX|))
453
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Prologue-INDEX| *ATN-LEVEL))
454
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
455
    (IF (< |Prologue-INDEX| ATN-PARSER::INDEX)
456
        (LET ((|Prologue-INDEX| ATN-PARSER::INDEX)
457
              (*ATN-LEVEL (1+ *ATN-LEVEL))
458
              (*ATN-STACK (CONS '|Prologue| *ATN-STACK))
459
              (ATN-PARSER::ATN-STRUCTURE NIL))
460
          (DECLARE (SPECIAL |Prologue-INDEX|))
461
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
462
          (DECLARE (TYPE CONS *ATN-STACK))
463
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
464
            (%ATN-BLOCK |Prologue|
465
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
466
                                   (SETF *ATN-TERM* '|Prologue|)
467
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
468
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
469
                                   ATN-PARSER::INDEX)
470
                                 (|Prologue.2| (ATN-PARSER::INDEX)
471
                                   (%ATN-NODE-BLOCK |Prologue.2|
472
                                                    (%ATN-EDGE-BLOCK (POP |Prologue|)
473
                                                                     (WHEN T
474
                                                                       (SETF *ATN-TERM* '|Prologue|)
475
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Prologue|
476
                                                                                   ATN-PARSER::INDEX
477
                                                                                   (LIST '|BaseDecl| |BaseDecl| '|Pragma| |Pragma|
478
                                                                                         '|PrefixDecl| |PrefixDecl|))
479
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
480
                                                                              (IF (EQ *ATN-REDUCE* T)
481
                                                                                  (|Prologue-Constructor| |BaseDecl| |Pragma|
482
                                                                                                          |PrefixDecl|)
483
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
484
                                                                                      (CONS '|Prologue|
485
                                                                                            (DELETE NIL
486
                                                                                                    (LIST |BaseDecl| |Pragma|
487
                                                                                                          |PrefixDecl|)))
488
                                                                                      '|Prologue|))))
489
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
490
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
491
                                 (|Prologue/fail.3| (ATN-PARSER::INDEX)
492
                                   (%ATN-NODE-BLOCK |Prologue/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
493
                                 (|Prologue/start.1| (ATN-PARSER::INDEX)
494
                                   (%ATN-NODE-BLOCK |Prologue/start.1|
495
                                                    (%ATN-EDGE-BLOCK OR
496
                                                                     (PROGN
497
                                                                      (%ATN-EDGE-BLOCK (PUSH |BaseDecl|)
498
                                                                                       (MULTIPLE-VALUE-BIND
499
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
500
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|BaseDecl|
501
                                                                                                                    ATN-PARSER::INDEX)
502
                                                                                         (COND
503
                                                                                          (ATN-PARSER::SUCCESS
504
                                                                                           (SETF *ATN-TERM* '|BaseDecl|)
505
                                                                                           (LET ((|BaseDecl448| |BaseDecl|))
506
                                                                                             (DOLIST
507
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
508
                                                                                                  ATN-PARSER::RESULT)
509
                                                                                               (DESTRUCTURING-BIND
510
                                                                                                   (
511
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
512
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
513
                                                                                                 (WHEN ATN-PARSER::RESULT
514
                                                                                                   (SETF |BaseDecl|
515
                                                                                                           ATN-PARSER::RESULT))
516
                                                                                                 (|Prologue.2|
517
                                                                                                  ATN-PARSER::RESULT-INDEX))
518
                                                                                               (SETF |BaseDecl| |BaseDecl448|))))
519
                                                                                          (T (SETF *ATN-TERM?* '|BaseDecl|) NIL))))
520
                                                                      (%ATN-EDGE-BLOCK (PUSH |PrefixDecl|)
521
                                                                                       (MULTIPLE-VALUE-BIND
522
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
523
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|PrefixDecl|
524
                                                                                                                    ATN-PARSER::INDEX)
525
                                                                                         (COND
526
                                                                                          (ATN-PARSER::SUCCESS
527
                                                                                           (SETF *ATN-TERM* '|PrefixDecl|)
528
                                                                                           (LET ((|PrefixDecl449| |PrefixDecl|))
529
                                                                                             (DOLIST
530
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
531
                                                                                                  ATN-PARSER::RESULT)
532
                                                                                               (DESTRUCTURING-BIND
533
                                                                                                   (
534
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
535
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
536
                                                                                                 (WHEN ATN-PARSER::RESULT
537
                                                                                                   (SETF |PrefixDecl|
538
                                                                                                           ATN-PARSER::RESULT))
539
                                                                                                 (|Prologue.2|
540
                                                                                                  ATN-PARSER::RESULT-INDEX))
541
                                                                                               (SETF |PrefixDecl|
542
                                                                                                       |PrefixDecl449|))))
543
                                                                                          (T (SETF *ATN-TERM?* '|PrefixDecl|)
544
                                                                                           NIL))))
545
                                                                      (%ATN-EDGE-BLOCK (PUSH |Pragma|)
546
                                                                                       (MULTIPLE-VALUE-BIND
547
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
548
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Pragma|
549
                                                                                                                    ATN-PARSER::INDEX)
550
                                                                                         (COND
551
                                                                                          (ATN-PARSER::SUCCESS
552
                                                                                           (SETF *ATN-TERM* '|Pragma|)
553
                                                                                           (LET ((|Pragma450| |Pragma|))
554
                                                                                             (DOLIST
555
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
556
                                                                                                  ATN-PARSER::RESULT)
557
                                                                                               (DESTRUCTURING-BIND
558
                                                                                                   (
559
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
560
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
561
                                                                                                 (WHEN ATN-PARSER::RESULT
562
                                                                                                   (SETF |Pragma|
563
                                                                                                           ATN-PARSER::RESULT))
564
                                                                                                 (|Prologue.2|
565
                                                                                                  ATN-PARSER::RESULT-INDEX))
566
                                                                                               (SETF |Pragma| |Pragma450|))))
567
                                                                                          (T (SETF *ATN-TERM?* '|Pragma|) NIL))))
568
                                                                      (|Prologue/fail.3| ATN-PARSER::INDEX))))))
569
                          (|Prologue/start.1| ATN-PARSER::INDEX)
570
                          (SETF *ATN-NODE NIL)
571
                          NIL
572
                          (IF ATN-PARSER::ATN-STRUCTURE
573
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
574
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
575
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Prologue| ATN-PARSER::INDEX *ATN-STACK))))
576
 (PROGN
577
  (DEFVAR |BaseDecl-INDEX|)
578
  (DEFUN |BaseDecl| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))
579
    "{5 } BaseDecl ::= 'BASE' IRIref
580
 (|IRIref|)"
581
    (DECLARE (SPECIAL |BaseDecl-INDEX|))
582
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BaseDecl-INDEX| *ATN-LEVEL))
583
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
584
    (IF (< |BaseDecl-INDEX| ATN-PARSER::INDEX)
585
        (LET ((|BaseDecl-INDEX| ATN-PARSER::INDEX)
586
              (*ATN-LEVEL (1+ *ATN-LEVEL))
587
              (*ATN-STACK (CONS '|BaseDecl| *ATN-STACK))
588
              (ATN-PARSER::ATN-STRUCTURE NIL))
589
          (DECLARE (SPECIAL |BaseDecl-INDEX|))
590
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
591
          (DECLARE (TYPE CONS *ATN-STACK))
592
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
593
            (%ATN-BLOCK |BaseDecl|
594
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
595
                                   (SETF *ATN-TERM* '|BaseDecl|)
596
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
597
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
598
                                   ATN-PARSER::INDEX)
599
                                 (|BaseDecl.2| (ATN-PARSER::INDEX)
600
                                   (%ATN-NODE-BLOCK |BaseDecl.2|
601
                                                    (%ATN-EDGE-BLOCK (POP |BaseDecl|)
602
                                                                     (WHEN T
603
                                                                       (SETF *ATN-TERM* '|BaseDecl|)
604
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|BaseDecl|
605
                                                                                   ATN-PARSER::INDEX (LIST '|IRIref| |IRIref|))
606
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
607
                                                                              (IF (EQ *ATN-REDUCE* T)
608
                                                                                  (|BaseDecl-Constructor| |IRIref|)
609
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
610
                                                                                      (CONS '|BaseDecl|
611
                                                                                            (DELETE NIL (LIST |IRIref|)))
612
                                                                                      '|BaseDecl|))))
613
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
614
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
615
                                 (|BaseDecl/BaseDecl.2.4| (ATN-PARSER::INDEX)
616
                                   (%ATN-NODE-BLOCK |BaseDecl/BaseDecl.2.4|
617
                                                    (%ATN-EDGE-BLOCK (PUSH |IRIref|)
618
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
619
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)
620
                                                                       (COND
621
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|IRIref|)
622
                                                                         (LET ((|IRIref451| |IRIref|))
623
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
624
                                                                             (DESTRUCTURING-BIND
625
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
626
                                                                                 ATN-PARSER::RESULT-AND-INDEX
627
                                                                               (WHEN ATN-PARSER::RESULT
628
                                                                                 (SETF |IRIref| ATN-PARSER::RESULT))
629
                                                                               (|BaseDecl.2| ATN-PARSER::RESULT-INDEX))
630
                                                                             (SETF |IRIref| |IRIref451|))))
631
                                                                        (T (SETF *ATN-TERM?* '|IRIref|)
632
                                                                         (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))
633
                                 (|BaseDecl/fail.3| (ATN-PARSER::INDEX)
634
                                   (%ATN-NODE-BLOCK |BaseDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
635
                                 (|BaseDecl/start.1| (ATN-PARSER::INDEX)
636
                                   (%ATN-NODE-BLOCK |BaseDecl/start.1|
637
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:BASE)
638
                                                                     (COND
639
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:BASE)
640
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:BASE)
641
                                                                       (|BaseDecl/BaseDecl.2.4| (1+ ATN-PARSER::INDEX)))
642
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:BASE)
643
                                                                       (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))
644
                          (|BaseDecl/start.1| ATN-PARSER::INDEX)
645
                          (SETF *ATN-NODE NIL)
646
                          NIL
647
                          (IF ATN-PARSER::ATN-STRUCTURE
648
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
649
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
650
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BaseDecl| ATN-PARSER::INDEX *ATN-STACK))))
651
 (PROGN
652
  (DEFVAR |PrefixDecl-INDEX|)
653
  (DEFUN |PrefixDecl| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL) (PNAME_NS NIL))
654
    "{6 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF
655
 (NAMESPACE_REF PNAME_NS)"
656
    (DECLARE (SPECIAL |PrefixDecl-INDEX|))
657
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrefixDecl-INDEX| *ATN-LEVEL))
658
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
659
    (IF (< |PrefixDecl-INDEX| ATN-PARSER::INDEX)
660
        (LET ((|PrefixDecl-INDEX| ATN-PARSER::INDEX)
661
              (*ATN-LEVEL (1+ *ATN-LEVEL))
662
              (*ATN-STACK (CONS '|PrefixDecl| *ATN-STACK))
663
              (ATN-PARSER::ATN-STRUCTURE NIL))
664
          (DECLARE (SPECIAL |PrefixDecl-INDEX|))
665
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
666
          (DECLARE (TYPE CONS *ATN-STACK))
667
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
668
            (%ATN-BLOCK |PrefixDecl|
669
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
670
                                   (SETF *ATN-TERM* '|PrefixDecl|)
671
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
672
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
673
                                   ATN-PARSER::INDEX)
674
                                 (|PrefixDecl.2| (ATN-PARSER::INDEX)
675
                                   (%ATN-NODE-BLOCK |PrefixDecl.2|
676
                                                    (%ATN-EDGE-BLOCK (POP |PrefixDecl|)
677
                                                                     (WHEN T
678
                                                                       (SETF *ATN-TERM* '|PrefixDecl|)
679
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
680
                                                                                   '|PrefixDecl| ATN-PARSER::INDEX
681
                                                                                   (LIST 'NAMESPACE_REF NAMESPACE_REF 'PNAME_NS
682
                                                                                         PNAME_NS))
683
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
684
                                                                              (IF (EQ *ATN-REDUCE* T)
685
                                                                                  (|PrefixDecl-Constructor| NAMESPACE_REF PNAME_NS)
686
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
687
                                                                                      (CONS '|PrefixDecl|
688
                                                                                            (DELETE NIL
689
                                                                                                    (LIST NAMESPACE_REF PNAME_NS)))
690
                                                                                      '|PrefixDecl|))))
691
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
692
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
693
                                 (|PrefixDecl/fail.3| (ATN-PARSER::INDEX)
694
                                   (%ATN-NODE-BLOCK |PrefixDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
695
                                 (|PrefixDecl/PrefixDecl.2.4| (ATN-PARSER::INDEX)
696
                                   (%ATN-NODE-BLOCK |PrefixDecl/PrefixDecl.2.4|
697
                                                    (%ATN-EDGE-BLOCK (TEST PNAME_NS)
698
                                                                     (COND
699
                                                                      ((IS-PNAME_NS ATN-PARSER::|item|) (SETF *ATN-TERM* 'PNAME_NS)
700
                                                                       (SETF PNAME_NS
701
                                                                               (IF (EQ *ATN-REDUCE* T)
702
                                                                                   (ATN-REDUCE-ITEM #'|PNAME_NS-Constructor|
703
                                                                                                    ATN-PARSER::|item|)
704
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
705
                                                                                       (LIST 'PNAME_NS ATN-PARSER::|item|)
706
                                                                                       'PNAME_NS)))
707
                                                                       (|PrefixDecl/PrefixDecl.2.5| (1+ ATN-PARSER::INDEX)))
708
                                                                      (T (SETF *ATN-TERM?* 'PNAME_NS)
709
                                                                       (|PrefixDecl/fail.3| ATN-PARSER::INDEX))))))
710
                                 (|PrefixDecl/PrefixDecl.2.5| (ATN-PARSER::INDEX)
711
                                   (%ATN-NODE-BLOCK |PrefixDecl/PrefixDecl.2.5|
712
                                                    (%ATN-EDGE-BLOCK (PUSH NAMESPACE_REF)
713
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
714
                                                                         (ATN-PARSE-SUBSTRUCTURE* 'NAMESPACE_REF ATN-PARSER::INDEX)
715
                                                                       (COND
716
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* 'NAMESPACE_REF)
717
                                                                         (LET ((NAMESPACE_REF452 NAMESPACE_REF))
718
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
719
                                                                             (DESTRUCTURING-BIND
720
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
721
                                                                                 ATN-PARSER::RESULT-AND-INDEX
722
                                                                               (WHEN ATN-PARSER::RESULT
723
                                                                                 (SETF NAMESPACE_REF ATN-PARSER::RESULT))
724
                                                                               (|PrefixDecl.2| ATN-PARSER::RESULT-INDEX))
725
                                                                             (SETF NAMESPACE_REF NAMESPACE_REF452))))
726
                                                                        (T (SETF *ATN-TERM?* 'NAMESPACE_REF)
727
                                                                         (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))
728
                                 (|PrefixDecl/start.1| (ATN-PARSER::INDEX)
729
                                   (%ATN-NODE-BLOCK |PrefixDecl/start.1|
730
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:PREFIX)
731
                                                                     (COND
732
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:PREFIX)
733
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:PREFIX)
734
                                                                       (|PrefixDecl/PrefixDecl.2.4| (1+ ATN-PARSER::INDEX)))
735
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:PREFIX)
736
                                                                       (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))
737
                          (|PrefixDecl/start.1| ATN-PARSER::INDEX)
738
                          (SETF *ATN-NODE NIL)
739
                          NIL
740
                          (IF ATN-PARSER::ATN-STRUCTURE
741
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
742
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
743
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrefixDecl| ATN-PARSER::INDEX *ATN-STACK))))
744
 (PROGN
745
  (DEFVAR |Pragma-INDEX|)
746
  (DEFUN |Pragma| (ATN-PARSER::INDEX &AUX (|PragmaArgList| NIL) (VARNAME NIL))
747
    "{6a} Pragma ::= 'PRAGMA' VARNAME PragmaArgList
748
 (|PragmaArgList| VARNAME)"
749
    (DECLARE (SPECIAL |Pragma-INDEX|))
750
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Pragma-INDEX| *ATN-LEVEL))
751
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
752
    (IF (< |Pragma-INDEX| ATN-PARSER::INDEX)
753
        (LET ((|Pragma-INDEX| ATN-PARSER::INDEX)
754
              (*ATN-LEVEL (1+ *ATN-LEVEL))
755
              (*ATN-STACK (CONS '|Pragma| *ATN-STACK))
756
              (ATN-PARSER::ATN-STRUCTURE NIL))
757
          (DECLARE (SPECIAL |Pragma-INDEX|))
758
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
759
          (DECLARE (TYPE CONS *ATN-STACK))
760
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
761
            (%ATN-BLOCK |Pragma|
762
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
763
                                   (SETF *ATN-TERM* '|Pragma|)
764
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
765
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
766
                                   ATN-PARSER::INDEX)
767
                                 (|Pragma.2| (ATN-PARSER::INDEX)
768
                                   (%ATN-NODE-BLOCK |Pragma.2|
769
                                                    (%ATN-EDGE-BLOCK (POP |Pragma|)
770
                                                                     (WHEN T
771
                                                                       (SETF *ATN-TERM* '|Pragma|)
772
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Pragma|
773
                                                                                   ATN-PARSER::INDEX
774
                                                                                   (LIST '|PragmaArgList| |PragmaArgList| 'VARNAME
775
                                                                                         VARNAME))
776
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
777
                                                                              (IF (EQ *ATN-REDUCE* T)
778
                                                                                  (|Pragma-Constructor| |PragmaArgList| VARNAME)
779
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
780
                                                                                      (CONS '|Pragma|
781
                                                                                            (DELETE NIL
782
                                                                                                    (LIST |PragmaArgList| VARNAME)))
783
                                                                                      '|Pragma|))))
784
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
785
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
786
                                 (|Pragma/fail.3| (ATN-PARSER::INDEX)
787
                                   (%ATN-NODE-BLOCK |Pragma/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
788
                                 (|Pragma/Pragma.2.4| (ATN-PARSER::INDEX)
789
                                   (%ATN-NODE-BLOCK |Pragma/Pragma.2.4|
790
                                                    (%ATN-EDGE-BLOCK (TEST VARNAME)
791
                                                                     (COND
792
                                                                      ((IS-VARNAME ATN-PARSER::|item|) (SETF *ATN-TERM* 'VARNAME)
793
                                                                       (SETF VARNAME
794
                                                                               (IF (EQ *ATN-REDUCE* T)
795
                                                                                   (ATN-REDUCE-ITEM #'|VARNAME-Constructor|
796
                                                                                                    ATN-PARSER::|item|)
797
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
798
                                                                                       (LIST 'VARNAME ATN-PARSER::|item|)
799
                                                                                       'VARNAME)))
800
                                                                       (|Pragma/Pragma.2.5| (1+ ATN-PARSER::INDEX)))
801
                                                                      (T (SETF *ATN-TERM?* 'VARNAME)
802
                                                                       (|Pragma/fail.3| ATN-PARSER::INDEX))))))
803
                                 (|Pragma/Pragma.2.5| (ATN-PARSER::INDEX)
804
                                   (%ATN-NODE-BLOCK |Pragma/Pragma.2.5|
805
                                                    (%ATN-EDGE-BLOCK (PUSH |PragmaArgList|)
806
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
807
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PragmaArgList|
808
                                                                                                  ATN-PARSER::INDEX)
809
                                                                       (COND
810
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PragmaArgList|)
811
                                                                         (LET ((|PragmaArgList453| |PragmaArgList|))
812
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
813
                                                                             (DESTRUCTURING-BIND
814
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
815
                                                                                 ATN-PARSER::RESULT-AND-INDEX
816
                                                                               (WHEN ATN-PARSER::RESULT
817
                                                                                 (SETF |PragmaArgList| ATN-PARSER::RESULT))
818
                                                                               (|Pragma.2| ATN-PARSER::RESULT-INDEX))
819
                                                                             (SETF |PragmaArgList| |PragmaArgList453|))))
820
                                                                        (T (SETF *ATN-TERM?* '|PragmaArgList|)
821
                                                                         (|Pragma/fail.3| ATN-PARSER::INDEX)))))))
822
                                 (|Pragma/start.1| (ATN-PARSER::INDEX)
823
                                   (%ATN-NODE-BLOCK |Pragma/start.1|
824
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:PRAGMA)
825
                                                                     (COND
826
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:PRAGMA)
827
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:PRAGMA)
828
                                                                       (|Pragma/Pragma.2.4| (1+ ATN-PARSER::INDEX)))
829
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:PRAGMA)
830
                                                                       (|Pragma/fail.3| ATN-PARSER::INDEX)))))))
831
                          (|Pragma/start.1| ATN-PARSER::INDEX)
832
                          (SETF *ATN-NODE NIL)
833
                          NIL
834
                          (IF ATN-PARSER::ATN-STRUCTURE
835
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
836
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
837
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Pragma| ATN-PARSER::INDEX *ATN-STACK))))
838
 (PROGN
839
  (DEFVAR |PragmaArgList-INDEX|)
840
  (DEFUN |PragmaArgList| (ATN-PARSER::INDEX &AUX (NILLIST NIL) (|PragmaArg| NIL))
841
    "{6b} PragmaArgList ::= (NILLIST | ('(' PragmaArg (',' PragmaArg)* ')'))
842
 (NILLIST |PragmaArg|)"
843
    (DECLARE (SPECIAL |PragmaArgList-INDEX|))
844
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PragmaArgList-INDEX| *ATN-LEVEL))
845
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
846
    (IF (< |PragmaArgList-INDEX| ATN-PARSER::INDEX)
847
        (LET ((|PragmaArgList-INDEX| ATN-PARSER::INDEX)
848
              (*ATN-LEVEL (1+ *ATN-LEVEL))
849
              (*ATN-STACK (CONS '|PragmaArgList| *ATN-STACK))
850
              (ATN-PARSER::ATN-STRUCTURE NIL))
851
          (DECLARE (SPECIAL |PragmaArgList-INDEX|))
852
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
853
          (DECLARE (TYPE CONS *ATN-STACK))
854
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
855
            (%ATN-BLOCK |PragmaArgList|
856
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
857
                                   (SETF *ATN-TERM* '|PragmaArgList|)
858
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
859
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
860
                                   ATN-PARSER::INDEX)
861
                                 (|PragmaArgList.2| (ATN-PARSER::INDEX)
862
                                   (%ATN-NODE-BLOCK |PragmaArgList.2|
863
                                                    (%ATN-EDGE-BLOCK (POP |PragmaArgList|)
864
                                                                     (WHEN T
865
                                                                       (SETF *ATN-TERM* '|PragmaArgList|)
866
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
867
                                                                                   '|PragmaArgList| ATN-PARSER::INDEX
868
                                                                                   (LIST 'NILLIST NILLIST '|PragmaArg| |PragmaArg|))
869
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
870
                                                                              (IF (EQ *ATN-REDUCE* T)
871
                                                                                  (|PragmaArgList-Constructor| NILLIST |PragmaArg|)
872
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
873
                                                                                      (CONS '|PragmaArgList|
874
                                                                                            (DELETE NIL (LIST NILLIST |PragmaArg|)))
875
                                                                                      '|PragmaArgList|))))
876
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
877
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
878
                                 (|PragmaArgList.8| (ATN-PARSER::INDEX)
879
                                   (%ATN-NODE-BLOCK |PragmaArgList.8|
880
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PragmaArgList/PragmaArgList.8.9|)
881
                                                                     (|PragmaArgList/PragmaArgList.8.9| ATN-PARSER::INDEX))
882
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PragmaArgList/PragmaArgList.2.7|)
883
                                                                     (|PragmaArgList/PragmaArgList.2.7| ATN-PARSER::INDEX))))
884
                                 (|PragmaArgList/fail.3| (ATN-PARSER::INDEX)
885
                                   (%ATN-NODE-BLOCK |PragmaArgList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
886
                                 (|PragmaArgList/PragmaArgList.2.4| (ATN-PARSER::INDEX)
887
                                   (%ATN-NODE-BLOCK |PragmaArgList/PragmaArgList.2.4|
888
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
889
                                                                     (COND
890
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
891
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
892
                                                                       (|PragmaArgList/PragmaArgList.2.5| (1+ ATN-PARSER::INDEX)))
893
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|) NIL)))))
894
                                 (|PragmaArgList/PragmaArgList.2.5| (ATN-PARSER::INDEX)
895
                                   (%ATN-NODE-BLOCK |PragmaArgList/PragmaArgList.2.5|
896
                                                    (%ATN-EDGE-BLOCK (PUSH |PragmaArg|)
897
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
898
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PragmaArg| ATN-PARSER::INDEX)
899
                                                                       (COND
900
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PragmaArg|)
901
                                                                         (LET ((|PragmaArg456| |PragmaArg|))
902
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
903
                                                                             (DESTRUCTURING-BIND
904
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
905
                                                                                 ATN-PARSER::RESULT-AND-INDEX
906
                                                                               (WHEN ATN-PARSER::RESULT
907
                                                                                 (SETF |PragmaArg|
908
                                                                                         (CONS ATN-PARSER::RESULT |PragmaArg|)))
909
                                                                               (|PragmaArgList/PragmaArgList.2.6|
910
                                                                                ATN-PARSER::RESULT-INDEX))
911
                                                                             (SETF |PragmaArg| |PragmaArg456|))))
912
                                                                        (T (SETF *ATN-TERM?* '|PragmaArg|) NIL))))))
913
                                 (|PragmaArgList/PragmaArgList.2.6| (ATN-PARSER::INDEX)
914
                                   (%ATN-NODE-BLOCK |PragmaArgList/PragmaArgList.2.6|
915
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PragmaArgList/PragmaArgList.8.9|)
916
                                                                     (|PragmaArgList/PragmaArgList.8.9| ATN-PARSER::INDEX))
917
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PragmaArgList/PragmaArgList.2.7|)
918
                                                                     (|PragmaArgList/PragmaArgList.2.7| ATN-PARSER::INDEX))))
919
                                 (|PragmaArgList/PragmaArgList.2.7| (ATN-PARSER::INDEX)
920
                                   (%ATN-NODE-BLOCK |PragmaArgList/PragmaArgList.2.7|
921
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
922
                                                                     (COND
923
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
924
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
925
                                                                       (|PragmaArgList.2| (1+ ATN-PARSER::INDEX)))
926
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|) NIL)))))
927
                                 (|PragmaArgList/PragmaArgList.8.10| (ATN-PARSER::INDEX)
928
                                   (%ATN-NODE-BLOCK |PragmaArgList/PragmaArgList.8.10|
929
                                                    (%ATN-EDGE-BLOCK (PUSH |PragmaArg|)
930
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
931
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PragmaArg| ATN-PARSER::INDEX)
932
                                                                       (COND
933
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PragmaArg|)
934
                                                                         (LET ((|PragmaArg455| |PragmaArg|))
935
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
936
                                                                             (DESTRUCTURING-BIND
937
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
938
                                                                                 ATN-PARSER::RESULT-AND-INDEX
939
                                                                               (WHEN ATN-PARSER::RESULT
940
                                                                                 (SETF |PragmaArg|
941
                                                                                         (CONS ATN-PARSER::RESULT |PragmaArg|)))
942
                                                                               (|PragmaArgList.8| ATN-PARSER::RESULT-INDEX))
943
                                                                             (SETF |PragmaArg| |PragmaArg455|))))
944
                                                                        (T (SETF *ATN-TERM?* '|PragmaArg|) NIL))))))
945
                                 (|PragmaArgList/PragmaArgList.8.9| (ATN-PARSER::INDEX)
946
                                   (%ATN-NODE-BLOCK |PragmaArgList/PragmaArgList.8.9|
947
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
948
                                                                     (COND
949
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
950
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
951
                                                                       (|PragmaArgList/PragmaArgList.8.10| (1+ ATN-PARSER::INDEX)))
952
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
953
                                 (|PragmaArgList/start.1| (ATN-PARSER::INDEX)
954
                                   (%ATN-NODE-BLOCK |PragmaArgList/start.1|
955
                                                    (%ATN-EDGE-BLOCK OR
956
                                                                     (PROGN
957
                                                                      (%ATN-EDGE-BLOCK (PUSH NILLIST)
958
                                                                                       (MULTIPLE-VALUE-BIND
959
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
960
                                                                                           (ATN-PARSE-SUBSTRUCTURE* 'NILLIST
961
                                                                                                                    ATN-PARSER::INDEX)
962
                                                                                         (COND
963
                                                                                          (ATN-PARSER::SUCCESS
964
                                                                                           (SETF *ATN-TERM* 'NILLIST)
965
                                                                                           (LET ((NILLIST454 NILLIST))
966
                                                                                             (DOLIST
967
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
968
                                                                                                  ATN-PARSER::RESULT)
969
                                                                                               (DESTRUCTURING-BIND
970
                                                                                                   (
971
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
972
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
973
                                                                                                 (WHEN ATN-PARSER::RESULT
974
                                                                                                   (SETF NILLIST
975
                                                                                                           ATN-PARSER::RESULT))
976
                                                                                                 (|PragmaArgList.2|
977
                                                                                                  ATN-PARSER::RESULT-INDEX))
978
                                                                                               (SETF NILLIST NILLIST454))))
979
                                                                                          (T (SETF *ATN-TERM?* 'NILLIST) NIL))))
980
                                                                      (%ATN-EDGE-BLOCK
981
                                                                       (ATN-PARSER::JUMP |PragmaArgList/PragmaArgList.2.4|)
982
                                                                       (|PragmaArgList/PragmaArgList.2.4| ATN-PARSER::INDEX))
983
                                                                      (|PragmaArgList/fail.3| ATN-PARSER::INDEX))))))
984
                          (|PragmaArgList/start.1| ATN-PARSER::INDEX)
985
                          (SETF *ATN-NODE NIL)
986
                          NIL
987
                          (IF ATN-PARSER::ATN-STRUCTURE
988
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
989
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
990
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PragmaArgList| ATN-PARSER::INDEX *ATN-STACK))))
991
 (PROGN
992
  (DEFVAR |PragmaArg-INDEX|)
993
  (DEFUN |PragmaArg| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (VARNAME NIL))
994
    "{6c} PragmaArg ::= (Expression | VARNAME)
995
 (|Expression| VARNAME)"
996
    (DECLARE (SPECIAL |PragmaArg-INDEX|))
997
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PragmaArg-INDEX| *ATN-LEVEL))
998
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
999
    (IF (< |PragmaArg-INDEX| ATN-PARSER::INDEX)
1000
        (LET ((|PragmaArg-INDEX| ATN-PARSER::INDEX)
1001
              (*ATN-LEVEL (1+ *ATN-LEVEL))
1002
              (*ATN-STACK (CONS '|PragmaArg| *ATN-STACK))
1003
              (ATN-PARSER::ATN-STRUCTURE NIL))
1004
          (DECLARE (SPECIAL |PragmaArg-INDEX|))
1005
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
1006
          (DECLARE (TYPE CONS *ATN-STACK))
1007
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
1008
            (%ATN-BLOCK |PragmaArg|
1009
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
1010
                                   (SETF *ATN-TERM* '|PragmaArg|)
1011
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
1012
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
1013
                                   ATN-PARSER::INDEX)
1014
                                 (|PragmaArg.2| (ATN-PARSER::INDEX)
1015
                                   (%ATN-NODE-BLOCK |PragmaArg.2|
1016
                                                    (%ATN-EDGE-BLOCK (POP |PragmaArg|)
1017
                                                                     (WHEN T
1018
                                                                       (SETF *ATN-TERM* '|PragmaArg|)
1019
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|PragmaArg|
1020
                                                                                   ATN-PARSER::INDEX
1021
                                                                                   (LIST '|Expression| |Expression| 'VARNAME
1022
                                                                                         VARNAME))
1023
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
1024
                                                                              (IF (EQ *ATN-REDUCE* T)
1025
                                                                                  (|PragmaArg-Constructor| |Expression| VARNAME)
1026
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
1027
                                                                                      (CONS '|PragmaArg|
1028
                                                                                            (DELETE NIL
1029
                                                                                                    (LIST |Expression| VARNAME)))
1030
                                                                                      '|PragmaArg|))))
1031
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
1032
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
1033
                                 (|PragmaArg/fail.3| (ATN-PARSER::INDEX)
1034
                                   (%ATN-NODE-BLOCK |PragmaArg/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
1035
                                 (|PragmaArg/start.1| (ATN-PARSER::INDEX)
1036
                                   (%ATN-NODE-BLOCK |PragmaArg/start.1|
1037
                                                    (%ATN-EDGE-BLOCK OR
1038
                                                                     (PROGN
1039
                                                                      (%ATN-EDGE-BLOCK (PUSH |Expression|)
1040
                                                                                       (MULTIPLE-VALUE-BIND
1041
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1042
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Expression|
1043
                                                                                                                    ATN-PARSER::INDEX)
1044
                                                                                         (COND
1045
                                                                                          (ATN-PARSER::SUCCESS
1046
                                                                                           (SETF *ATN-TERM* '|Expression|)
1047
                                                                                           (LET ((|Expression457| |Expression|))
1048
                                                                                             (DOLIST
1049
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
1050
                                                                                                  ATN-PARSER::RESULT)
1051
                                                                                               (DESTRUCTURING-BIND
1052
                                                                                                   (
1053
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1054
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
1055
                                                                                                 (WHEN ATN-PARSER::RESULT
1056
                                                                                                   (SETF |Expression|
1057
                                                                                                           ATN-PARSER::RESULT))
1058
                                                                                                 (|PragmaArg.2|
1059
                                                                                                  ATN-PARSER::RESULT-INDEX))
1060
                                                                                               (SETF |Expression|
1061
                                                                                                       |Expression457|))))
1062
                                                                                          (T (SETF *ATN-TERM?* '|Expression|)
1063
                                                                                           NIL))))
1064
                                                                      (%ATN-EDGE-BLOCK (TEST VARNAME)
1065
                                                                                       (COND
1066
                                                                                        ((IS-VARNAME ATN-PARSER::|item|)
1067
                                                                                         (SETF *ATN-TERM* 'VARNAME)
1068
                                                                                         (SETF VARNAME
1069
                                                                                                 (IF (EQ *ATN-REDUCE* T)
1070
                                                                                                     (ATN-REDUCE-ITEM
1071
                                                                                                      #'|VARNAME-Constructor|
1072
                                                                                                      ATN-PARSER::|item|)
1073
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
1074
                                                                                                         (LIST 'VARNAME
1075
                                                                                                               ATN-PARSER::|item|)
1076
                                                                                                         'VARNAME)))
1077
                                                                                         (|PragmaArg.2| (1+ ATN-PARSER::INDEX)))
1078
                                                                                        (T (SETF *ATN-TERM?* 'VARNAME) NIL)))
1079
                                                                      (|PragmaArg/fail.3| ATN-PARSER::INDEX))))))
1080
                          (|PragmaArg/start.1| ATN-PARSER::INDEX)
1081
                          (SETF *ATN-NODE NIL)
1082
                          NIL
1083
                          (IF ATN-PARSER::ATN-STRUCTURE
1084
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
1085
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
1086
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PragmaArg| ATN-PARSER::INDEX *ATN-STACK))))
1087
 (PROGN
1088
  (DEFVAR |SelectQuery-INDEX|)
1089
  (DEFUN |SelectQuery|
1090
         (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|SelectClause| NIL) (|SolutionModifier| NIL) (|WhereClause| NIL))
1091
    "{7 } SelectQuery ::= SelectClause DatasetClause* WhereClause SolutionModifier
1092
 (|DatasetClause| |SelectClause| |SolutionModifier| |WhereClause|)"
1093
    (DECLARE (SPECIAL |SelectQuery-INDEX|))
1094
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SelectQuery-INDEX| *ATN-LEVEL))
1095
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
1096
    (IF (< |SelectQuery-INDEX| ATN-PARSER::INDEX)
1097
        (LET ((|SelectQuery-INDEX| ATN-PARSER::INDEX)
1098
              (*ATN-LEVEL (1+ *ATN-LEVEL))
1099
              (*ATN-STACK (CONS '|SelectQuery| *ATN-STACK))
1100
              (ATN-PARSER::ATN-STRUCTURE NIL))
1101
          (DECLARE (SPECIAL |SelectQuery-INDEX|))
1102
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
1103
          (DECLARE (TYPE CONS *ATN-STACK))
1104
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
1105
            (%ATN-BLOCK |SelectQuery|
1106
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
1107
                                   (SETF *ATN-TERM* '|SelectQuery|)
1108
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
1109
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
1110
                                   ATN-PARSER::INDEX)
1111
                                 (|SelectQuery.2| (ATN-PARSER::INDEX)
1112
                                   (%ATN-NODE-BLOCK |SelectQuery.2|
1113
                                                    (%ATN-EDGE-BLOCK (POP |SelectQuery|)
1114
                                                                     (WHEN T
1115
                                                                       (SETF *ATN-TERM* '|SelectQuery|)
1116
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
1117
                                                                                   '|SelectQuery| ATN-PARSER::INDEX
1118
                                                                                   (LIST '|DatasetClause| |DatasetClause|
1119
                                                                                         '|SelectClause| |SelectClause|
1120
                                                                                         '|SolutionModifier| |SolutionModifier|
1121
                                                                                         '|WhereClause| |WhereClause|))
1122
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
1123
                                                                              (IF (EQ *ATN-REDUCE* T)
1124
                                                                                  (|SelectQuery-Constructor| |DatasetClause|
1125
                                                                                                             |SelectClause|
1126
                                                                                                             |SolutionModifier|
1127
                                                                                                             |WhereClause|)
1128
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
1129
                                                                                      (CONS '|SelectQuery|
1130
                                                                                            (DELETE NIL
1131
                                                                                                    (LIST |DatasetClause|
1132
                                                                                                          |SelectClause|
1133
                                                                                                          |SolutionModifier|
1134
                                                                                                          |WhereClause|)))
1135
                                                                                      '|SelectQuery|))))
1136
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
1137
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
1138
                                 (|SelectQuery.7| (ATN-PARSER::INDEX)
1139
                                   (%ATN-NODE-BLOCK |SelectQuery.7|
1140
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
1141
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1142
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
1143
                                                                                                  ATN-PARSER::INDEX)
1144
                                                                       (COND
1145
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
1146
                                                                         (LET ((|DatasetClause461| |DatasetClause|))
1147
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1148
                                                                             (DESTRUCTURING-BIND
1149
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1150
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1151
                                                                               (WHEN ATN-PARSER::RESULT
1152
                                                                                 (SETF |DatasetClause|
1153
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
1154
                                                                               (|SelectQuery.7| ATN-PARSER::RESULT-INDEX))
1155
                                                                             (SETF |DatasetClause| |DatasetClause461|))))
1156
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
1157
                                                                         (|SelectQuery/SelectQuery.2.5| ATN-PARSER::INDEX)))))))
1158
                                 (|SelectQuery/fail.3| (ATN-PARSER::INDEX)
1159
                                   (%ATN-NODE-BLOCK |SelectQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
1160
                                 (|SelectQuery/SelectQuery.2.4| (ATN-PARSER::INDEX)
1161
                                   (%ATN-NODE-BLOCK |SelectQuery/SelectQuery.2.4|
1162
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
1163
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1164
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
1165
                                                                                                  ATN-PARSER::INDEX)
1166
                                                                       (COND
1167
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
1168
                                                                         (LET ((|DatasetClause460| |DatasetClause|))
1169
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1170
                                                                             (DESTRUCTURING-BIND
1171
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1172
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1173
                                                                               (WHEN ATN-PARSER::RESULT
1174
                                                                                 (SETF |DatasetClause|
1175
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
1176
                                                                               (|SelectQuery.7| ATN-PARSER::RESULT-INDEX))
1177
                                                                             (SETF |DatasetClause| |DatasetClause460|))))
1178
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
1179
                                                                         (|SelectQuery/SelectQuery.2.5| ATN-PARSER::INDEX)))))))
1180
                                 (|SelectQuery/SelectQuery.2.5| (ATN-PARSER::INDEX)
1181
                                   (%ATN-NODE-BLOCK |SelectQuery/SelectQuery.2.5|
1182
                                                    (%ATN-EDGE-BLOCK (PUSH |WhereClause|)
1183
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1184
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)
1185
                                                                       (COND
1186
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|WhereClause|)
1187
                                                                         (LET ((|WhereClause459| |WhereClause|))
1188
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1189
                                                                             (DESTRUCTURING-BIND
1190
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1191
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1192
                                                                               (WHEN ATN-PARSER::RESULT
1193
                                                                                 (SETF |WhereClause| ATN-PARSER::RESULT))
1194
                                                                               (|SelectQuery/SelectQuery.2.6|
1195
                                                                                ATN-PARSER::RESULT-INDEX))
1196
                                                                             (SETF |WhereClause| |WhereClause459|))))
1197
                                                                        (T (SETF *ATN-TERM?* '|WhereClause|)
1198
                                                                         (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))
1199
                                 (|SelectQuery/SelectQuery.2.6| (ATN-PARSER::INDEX)
1200
                                   (%ATN-NODE-BLOCK |SelectQuery/SelectQuery.2.6|
1201
                                                    (%ATN-EDGE-BLOCK (PUSH |SolutionModifier|)
1202
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1203
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier|
1204
                                                                                                  ATN-PARSER::INDEX)
1205
                                                                       (COND
1206
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|SolutionModifier|)
1207
                                                                         (LET ((|SolutionModifier458| |SolutionModifier|))
1208
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1209
                                                                             (DESTRUCTURING-BIND
1210
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1211
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1212
                                                                               (WHEN ATN-PARSER::RESULT
1213
                                                                                 (SETF |SolutionModifier| ATN-PARSER::RESULT))
1214
                                                                               (|SelectQuery.2| ATN-PARSER::RESULT-INDEX))
1215
                                                                             (SETF |SolutionModifier| |SolutionModifier458|))))
1216
                                                                        (T (SETF *ATN-TERM?* '|SolutionModifier|)
1217
                                                                         (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))
1218
                                 (|SelectQuery/start.1| (ATN-PARSER::INDEX)
1219
                                   (%ATN-NODE-BLOCK |SelectQuery/start.1|
1220
                                                    (%ATN-EDGE-BLOCK (PUSH |SelectClause|)
1221
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1222
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SelectClause| ATN-PARSER::INDEX)
1223
                                                                       (COND
1224
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|SelectClause|)
1225
                                                                         (LET ((|SelectClause462| |SelectClause|))
1226
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1227
                                                                             (DESTRUCTURING-BIND
1228
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1229
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1230
                                                                               (WHEN ATN-PARSER::RESULT
1231
                                                                                 (SETF |SelectClause| ATN-PARSER::RESULT))
1232
                                                                               (|SelectQuery/SelectQuery.2.4|
1233
                                                                                ATN-PARSER::RESULT-INDEX))
1234
                                                                             (SETF |SelectClause| |SelectClause462|))))
1235
                                                                        (T (SETF *ATN-TERM?* '|SelectClause|)
1236
                                                                         (|SelectQuery/fail.3| ATN-PARSER::INDEX))))))))
1237
                          (|SelectQuery/start.1| ATN-PARSER::INDEX)
1238
                          (SETF *ATN-NODE NIL)
1239
                          NIL
1240
                          (IF ATN-PARSER::ATN-STRUCTURE
1241
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
1242
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
1243
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|SelectQuery| ATN-PARSER::INDEX *ATN-STACK))))
1244
 (PROGN
1245
  (DEFVAR |SubSelect-INDEX|)
1246
  (DEFUN |SubSelect|
1247
         (ATN-PARSER::INDEX
1248
          &AUX (|ConstructClause| NIL) (|DescribeClause| NIL) (|FieldClause| NIL) (|SelectClause| NIL) (|SolutionModifier| NIL)
1249
          (|WhereClause| NIL))
1250
    "{8 } SubSelect ::= ((SelectClause | DescribeClause | ConstructClause)) WhereClause SolutionModifier FieldClause?
1251
 (|ConstructClause| |DescribeClause| |FieldClause| |SelectClause|
1252
                    |SolutionModifier| |WhereClause|)"
1253
    (DECLARE (SPECIAL |SubSelect-INDEX|))
1254
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SubSelect-INDEX| *ATN-LEVEL))
1255
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
1256
    (IF (< |SubSelect-INDEX| ATN-PARSER::INDEX)
1257
        (LET ((|SubSelect-INDEX| ATN-PARSER::INDEX)
1258
              (*ATN-LEVEL (1+ *ATN-LEVEL))
1259
              (*ATN-STACK (CONS '|SubSelect| *ATN-STACK))
1260
              (ATN-PARSER::ATN-STRUCTURE NIL))
1261
          (DECLARE (SPECIAL |SubSelect-INDEX|))
1262
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
1263
          (DECLARE (TYPE CONS *ATN-STACK))
1264
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
1265
            (%ATN-BLOCK |SubSelect|
1266
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
1267
                                   (SETF *ATN-TERM* '|SubSelect|)
1268
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
1269
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
1270
                                   ATN-PARSER::INDEX)
1271
                                 (|SubSelect.2| (ATN-PARSER::INDEX)
1272
                                   (%ATN-NODE-BLOCK |SubSelect.2|
1273
                                                    (%ATN-EDGE-BLOCK (POP |SubSelect|)
1274
                                                                     (WHEN T
1275
                                                                       (SETF *ATN-TERM* '|SubSelect|)
1276
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|SubSelect|
1277
                                                                                   ATN-PARSER::INDEX
1278
                                                                                   (LIST '|ConstructClause| |ConstructClause|
1279
                                                                                         '|DescribeClause| |DescribeClause|
1280
                                                                                         '|FieldClause| |FieldClause|
1281
                                                                                         '|SelectClause| |SelectClause|
1282
                                                                                         '|SolutionModifier| |SolutionModifier|
1283
                                                                                         '|WhereClause| |WhereClause|))
1284
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
1285
                                                                              (IF (EQ *ATN-REDUCE* T)
1286
                                                                                  (|SubSelect-Constructor| |ConstructClause|
1287
                                                                                                           |DescribeClause|
1288
                                                                                                           |FieldClause|
1289
                                                                                                           |SelectClause|
1290
                                                                                                           |SolutionModifier|
1291
                                                                                                           |WhereClause|)
1292
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
1293
                                                                                      (CONS '|SubSelect|
1294
                                                                                            (DELETE NIL
1295
                                                                                                    (LIST |ConstructClause|
1296
                                                                                                          |DescribeClause|
1297
                                                                                                          |FieldClause|
1298
                                                                                                          |SelectClause|
1299
                                                                                                          |SolutionModifier|
1300
                                                                                                          |WhereClause|)))
1301
                                                                                      '|SubSelect|))))
1302
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
1303
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
1304
                                 (|SubSelect/fail.3| (ATN-PARSER::INDEX)
1305
                                   (%ATN-NODE-BLOCK |SubSelect/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
1306
                                 (|SubSelect/start.1| (ATN-PARSER::INDEX)
1307
                                   (%ATN-NODE-BLOCK |SubSelect/start.1|
1308
                                                    (%ATN-EDGE-BLOCK OR
1309
                                                                     (PROGN
1310
                                                                      (%ATN-EDGE-BLOCK (PUSH |SelectClause|)
1311
                                                                                       (MULTIPLE-VALUE-BIND
1312
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1313
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|SelectClause|
1314
                                                                                                                    ATN-PARSER::INDEX)
1315
                                                                                         (COND
1316
                                                                                          (ATN-PARSER::SUCCESS
1317
                                                                                           (SETF *ATN-TERM* '|SelectClause|)
1318
                                                                                           (LET ((|SelectClause466| |SelectClause|))
1319
                                                                                             (DOLIST
1320
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
1321
                                                                                                  ATN-PARSER::RESULT)
1322
                                                                                               (DESTRUCTURING-BIND
1323
                                                                                                   (
1324
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1325
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
1326
                                                                                                 (WHEN ATN-PARSER::RESULT
1327
                                                                                                   (SETF |SelectClause|
1328
                                                                                                           ATN-PARSER::RESULT))
1329
                                                                                                 (|SubSelect/SubSelect.2.4|
1330
                                                                                                  ATN-PARSER::RESULT-INDEX))
1331
                                                                                               (SETF |SelectClause|
1332
                                                                                                       |SelectClause466|))))
1333
                                                                                          (T (SETF *ATN-TERM?* '|SelectClause|)
1334
                                                                                           NIL))))
1335
                                                                      (%ATN-EDGE-BLOCK (PUSH |DescribeClause|)
1336
                                                                                       (MULTIPLE-VALUE-BIND
1337
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1338
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
1339
                                                                                            '|DescribeClause| ATN-PARSER::INDEX)
1340
                                                                                         (COND
1341
                                                                                          (ATN-PARSER::SUCCESS
1342
                                                                                           (SETF *ATN-TERM* '|DescribeClause|)
1343
                                                                                           (LET ((|DescribeClause467|
1344
                                                                                                  |DescribeClause|))
1345
                                                                                             (DOLIST
1346
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
1347
                                                                                                  ATN-PARSER::RESULT)
1348
                                                                                               (DESTRUCTURING-BIND
1349
                                                                                                   (
1350
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1351
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
1352
                                                                                                 (WHEN ATN-PARSER::RESULT
1353
                                                                                                   (SETF |DescribeClause|
1354
                                                                                                           ATN-PARSER::RESULT))
1355
                                                                                                 (|SubSelect/SubSelect.2.4|
1356
                                                                                                  ATN-PARSER::RESULT-INDEX))
1357
                                                                                               (SETF |DescribeClause|
1358
                                                                                                       |DescribeClause467|))))
1359
                                                                                          (T (SETF *ATN-TERM?* '|DescribeClause|)
1360
                                                                                           NIL))))
1361
                                                                      (%ATN-EDGE-BLOCK (PUSH |ConstructClause|)
1362
                                                                                       (MULTIPLE-VALUE-BIND
1363
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1364
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
1365
                                                                                            '|ConstructClause| ATN-PARSER::INDEX)
1366
                                                                                         (COND
1367
                                                                                          (ATN-PARSER::SUCCESS
1368
                                                                                           (SETF *ATN-TERM* '|ConstructClause|)
1369
                                                                                           (LET ((|ConstructClause468|
1370
                                                                                                  |ConstructClause|))
1371
                                                                                             (DOLIST
1372
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
1373
                                                                                                  ATN-PARSER::RESULT)
1374
                                                                                               (DESTRUCTURING-BIND
1375
                                                                                                   (
1376
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1377
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
1378
                                                                                                 (WHEN ATN-PARSER::RESULT
1379
                                                                                                   (SETF |ConstructClause|
1380
                                                                                                           ATN-PARSER::RESULT))
1381
                                                                                                 (|SubSelect/SubSelect.2.4|
1382
                                                                                                  ATN-PARSER::RESULT-INDEX))
1383
                                                                                               (SETF |ConstructClause|
1384
                                                                                                       |ConstructClause468|))))
1385
                                                                                          (T (SETF *ATN-TERM?* '|ConstructClause|)
1386
                                                                                           NIL))))
1387
                                                                      (|SubSelect/fail.3| ATN-PARSER::INDEX)))))
1388
                                 (|SubSelect/SubSelect.2.4| (ATN-PARSER::INDEX)
1389
                                   (%ATN-NODE-BLOCK |SubSelect/SubSelect.2.4|
1390
                                                    (%ATN-EDGE-BLOCK (PUSH |WhereClause|)
1391
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1392
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)
1393
                                                                       (COND
1394
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|WhereClause|)
1395
                                                                         (LET ((|WhereClause465| |WhereClause|))
1396
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1397
                                                                             (DESTRUCTURING-BIND
1398
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1399
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1400
                                                                               (WHEN ATN-PARSER::RESULT
1401
                                                                                 (SETF |WhereClause| ATN-PARSER::RESULT))
1402
                                                                               (|SubSelect/SubSelect.2.5| ATN-PARSER::RESULT-INDEX))
1403
                                                                             (SETF |WhereClause| |WhereClause465|))))
1404
                                                                        (T (SETF *ATN-TERM?* '|WhereClause|)
1405
                                                                         (|SubSelect/fail.3| ATN-PARSER::INDEX)))))))
1406
                                 (|SubSelect/SubSelect.2.5| (ATN-PARSER::INDEX)
1407
                                   (%ATN-NODE-BLOCK |SubSelect/SubSelect.2.5|
1408
                                                    (%ATN-EDGE-BLOCK (PUSH |SolutionModifier|)
1409
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1410
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier|
1411
                                                                                                  ATN-PARSER::INDEX)
1412
                                                                       (COND
1413
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|SolutionModifier|)
1414
                                                                         (LET ((|SolutionModifier464| |SolutionModifier|))
1415
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1416
                                                                             (DESTRUCTURING-BIND
1417
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1418
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1419
                                                                               (WHEN ATN-PARSER::RESULT
1420
                                                                                 (SETF |SolutionModifier| ATN-PARSER::RESULT))
1421
                                                                               (|SubSelect/SubSelect.2.6| ATN-PARSER::RESULT-INDEX))
1422
                                                                             (SETF |SolutionModifier| |SolutionModifier464|))))
1423
                                                                        (T (SETF *ATN-TERM?* '|SolutionModifier|)
1424
                                                                         (|SubSelect/fail.3| ATN-PARSER::INDEX)))))))
1425
                                 (|SubSelect/SubSelect.2.6| (ATN-PARSER::INDEX)
1426
                                   (%ATN-NODE-BLOCK |SubSelect/SubSelect.2.6|
1427
                                                    (%ATN-EDGE-BLOCK (PUSH |FieldClause|)
1428
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1429
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|FieldClause| ATN-PARSER::INDEX)
1430
                                                                       (COND
1431
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|FieldClause|)
1432
                                                                         (LET ((|FieldClause463| |FieldClause|))
1433
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1434
                                                                             (DESTRUCTURING-BIND
1435
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1436
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1437
                                                                               (WHEN ATN-PARSER::RESULT
1438
                                                                                 (SETF |FieldClause| ATN-PARSER::RESULT))
1439
                                                                               (|SubSelect.2| ATN-PARSER::RESULT-INDEX))
1440
                                                                             (SETF |FieldClause| |FieldClause463|))))
1441
                                                                        (T (SETF *ATN-TERM?* '|FieldClause|)
1442
                                                                         (|SubSelect.2| ATN-PARSER::INDEX))))))))
1443
                          (|SubSelect/start.1| ATN-PARSER::INDEX)
1444
                          (SETF *ATN-NODE NIL)
1445
                          NIL
1446
                          (IF ATN-PARSER::ATN-STRUCTURE
1447
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
1448
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
1449
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|SubSelect| ATN-PARSER::INDEX *ATN-STACK))))
1450
 (PROGN
1451
  (DEFVAR |SelectClause-INDEX|)
1452
  (DEFUN |SelectClause| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|VariableOrBindingOrAggregate| NIL) (|Wild| NIL))
1453
    "{9 } SelectClause ::= 'SELECT' Distinctness? (((VariableOrBindingOrAggregate)+ | Wild))
1454
 (|Distinctness| |VariableOrBindingOrAggregate| |Wild|)"
1455
    (DECLARE (SPECIAL |SelectClause-INDEX|))
1456
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SelectClause-INDEX| *ATN-LEVEL))
1457
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
1458
    (IF (< |SelectClause-INDEX| ATN-PARSER::INDEX)
1459
        (LET ((|SelectClause-INDEX| ATN-PARSER::INDEX)
1460
              (*ATN-LEVEL (1+ *ATN-LEVEL))
1461
              (*ATN-STACK (CONS '|SelectClause| *ATN-STACK))
1462
              (ATN-PARSER::ATN-STRUCTURE NIL))
1463
          (DECLARE (SPECIAL |SelectClause-INDEX|))
1464
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
1465
          (DECLARE (TYPE CONS *ATN-STACK))
1466
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
1467
            (%ATN-BLOCK |SelectClause|
1468
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
1469
                                   (SETF *ATN-TERM* '|SelectClause|)
1470
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
1471
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
1472
                                   ATN-PARSER::INDEX)
1473
                                 (|SelectClause.2| (ATN-PARSER::INDEX)
1474
                                   (%ATN-NODE-BLOCK |SelectClause.2|
1475
                                                    (%ATN-EDGE-BLOCK (POP |SelectClause|)
1476
                                                                     (WHEN T
1477
                                                                       (SETF *ATN-TERM* '|SelectClause|)
1478
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
1479
                                                                                   '|SelectClause| ATN-PARSER::INDEX
1480
                                                                                   (LIST '|Distinctness| |Distinctness|
1481
                                                                                         '|VariableOrBindingOrAggregate|
1482
                                                                                         |VariableOrBindingOrAggregate| '|Wild|
1483
                                                                                         |Wild|))
1484
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
1485
                                                                              (IF (EQ *ATN-REDUCE* T)
1486
                                                                                  (|SelectClause-Constructor| |Distinctness|
1487
                                                                                                              |VariableOrBindingOrAggregate|
1488
                                                                                                              |Wild|)
1489
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
1490
                                                                                      (CONS '|SelectClause|
1491
                                                                                            (DELETE NIL
1492
                                                                                                    (LIST |Distinctness|
1493
                                                                                                          |VariableOrBindingOrAggregate|
1494
                                                                                                          |Wild|)))
1495
                                                                                      '|SelectClause|))))
1496
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
1497
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
1498
                                 (|SelectClause.6| (ATN-PARSER::INDEX)
1499
                                   (%ATN-NODE-BLOCK |SelectClause.6|
1500
                                                    (%ATN-EDGE-BLOCK (PUSH |VariableOrBindingOrAggregate|)
1501
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1502
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VariableOrBindingOrAggregate|
1503
                                                                                                  ATN-PARSER::INDEX)
1504
                                                                       (COND
1505
                                                                        (ATN-PARSER::SUCCESS
1506
                                                                         (SETF *ATN-TERM* '|VariableOrBindingOrAggregate|)
1507
                                                                         (LET ((|VariableOrBindingOrAggregate470|
1508
                                                                                |VariableOrBindingOrAggregate|))
1509
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1510
                                                                             (DESTRUCTURING-BIND
1511
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1512
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1513
                                                                               (WHEN ATN-PARSER::RESULT
1514
                                                                                 (SETF |VariableOrBindingOrAggregate|
1515
                                                                                         (CONS ATN-PARSER::RESULT
1516
                                                                                               |VariableOrBindingOrAggregate|)))
1517
                                                                               (|SelectClause.6| ATN-PARSER::RESULT-INDEX))
1518
                                                                             (SETF |VariableOrBindingOrAggregate|
1519
                                                                                     |VariableOrBindingOrAggregate470|))))
1520
                                                                        (T (SETF *ATN-TERM?* '|VariableOrBindingOrAggregate|)
1521
                                                                         (|SelectClause.2| ATN-PARSER::INDEX)))))))
1522
                                 (|SelectClause/fail.3| (ATN-PARSER::INDEX)
1523
                                   (%ATN-NODE-BLOCK |SelectClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
1524
                                 (|SelectClause/SelectClause.2.4| (ATN-PARSER::INDEX)
1525
                                   (%ATN-NODE-BLOCK |SelectClause/SelectClause.2.4|
1526
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Distinctness|)
1527
                                                                     (COND
1528
                                                                      ((|IS-Distinctness| ATN-PARSER::|item|)
1529
                                                                       (SETF *ATN-TERM* '|Distinctness|)
1530
                                                                       (SETF |Distinctness|
1531
                                                                               (IF (EQ *ATN-REDUCE* T)
1532
                                                                                   (ATN-REDUCE-ITEM #'|Distinctness-Constructor|
1533
                                                                                                    ATN-PARSER::|item|)
1534
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
1535
                                                                                       (LIST '|Distinctness| ATN-PARSER::|item|)
1536
                                                                                       '|Distinctness|)))
1537
                                                                       (|SelectClause/SelectClause.2.5| (1+ ATN-PARSER::INDEX)))
1538
                                                                      (T (SETF *ATN-TERM* '|Distinctness|)
1539
                                                                       (|SelectClause/SelectClause.2.5| ATN-PARSER::INDEX))))))
1540
                                 (|SelectClause/SelectClause.2.5| (ATN-PARSER::INDEX)
1541
                                   (%ATN-NODE-BLOCK |SelectClause/SelectClause.2.5|
1542
                                                    (%ATN-EDGE-BLOCK OR
1543
                                                                     (PROGN
1544
                                                                      (%ATN-EDGE-BLOCK (PUSH |VariableOrBindingOrAggregate|)
1545
                                                                                       (MULTIPLE-VALUE-BIND
1546
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1547
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
1548
                                                                                            '|VariableOrBindingOrAggregate|
1549
                                                                                            ATN-PARSER::INDEX)
1550
                                                                                         (COND
1551
                                                                                          (ATN-PARSER::SUCCESS
1552
                                                                                           (SETF *ATN-TERM*
1553
                                                                                                   '|VariableOrBindingOrAggregate|)
1554
                                                                                           (LET ((|VariableOrBindingOrAggregate469|
1555
                                                                                                  |VariableOrBindingOrAggregate|))
1556
                                                                                             (DOLIST
1557
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
1558
                                                                                                  ATN-PARSER::RESULT)
1559
                                                                                               (DESTRUCTURING-BIND
1560
                                                                                                   (
1561
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1562
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
1563
                                                                                                 (WHEN ATN-PARSER::RESULT
1564
                                                                                                   (SETF |VariableOrBindingOrAggregate|
1565
                                                                                                           (CONS ATN-PARSER::RESULT
1566
                                                                                                                 |VariableOrBindingOrAggregate|)))
1567
                                                                                                 (|SelectClause.6|
1568
                                                                                                  ATN-PARSER::RESULT-INDEX))
1569
                                                                                               (SETF |VariableOrBindingOrAggregate|
1570
                                                                                                       |VariableOrBindingOrAggregate469|))))
1571
                                                                                          (T
1572
                                                                                           (SETF *ATN-TERM?*
1573
                                                                                                   '|VariableOrBindingOrAggregate|)
1574
                                                                                           NIL))))
1575
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Wild|)
1576
                                                                                       (COND
1577
                                                                                        ((|IS-Wild| ATN-PARSER::|item|)
1578
                                                                                         (SETF *ATN-TERM* '|Wild|)
1579
                                                                                         (SETF |Wild|
1580
                                                                                                 (IF (EQ *ATN-REDUCE* T)
1581
                                                                                                     (ATN-REDUCE-ITEM
1582
                                                                                                      #'|Wild-Constructor|
1583
                                                                                                      ATN-PARSER::|item|)
1584
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
1585
                                                                                                         (LIST '|Wild|
1586
                                                                                                               ATN-PARSER::|item|)
1587
                                                                                                         '|Wild|)))
1588
                                                                                         (|SelectClause.2| (1+ ATN-PARSER::INDEX)))
1589
                                                                                        (T (SETF *ATN-TERM* '|Wild|) NIL)))
1590
                                                                      (|SelectClause/fail.3| ATN-PARSER::INDEX)))))
1591
                                 (|SelectClause/start.1| (ATN-PARSER::INDEX)
1592
                                   (%ATN-NODE-BLOCK |SelectClause/start.1|
1593
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:SELECT)
1594
                                                                     (COND
1595
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:SELECT)
1596
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:SELECT)
1597
                                                                       (|SelectClause/SelectClause.2.4| (1+ ATN-PARSER::INDEX)))
1598
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:SELECT)
1599
                                                                       (|SelectClause/fail.3| ATN-PARSER::INDEX)))))))
1600
                          (|SelectClause/start.1| ATN-PARSER::INDEX)
1601
                          (SETF *ATN-NODE NIL)
1602
                          NIL
1603
                          (IF ATN-PARSER::ATN-STRUCTURE
1604
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
1605
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
1606
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|SelectClause| ATN-PARSER::INDEX *ATN-STACK))))
1607
 (PROGN
1608
  (DEFVAR |DescribeClause-INDEX|)
1609
  (DEFUN |DescribeClause| (ATN-PARSER::INDEX &AUX (|Dimensions| NIL) (|VarOrIRIref| NIL))
1610
    "{9a} DescribeClause ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) 'AS' Dimensions
1611
 (|Dimensions| |VarOrIRIref|)"
1612
    (DECLARE (SPECIAL |DescribeClause-INDEX|))
1613
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DescribeClause-INDEX| *ATN-LEVEL))
1614
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
1615
    (IF (< |DescribeClause-INDEX| ATN-PARSER::INDEX)
1616
        (LET ((|DescribeClause-INDEX| ATN-PARSER::INDEX)
1617
              (*ATN-LEVEL (1+ *ATN-LEVEL))
1618
              (*ATN-STACK (CONS '|DescribeClause| *ATN-STACK))
1619
              (ATN-PARSER::ATN-STRUCTURE NIL))
1620
          (DECLARE (SPECIAL |DescribeClause-INDEX|))
1621
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
1622
          (DECLARE (TYPE CONS *ATN-STACK))
1623
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
1624
            (%ATN-BLOCK |DescribeClause|
1625
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
1626
                                   (SETF *ATN-TERM* '|DescribeClause|)
1627
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
1628
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
1629
                                   ATN-PARSER::INDEX)
1630
                                 (|DescribeClause.2| (ATN-PARSER::INDEX)
1631
                                   (%ATN-NODE-BLOCK |DescribeClause.2|
1632
                                                    (%ATN-EDGE-BLOCK (POP |DescribeClause|)
1633
                                                                     (WHEN T
1634
                                                                       (SETF *ATN-TERM* '|DescribeClause|)
1635
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
1636
                                                                                   '|DescribeClause| ATN-PARSER::INDEX
1637
                                                                                   (LIST '|Dimensions| |Dimensions| '|VarOrIRIref|
1638
                                                                                         |VarOrIRIref|))
1639
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
1640
                                                                              (IF (EQ *ATN-REDUCE* T)
1641
                                                                                  (|DescribeClause-Constructor| |Dimensions|
1642
                                                                                                                |VarOrIRIref|)
1643
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
1644
                                                                                      (CONS '|DescribeClause|
1645
                                                                                            (DELETE NIL
1646
                                                                                                    (LIST |Dimensions|
1647
                                                                                                          |VarOrIRIref|)))
1648
                                                                                      '|DescribeClause|))))
1649
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
1650
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
1651
                                 (|DescribeClause.7| (ATN-PARSER::INDEX)
1652
                                   (%ATN-NODE-BLOCK |DescribeClause.7|
1653
                                                    (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
1654
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1655
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)
1656
                                                                       (COND
1657
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarOrIRIref|)
1658
                                                                         (LET ((|VarOrIRIref473| |VarOrIRIref|))
1659
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1660
                                                                             (DESTRUCTURING-BIND
1661
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1662
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1663
                                                                               (WHEN ATN-PARSER::RESULT
1664
                                                                                 (SETF |VarOrIRIref|
1665
                                                                                         (CONS ATN-PARSER::RESULT |VarOrIRIref|)))
1666
                                                                               (|DescribeClause.7| ATN-PARSER::RESULT-INDEX))
1667
                                                                             (SETF |VarOrIRIref| |VarOrIRIref473|))))
1668
                                                                        (T (SETF *ATN-TERM?* '|VarOrIRIref|)
1669
                                                                         (|DescribeClause/DescribeClause.2.5|
1670
                                                                          ATN-PARSER::INDEX)))))))
1671
                                 (|DescribeClause/DescribeClause.2.4| (ATN-PARSER::INDEX)
1672
                                   (%ATN-NODE-BLOCK |DescribeClause/DescribeClause.2.4|
1673
                                                    (%ATN-EDGE-BLOCK OR
1674
                                                                     (PROGN
1675
                                                                      (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
1676
                                                                                       (MULTIPLE-VALUE-BIND
1677
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1678
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref|
1679
                                                                                                                    ATN-PARSER::INDEX)
1680
                                                                                         (COND
1681
                                                                                          (ATN-PARSER::SUCCESS
1682
                                                                                           (SETF *ATN-TERM* '|VarOrIRIref|)
1683
                                                                                           (LET ((|VarOrIRIref472| |VarOrIRIref|))
1684
                                                                                             (DOLIST
1685
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
1686
                                                                                                  ATN-PARSER::RESULT)
1687
                                                                                               (DESTRUCTURING-BIND
1688
                                                                                                   (
1689
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1690
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
1691
                                                                                                 (WHEN ATN-PARSER::RESULT
1692
                                                                                                   (SETF |VarOrIRIref|
1693
                                                                                                           (CONS ATN-PARSER::RESULT
1694
                                                                                                                 |VarOrIRIref|)))
1695
                                                                                                 (|DescribeClause.7|
1696
                                                                                                  ATN-PARSER::RESULT-INDEX))
1697
                                                                                               (SETF |VarOrIRIref|
1698
                                                                                                       |VarOrIRIref472|))))
1699
                                                                                          (T (SETF *ATN-TERM?* '|VarOrIRIref|)
1700
                                                                                           NIL))))
1701
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:*)
1702
                                                                                       (COND
1703
                                                                                        ((EQ ATN-PARSER::|item| 'SPOCQ.S:*)
1704
                                                                                         (SETF *ATN-TERM* 'SPOCQ.S:*)
1705
                                                                                         (|DescribeClause/DescribeClause.2.5|
1706
                                                                                          (1+ ATN-PARSER::INDEX)))
1707
                                                                                        (T (SETF *ATN-TERM?* 'SPOCQ.S:*) NIL)))
1708
                                                                      (|DescribeClause/fail.3| ATN-PARSER::INDEX)))))
1709
                                 (|DescribeClause/DescribeClause.2.5| (ATN-PARSER::INDEX)
1710
                                   (%ATN-NODE-BLOCK |DescribeClause/DescribeClause.2.5|
1711
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:AS)
1712
                                                                     (COND
1713
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)
1714
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:AS)
1715
                                                                       (|DescribeClause/DescribeClause.2.6| (1+ ATN-PARSER::INDEX)))
1716
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:AS)
1717
                                                                       (|DescribeClause/fail.3| ATN-PARSER::INDEX))))))
1718
                                 (|DescribeClause/DescribeClause.2.6| (ATN-PARSER::INDEX)
1719
                                   (%ATN-NODE-BLOCK |DescribeClause/DescribeClause.2.6|
1720
                                                    (%ATN-EDGE-BLOCK (PUSH |Dimensions|)
1721
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1722
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Dimensions| ATN-PARSER::INDEX)
1723
                                                                       (COND
1724
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Dimensions|)
1725
                                                                         (LET ((|Dimensions471| |Dimensions|))
1726
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1727
                                                                             (DESTRUCTURING-BIND
1728
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1729
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1730
                                                                               (WHEN ATN-PARSER::RESULT
1731
                                                                                 (SETF |Dimensions| ATN-PARSER::RESULT))
1732
                                                                               (|DescribeClause.2| ATN-PARSER::RESULT-INDEX))
1733
                                                                             (SETF |Dimensions| |Dimensions471|))))
1734
                                                                        (T (SETF *ATN-TERM?* '|Dimensions|)
1735
                                                                         (|DescribeClause/fail.3| ATN-PARSER::INDEX)))))))
1736
                                 (|DescribeClause/fail.3| (ATN-PARSER::INDEX)
1737
                                   (%ATN-NODE-BLOCK |DescribeClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
1738
                                 (|DescribeClause/start.1| (ATN-PARSER::INDEX)
1739
                                   (%ATN-NODE-BLOCK |DescribeClause/start.1|
1740
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:DESCRIBE)
1741
                                                                     (COND
1742
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:DESCRIBE)
1743
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:DESCRIBE)
1744
                                                                       (|DescribeClause/DescribeClause.2.4| (1+ ATN-PARSER::INDEX)))
1745
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:DESCRIBE)
1746
                                                                       (|DescribeClause/fail.3| ATN-PARSER::INDEX)))))))
1747
                          (|DescribeClause/start.1| ATN-PARSER::INDEX)
1748
                          (SETF *ATN-NODE NIL)
1749
                          NIL
1750
                          (IF ATN-PARSER::ATN-STRUCTURE
1751
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
1752
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
1753
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|DescribeClause| ATN-PARSER::INDEX *ATN-STACK))))
1754
 (PROGN
1755
  (DEFVAR |ConstructClause-INDEX|)
1756
  (DEFUN |ConstructClause| (ATN-PARSER::INDEX &AUX (|ConstructTemplate| NIL) (|Dimensions| NIL))
1757
    "{9b} ConstructClause ::= 'CONSTRUCT' ConstructTemplate 'AS' Dimensions
1758
 (|ConstructTemplate| |Dimensions|)"
1759
    (DECLARE (SPECIAL |ConstructClause-INDEX|))
1760
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructClause-INDEX| *ATN-LEVEL))
1761
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
1762
    (IF (< |ConstructClause-INDEX| ATN-PARSER::INDEX)
1763
        (LET ((|ConstructClause-INDEX| ATN-PARSER::INDEX)
1764
              (*ATN-LEVEL (1+ *ATN-LEVEL))
1765
              (*ATN-STACK (CONS '|ConstructClause| *ATN-STACK))
1766
              (ATN-PARSER::ATN-STRUCTURE NIL))
1767
          (DECLARE (SPECIAL |ConstructClause-INDEX|))
1768
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
1769
          (DECLARE (TYPE CONS *ATN-STACK))
1770
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
1771
            (%ATN-BLOCK |ConstructClause|
1772
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
1773
                                   (SETF *ATN-TERM* '|ConstructClause|)
1774
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
1775
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
1776
                                   ATN-PARSER::INDEX)
1777
                                 (|ConstructClause.2| (ATN-PARSER::INDEX)
1778
                                   (%ATN-NODE-BLOCK |ConstructClause.2|
1779
                                                    (%ATN-EDGE-BLOCK (POP |ConstructClause|)
1780
                                                                     (WHEN T
1781
                                                                       (SETF *ATN-TERM* '|ConstructClause|)
1782
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
1783
                                                                                   '|ConstructClause| ATN-PARSER::INDEX
1784
                                                                                   (LIST '|ConstructTemplate| |ConstructTemplate|
1785
                                                                                         '|Dimensions| |Dimensions|))
1786
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
1787
                                                                              (IF (EQ *ATN-REDUCE* T)
1788
                                                                                  (|ConstructClause-Constructor| |ConstructTemplate|
1789
                                                                                                                 |Dimensions|)
1790
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
1791
                                                                                      (CONS '|ConstructClause|
1792
                                                                                            (DELETE NIL
1793
                                                                                                    (LIST |ConstructTemplate|
1794
                                                                                                          |Dimensions|)))
1795
                                                                                      '|ConstructClause|))))
1796
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
1797
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
1798
                                 (|ConstructClause/ConstructClause.2.4| (ATN-PARSER::INDEX)
1799
                                   (%ATN-NODE-BLOCK |ConstructClause/ConstructClause.2.4|
1800
                                                    (%ATN-EDGE-BLOCK (PUSH |ConstructTemplate|)
1801
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1802
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ConstructTemplate|
1803
                                                                                                  ATN-PARSER::INDEX)
1804
                                                                       (COND
1805
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ConstructTemplate|)
1806
                                                                         (LET ((|ConstructTemplate475| |ConstructTemplate|))
1807
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1808
                                                                             (DESTRUCTURING-BIND
1809
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1810
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1811
                                                                               (WHEN ATN-PARSER::RESULT
1812
                                                                                 (SETF |ConstructTemplate| ATN-PARSER::RESULT))
1813
                                                                               (|ConstructClause/ConstructClause.2.5|
1814
                                                                                ATN-PARSER::RESULT-INDEX))
1815
                                                                             (SETF |ConstructTemplate| |ConstructTemplate475|))))
1816
                                                                        (T (SETF *ATN-TERM?* '|ConstructTemplate|)
1817
                                                                         (|ConstructClause/fail.3| ATN-PARSER::INDEX)))))))
1818
                                 (|ConstructClause/ConstructClause.2.5| (ATN-PARSER::INDEX)
1819
                                   (%ATN-NODE-BLOCK |ConstructClause/ConstructClause.2.5|
1820
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:AS)
1821
                                                                     (COND
1822
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)
1823
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:AS)
1824
                                                                       (|ConstructClause/ConstructClause.2.6|
1825
                                                                        (1+ ATN-PARSER::INDEX)))
1826
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:AS)
1827
                                                                       (|ConstructClause/fail.3| ATN-PARSER::INDEX))))))
1828
                                 (|ConstructClause/ConstructClause.2.6| (ATN-PARSER::INDEX)
1829
                                   (%ATN-NODE-BLOCK |ConstructClause/ConstructClause.2.6|
1830
                                                    (%ATN-EDGE-BLOCK (PUSH |Dimensions|)
1831
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1832
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Dimensions| ATN-PARSER::INDEX)
1833
                                                                       (COND
1834
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Dimensions|)
1835
                                                                         (LET ((|Dimensions474| |Dimensions|))
1836
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1837
                                                                             (DESTRUCTURING-BIND
1838
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1839
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1840
                                                                               (WHEN ATN-PARSER::RESULT
1841
                                                                                 (SETF |Dimensions| ATN-PARSER::RESULT))
1842
                                                                               (|ConstructClause.2| ATN-PARSER::RESULT-INDEX))
1843
                                                                             (SETF |Dimensions| |Dimensions474|))))
1844
                                                                        (T (SETF *ATN-TERM?* '|Dimensions|)
1845
                                                                         (|ConstructClause/fail.3| ATN-PARSER::INDEX)))))))
1846
                                 (|ConstructClause/fail.3| (ATN-PARSER::INDEX)
1847
                                   (%ATN-NODE-BLOCK |ConstructClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
1848
                                 (|ConstructClause/start.1| (ATN-PARSER::INDEX)
1849
                                   (%ATN-NODE-BLOCK |ConstructClause/start.1|
1850
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:CONSTRUCT)
1851
                                                                     (COND
1852
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:CONSTRUCT)
1853
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:CONSTRUCT)
1854
                                                                       (|ConstructClause/ConstructClause.2.4|
1855
                                                                        (1+ ATN-PARSER::INDEX)))
1856
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:CONSTRUCT)
1857
                                                                       (|ConstructClause/fail.3| ATN-PARSER::INDEX)))))))
1858
                          (|ConstructClause/start.1| ATN-PARSER::INDEX)
1859
                          (SETF *ATN-NODE NIL)
1860
                          NIL
1861
                          (IF ATN-PARSER::ATN-STRUCTURE
1862
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
1863
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
1864
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructClause| ATN-PARSER::INDEX *ATN-STACK))))
1865
 (PROGN
1866
  (DEFVAR |VariableOrBindingOrAggregate-INDEX|)
1867
  (DEFUN |VariableOrBindingOrAggregate| (ATN-PARSER::INDEX &AUX (|Aggregate| NIL) (|Expression| NIL) (|Var| NIL))
1868
    "{9d} VariableOrBindingOrAggregate ::= (Var | ('(' Expression 'AS' Var ')') | Aggregate)
1869
 (|Aggregate| |Expression| |Var|)"
1870
    (DECLARE (SPECIAL |VariableOrBindingOrAggregate-INDEX|))
1871
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VariableOrBindingOrAggregate-INDEX| *ATN-LEVEL))
1872
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
1873
    (IF (< |VariableOrBindingOrAggregate-INDEX| ATN-PARSER::INDEX)
1874
        (LET ((|VariableOrBindingOrAggregate-INDEX| ATN-PARSER::INDEX)
1875
              (*ATN-LEVEL (1+ *ATN-LEVEL))
1876
              (*ATN-STACK (CONS '|VariableOrBindingOrAggregate| *ATN-STACK))
1877
              (ATN-PARSER::ATN-STRUCTURE NIL))
1878
          (DECLARE (SPECIAL |VariableOrBindingOrAggregate-INDEX|))
1879
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
1880
          (DECLARE (TYPE CONS *ATN-STACK))
1881
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
1882
            (%ATN-BLOCK |VariableOrBindingOrAggregate|
1883
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
1884
                                   (SETF *ATN-TERM* '|VariableOrBindingOrAggregate|)
1885
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
1886
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
1887
                                   ATN-PARSER::INDEX)
1888
                                 (|VariableOrBindingOrAggregate.2| (ATN-PARSER::INDEX)
1889
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrAggregate.2|
1890
                                                    (%ATN-EDGE-BLOCK (POP |VariableOrBindingOrAggregate|)
1891
                                                                     (WHEN T
1892
                                                                       (SETF *ATN-TERM* '|VariableOrBindingOrAggregate|)
1893
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
1894
                                                                                   '|VariableOrBindingOrAggregate| ATN-PARSER::INDEX
1895
                                                                                   (LIST '|Aggregate| |Aggregate| '|Expression|
1896
                                                                                         |Expression| '|Var| |Var|))
1897
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
1898
                                                                              (IF (EQ *ATN-REDUCE* T)
1899
                                                                                  (|VariableOrBindingOrAggregate-Constructor|
1900
                                                                                   |Aggregate| |Expression| |Var|)
1901
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
1902
                                                                                      (CONS '|VariableOrBindingOrAggregate|
1903
                                                                                            (DELETE NIL
1904
                                                                                                    (LIST |Aggregate| |Expression|
1905
                                                                                                          |Var|)))
1906
                                                                                      '|VariableOrBindingOrAggregate|))))
1907
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
1908
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
1909
                                 (|VariableOrBindingOrAggregate/fail.3| (ATN-PARSER::INDEX)
1910
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrAggregate/fail.3|
1911
                                                    (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
1912
                                 (|VariableOrBindingOrAggregate/start.1| (ATN-PARSER::INDEX)
1913
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrAggregate/start.1|
1914
                                                    (%ATN-EDGE-BLOCK OR
1915
                                                                     (PROGN
1916
                                                                      (%ATN-EDGE-BLOCK (TEST |Var|)
1917
                                                                                       (COND
1918
                                                                                        ((|IS-Var| ATN-PARSER::|item|)
1919
                                                                                         (SETF *ATN-TERM* '|Var|)
1920
                                                                                         (SETF |Var|
1921
                                                                                                 (IF (EQ *ATN-REDUCE* T)
1922
                                                                                                     (ATN-REDUCE-ITEM
1923
                                                                                                      #'|Var-Constructor|
1924
                                                                                                      ATN-PARSER::|item|)
1925
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
1926
                                                                                                         (LIST '|Var|
1927
                                                                                                               ATN-PARSER::|item|)
1928
                                                                                                         '|Var|)))
1929
                                                                                         (|VariableOrBindingOrAggregate.2|
1930
                                                                                          (1+ ATN-PARSER::INDEX)))
1931
                                                                                        (T (SETF *ATN-TERM?* '|Var|) NIL)))
1932
                                                                      (%ATN-EDGE-BLOCK
1933
                                                                       (ATN-PARSER::JUMP
1934
                                                                        |VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.4|)
1935
                                                                       (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.4|
1936
                                                                        ATN-PARSER::INDEX))
1937
                                                                      (%ATN-EDGE-BLOCK (PUSH |Aggregate|)
1938
                                                                                       (MULTIPLE-VALUE-BIND
1939
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1940
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Aggregate|
1941
                                                                                                                    ATN-PARSER::INDEX)
1942
                                                                                         (COND
1943
                                                                                          (ATN-PARSER::SUCCESS
1944
                                                                                           (SETF *ATN-TERM* '|Aggregate|)
1945
                                                                                           (LET ((|Aggregate476| |Aggregate|))
1946
                                                                                             (DOLIST
1947
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
1948
                                                                                                  ATN-PARSER::RESULT)
1949
                                                                                               (DESTRUCTURING-BIND
1950
                                                                                                   (
1951
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1952
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
1953
                                                                                                 (WHEN ATN-PARSER::RESULT
1954
                                                                                                   (SETF |Aggregate|
1955
                                                                                                           ATN-PARSER::RESULT))
1956
                                                                                                 (|VariableOrBindingOrAggregate.2|
1957
                                                                                                  ATN-PARSER::RESULT-INDEX))
1958
                                                                                               (SETF |Aggregate| |Aggregate476|))))
1959
                                                                                          (T (SETF *ATN-TERM?* '|Aggregate|) NIL))))
1960
                                                                      (|VariableOrBindingOrAggregate/fail.3| ATN-PARSER::INDEX)))))
1961
                                 (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.4| (ATN-PARSER::INDEX)
1962
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.4|
1963
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
1964
                                                                     (COND
1965
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
1966
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
1967
                                                                       (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.5|
1968
                                                                        (1+ ATN-PARSER::INDEX)))
1969
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|) NIL)))))
1970
                                 (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.5| (ATN-PARSER::INDEX)
1971
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.5|
1972
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
1973
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
1974
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
1975
                                                                       (COND
1976
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
1977
                                                                         (LET ((|Expression477| |Expression|))
1978
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
1979
                                                                             (DESTRUCTURING-BIND
1980
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
1981
                                                                                 ATN-PARSER::RESULT-AND-INDEX
1982
                                                                               (WHEN ATN-PARSER::RESULT
1983
                                                                                 (SETF |Expression| ATN-PARSER::RESULT))
1984
                                                                               (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.6|
1985
                                                                                ATN-PARSER::RESULT-INDEX))
1986
                                                                             (SETF |Expression| |Expression477|))))
1987
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
1988
                                 (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.6| (ATN-PARSER::INDEX)
1989
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.6|
1990
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:AS)
1991
                                                                     (COND
1992
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)
1993
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:AS)
1994
                                                                       (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.7|
1995
                                                                        (1+ ATN-PARSER::INDEX)))
1996
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) NIL)))))
1997
                                 (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.7| (ATN-PARSER::INDEX)
1998
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.7|
1999
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
2000
                                                                     (COND
2001
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
2002
                                                                       (SETF |Var|
2003
                                                                               (IF (EQ *ATN-REDUCE* T)
2004
                                                                                   (ATN-REDUCE-ITEM #'|Var-Constructor|
2005
                                                                                                    ATN-PARSER::|item|)
2006
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
2007
                                                                                       (LIST '|Var| ATN-PARSER::|item|)
2008
                                                                                       '|Var|)))
2009
                                                                       (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.8|
2010
                                                                        (1+ ATN-PARSER::INDEX)))
2011
                                                                      (T (SETF *ATN-TERM?* '|Var|) NIL)))))
2012
                                 (|VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.8| (ATN-PARSER::INDEX)
2013
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrAggregate/VariableOrBindingOrAggregate.2.8|
2014
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
2015
                                                                     (COND
2016
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
2017
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
2018
                                                                       (|VariableOrBindingOrAggregate.2| (1+ ATN-PARSER::INDEX)))
2019
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|) NIL))))))
2020
                          (|VariableOrBindingOrAggregate/start.1| ATN-PARSER::INDEX)
2021
                          (SETF *ATN-NODE NIL)
2022
                          NIL
2023
                          (IF ATN-PARSER::ATN-STRUCTURE
2024
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
2025
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
2026
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|VariableOrBindingOrAggregate| ATN-PARSER::INDEX *ATN-STACK))))
2027
 (PROGN
2028
  (DEFVAR |Dimensions-INDEX|)
2029
  (DEFUN |Dimensions| (ATN-PARSER::INDEX &AUX (|Var| NIL))
2030
    "{9f} Dimensions ::= Var+
2031
 (|Var|)"
2032
    (DECLARE (SPECIAL |Dimensions-INDEX|))
2033
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Dimensions-INDEX| *ATN-LEVEL))
2034
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
2035
    (IF (< |Dimensions-INDEX| ATN-PARSER::INDEX)
2036
        (LET ((|Dimensions-INDEX| ATN-PARSER::INDEX)
2037
              (*ATN-LEVEL (1+ *ATN-LEVEL))
2038
              (*ATN-STACK (CONS '|Dimensions| *ATN-STACK))
2039
              (ATN-PARSER::ATN-STRUCTURE NIL))
2040
          (DECLARE (SPECIAL |Dimensions-INDEX|))
2041
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
2042
          (DECLARE (TYPE CONS *ATN-STACK))
2043
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
2044
            (%ATN-BLOCK |Dimensions|
2045
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
2046
                                   (SETF *ATN-TERM* '|Dimensions|)
2047
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
2048
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
2049
                                   ATN-PARSER::INDEX)
2050
                                 (|Dimensions.2| (ATN-PARSER::INDEX)
2051
                                   (%ATN-NODE-BLOCK |Dimensions.2|
2052
                                                    (%ATN-EDGE-BLOCK (POP |Dimensions|)
2053
                                                                     (WHEN T
2054
                                                                       (SETF *ATN-TERM* '|Dimensions|)
2055
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
2056
                                                                                   '|Dimensions| ATN-PARSER::INDEX
2057
                                                                                   (LIST '|Var| |Var|))
2058
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
2059
                                                                              (IF (EQ *ATN-REDUCE* T)
2060
                                                                                  (|Dimensions-Constructor| |Var|)
2061
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
2062
                                                                                      (CONS '|Dimensions| (DELETE NIL (LIST |Var|)))
2063
                                                                                      '|Dimensions|))))
2064
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
2065
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
2066
                                 (|Dimensions.4| (ATN-PARSER::INDEX)
2067
                                   (%ATN-NODE-BLOCK |Dimensions.4|
2068
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
2069
                                                                     (COND
2070
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
2071
                                                                       (SETF |Var|
2072
                                                                               (CONS
2073
                                                                                (IF (EQ *ATN-REDUCE* T)
2074
                                                                                    (ATN-REDUCE-ITEM #'|Var-Constructor|
2075
                                                                                                     ATN-PARSER::|item|)
2076
                                                                                    (IF (EQ *ATN-REDUCE* 'CONS)
2077
                                                                                        (LIST '|Var| ATN-PARSER::|item|)
2078
                                                                                        '|Var|))
2079
                                                                                |Var|))
2080
                                                                       (|Dimensions.4| (1+ ATN-PARSER::INDEX)))
2081
                                                                      (T (SETF *ATN-TERM?* '|Var|)
2082
                                                                       (|Dimensions.2| ATN-PARSER::INDEX))))))
2083
                                 (|Dimensions/fail.3| (ATN-PARSER::INDEX)
2084
                                   (%ATN-NODE-BLOCK |Dimensions/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
2085
                                 (|Dimensions/start.1| (ATN-PARSER::INDEX)
2086
                                   (%ATN-NODE-BLOCK |Dimensions/start.1|
2087
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
2088
                                                                     (COND
2089
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
2090
                                                                       (SETF |Var|
2091
                                                                               (CONS
2092
                                                                                (IF (EQ *ATN-REDUCE* T)
2093
                                                                                    (ATN-REDUCE-ITEM #'|Var-Constructor|
2094
                                                                                                     ATN-PARSER::|item|)
2095
                                                                                    (IF (EQ *ATN-REDUCE* 'CONS)
2096
                                                                                        (LIST '|Var| ATN-PARSER::|item|)
2097
                                                                                        '|Var|))
2098
                                                                                |Var|))
2099
                                                                       (|Dimensions.4| (1+ ATN-PARSER::INDEX)))
2100
                                                                      (T (SETF *ATN-TERM?* '|Var|)
2101
                                                                       (|Dimensions/fail.3| ATN-PARSER::INDEX)))))))
2102
                          (|Dimensions/start.1| ATN-PARSER::INDEX)
2103
                          (SETF *ATN-NODE NIL)
2104
                          NIL
2105
                          (IF ATN-PARSER::ATN-STRUCTURE
2106
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
2107
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
2108
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Dimensions| ATN-PARSER::INDEX *ATN-STACK))))
2109
 (PROGN
2110
  (DEFVAR |ConstructQuery-INDEX|)
2111
  (DEFUN |ConstructQuery|
2112
         (ATN-PARSER::INDEX
2113
          &AUX (|ConstructTemplate| NIL) (|DatasetClause| NIL) (|SolutionModifier| NIL) (|TriplesTemplate| NIL) (|Var| NIL)
2114
          (|WhereClause| NIL) (|Wild| NIL))
2115
    "{10} ConstructQuery ::= 'CONSTRUCT' (((((ConstructTemplate | Wild | Var+))
2116
                                        DatasetClause* WhereClause
2117
                                        SolutionModifier) | (DatasetClause*
2118
                                                             'WHERE' '{'
2119
                                                             TriplesTemplate?
2120
                                                             '}'
2121
                                                             SolutionModifier)))
2122
 (|ConstructTemplate| |DatasetClause| |SolutionModifier| |TriplesTemplate| |Var|
2123
                      |WhereClause| |Wild|)"
2124
    (DECLARE (SPECIAL |ConstructQuery-INDEX|))
2125
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructQuery-INDEX| *ATN-LEVEL))
2126
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
2127
    (IF (< |ConstructQuery-INDEX| ATN-PARSER::INDEX)
2128
        (LET ((|ConstructQuery-INDEX| ATN-PARSER::INDEX)
2129
              (*ATN-LEVEL (1+ *ATN-LEVEL))
2130
              (*ATN-STACK (CONS '|ConstructQuery| *ATN-STACK))
2131
              (ATN-PARSER::ATN-STRUCTURE NIL))
2132
          (DECLARE (SPECIAL |ConstructQuery-INDEX|))
2133
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
2134
          (DECLARE (TYPE CONS *ATN-STACK))
2135
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
2136
            (%ATN-BLOCK |ConstructQuery|
2137
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
2138
                                   (SETF *ATN-TERM* '|ConstructQuery|)
2139
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
2140
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
2141
                                   ATN-PARSER::INDEX)
2142
                                 (|ConstructQuery.10| (ATN-PARSER::INDEX)
2143
                                   (%ATN-NODE-BLOCK |ConstructQuery.10|
2144
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
2145
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2146
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
2147
                                                                                                  ATN-PARSER::INDEX)
2148
                                                                       (COND
2149
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
2150
                                                                         (LET ((|DatasetClause485| |DatasetClause|))
2151
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2152
                                                                             (DESTRUCTURING-BIND
2153
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2154
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2155
                                                                               (WHEN ATN-PARSER::RESULT
2156
                                                                                 (SETF |DatasetClause|
2157
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
2158
                                                                               (|ConstructQuery.10| ATN-PARSER::RESULT-INDEX))
2159
                                                                             (SETF |DatasetClause| |DatasetClause485|))))
2160
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
2161
                                                                         (|ConstructQuery/ConstructQuery.2.7|
2162
                                                                          ATN-PARSER::INDEX)))))))
2163
                                 (|ConstructQuery.17| (ATN-PARSER::INDEX)
2164
                                   (%ATN-NODE-BLOCK |ConstructQuery.17|
2165
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
2166
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2167
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
2168
                                                                                                  ATN-PARSER::INDEX)
2169
                                                                       (COND
2170
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
2171
                                                                         (LET ((|DatasetClause481| |DatasetClause|))
2172
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2173
                                                                             (DESTRUCTURING-BIND
2174
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2175
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2176
                                                                               (WHEN ATN-PARSER::RESULT
2177
                                                                                 (SETF |DatasetClause|
2178
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
2179
                                                                               (|ConstructQuery.17| ATN-PARSER::RESULT-INDEX))
2180
                                                                             (SETF |DatasetClause| |DatasetClause481|))))
2181
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
2182
                                                                         (|ConstructQuery/ConstructQuery.2.12|
2183
                                                                          ATN-PARSER::INDEX)))))))
2184
                                 (|ConstructQuery.2| (ATN-PARSER::INDEX)
2185
                                   (%ATN-NODE-BLOCK |ConstructQuery.2|
2186
                                                    (%ATN-EDGE-BLOCK (POP |ConstructQuery|)
2187
                                                                     (WHEN T
2188
                                                                       (SETF *ATN-TERM* '|ConstructQuery|)
2189
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
2190
                                                                                   '|ConstructQuery| ATN-PARSER::INDEX
2191
                                                                                   (LIST '|ConstructTemplate| |ConstructTemplate|
2192
                                                                                         '|DatasetClause| |DatasetClause|
2193
                                                                                         '|SolutionModifier| |SolutionModifier|
2194
                                                                                         '|TriplesTemplate| |TriplesTemplate| '|Var|
2195
                                                                                         |Var| '|WhereClause| |WhereClause| '|Wild|
2196
                                                                                         |Wild|))
2197
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
2198
                                                                              (IF (EQ *ATN-REDUCE* T)
2199
                                                                                  (|ConstructQuery-Constructor| |ConstructTemplate|
2200
                                                                                                                |DatasetClause|
2201
                                                                                                                |SolutionModifier|
2202
                                                                                                                |TriplesTemplate|
2203
                                                                                                                |Var| |WhereClause|
2204
                                                                                                                |Wild|)
2205
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
2206
                                                                                      (CONS '|ConstructQuery|
2207
                                                                                            (DELETE NIL
2208
                                                                                                    (LIST |ConstructTemplate|
2209
                                                                                                          |DatasetClause|
2210
                                                                                                          |SolutionModifier|
2211
                                                                                                          |TriplesTemplate| |Var|
2212
                                                                                                          |WhereClause| |Wild|)))
2213
                                                                                      '|ConstructQuery|))))
2214
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
2215
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
2216
                                 (|ConstructQuery.9| (ATN-PARSER::INDEX)
2217
                                   (%ATN-NODE-BLOCK |ConstructQuery.9|
2218
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
2219
                                                                     (COND
2220
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
2221
                                                                       (SETF |Var|
2222
                                                                               (CONS
2223
                                                                                (IF (EQ *ATN-REDUCE* T)
2224
                                                                                    (ATN-REDUCE-ITEM #'|Var-Constructor|
2225
                                                                                                     ATN-PARSER::|item|)
2226
                                                                                    (IF (EQ *ATN-REDUCE* 'CONS)
2227
                                                                                        (LIST '|Var| ATN-PARSER::|item|)
2228
                                                                                        '|Var|))
2229
                                                                                |Var|))
2230
                                                                       (|ConstructQuery.9| (1+ ATN-PARSER::INDEX)))
2231
                                                                      (T (SETF *ATN-TERM?* '|Var|)
2232
                                                                       (|ConstructQuery/ConstructQuery.2.6| ATN-PARSER::INDEX))))))
2233
                                 (|ConstructQuery/ConstructQuery.2.11| (ATN-PARSER::INDEX)
2234
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.11|
2235
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
2236
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2237
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
2238
                                                                                                  ATN-PARSER::INDEX)
2239
                                                                       (COND
2240
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
2241
                                                                         (LET ((|DatasetClause480| |DatasetClause|))
2242
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2243
                                                                             (DESTRUCTURING-BIND
2244
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2245
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2246
                                                                               (WHEN ATN-PARSER::RESULT
2247
                                                                                 (SETF |DatasetClause|
2248
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
2249
                                                                               (|ConstructQuery.17| ATN-PARSER::RESULT-INDEX))
2250
                                                                             (SETF |DatasetClause| |DatasetClause480|))))
2251
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
2252
                                                                         (|ConstructQuery/ConstructQuery.2.12|
2253
                                                                          ATN-PARSER::INDEX)))))))
2254
                                 (|ConstructQuery/ConstructQuery.2.12| (ATN-PARSER::INDEX)
2255
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.12|
2256
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:WHERE)
2257
                                                                     (COND
2258
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:WHERE)
2259
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:WHERE)
2260
                                                                       (|ConstructQuery/ConstructQuery.2.13|
2261
                                                                        (1+ ATN-PARSER::INDEX)))
2262
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:WHERE) NIL)))))
2263
                                 (|ConstructQuery/ConstructQuery.2.13| (ATN-PARSER::INDEX)
2264
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.13|
2265
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
2266
                                                                     (COND
2267
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
2268
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
2269
                                                                       (|ConstructQuery/ConstructQuery.2.14|
2270
                                                                        (1+ ATN-PARSER::INDEX)))
2271
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{) NIL)))))
2272
                                 (|ConstructQuery/ConstructQuery.2.14| (ATN-PARSER::INDEX)
2273
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.14|
2274
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesTemplate|)
2275
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2276
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesTemplate|
2277
                                                                                                  ATN-PARSER::INDEX)
2278
                                                                       (COND
2279
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesTemplate|)
2280
                                                                         (LET ((|TriplesTemplate479| |TriplesTemplate|))
2281
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2282
                                                                             (DESTRUCTURING-BIND
2283
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2284
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2285
                                                                               (WHEN ATN-PARSER::RESULT
2286
                                                                                 (SETF |TriplesTemplate| ATN-PARSER::RESULT))
2287
                                                                               (|ConstructQuery/ConstructQuery.2.15|
2288
                                                                                ATN-PARSER::RESULT-INDEX))
2289
                                                                             (SETF |TriplesTemplate| |TriplesTemplate479|))))
2290
                                                                        (T (SETF *ATN-TERM?* '|TriplesTemplate|)
2291
                                                                         (|ConstructQuery/ConstructQuery.2.15|
2292
                                                                          ATN-PARSER::INDEX)))))))
2293
                                 (|ConstructQuery/ConstructQuery.2.15| (ATN-PARSER::INDEX)
2294
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.15|
2295
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
2296
                                                                     (COND
2297
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
2298
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
2299
                                                                       (|ConstructQuery/ConstructQuery.2.16|
2300
                                                                        (1+ ATN-PARSER::INDEX)))
2301
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:}) NIL)))))
2302
                                 (|ConstructQuery/ConstructQuery.2.16| (ATN-PARSER::INDEX)
2303
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.16|
2304
                                                    (%ATN-EDGE-BLOCK (PUSH |SolutionModifier|)
2305
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2306
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier|
2307
                                                                                                  ATN-PARSER::INDEX)
2308
                                                                       (COND
2309
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|SolutionModifier|)
2310
                                                                         (LET ((|SolutionModifier478| |SolutionModifier|))
2311
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2312
                                                                             (DESTRUCTURING-BIND
2313
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2314
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2315
                                                                               (WHEN ATN-PARSER::RESULT
2316
                                                                                 (SETF |SolutionModifier| ATN-PARSER::RESULT))
2317
                                                                               (|ConstructQuery.2| ATN-PARSER::RESULT-INDEX))
2318
                                                                             (SETF |SolutionModifier| |SolutionModifier478|))))
2319
                                                                        (T (SETF *ATN-TERM?* '|SolutionModifier|) NIL))))))
2320
                                 (|ConstructQuery/ConstructQuery.2.4| (ATN-PARSER::INDEX)
2321
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.4|
2322
                                                    (%ATN-EDGE-BLOCK OR
2323
                                                                     (PROGN
2324
                                                                      (%ATN-EDGE-BLOCK
2325
                                                                       (ATN-PARSER::JUMP |ConstructQuery/ConstructQuery.2.5|)
2326
                                                                       (|ConstructQuery/ConstructQuery.2.5| ATN-PARSER::INDEX))
2327
                                                                      (%ATN-EDGE-BLOCK
2328
                                                                       (ATN-PARSER::JUMP |ConstructQuery/ConstructQuery.2.11|)
2329
                                                                       (|ConstructQuery/ConstructQuery.2.11| ATN-PARSER::INDEX))
2330
                                                                      (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))
2331
                                 (|ConstructQuery/ConstructQuery.2.5| (ATN-PARSER::INDEX)
2332
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.5|
2333
                                                    (%ATN-EDGE-BLOCK OR
2334
                                                                     (PROGN
2335
                                                                      (%ATN-EDGE-BLOCK (PUSH |ConstructTemplate|)
2336
                                                                                       (MULTIPLE-VALUE-BIND
2337
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2338
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
2339
                                                                                            '|ConstructTemplate| ATN-PARSER::INDEX)
2340
                                                                                         (COND
2341
                                                                                          (ATN-PARSER::SUCCESS
2342
                                                                                           (SETF *ATN-TERM* '|ConstructTemplate|)
2343
                                                                                           (LET ((|ConstructTemplate486|
2344
                                                                                                  |ConstructTemplate|))
2345
                                                                                             (DOLIST
2346
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
2347
                                                                                                  ATN-PARSER::RESULT)
2348
                                                                                               (DESTRUCTURING-BIND
2349
                                                                                                   (
2350
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2351
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
2352
                                                                                                 (WHEN ATN-PARSER::RESULT
2353
                                                                                                   (SETF |ConstructTemplate|
2354
                                                                                                           ATN-PARSER::RESULT))
2355
                                                                                                 (|ConstructQuery/ConstructQuery.2.6|
2356
                                                                                                  ATN-PARSER::RESULT-INDEX))
2357
                                                                                               (SETF |ConstructTemplate|
2358
                                                                                                       |ConstructTemplate486|))))
2359
                                                                                          (T (SETF *ATN-TERM?* '|ConstructTemplate|)
2360
                                                                                           NIL))))
2361
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Wild|)
2362
                                                                                       (COND
2363
                                                                                        ((|IS-Wild| ATN-PARSER::|item|)
2364
                                                                                         (SETF *ATN-TERM* '|Wild|)
2365
                                                                                         (SETF |Wild|
2366
                                                                                                 (IF (EQ *ATN-REDUCE* T)
2367
                                                                                                     (ATN-REDUCE-ITEM
2368
                                                                                                      #'|Wild-Constructor|
2369
                                                                                                      ATN-PARSER::|item|)
2370
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
2371
                                                                                                         (LIST '|Wild|
2372
                                                                                                               ATN-PARSER::|item|)
2373
                                                                                                         '|Wild|)))
2374
                                                                                         (|ConstructQuery/ConstructQuery.2.6|
2375
                                                                                          (1+ ATN-PARSER::INDEX)))
2376
                                                                                        (T (SETF *ATN-TERM* '|Wild|) NIL)))
2377
                                                                      (%ATN-EDGE-BLOCK (TEST |Var|)
2378
                                                                                       (COND
2379
                                                                                        ((|IS-Var| ATN-PARSER::|item|)
2380
                                                                                         (SETF *ATN-TERM* '|Var|)
2381
                                                                                         (SETF |Var|
2382
                                                                                                 (CONS
2383
                                                                                                  (IF (EQ *ATN-REDUCE* T)
2384
                                                                                                      (ATN-REDUCE-ITEM
2385
                                                                                                       #'|Var-Constructor|
2386
                                                                                                       ATN-PARSER::|item|)
2387
                                                                                                      (IF (EQ *ATN-REDUCE* 'CONS)
2388
                                                                                                          (LIST '|Var|
2389
                                                                                                                ATN-PARSER::|item|)
2390
                                                                                                          '|Var|))
2391
                                                                                                  |Var|))
2392
                                                                                         (|ConstructQuery.9|
2393
                                                                                          (1+ ATN-PARSER::INDEX)))
2394
                                                                                        (T (SETF *ATN-TERM?* '|Var|) NIL)))
2395
                                                                      NIL))))
2396
                                 (|ConstructQuery/ConstructQuery.2.6| (ATN-PARSER::INDEX)
2397
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.6|
2398
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
2399
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2400
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
2401
                                                                                                  ATN-PARSER::INDEX)
2402
                                                                       (COND
2403
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
2404
                                                                         (LET ((|DatasetClause484| |DatasetClause|))
2405
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2406
                                                                             (DESTRUCTURING-BIND
2407
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2408
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2409
                                                                               (WHEN ATN-PARSER::RESULT
2410
                                                                                 (SETF |DatasetClause|
2411
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
2412
                                                                               (|ConstructQuery.10| ATN-PARSER::RESULT-INDEX))
2413
                                                                             (SETF |DatasetClause| |DatasetClause484|))))
2414
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
2415
                                                                         (|ConstructQuery/ConstructQuery.2.7|
2416
                                                                          ATN-PARSER::INDEX)))))))
2417
                                 (|ConstructQuery/ConstructQuery.2.7| (ATN-PARSER::INDEX)
2418
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.7|
2419
                                                    (%ATN-EDGE-BLOCK (PUSH |WhereClause|)
2420
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2421
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)
2422
                                                                       (COND
2423
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|WhereClause|)
2424
                                                                         (LET ((|WhereClause483| |WhereClause|))
2425
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2426
                                                                             (DESTRUCTURING-BIND
2427
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2428
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2429
                                                                               (WHEN ATN-PARSER::RESULT
2430
                                                                                 (SETF |WhereClause| ATN-PARSER::RESULT))
2431
                                                                               (|ConstructQuery/ConstructQuery.2.8|
2432
                                                                                ATN-PARSER::RESULT-INDEX))
2433
                                                                             (SETF |WhereClause| |WhereClause483|))))
2434
                                                                        (T (SETF *ATN-TERM?* '|WhereClause|) NIL))))))
2435
                                 (|ConstructQuery/ConstructQuery.2.8| (ATN-PARSER::INDEX)
2436
                                   (%ATN-NODE-BLOCK |ConstructQuery/ConstructQuery.2.8|
2437
                                                    (%ATN-EDGE-BLOCK (PUSH |SolutionModifier|)
2438
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2439
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier|
2440
                                                                                                  ATN-PARSER::INDEX)
2441
                                                                       (COND
2442
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|SolutionModifier|)
2443
                                                                         (LET ((|SolutionModifier482| |SolutionModifier|))
2444
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2445
                                                                             (DESTRUCTURING-BIND
2446
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2447
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2448
                                                                               (WHEN ATN-PARSER::RESULT
2449
                                                                                 (SETF |SolutionModifier| ATN-PARSER::RESULT))
2450
                                                                               (|ConstructQuery.2| ATN-PARSER::RESULT-INDEX))
2451
                                                                             (SETF |SolutionModifier| |SolutionModifier482|))))
2452
                                                                        (T (SETF *ATN-TERM?* '|SolutionModifier|) NIL))))))
2453
                                 (|ConstructQuery/fail.3| (ATN-PARSER::INDEX)
2454
                                   (%ATN-NODE-BLOCK |ConstructQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
2455
                                 (|ConstructQuery/start.1| (ATN-PARSER::INDEX)
2456
                                   (%ATN-NODE-BLOCK |ConstructQuery/start.1|
2457
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:CONSTRUCT)
2458
                                                                     (COND
2459
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:CONSTRUCT)
2460
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:CONSTRUCT)
2461
                                                                       (|ConstructQuery/ConstructQuery.2.4| (1+ ATN-PARSER::INDEX)))
2462
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:CONSTRUCT)
2463
                                                                       (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))
2464
                          (|ConstructQuery/start.1| ATN-PARSER::INDEX)
2465
                          (SETF *ATN-NODE NIL)
2466
                          NIL
2467
                          (IF ATN-PARSER::ATN-STRUCTURE
2468
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
2469
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
2470
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructQuery| ATN-PARSER::INDEX *ATN-STACK))))
2471
 (PROGN
2472
  (DEFVAR |DescribeQuery-INDEX|)
2473
  (DEFUN |DescribeQuery|
2474
         (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|SolutionModifier| NIL) (|VarOrIRIref| NIL) (|WhereClause| NIL))
2475
    "{11} DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier
2476
 (|DatasetClause| |SolutionModifier| |VarOrIRIref| |WhereClause|)"
2477
    (DECLARE (SPECIAL |DescribeQuery-INDEX|))
2478
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DescribeQuery-INDEX| *ATN-LEVEL))
2479
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
2480
    (IF (< |DescribeQuery-INDEX| ATN-PARSER::INDEX)
2481
        (LET ((|DescribeQuery-INDEX| ATN-PARSER::INDEX)
2482
              (*ATN-LEVEL (1+ *ATN-LEVEL))
2483
              (*ATN-STACK (CONS '|DescribeQuery| *ATN-STACK))
2484
              (ATN-PARSER::ATN-STRUCTURE NIL))
2485
          (DECLARE (SPECIAL |DescribeQuery-INDEX|))
2486
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
2487
          (DECLARE (TYPE CONS *ATN-STACK))
2488
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
2489
            (%ATN-BLOCK |DescribeQuery|
2490
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
2491
                                   (SETF *ATN-TERM* '|DescribeQuery|)
2492
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
2493
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
2494
                                   ATN-PARSER::INDEX)
2495
                                 (|DescribeQuery.2| (ATN-PARSER::INDEX)
2496
                                   (%ATN-NODE-BLOCK |DescribeQuery.2|
2497
                                                    (%ATN-EDGE-BLOCK (POP |DescribeQuery|)
2498
                                                                     (WHEN T
2499
                                                                       (SETF *ATN-TERM* '|DescribeQuery|)
2500
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
2501
                                                                                   '|DescribeQuery| ATN-PARSER::INDEX
2502
                                                                                   (LIST '|DatasetClause| |DatasetClause|
2503
                                                                                         '|SolutionModifier| |SolutionModifier|
2504
                                                                                         '|VarOrIRIref| |VarOrIRIref| '|WhereClause|
2505
                                                                                         |WhereClause|))
2506
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
2507
                                                                              (IF (EQ *ATN-REDUCE* T)
2508
                                                                                  (|DescribeQuery-Constructor| |DatasetClause|
2509
                                                                                                               |SolutionModifier|
2510
                                                                                                               |VarOrIRIref|
2511
                                                                                                               |WhereClause|)
2512
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
2513
                                                                                      (CONS '|DescribeQuery|
2514
                                                                                            (DELETE NIL
2515
                                                                                                    (LIST |DatasetClause|
2516
                                                                                                          |SolutionModifier|
2517
                                                                                                          |VarOrIRIref|
2518
                                                                                                          |WhereClause|)))
2519
                                                                                      '|DescribeQuery|))))
2520
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
2521
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
2522
                                 (|DescribeQuery.8| (ATN-PARSER::INDEX)
2523
                                   (%ATN-NODE-BLOCK |DescribeQuery.8|
2524
                                                    (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
2525
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2526
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)
2527
                                                                       (COND
2528
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarOrIRIref|)
2529
                                                                         (LET ((|VarOrIRIref492| |VarOrIRIref|))
2530
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2531
                                                                             (DESTRUCTURING-BIND
2532
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2533
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2534
                                                                               (WHEN ATN-PARSER::RESULT
2535
                                                                                 (SETF |VarOrIRIref|
2536
                                                                                         (CONS ATN-PARSER::RESULT |VarOrIRIref|)))
2537
                                                                               (|DescribeQuery.8| ATN-PARSER::RESULT-INDEX))
2538
                                                                             (SETF |VarOrIRIref| |VarOrIRIref492|))))
2539
                                                                        (T (SETF *ATN-TERM?* '|VarOrIRIref|)
2540
                                                                         (|DescribeQuery/DescribeQuery.2.5| ATN-PARSER::INDEX)))))))
2541
                                 (|DescribeQuery.9| (ATN-PARSER::INDEX)
2542
                                   (%ATN-NODE-BLOCK |DescribeQuery.9|
2543
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
2544
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2545
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
2546
                                                                                                  ATN-PARSER::INDEX)
2547
                                                                       (COND
2548
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
2549
                                                                         (LET ((|DatasetClause490| |DatasetClause|))
2550
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2551
                                                                             (DESTRUCTURING-BIND
2552
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2553
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2554
                                                                               (WHEN ATN-PARSER::RESULT
2555
                                                                                 (SETF |DatasetClause|
2556
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
2557
                                                                               (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))
2558
                                                                             (SETF |DatasetClause| |DatasetClause490|))))
2559
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
2560
                                                                         (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))
2561
                                 (|DescribeQuery/DescribeQuery.2.4| (ATN-PARSER::INDEX)
2562
                                   (%ATN-NODE-BLOCK |DescribeQuery/DescribeQuery.2.4|
2563
                                                    (%ATN-EDGE-BLOCK OR
2564
                                                                     (PROGN
2565
                                                                      (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
2566
                                                                                       (MULTIPLE-VALUE-BIND
2567
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2568
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref|
2569
                                                                                                                    ATN-PARSER::INDEX)
2570
                                                                                         (COND
2571
                                                                                          (ATN-PARSER::SUCCESS
2572
                                                                                           (SETF *ATN-TERM* '|VarOrIRIref|)
2573
                                                                                           (LET ((|VarOrIRIref491| |VarOrIRIref|))
2574
                                                                                             (DOLIST
2575
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
2576
                                                                                                  ATN-PARSER::RESULT)
2577
                                                                                               (DESTRUCTURING-BIND
2578
                                                                                                   (
2579
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2580
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
2581
                                                                                                 (WHEN ATN-PARSER::RESULT
2582
                                                                                                   (SETF |VarOrIRIref|
2583
                                                                                                           (CONS ATN-PARSER::RESULT
2584
                                                                                                                 |VarOrIRIref|)))
2585
                                                                                                 (|DescribeQuery.8|
2586
                                                                                                  ATN-PARSER::RESULT-INDEX))
2587
                                                                                               (SETF |VarOrIRIref|
2588
                                                                                                       |VarOrIRIref491|))))
2589
                                                                                          (T (SETF *ATN-TERM?* '|VarOrIRIref|)
2590
                                                                                           NIL))))
2591
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:*)
2592
                                                                                       (COND
2593
                                                                                        ((EQ ATN-PARSER::|item| 'SPOCQ.S:*)
2594
                                                                                         (SETF *ATN-TERM* 'SPOCQ.S:*)
2595
                                                                                         (|DescribeQuery/DescribeQuery.2.5|
2596
                                                                                          (1+ ATN-PARSER::INDEX)))
2597
                                                                                        (T (SETF *ATN-TERM?* 'SPOCQ.S:*) NIL)))
2598
                                                                      (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))
2599
                                 (|DescribeQuery/DescribeQuery.2.5| (ATN-PARSER::INDEX)
2600
                                   (%ATN-NODE-BLOCK |DescribeQuery/DescribeQuery.2.5|
2601
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
2602
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2603
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
2604
                                                                                                  ATN-PARSER::INDEX)
2605
                                                                       (COND
2606
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
2607
                                                                         (LET ((|DatasetClause489| |DatasetClause|))
2608
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2609
                                                                             (DESTRUCTURING-BIND
2610
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2611
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2612
                                                                               (WHEN ATN-PARSER::RESULT
2613
                                                                                 (SETF |DatasetClause|
2614
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
2615
                                                                               (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))
2616
                                                                             (SETF |DatasetClause| |DatasetClause489|))))
2617
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
2618
                                                                         (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))
2619
                                 (|DescribeQuery/DescribeQuery.2.6| (ATN-PARSER::INDEX)
2620
                                   (%ATN-NODE-BLOCK |DescribeQuery/DescribeQuery.2.6|
2621
                                                    (%ATN-EDGE-BLOCK (PUSH |WhereClause|)
2622
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2623
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)
2624
                                                                       (COND
2625
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|WhereClause|)
2626
                                                                         (LET ((|WhereClause488| |WhereClause|))
2627
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2628
                                                                             (DESTRUCTURING-BIND
2629
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2630
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2631
                                                                               (WHEN ATN-PARSER::RESULT
2632
                                                                                 (SETF |WhereClause| ATN-PARSER::RESULT))
2633
                                                                               (|DescribeQuery/DescribeQuery.2.7|
2634
                                                                                ATN-PARSER::RESULT-INDEX))
2635
                                                                             (SETF |WhereClause| |WhereClause488|))))
2636
                                                                        (T (SETF *ATN-TERM?* '|WhereClause|)
2637
                                                                         (|DescribeQuery/DescribeQuery.2.7| ATN-PARSER::INDEX)))))))
2638
                                 (|DescribeQuery/DescribeQuery.2.7| (ATN-PARSER::INDEX)
2639
                                   (%ATN-NODE-BLOCK |DescribeQuery/DescribeQuery.2.7|
2640
                                                    (%ATN-EDGE-BLOCK (PUSH |SolutionModifier|)
2641
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2642
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier|
2643
                                                                                                  ATN-PARSER::INDEX)
2644
                                                                       (COND
2645
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|SolutionModifier|)
2646
                                                                         (LET ((|SolutionModifier487| |SolutionModifier|))
2647
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2648
                                                                             (DESTRUCTURING-BIND
2649
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2650
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2651
                                                                               (WHEN ATN-PARSER::RESULT
2652
                                                                                 (SETF |SolutionModifier| ATN-PARSER::RESULT))
2653
                                                                               (|DescribeQuery.2| ATN-PARSER::RESULT-INDEX))
2654
                                                                             (SETF |SolutionModifier| |SolutionModifier487|))))
2655
                                                                        (T (SETF *ATN-TERM?* '|SolutionModifier|)
2656
                                                                         (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))
2657
                                 (|DescribeQuery/fail.3| (ATN-PARSER::INDEX)
2658
                                   (%ATN-NODE-BLOCK |DescribeQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
2659
                                 (|DescribeQuery/start.1| (ATN-PARSER::INDEX)
2660
                                   (%ATN-NODE-BLOCK |DescribeQuery/start.1|
2661
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:DESCRIBE)
2662
                                                                     (COND
2663
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:DESCRIBE)
2664
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:DESCRIBE)
2665
                                                                       (|DescribeQuery/DescribeQuery.2.4| (1+ ATN-PARSER::INDEX)))
2666
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:DESCRIBE)
2667
                                                                       (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))
2668
                          (|DescribeQuery/start.1| ATN-PARSER::INDEX)
2669
                          (SETF *ATN-NODE NIL)
2670
                          NIL
2671
                          (IF ATN-PARSER::ATN-STRUCTURE
2672
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
2673
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
2674
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|DescribeQuery| ATN-PARSER::INDEX *ATN-STACK))))
2675
 (PROGN
2676
  (DEFVAR |AskQuery-INDEX|)
2677
  (DEFUN |AskQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|SolutionModifier| NIL) (|WhereClause| NIL))
2678
    "{12} AskQuery ::= 'ASK' DatasetClause* WhereClause SolutionModifier
2679
 (|DatasetClause| |SolutionModifier| |WhereClause|)"
2680
    (DECLARE (SPECIAL |AskQuery-INDEX|))
2681
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AskQuery-INDEX| *ATN-LEVEL))
2682
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
2683
    (IF (< |AskQuery-INDEX| ATN-PARSER::INDEX)
2684
        (LET ((|AskQuery-INDEX| ATN-PARSER::INDEX)
2685
              (*ATN-LEVEL (1+ *ATN-LEVEL))
2686
              (*ATN-STACK (CONS '|AskQuery| *ATN-STACK))
2687
              (ATN-PARSER::ATN-STRUCTURE NIL))
2688
          (DECLARE (SPECIAL |AskQuery-INDEX|))
2689
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
2690
          (DECLARE (TYPE CONS *ATN-STACK))
2691
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
2692
            (%ATN-BLOCK |AskQuery|
2693
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
2694
                                   (SETF *ATN-TERM* '|AskQuery|)
2695
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
2696
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
2697
                                   ATN-PARSER::INDEX)
2698
                                 (|AskQuery.2| (ATN-PARSER::INDEX)
2699
                                   (%ATN-NODE-BLOCK |AskQuery.2|
2700
                                                    (%ATN-EDGE-BLOCK (POP |AskQuery|)
2701
                                                                     (WHEN T
2702
                                                                       (SETF *ATN-TERM* '|AskQuery|)
2703
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|AskQuery|
2704
                                                                                   ATN-PARSER::INDEX
2705
                                                                                   (LIST '|DatasetClause| |DatasetClause|
2706
                                                                                         '|SolutionModifier| |SolutionModifier|
2707
                                                                                         '|WhereClause| |WhereClause|))
2708
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
2709
                                                                              (IF (EQ *ATN-REDUCE* T)
2710
                                                                                  (|AskQuery-Constructor| |DatasetClause|
2711
                                                                                                          |SolutionModifier|
2712
                                                                                                          |WhereClause|)
2713
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
2714
                                                                                      (CONS '|AskQuery|
2715
                                                                                            (DELETE NIL
2716
                                                                                                    (LIST |DatasetClause|
2717
                                                                                                          |SolutionModifier|
2718
                                                                                                          |WhereClause|)))
2719
                                                                                      '|AskQuery|))))
2720
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
2721
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
2722
                                 (|AskQuery.7| (ATN-PARSER::INDEX)
2723
                                   (%ATN-NODE-BLOCK |AskQuery.7|
2724
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
2725
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2726
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
2727
                                                                                                  ATN-PARSER::INDEX)
2728
                                                                       (COND
2729
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
2730
                                                                         (LET ((|DatasetClause496| |DatasetClause|))
2731
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2732
                                                                             (DESTRUCTURING-BIND
2733
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2734
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2735
                                                                               (WHEN ATN-PARSER::RESULT
2736
                                                                                 (SETF |DatasetClause|
2737
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
2738
                                                                               (|AskQuery.7| ATN-PARSER::RESULT-INDEX))
2739
                                                                             (SETF |DatasetClause| |DatasetClause496|))))
2740
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
2741
                                                                         (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))
2742
                                 (|AskQuery/AskQuery.2.4| (ATN-PARSER::INDEX)
2743
                                   (%ATN-NODE-BLOCK |AskQuery/AskQuery.2.4|
2744
                                                    (%ATN-EDGE-BLOCK (PUSH |DatasetClause|)
2745
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2746
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause|
2747
                                                                                                  ATN-PARSER::INDEX)
2748
                                                                       (COND
2749
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DatasetClause|)
2750
                                                                         (LET ((|DatasetClause495| |DatasetClause|))
2751
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2752
                                                                             (DESTRUCTURING-BIND
2753
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2754
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2755
                                                                               (WHEN ATN-PARSER::RESULT
2756
                                                                                 (SETF |DatasetClause|
2757
                                                                                         (CONS ATN-PARSER::RESULT |DatasetClause|)))
2758
                                                                               (|AskQuery.7| ATN-PARSER::RESULT-INDEX))
2759
                                                                             (SETF |DatasetClause| |DatasetClause495|))))
2760
                                                                        (T (SETF *ATN-TERM?* '|DatasetClause|)
2761
                                                                         (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))
2762
                                 (|AskQuery/AskQuery.2.5| (ATN-PARSER::INDEX)
2763
                                   (%ATN-NODE-BLOCK |AskQuery/AskQuery.2.5|
2764
                                                    (%ATN-EDGE-BLOCK (PUSH |WhereClause|)
2765
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2766
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)
2767
                                                                       (COND
2768
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|WhereClause|)
2769
                                                                         (LET ((|WhereClause494| |WhereClause|))
2770
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2771
                                                                             (DESTRUCTURING-BIND
2772
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2773
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2774
                                                                               (WHEN ATN-PARSER::RESULT
2775
                                                                                 (SETF |WhereClause| ATN-PARSER::RESULT))
2776
                                                                               (|AskQuery/AskQuery.2.6| ATN-PARSER::RESULT-INDEX))
2777
                                                                             (SETF |WhereClause| |WhereClause494|))))
2778
                                                                        (T (SETF *ATN-TERM?* '|WhereClause|)
2779
                                                                         (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))
2780
                                 (|AskQuery/AskQuery.2.6| (ATN-PARSER::INDEX)
2781
                                   (%ATN-NODE-BLOCK |AskQuery/AskQuery.2.6|
2782
                                                    (%ATN-EDGE-BLOCK (PUSH |SolutionModifier|)
2783
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2784
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier|
2785
                                                                                                  ATN-PARSER::INDEX)
2786
                                                                       (COND
2787
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|SolutionModifier|)
2788
                                                                         (LET ((|SolutionModifier493| |SolutionModifier|))
2789
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2790
                                                                             (DESTRUCTURING-BIND
2791
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2792
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2793
                                                                               (WHEN ATN-PARSER::RESULT
2794
                                                                                 (SETF |SolutionModifier| ATN-PARSER::RESULT))
2795
                                                                               (|AskQuery.2| ATN-PARSER::RESULT-INDEX))
2796
                                                                             (SETF |SolutionModifier| |SolutionModifier493|))))
2797
                                                                        (T (SETF *ATN-TERM?* '|SolutionModifier|)
2798
                                                                         (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))
2799
                                 (|AskQuery/fail.3| (ATN-PARSER::INDEX)
2800
                                   (%ATN-NODE-BLOCK |AskQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
2801
                                 (|AskQuery/start.1| (ATN-PARSER::INDEX)
2802
                                   (%ATN-NODE-BLOCK |AskQuery/start.1|
2803
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:ASK)
2804
                                                                     (COND
2805
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:ASK)
2806
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:ASK)
2807
                                                                       (|AskQuery/AskQuery.2.4| (1+ ATN-PARSER::INDEX)))
2808
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:ASK)
2809
                                                                       (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))
2810
                          (|AskQuery/start.1| ATN-PARSER::INDEX)
2811
                          (SETF *ATN-NODE NIL)
2812
                          NIL
2813
                          (IF ATN-PARSER::ATN-STRUCTURE
2814
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
2815
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
2816
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|AskQuery| ATN-PARSER::INDEX *ATN-STACK))))
2817
 (PROGN
2818
  (DEFVAR |DatasetClause-INDEX|)
2819
  (DEFUN |DatasetClause| (ATN-PARSER::INDEX &AUX (|DefaultGraphClause| NIL) (|NamedGraphClause| NIL))
2820
    "{13} DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))
2821
 (|DefaultGraphClause| |NamedGraphClause|)"
2822
    (DECLARE (SPECIAL |DatasetClause-INDEX|))
2823
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DatasetClause-INDEX| *ATN-LEVEL))
2824
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
2825
    (IF (< |DatasetClause-INDEX| ATN-PARSER::INDEX)
2826
        (LET ((|DatasetClause-INDEX| ATN-PARSER::INDEX)
2827
              (*ATN-LEVEL (1+ *ATN-LEVEL))
2828
              (*ATN-STACK (CONS '|DatasetClause| *ATN-STACK))
2829
              (ATN-PARSER::ATN-STRUCTURE NIL))
2830
          (DECLARE (SPECIAL |DatasetClause-INDEX|))
2831
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
2832
          (DECLARE (TYPE CONS *ATN-STACK))
2833
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
2834
            (%ATN-BLOCK |DatasetClause|
2835
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
2836
                                   (SETF *ATN-TERM* '|DatasetClause|)
2837
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
2838
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
2839
                                   ATN-PARSER::INDEX)
2840
                                 (|DatasetClause.2| (ATN-PARSER::INDEX)
2841
                                   (%ATN-NODE-BLOCK |DatasetClause.2|
2842
                                                    (%ATN-EDGE-BLOCK (POP |DatasetClause|)
2843
                                                                     (WHEN T
2844
                                                                       (SETF *ATN-TERM* '|DatasetClause|)
2845
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
2846
                                                                                   '|DatasetClause| ATN-PARSER::INDEX
2847
                                                                                   (LIST '|DefaultGraphClause| |DefaultGraphClause|
2848
                                                                                         '|NamedGraphClause| |NamedGraphClause|))
2849
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
2850
                                                                              (IF (EQ *ATN-REDUCE* T)
2851
                                                                                  (|DatasetClause-Constructor| |DefaultGraphClause|
2852
                                                                                                               |NamedGraphClause|)
2853
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
2854
                                                                                      (CONS '|DatasetClause|
2855
                                                                                            (DELETE NIL
2856
                                                                                                    (LIST |DefaultGraphClause|
2857
                                                                                                          |NamedGraphClause|)))
2858
                                                                                      '|DatasetClause|))))
2859
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
2860
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
2861
                                 (|DatasetClause/DatasetClause.2.4| (ATN-PARSER::INDEX)
2862
                                   (%ATN-NODE-BLOCK |DatasetClause/DatasetClause.2.4|
2863
                                                    (%ATN-EDGE-BLOCK OR
2864
                                                                     (PROGN
2865
                                                                      (%ATN-EDGE-BLOCK (PUSH |DefaultGraphClause|)
2866
                                                                                       (MULTIPLE-VALUE-BIND
2867
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2868
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
2869
                                                                                            '|DefaultGraphClause| ATN-PARSER::INDEX)
2870
                                                                                         (COND
2871
                                                                                          (ATN-PARSER::SUCCESS
2872
                                                                                           (SETF *ATN-TERM* '|DefaultGraphClause|)
2873
                                                                                           (LET ((|DefaultGraphClause497|
2874
                                                                                                  |DefaultGraphClause|))
2875
                                                                                             (DOLIST
2876
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
2877
                                                                                                  ATN-PARSER::RESULT)
2878
                                                                                               (DESTRUCTURING-BIND
2879
                                                                                                   (
2880
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2881
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
2882
                                                                                                 (WHEN ATN-PARSER::RESULT
2883
                                                                                                   (SETF |DefaultGraphClause|
2884
                                                                                                           ATN-PARSER::RESULT))
2885
                                                                                                 (|DatasetClause.2|
2886
                                                                                                  ATN-PARSER::RESULT-INDEX))
2887
                                                                                               (SETF |DefaultGraphClause|
2888
                                                                                                       |DefaultGraphClause497|))))
2889
                                                                                          (T
2890
                                                                                           (SETF *ATN-TERM?* '|DefaultGraphClause|)
2891
                                                                                           NIL))))
2892
                                                                      (%ATN-EDGE-BLOCK (PUSH |NamedGraphClause|)
2893
                                                                                       (MULTIPLE-VALUE-BIND
2894
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2895
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
2896
                                                                                            '|NamedGraphClause| ATN-PARSER::INDEX)
2897
                                                                                         (COND
2898
                                                                                          (ATN-PARSER::SUCCESS
2899
                                                                                           (SETF *ATN-TERM* '|NamedGraphClause|)
2900
                                                                                           (LET ((|NamedGraphClause498|
2901
                                                                                                  |NamedGraphClause|))
2902
                                                                                             (DOLIST
2903
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
2904
                                                                                                  ATN-PARSER::RESULT)
2905
                                                                                               (DESTRUCTURING-BIND
2906
                                                                                                   (
2907
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2908
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
2909
                                                                                                 (WHEN ATN-PARSER::RESULT
2910
                                                                                                   (SETF |NamedGraphClause|
2911
                                                                                                           ATN-PARSER::RESULT))
2912
                                                                                                 (|DatasetClause.2|
2913
                                                                                                  ATN-PARSER::RESULT-INDEX))
2914
                                                                                               (SETF |NamedGraphClause|
2915
                                                                                                       |NamedGraphClause498|))))
2916
                                                                                          (T (SETF *ATN-TERM?* '|NamedGraphClause|)
2917
                                                                                           NIL))))
2918
                                                                      (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))
2919
                                 (|DatasetClause/fail.3| (ATN-PARSER::INDEX)
2920
                                   (%ATN-NODE-BLOCK |DatasetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
2921
                                 (|DatasetClause/start.1| (ATN-PARSER::INDEX)
2922
                                   (%ATN-NODE-BLOCK |DatasetClause/start.1|
2923
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:FROM)
2924
                                                                     (COND
2925
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:FROM)
2926
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:FROM)
2927
                                                                       (|DatasetClause/DatasetClause.2.4| (1+ ATN-PARSER::INDEX)))
2928
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:FROM)
2929
                                                                       (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))))
2930
                          (|DatasetClause/start.1| ATN-PARSER::INDEX)
2931
                          (SETF *ATN-NODE NIL)
2932
                          NIL
2933
                          (IF ATN-PARSER::ATN-STRUCTURE
2934
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
2935
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
2936
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|DatasetClause| ATN-PARSER::INDEX *ATN-STACK))))
2937
 (PROGN
2938
  (DEFVAR |DefaultGraphClause-INDEX|)
2939
  (DEFUN |DefaultGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))
2940
    "{14} DefaultGraphClause ::= SourceSelector
2941
 (|SourceSelector|)"
2942
    (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))
2943
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DefaultGraphClause-INDEX| *ATN-LEVEL))
2944
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
2945
    (IF (< |DefaultGraphClause-INDEX| ATN-PARSER::INDEX)
2946
        (LET ((|DefaultGraphClause-INDEX| ATN-PARSER::INDEX)
2947
              (*ATN-LEVEL (1+ *ATN-LEVEL))
2948
              (*ATN-STACK (CONS '|DefaultGraphClause| *ATN-STACK))
2949
              (ATN-PARSER::ATN-STRUCTURE NIL))
2950
          (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))
2951
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
2952
          (DECLARE (TYPE CONS *ATN-STACK))
2953
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
2954
            (%ATN-BLOCK |DefaultGraphClause|
2955
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
2956
                                   (SETF *ATN-TERM* '|DefaultGraphClause|)
2957
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
2958
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
2959
                                   ATN-PARSER::INDEX)
2960
                                 (|DefaultGraphClause.2| (ATN-PARSER::INDEX)
2961
                                   (%ATN-NODE-BLOCK |DefaultGraphClause.2|
2962
                                                    (%ATN-EDGE-BLOCK (POP |DefaultGraphClause|)
2963
                                                                     (WHEN T
2964
                                                                       (SETF *ATN-TERM* '|DefaultGraphClause|)
2965
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
2966
                                                                                   '|DefaultGraphClause| ATN-PARSER::INDEX
2967
                                                                                   (LIST '|SourceSelector| |SourceSelector|))
2968
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
2969
                                                                              (IF (EQ *ATN-REDUCE* T)
2970
                                                                                  (|DefaultGraphClause-Constructor|
2971
                                                                                   |SourceSelector|)
2972
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
2973
                                                                                      (CONS '|DefaultGraphClause|
2974
                                                                                            (DELETE NIL (LIST |SourceSelector|)))
2975
                                                                                      '|DefaultGraphClause|))))
2976
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
2977
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
2978
                                 (|DefaultGraphClause/fail.3| (ATN-PARSER::INDEX)
2979
                                   (%ATN-NODE-BLOCK |DefaultGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
2980
                                 (|DefaultGraphClause/start.1| (ATN-PARSER::INDEX)
2981
                                   (%ATN-NODE-BLOCK |DefaultGraphClause/start.1|
2982
                                                    (%ATN-EDGE-BLOCK (PUSH |SourceSelector|)
2983
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
2984
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector|
2985
                                                                                                  ATN-PARSER::INDEX)
2986
                                                                       (COND
2987
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|SourceSelector|)
2988
                                                                         (LET ((|SourceSelector499| |SourceSelector|))
2989
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
2990
                                                                             (DESTRUCTURING-BIND
2991
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
2992
                                                                                 ATN-PARSER::RESULT-AND-INDEX
2993
                                                                               (WHEN ATN-PARSER::RESULT
2994
                                                                                 (SETF |SourceSelector| ATN-PARSER::RESULT))
2995
                                                                               (|DefaultGraphClause.2| ATN-PARSER::RESULT-INDEX))
2996
                                                                             (SETF |SourceSelector| |SourceSelector499|))))
2997
                                                                        (T (SETF *ATN-TERM?* '|SourceSelector|)
2998
                                                                         (|DefaultGraphClause/fail.3| ATN-PARSER::INDEX))))))))
2999
                          (|DefaultGraphClause/start.1| ATN-PARSER::INDEX)
3000
                          (SETF *ATN-NODE NIL)
3001
                          NIL
3002
                          (IF ATN-PARSER::ATN-STRUCTURE
3003
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3004
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3005
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|DefaultGraphClause| ATN-PARSER::INDEX *ATN-STACK))))
3006
 (PROGN
3007
  (DEFVAR |NamedGraphClause-INDEX|)
3008
  (DEFUN |NamedGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))
3009
    "{15} NamedGraphClause ::= 'NAMED' SourceSelector
3010
 (|SourceSelector|)"
3011
    (DECLARE (SPECIAL |NamedGraphClause-INDEX|))
3012
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NamedGraphClause-INDEX| *ATN-LEVEL))
3013
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3014
    (IF (< |NamedGraphClause-INDEX| ATN-PARSER::INDEX)
3015
        (LET ((|NamedGraphClause-INDEX| ATN-PARSER::INDEX)
3016
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3017
              (*ATN-STACK (CONS '|NamedGraphClause| *ATN-STACK))
3018
              (ATN-PARSER::ATN-STRUCTURE NIL))
3019
          (DECLARE (SPECIAL |NamedGraphClause-INDEX|))
3020
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3021
          (DECLARE (TYPE CONS *ATN-STACK))
3022
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3023
            (%ATN-BLOCK |NamedGraphClause|
3024
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3025
                                   (SETF *ATN-TERM* '|NamedGraphClause|)
3026
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3027
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3028
                                   ATN-PARSER::INDEX)
3029
                                 (|NamedGraphClause.2| (ATN-PARSER::INDEX)
3030
                                   (%ATN-NODE-BLOCK |NamedGraphClause.2|
3031
                                                    (%ATN-EDGE-BLOCK (POP |NamedGraphClause|)
3032
                                                                     (WHEN T
3033
                                                                       (SETF *ATN-TERM* '|NamedGraphClause|)
3034
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3035
                                                                                   '|NamedGraphClause| ATN-PARSER::INDEX
3036
                                                                                   (LIST '|SourceSelector| |SourceSelector|))
3037
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3038
                                                                              (IF (EQ *ATN-REDUCE* T)
3039
                                                                                  (|NamedGraphClause-Constructor| |SourceSelector|)
3040
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
3041
                                                                                      (CONS '|NamedGraphClause|
3042
                                                                                            (DELETE NIL (LIST |SourceSelector|)))
3043
                                                                                      '|NamedGraphClause|))))
3044
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
3045
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
3046
                                 (|NamedGraphClause/fail.3| (ATN-PARSER::INDEX)
3047
                                   (%ATN-NODE-BLOCK |NamedGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
3048
                                 (|NamedGraphClause/NamedGraphClause.2.4| (ATN-PARSER::INDEX)
3049
                                   (%ATN-NODE-BLOCK |NamedGraphClause/NamedGraphClause.2.4|
3050
                                                    (%ATN-EDGE-BLOCK (PUSH |SourceSelector|)
3051
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3052
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector|
3053
                                                                                                  ATN-PARSER::INDEX)
3054
                                                                       (COND
3055
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|SourceSelector|)
3056
                                                                         (LET ((|SourceSelector500| |SourceSelector|))
3057
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3058
                                                                             (DESTRUCTURING-BIND
3059
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3060
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3061
                                                                               (WHEN ATN-PARSER::RESULT
3062
                                                                                 (SETF |SourceSelector| ATN-PARSER::RESULT))
3063
                                                                               (|NamedGraphClause.2| ATN-PARSER::RESULT-INDEX))
3064
                                                                             (SETF |SourceSelector| |SourceSelector500|))))
3065
                                                                        (T (SETF *ATN-TERM?* '|SourceSelector|)
3066
                                                                         (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))
3067
                                 (|NamedGraphClause/start.1| (ATN-PARSER::INDEX)
3068
                                   (%ATN-NODE-BLOCK |NamedGraphClause/start.1|
3069
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:NAMED)
3070
                                                                     (COND
3071
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:NAMED)
3072
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:NAMED)
3073
                                                                       (|NamedGraphClause/NamedGraphClause.2.4|
3074
                                                                        (1+ ATN-PARSER::INDEX)))
3075
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:NAMED)
3076
                                                                       (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))
3077
                          (|NamedGraphClause/start.1| ATN-PARSER::INDEX)
3078
                          (SETF *ATN-NODE NIL)
3079
                          NIL
3080
                          (IF ATN-PARSER::ATN-STRUCTURE
3081
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3082
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3083
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|NamedGraphClause| ATN-PARSER::INDEX *ATN-STACK))))
3084
 (PROGN
3085
  (DEFVAR |SourceSelector-INDEX|)
3086
  (DEFUN |SourceSelector| (ATN-PARSER::INDEX &AUX (|GraphRefKeyword| NIL) (|IRIref| NIL))
3087
    "{16} SourceSelector ::= (IRIref | GraphRefKeyword)
3088
 (|GraphRefKeyword| |IRIref|)"
3089
    (DECLARE (SPECIAL |SourceSelector-INDEX|))
3090
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SourceSelector-INDEX| *ATN-LEVEL))
3091
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3092
    (IF (< |SourceSelector-INDEX| ATN-PARSER::INDEX)
3093
        (LET ((|SourceSelector-INDEX| ATN-PARSER::INDEX)
3094
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3095
              (*ATN-STACK (CONS '|SourceSelector| *ATN-STACK))
3096
              (ATN-PARSER::ATN-STRUCTURE NIL))
3097
          (DECLARE (SPECIAL |SourceSelector-INDEX|))
3098
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3099
          (DECLARE (TYPE CONS *ATN-STACK))
3100
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3101
            (%ATN-BLOCK |SourceSelector|
3102
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3103
                                   (SETF *ATN-TERM* '|SourceSelector|)
3104
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3105
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3106
                                   ATN-PARSER::INDEX)
3107
                                 (|SourceSelector.2| (ATN-PARSER::INDEX)
3108
                                   (%ATN-NODE-BLOCK |SourceSelector.2|
3109
                                                    (%ATN-EDGE-BLOCK (POP |SourceSelector|)
3110
                                                                     (WHEN T
3111
                                                                       (SETF *ATN-TERM* '|SourceSelector|)
3112
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3113
                                                                                   '|SourceSelector| ATN-PARSER::INDEX
3114
                                                                                   (LIST '|GraphRefKeyword| |GraphRefKeyword|
3115
                                                                                         '|IRIref| |IRIref|))
3116
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3117
                                                                              (IF (EQ *ATN-REDUCE* T)
3118
                                                                                  (|SourceSelector-Constructor| |GraphRefKeyword|
3119
                                                                                                                |IRIref|)
3120
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
3121
                                                                                      (CONS '|SourceSelector|
3122
                                                                                            (DELETE NIL
3123
                                                                                                    (LIST |GraphRefKeyword|
3124
                                                                                                          |IRIref|)))
3125
                                                                                      '|SourceSelector|))))
3126
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
3127
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
3128
                                 (|SourceSelector/fail.3| (ATN-PARSER::INDEX)
3129
                                   (%ATN-NODE-BLOCK |SourceSelector/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
3130
                                 (|SourceSelector/start.1| (ATN-PARSER::INDEX)
3131
                                   (%ATN-NODE-BLOCK |SourceSelector/start.1|
3132
                                                    (%ATN-EDGE-BLOCK OR
3133
                                                                     (PROGN
3134
                                                                      (%ATN-EDGE-BLOCK (PUSH |IRIref|)
3135
                                                                                       (MULTIPLE-VALUE-BIND
3136
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3137
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|IRIref|
3138
                                                                                                                    ATN-PARSER::INDEX)
3139
                                                                                         (COND
3140
                                                                                          (ATN-PARSER::SUCCESS
3141
                                                                                           (SETF *ATN-TERM* '|IRIref|)
3142
                                                                                           (LET ((|IRIref501| |IRIref|))
3143
                                                                                             (DOLIST
3144
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
3145
                                                                                                  ATN-PARSER::RESULT)
3146
                                                                                               (DESTRUCTURING-BIND
3147
                                                                                                   (
3148
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3149
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
3150
                                                                                                 (WHEN ATN-PARSER::RESULT
3151
                                                                                                   (SETF |IRIref|
3152
                                                                                                           ATN-PARSER::RESULT))
3153
                                                                                                 (|SourceSelector.2|
3154
                                                                                                  ATN-PARSER::RESULT-INDEX))
3155
                                                                                               (SETF |IRIref| |IRIref501|))))
3156
                                                                                          (T (SETF *ATN-TERM?* '|IRIref|) NIL))))
3157
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |GraphRefKeyword|)
3158
                                                                                       (COND
3159
                                                                                        ((|IS-GraphRefKeyword| ATN-PARSER::|item|)
3160
                                                                                         (SETF *ATN-TERM* '|GraphRefKeyword|)
3161
                                                                                         (SETF |GraphRefKeyword|
3162
                                                                                                 (IF (EQ *ATN-REDUCE* T)
3163
                                                                                                     (ATN-REDUCE-ITEM
3164
                                                                                                      #'|GraphRefKeyword-Constructor|
3165
                                                                                                      ATN-PARSER::|item|)
3166
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
3167
                                                                                                         (LIST '|GraphRefKeyword|
3168
                                                                                                               ATN-PARSER::|item|)
3169
                                                                                                         '|GraphRefKeyword|)))
3170
                                                                                         (|SourceSelector.2|
3171
                                                                                          (1+ ATN-PARSER::INDEX)))
3172
                                                                                        (T (SETF *ATN-TERM* '|GraphRefKeyword|)
3173
                                                                                         NIL)))
3174
                                                                      (|SourceSelector/fail.3| ATN-PARSER::INDEX))))))
3175
                          (|SourceSelector/start.1| ATN-PARSER::INDEX)
3176
                          (SETF *ATN-NODE NIL)
3177
                          NIL
3178
                          (IF ATN-PARSER::ATN-STRUCTURE
3179
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3180
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3181
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|SourceSelector| ATN-PARSER::INDEX *ATN-STACK))))
3182
 (PROGN
3183
  (DEFVAR |WhereClause-INDEX|)
3184
  (DEFUN |WhereClause| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))
3185
    "{17} WhereClause ::= 'WHERE'? GroupGraphPattern
3186
 (|GroupGraphPattern|)"
3187
    (DECLARE (SPECIAL |WhereClause-INDEX|))
3188
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |WhereClause-INDEX| *ATN-LEVEL))
3189
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3190
    (IF (< |WhereClause-INDEX| ATN-PARSER::INDEX)
3191
        (LET ((|WhereClause-INDEX| ATN-PARSER::INDEX)
3192
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3193
              (*ATN-STACK (CONS '|WhereClause| *ATN-STACK))
3194
              (ATN-PARSER::ATN-STRUCTURE NIL))
3195
          (DECLARE (SPECIAL |WhereClause-INDEX|))
3196
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3197
          (DECLARE (TYPE CONS *ATN-STACK))
3198
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3199
            (%ATN-BLOCK |WhereClause|
3200
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3201
                                   (SETF *ATN-TERM* '|WhereClause|)
3202
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3203
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3204
                                   ATN-PARSER::INDEX)
3205
                                 (|WhereClause.2| (ATN-PARSER::INDEX)
3206
                                   (%ATN-NODE-BLOCK |WhereClause.2|
3207
                                                    (%ATN-EDGE-BLOCK (POP |WhereClause|)
3208
                                                                     (WHEN T
3209
                                                                       (SETF *ATN-TERM* '|WhereClause|)
3210
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3211
                                                                                   '|WhereClause| ATN-PARSER::INDEX
3212
                                                                                   (LIST '|GroupGraphPattern| |GroupGraphPattern|))
3213
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3214
                                                                              (IF (EQ *ATN-REDUCE* T)
3215
                                                                                  (|WhereClause-Constructor| |GroupGraphPattern|)
3216
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
3217
                                                                                      (CONS '|WhereClause|
3218
                                                                                            (DELETE NIL (LIST |GroupGraphPattern|)))
3219
                                                                                      '|WhereClause|))))
3220
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
3221
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
3222
                                 (|WhereClause/fail.3| (ATN-PARSER::INDEX)
3223
                                   (%ATN-NODE-BLOCK |WhereClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
3224
                                 (|WhereClause/start.1| (ATN-PARSER::INDEX)
3225
                                   (%ATN-NODE-BLOCK |WhereClause/start.1|
3226
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:WHERE)
3227
                                                                     (COND
3228
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:WHERE)
3229
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:WHERE)
3230
                                                                       (|WhereClause/WhereClause.2.4| (1+ ATN-PARSER::INDEX)))
3231
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:WHERE)
3232
                                                                       (|WhereClause/WhereClause.2.4| ATN-PARSER::INDEX))))))
3233
                                 (|WhereClause/WhereClause.2.4| (ATN-PARSER::INDEX)
3234
                                   (%ATN-NODE-BLOCK |WhereClause/WhereClause.2.4|
3235
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
3236
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3237
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
3238
                                                                                                  ATN-PARSER::INDEX)
3239
                                                                       (COND
3240
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
3241
                                                                         (LET ((|GroupGraphPattern502| |GroupGraphPattern|))
3242
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3243
                                                                             (DESTRUCTURING-BIND
3244
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3245
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3246
                                                                               (WHEN ATN-PARSER::RESULT
3247
                                                                                 (SETF |GroupGraphPattern| ATN-PARSER::RESULT))
3248
                                                                               (|WhereClause.2| ATN-PARSER::RESULT-INDEX))
3249
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern502|))))
3250
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
3251
                                                                         (|WhereClause/fail.3| ATN-PARSER::INDEX))))))))
3252
                          (|WhereClause/start.1| ATN-PARSER::INDEX)
3253
                          (SETF *ATN-NODE NIL)
3254
                          NIL
3255
                          (IF ATN-PARSER::ATN-STRUCTURE
3256
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3257
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3258
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|WhereClause| ATN-PARSER::INDEX *ATN-STACK))))
3259
 (PROGN
3260
  (DEFVAR |SolutionModifier-INDEX|)
3261
  (DEFUN |SolutionModifier|
3262
         (ATN-PARSER::INDEX &AUX (|GroupClause| NIL) (|HavingClause| NIL) (|LimitOffsetClauses| NIL) (|OrderClause| NIL))
3263
    "{18} SolutionModifier ::= GroupClause? HavingClause? OrderClause? LimitOffsetClauses?
3264
 (|GroupClause| |HavingClause| |LimitOffsetClauses| |OrderClause|)"
3265
    (DECLARE (SPECIAL |SolutionModifier-INDEX|))
3266
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SolutionModifier-INDEX| *ATN-LEVEL))
3267
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3268
    (IF (< |SolutionModifier-INDEX| ATN-PARSER::INDEX)
3269
        (LET ((|SolutionModifier-INDEX| ATN-PARSER::INDEX)
3270
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3271
              (*ATN-STACK (CONS '|SolutionModifier| *ATN-STACK))
3272
              (ATN-PARSER::ATN-STRUCTURE NIL))
3273
          (DECLARE (SPECIAL |SolutionModifier-INDEX|))
3274
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3275
          (DECLARE (TYPE CONS *ATN-STACK))
3276
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3277
            (%ATN-BLOCK |SolutionModifier|
3278
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3279
                                   (SETF *ATN-TERM* '|SolutionModifier|)
3280
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3281
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3282
                                   ATN-PARSER::INDEX)
3283
                                 (|SolutionModifier.2| (ATN-PARSER::INDEX)
3284
                                   (%ATN-NODE-BLOCK |SolutionModifier.2|
3285
                                                    (%ATN-EDGE-BLOCK (POP |SolutionModifier|)
3286
                                                                     (WHEN T
3287
                                                                       (SETF *ATN-TERM* '|SolutionModifier|)
3288
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3289
                                                                                   '|SolutionModifier| ATN-PARSER::INDEX
3290
                                                                                   (LIST '|GroupClause| |GroupClause|
3291
                                                                                         '|HavingClause| |HavingClause|
3292
                                                                                         '|LimitOffsetClauses| |LimitOffsetClauses|
3293
                                                                                         '|OrderClause| |OrderClause|))
3294
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3295
                                                                              (IF (EQ *ATN-REDUCE* T)
3296
                                                                                  (|SolutionModifier-Constructor| |GroupClause|
3297
                                                                                                                  |HavingClause|
3298
                                                                                                                  |LimitOffsetClauses|
3299
                                                                                                                  |OrderClause|)
3300
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
3301
                                                                                      (CONS '|SolutionModifier|
3302
                                                                                            (DELETE NIL
3303
                                                                                                    (LIST |GroupClause|
3304
                                                                                                          |HavingClause|
3305
                                                                                                          |LimitOffsetClauses|
3306
                                                                                                          |OrderClause|)))
3307
                                                                                      '|SolutionModifier|))))
3308
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
3309
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
3310
                                 (|SolutionModifier/fail.3| (ATN-PARSER::INDEX)
3311
                                   (%ATN-NODE-BLOCK |SolutionModifier/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
3312
                                 (|SolutionModifier/SolutionModifier.2.4| (ATN-PARSER::INDEX)
3313
                                   (%ATN-NODE-BLOCK |SolutionModifier/SolutionModifier.2.4|
3314
                                                    (%ATN-EDGE-BLOCK (PUSH |HavingClause|)
3315
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3316
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|HavingClause| ATN-PARSER::INDEX)
3317
                                                                       (COND
3318
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|HavingClause|)
3319
                                                                         (LET ((|HavingClause505| |HavingClause|))
3320
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3321
                                                                             (DESTRUCTURING-BIND
3322
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3323
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3324
                                                                               (WHEN ATN-PARSER::RESULT
3325
                                                                                 (SETF |HavingClause| ATN-PARSER::RESULT))
3326
                                                                               (|SolutionModifier/SolutionModifier.2.5|
3327
                                                                                ATN-PARSER::RESULT-INDEX))
3328
                                                                             (SETF |HavingClause| |HavingClause505|))))
3329
                                                                        (T (SETF *ATN-TERM?* '|HavingClause|)
3330
                                                                         (|SolutionModifier/SolutionModifier.2.5|
3331
                                                                          ATN-PARSER::INDEX)))))))
3332
                                 (|SolutionModifier/SolutionModifier.2.5| (ATN-PARSER::INDEX)
3333
                                   (%ATN-NODE-BLOCK |SolutionModifier/SolutionModifier.2.5|
3334
                                                    (%ATN-EDGE-BLOCK (PUSH |OrderClause|)
3335
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3336
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|OrderClause| ATN-PARSER::INDEX)
3337
                                                                       (COND
3338
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|OrderClause|)
3339
                                                                         (LET ((|OrderClause504| |OrderClause|))
3340
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3341
                                                                             (DESTRUCTURING-BIND
3342
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3343
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3344
                                                                               (WHEN ATN-PARSER::RESULT
3345
                                                                                 (SETF |OrderClause| ATN-PARSER::RESULT))
3346
                                                                               (|SolutionModifier/SolutionModifier.2.6|
3347
                                                                                ATN-PARSER::RESULT-INDEX))
3348
                                                                             (SETF |OrderClause| |OrderClause504|))))
3349
                                                                        (T (SETF *ATN-TERM?* '|OrderClause|)
3350
                                                                         (|SolutionModifier/SolutionModifier.2.6|
3351
                                                                          ATN-PARSER::INDEX)))))))
3352
                                 (|SolutionModifier/SolutionModifier.2.6| (ATN-PARSER::INDEX)
3353
                                   (%ATN-NODE-BLOCK |SolutionModifier/SolutionModifier.2.6|
3354
                                                    (%ATN-EDGE-BLOCK (PUSH |LimitOffsetClauses|)
3355
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3356
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|LimitOffsetClauses|
3357
                                                                                                  ATN-PARSER::INDEX)
3358
                                                                       (COND
3359
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|LimitOffsetClauses|)
3360
                                                                         (LET ((|LimitOffsetClauses503| |LimitOffsetClauses|))
3361
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3362
                                                                             (DESTRUCTURING-BIND
3363
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3364
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3365
                                                                               (WHEN ATN-PARSER::RESULT
3366
                                                                                 (SETF |LimitOffsetClauses| ATN-PARSER::RESULT))
3367
                                                                               (|SolutionModifier.2| ATN-PARSER::RESULT-INDEX))
3368
                                                                             (SETF |LimitOffsetClauses| |LimitOffsetClauses503|))))
3369
                                                                        (T (SETF *ATN-TERM?* '|LimitOffsetClauses|)
3370
                                                                         (|SolutionModifier.2| ATN-PARSER::INDEX)))))))
3371
                                 (|SolutionModifier/start.1| (ATN-PARSER::INDEX)
3372
                                   (%ATN-NODE-BLOCK |SolutionModifier/start.1|
3373
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupClause|)
3374
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3375
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupClause| ATN-PARSER::INDEX)
3376
                                                                       (COND
3377
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupClause|)
3378
                                                                         (LET ((|GroupClause506| |GroupClause|))
3379
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3380
                                                                             (DESTRUCTURING-BIND
3381
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3382
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3383
                                                                               (WHEN ATN-PARSER::RESULT
3384
                                                                                 (SETF |GroupClause| ATN-PARSER::RESULT))
3385
                                                                               (|SolutionModifier/SolutionModifier.2.4|
3386
                                                                                ATN-PARSER::RESULT-INDEX))
3387
                                                                             (SETF |GroupClause| |GroupClause506|))))
3388
                                                                        (T (SETF *ATN-TERM?* '|GroupClause|)
3389
                                                                         (|SolutionModifier/SolutionModifier.2.4|
3390
                                                                          ATN-PARSER::INDEX))))))))
3391
                          (|SolutionModifier/start.1| ATN-PARSER::INDEX)
3392
                          (SETF *ATN-NODE NIL)
3393
                          NIL
3394
                          (IF ATN-PARSER::ATN-STRUCTURE
3395
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3396
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3397
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|SolutionModifier| ATN-PARSER::INDEX *ATN-STACK))))
3398
 (PROGN
3399
  (DEFVAR |GroupClause-INDEX|)
3400
  (DEFUN |GroupClause| (ATN-PARSER::INDEX &AUX (|GroupCondition| NIL))
3401
    "{19} GroupClause ::= 'GROUP' 'BY' GroupCondition+
3402
 (|GroupCondition|)"
3403
    (DECLARE (SPECIAL |GroupClause-INDEX|))
3404
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupClause-INDEX| *ATN-LEVEL))
3405
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3406
    (IF (< |GroupClause-INDEX| ATN-PARSER::INDEX)
3407
        (LET ((|GroupClause-INDEX| ATN-PARSER::INDEX)
3408
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3409
              (*ATN-STACK (CONS '|GroupClause| *ATN-STACK))
3410
              (ATN-PARSER::ATN-STRUCTURE NIL))
3411
          (DECLARE (SPECIAL |GroupClause-INDEX|))
3412
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3413
          (DECLARE (TYPE CONS *ATN-STACK))
3414
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3415
            (%ATN-BLOCK |GroupClause|
3416
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3417
                                   (SETF *ATN-TERM* '|GroupClause|)
3418
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3419
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3420
                                   ATN-PARSER::INDEX)
3421
                                 (|GroupClause.2| (ATN-PARSER::INDEX)
3422
                                   (%ATN-NODE-BLOCK |GroupClause.2|
3423
                                                    (%ATN-EDGE-BLOCK (POP |GroupClause|)
3424
                                                                     (WHEN T
3425
                                                                       (SETF *ATN-TERM* '|GroupClause|)
3426
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3427
                                                                                   '|GroupClause| ATN-PARSER::INDEX
3428
                                                                                   (LIST '|GroupCondition| |GroupCondition|))
3429
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3430
                                                                              (IF (EQ *ATN-REDUCE* T)
3431
                                                                                  (|GroupClause-Constructor| |GroupCondition|)
3432
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
3433
                                                                                      (CONS '|GroupClause|
3434
                                                                                            (DELETE NIL (LIST |GroupCondition|)))
3435
                                                                                      '|GroupClause|))))
3436
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
3437
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
3438
                                 (|GroupClause.6| (ATN-PARSER::INDEX)
3439
                                   (%ATN-NODE-BLOCK |GroupClause.6|
3440
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupCondition|)
3441
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3442
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupCondition|
3443
                                                                                                  ATN-PARSER::INDEX)
3444
                                                                       (COND
3445
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupCondition|)
3446
                                                                         (LET ((|GroupCondition508| |GroupCondition|))
3447
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3448
                                                                             (DESTRUCTURING-BIND
3449
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3450
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3451
                                                                               (WHEN ATN-PARSER::RESULT
3452
                                                                                 (SETF |GroupCondition|
3453
                                                                                         (CONS ATN-PARSER::RESULT
3454
                                                                                               |GroupCondition|)))
3455
                                                                               (|GroupClause.6| ATN-PARSER::RESULT-INDEX))
3456
                                                                             (SETF |GroupCondition| |GroupCondition508|))))
3457
                                                                        (T (SETF *ATN-TERM?* '|GroupCondition|)
3458
                                                                         (|GroupClause.2| ATN-PARSER::INDEX)))))))
3459
                                 (|GroupClause/fail.3| (ATN-PARSER::INDEX)
3460
                                   (%ATN-NODE-BLOCK |GroupClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
3461
                                 (|GroupClause/GroupClause.2.4| (ATN-PARSER::INDEX)
3462
                                   (%ATN-NODE-BLOCK |GroupClause/GroupClause.2.4|
3463
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:BY)
3464
                                                                     (COND
3465
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:BY)
3466
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:BY)
3467
                                                                       (|GroupClause/GroupClause.2.5| (1+ ATN-PARSER::INDEX)))
3468
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:BY)
3469
                                                                       (|GroupClause/fail.3| ATN-PARSER::INDEX))))))
3470
                                 (|GroupClause/GroupClause.2.5| (ATN-PARSER::INDEX)
3471
                                   (%ATN-NODE-BLOCK |GroupClause/GroupClause.2.5|
3472
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupCondition|)
3473
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3474
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupCondition|
3475
                                                                                                  ATN-PARSER::INDEX)
3476
                                                                       (COND
3477
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupCondition|)
3478
                                                                         (LET ((|GroupCondition507| |GroupCondition|))
3479
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3480
                                                                             (DESTRUCTURING-BIND
3481
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3482
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3483
                                                                               (WHEN ATN-PARSER::RESULT
3484
                                                                                 (SETF |GroupCondition|
3485
                                                                                         (CONS ATN-PARSER::RESULT
3486
                                                                                               |GroupCondition|)))
3487
                                                                               (|GroupClause.6| ATN-PARSER::RESULT-INDEX))
3488
                                                                             (SETF |GroupCondition| |GroupCondition507|))))
3489
                                                                        (T (SETF *ATN-TERM?* '|GroupCondition|)
3490
                                                                         (|GroupClause/fail.3| ATN-PARSER::INDEX)))))))
3491
                                 (|GroupClause/start.1| (ATN-PARSER::INDEX)
3492
                                   (%ATN-NODE-BLOCK |GroupClause/start.1|
3493
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:GROUP)
3494
                                                                     (COND
3495
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:GROUP)
3496
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:GROUP)
3497
                                                                       (|GroupClause/GroupClause.2.4| (1+ ATN-PARSER::INDEX)))
3498
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:GROUP)
3499
                                                                       (|GroupClause/fail.3| ATN-PARSER::INDEX)))))))
3500
                          (|GroupClause/start.1| ATN-PARSER::INDEX)
3501
                          (SETF *ATN-NODE NIL)
3502
                          NIL
3503
                          (IF ATN-PARSER::ATN-STRUCTURE
3504
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3505
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3506
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupClause| ATN-PARSER::INDEX *ATN-STACK))))
3507
 (PROGN
3508
  (DEFVAR |GroupCondition-INDEX|)
3509
  (DEFUN |GroupCondition| (ATN-PARSER::INDEX &AUX (|BuiltInCall| NIL) (|FunctionCall| NIL) (|VariableOrBindingOrExpression| NIL))
3510
    "{20} GroupCondition ::= (BuiltInCall | FunctionCall | VariableOrBindingOrExpression)
3511
 (|BuiltInCall| |FunctionCall| |VariableOrBindingOrExpression|)"
3512
    (DECLARE (SPECIAL |GroupCondition-INDEX|))
3513
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupCondition-INDEX| *ATN-LEVEL))
3514
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3515
    (IF (< |GroupCondition-INDEX| ATN-PARSER::INDEX)
3516
        (LET ((|GroupCondition-INDEX| ATN-PARSER::INDEX)
3517
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3518
              (*ATN-STACK (CONS '|GroupCondition| *ATN-STACK))
3519
              (ATN-PARSER::ATN-STRUCTURE NIL))
3520
          (DECLARE (SPECIAL |GroupCondition-INDEX|))
3521
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3522
          (DECLARE (TYPE CONS *ATN-STACK))
3523
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3524
            (%ATN-BLOCK |GroupCondition|
3525
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3526
                                   (SETF *ATN-TERM* '|GroupCondition|)
3527
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3528
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3529
                                   ATN-PARSER::INDEX)
3530
                                 (|GroupCondition.2| (ATN-PARSER::INDEX)
3531
                                   (%ATN-NODE-BLOCK |GroupCondition.2|
3532
                                                    (%ATN-EDGE-BLOCK (POP |GroupCondition|)
3533
                                                                     (WHEN T
3534
                                                                       (SETF *ATN-TERM* '|GroupCondition|)
3535
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3536
                                                                                   '|GroupCondition| ATN-PARSER::INDEX
3537
                                                                                   (LIST '|BuiltInCall| |BuiltInCall|
3538
                                                                                         '|FunctionCall| |FunctionCall|
3539
                                                                                         '|VariableOrBindingOrExpression|
3540
                                                                                         |VariableOrBindingOrExpression|))
3541
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3542
                                                                              (IF (EQ *ATN-REDUCE* T)
3543
                                                                                  (|GroupCondition-Constructor| |BuiltInCall|
3544
                                                                                                                |FunctionCall|
3545
                                                                                                                |VariableOrBindingOrExpression|)
3546
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
3547
                                                                                      (CONS '|GroupCondition|
3548
                                                                                            (DELETE NIL
3549
                                                                                                    (LIST |BuiltInCall|
3550
                                                                                                          |FunctionCall|
3551
                                                                                                          |VariableOrBindingOrExpression|)))
3552
                                                                                      '|GroupCondition|))))
3553
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
3554
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
3555
                                 (|GroupCondition/fail.3| (ATN-PARSER::INDEX)
3556
                                   (%ATN-NODE-BLOCK |GroupCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
3557
                                 (|GroupCondition/start.1| (ATN-PARSER::INDEX)
3558
                                   (%ATN-NODE-BLOCK |GroupCondition/start.1|
3559
                                                    (%ATN-EDGE-BLOCK OR
3560
                                                                     (PROGN
3561
                                                                      (%ATN-EDGE-BLOCK (PUSH |BuiltInCall|)
3562
                                                                                       (MULTIPLE-VALUE-BIND
3563
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3564
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall|
3565
                                                                                                                    ATN-PARSER::INDEX)
3566
                                                                                         (COND
3567
                                                                                          (ATN-PARSER::SUCCESS
3568
                                                                                           (SETF *ATN-TERM* '|BuiltInCall|)
3569
                                                                                           (LET ((|BuiltInCall509| |BuiltInCall|))
3570
                                                                                             (DOLIST
3571
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
3572
                                                                                                  ATN-PARSER::RESULT)
3573
                                                                                               (DESTRUCTURING-BIND
3574
                                                                                                   (
3575
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3576
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
3577
                                                                                                 (WHEN ATN-PARSER::RESULT
3578
                                                                                                   (SETF |BuiltInCall|
3579
                                                                                                           ATN-PARSER::RESULT))
3580
                                                                                                 (|GroupCondition.2|
3581
                                                                                                  ATN-PARSER::RESULT-INDEX))
3582
                                                                                               (SETF |BuiltInCall|
3583
                                                                                                       |BuiltInCall509|))))
3584
                                                                                          (T (SETF *ATN-TERM?* '|BuiltInCall|)
3585
                                                                                           NIL))))
3586
                                                                      (%ATN-EDGE-BLOCK (PUSH |FunctionCall|)
3587
                                                                                       (MULTIPLE-VALUE-BIND
3588
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3589
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|FunctionCall|
3590
                                                                                                                    ATN-PARSER::INDEX)
3591
                                                                                         (COND
3592
                                                                                          (ATN-PARSER::SUCCESS
3593
                                                                                           (SETF *ATN-TERM* '|FunctionCall|)
3594
                                                                                           (LET ((|FunctionCall510| |FunctionCall|))
3595
                                                                                             (DOLIST
3596
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
3597
                                                                                                  ATN-PARSER::RESULT)
3598
                                                                                               (DESTRUCTURING-BIND
3599
                                                                                                   (
3600
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3601
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
3602
                                                                                                 (WHEN ATN-PARSER::RESULT
3603
                                                                                                   (SETF |FunctionCall|
3604
                                                                                                           ATN-PARSER::RESULT))
3605
                                                                                                 (|GroupCondition.2|
3606
                                                                                                  ATN-PARSER::RESULT-INDEX))
3607
                                                                                               (SETF |FunctionCall|
3608
                                                                                                       |FunctionCall510|))))
3609
                                                                                          (T (SETF *ATN-TERM?* '|FunctionCall|)
3610
                                                                                           NIL))))
3611
                                                                      (%ATN-EDGE-BLOCK (PUSH |VariableOrBindingOrExpression|)
3612
                                                                                       (MULTIPLE-VALUE-BIND
3613
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3614
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
3615
                                                                                            '|VariableOrBindingOrExpression|
3616
                                                                                            ATN-PARSER::INDEX)
3617
                                                                                         (COND
3618
                                                                                          (ATN-PARSER::SUCCESS
3619
                                                                                           (SETF *ATN-TERM*
3620
                                                                                                   '|VariableOrBindingOrExpression|)
3621
                                                                                           (LET ((|VariableOrBindingOrExpression511|
3622
                                                                                                  |VariableOrBindingOrExpression|))
3623
                                                                                             (DOLIST
3624
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
3625
                                                                                                  ATN-PARSER::RESULT)
3626
                                                                                               (DESTRUCTURING-BIND
3627
                                                                                                   (
3628
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3629
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
3630
                                                                                                 (WHEN ATN-PARSER::RESULT
3631
                                                                                                   (SETF |VariableOrBindingOrExpression|
3632
                                                                                                           ATN-PARSER::RESULT))
3633
                                                                                                 (|GroupCondition.2|
3634
                                                                                                  ATN-PARSER::RESULT-INDEX))
3635
                                                                                               (SETF |VariableOrBindingOrExpression|
3636
                                                                                                       |VariableOrBindingOrExpression511|))))
3637
                                                                                          (T
3638
                                                                                           (SETF *ATN-TERM?*
3639
                                                                                                   '|VariableOrBindingOrExpression|)
3640
                                                                                           NIL))))
3641
                                                                      (|GroupCondition/fail.3| ATN-PARSER::INDEX))))))
3642
                          (|GroupCondition/start.1| ATN-PARSER::INDEX)
3643
                          (SETF *ATN-NODE NIL)
3644
                          NIL
3645
                          (IF ATN-PARSER::ATN-STRUCTURE
3646
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3647
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3648
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupCondition| ATN-PARSER::INDEX *ATN-STACK))))
3649
 (PROGN
3650
  (DEFVAR |VariableOrBindingOrExpression-INDEX|)
3651
  (DEFUN |VariableOrBindingOrExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|Var| NIL))
3652
    "{20a} VariableOrBindingOrExpression ::= (('(' Expression ('AS' Var)? ')') | Var)
3653
 (|Expression| |Var|)"
3654
    (DECLARE (SPECIAL |VariableOrBindingOrExpression-INDEX|))
3655
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VariableOrBindingOrExpression-INDEX| *ATN-LEVEL))
3656
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3657
    (IF (< |VariableOrBindingOrExpression-INDEX| ATN-PARSER::INDEX)
3658
        (LET ((|VariableOrBindingOrExpression-INDEX| ATN-PARSER::INDEX)
3659
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3660
              (*ATN-STACK (CONS '|VariableOrBindingOrExpression| *ATN-STACK))
3661
              (ATN-PARSER::ATN-STRUCTURE NIL))
3662
          (DECLARE (SPECIAL |VariableOrBindingOrExpression-INDEX|))
3663
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3664
          (DECLARE (TYPE CONS *ATN-STACK))
3665
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3666
            (%ATN-BLOCK |VariableOrBindingOrExpression|
3667
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3668
                                   (SETF *ATN-TERM* '|VariableOrBindingOrExpression|)
3669
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3670
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3671
                                   ATN-PARSER::INDEX)
3672
                                 (|VariableOrBindingOrExpression.2| (ATN-PARSER::INDEX)
3673
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrExpression.2|
3674
                                                    (%ATN-EDGE-BLOCK (POP |VariableOrBindingOrExpression|)
3675
                                                                     (WHEN T
3676
                                                                       (SETF *ATN-TERM* '|VariableOrBindingOrExpression|)
3677
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3678
                                                                                   '|VariableOrBindingOrExpression|
3679
                                                                                   ATN-PARSER::INDEX
3680
                                                                                   (LIST '|Expression| |Expression| '|Var| |Var|))
3681
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3682
                                                                              (IF (EQ *ATN-REDUCE* T)
3683
                                                                                  (|VariableOrBindingOrExpression-Constructor|
3684
                                                                                   |Expression| |Var|)
3685
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
3686
                                                                                      (CONS '|VariableOrBindingOrExpression|
3687
                                                                                            (DELETE NIL (LIST |Expression| |Var|)))
3688
                                                                                      '|VariableOrBindingOrExpression|))))
3689
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
3690
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
3691
                                 (|VariableOrBindingOrExpression/fail.3| (ATN-PARSER::INDEX)
3692
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrExpression/fail.3|
3693
                                                    (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
3694
                                 (|VariableOrBindingOrExpression/start.1| (ATN-PARSER::INDEX)
3695
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrExpression/start.1|
3696
                                                    (%ATN-EDGE-BLOCK OR
3697
                                                                     (PROGN
3698
                                                                      (%ATN-EDGE-BLOCK
3699
                                                                       (ATN-PARSER::JUMP
3700
                                                                        |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4|)
3701
                                                                       (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4|
3702
                                                                        ATN-PARSER::INDEX))
3703
                                                                      (%ATN-EDGE-BLOCK (TEST |Var|)
3704
                                                                                       (COND
3705
                                                                                        ((|IS-Var| ATN-PARSER::|item|)
3706
                                                                                         (SETF *ATN-TERM* '|Var|)
3707
                                                                                         (SETF |Var|
3708
                                                                                                 (IF (EQ *ATN-REDUCE* T)
3709
                                                                                                     (ATN-REDUCE-ITEM
3710
                                                                                                      #'|Var-Constructor|
3711
                                                                                                      ATN-PARSER::|item|)
3712
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
3713
                                                                                                         (LIST '|Var|
3714
                                                                                                               ATN-PARSER::|item|)
3715
                                                                                                         '|Var|)))
3716
                                                                                         (|VariableOrBindingOrExpression.2|
3717
                                                                                          (1+ ATN-PARSER::INDEX)))
3718
                                                                                        (T (SETF *ATN-TERM?* '|Var|) NIL)))
3719
                                                                      (|VariableOrBindingOrExpression/fail.3| ATN-PARSER::INDEX)))))
3720
                                 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4| (ATN-PARSER::INDEX)
3721
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4|
3722
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
3723
                                                                     (COND
3724
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
3725
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
3726
                                                                       (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.5|
3727
                                                                        (1+ ATN-PARSER::INDEX)))
3728
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|) NIL)))))
3729
                                 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.5| (ATN-PARSER::INDEX)
3730
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.5|
3731
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
3732
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3733
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
3734
                                                                       (COND
3735
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
3736
                                                                         (LET ((|Expression512| |Expression|))
3737
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3738
                                                                             (DESTRUCTURING-BIND
3739
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3740
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3741
                                                                               (WHEN ATN-PARSER::RESULT
3742
                                                                                 (SETF |Expression| ATN-PARSER::RESULT))
3743
                                                                               (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.6|
3744
                                                                                ATN-PARSER::RESULT-INDEX))
3745
                                                                             (SETF |Expression| |Expression512|))))
3746
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
3747
                                 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.6| (ATN-PARSER::INDEX)
3748
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.6|
3749
                                                    (%ATN-EDGE-BLOCK
3750
                                                     (ATN-PARSER::JUMP
3751
                                                      |VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|)
3752
                                                     (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|
3753
                                                      ATN-PARSER::INDEX))
3754
                                                    (%ATN-EDGE-BLOCK
3755
                                                     (ATN-PARSER::JUMP
3756
                                                      |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|)
3757
                                                     (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|
3758
                                                      ATN-PARSER::INDEX))))
3759
                                 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7| (ATN-PARSER::INDEX)
3760
                                   (%ATN-NODE-BLOCK |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|
3761
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
3762
                                                                     (COND
3763
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
3764
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
3765
                                                                       (|VariableOrBindingOrExpression.2| (1+ ATN-PARSER::INDEX)))
3766
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|) NIL)))))
3767
                                 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|
3768
                                     (ATN-PARSER::INDEX)
3769
                                   (%ATN-NODE-BLOCK
3770
                                    |VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|
3771
                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:AS)
3772
                                                     (COND
3773
                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS) (SETF *ATN-TERM* 'SPOCQ.S:AS)
3774
                                                       (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.9|
3775
                                                        (1+ ATN-PARSER::INDEX)))
3776
                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) NIL)))))
3777
                                 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.9|
3778
                                     (ATN-PARSER::INDEX)
3779
                                   (%ATN-NODE-BLOCK
3780
                                    |VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.9|
3781
                                    (%ATN-EDGE-BLOCK (TEST |Var|)
3782
                                                     (COND
3783
                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
3784
                                                       (SETF |Var|
3785
                                                               (IF (EQ *ATN-REDUCE* T)
3786
                                                                   (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)
3787
                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
3788
                                                                       (LIST '|Var| ATN-PARSER::|item|)
3789
                                                                       '|Var|)))
3790
                                                       (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|
3791
                                                        (1+ ATN-PARSER::INDEX)))
3792
                                                      (T (SETF *ATN-TERM?* '|Var|) NIL))))))
3793
                          (|VariableOrBindingOrExpression/start.1| ATN-PARSER::INDEX)
3794
                          (SETF *ATN-NODE NIL)
3795
                          NIL
3796
                          (IF ATN-PARSER::ATN-STRUCTURE
3797
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3798
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3799
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|VariableOrBindingOrExpression| ATN-PARSER::INDEX *ATN-STACK))))
3800
 (PROGN
3801
  (DEFVAR |HavingClause-INDEX|)
3802
  (DEFUN |HavingClause| (ATN-PARSER::INDEX &AUX (|HavingCondition| NIL))
3803
    "{21} HavingClause ::= 'HAVING' HavingCondition+
3804
 (|HavingCondition|)"
3805
    (DECLARE (SPECIAL |HavingClause-INDEX|))
3806
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |HavingClause-INDEX| *ATN-LEVEL))
3807
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3808
    (IF (< |HavingClause-INDEX| ATN-PARSER::INDEX)
3809
        (LET ((|HavingClause-INDEX| ATN-PARSER::INDEX)
3810
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3811
              (*ATN-STACK (CONS '|HavingClause| *ATN-STACK))
3812
              (ATN-PARSER::ATN-STRUCTURE NIL))
3813
          (DECLARE (SPECIAL |HavingClause-INDEX|))
3814
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3815
          (DECLARE (TYPE CONS *ATN-STACK))
3816
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3817
            (%ATN-BLOCK |HavingClause|
3818
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3819
                                   (SETF *ATN-TERM* '|HavingClause|)
3820
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3821
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3822
                                   ATN-PARSER::INDEX)
3823
                                 (|HavingClause.2| (ATN-PARSER::INDEX)
3824
                                   (%ATN-NODE-BLOCK |HavingClause.2|
3825
                                                    (%ATN-EDGE-BLOCK (POP |HavingClause|)
3826
                                                                     (WHEN T
3827
                                                                       (SETF *ATN-TERM* '|HavingClause|)
3828
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3829
                                                                                   '|HavingClause| ATN-PARSER::INDEX
3830
                                                                                   (LIST '|HavingCondition| |HavingCondition|))
3831
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3832
                                                                              (IF (EQ *ATN-REDUCE* T)
3833
                                                                                  (|HavingClause-Constructor| |HavingCondition|)
3834
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
3835
                                                                                      (CONS '|HavingClause|
3836
                                                                                            (DELETE NIL (LIST |HavingCondition|)))
3837
                                                                                      '|HavingClause|))))
3838
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
3839
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
3840
                                 (|HavingClause.5| (ATN-PARSER::INDEX)
3841
                                   (%ATN-NODE-BLOCK |HavingClause.5|
3842
                                                    (%ATN-EDGE-BLOCK (PUSH |HavingCondition|)
3843
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3844
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|HavingCondition|
3845
                                                                                                  ATN-PARSER::INDEX)
3846
                                                                       (COND
3847
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|HavingCondition|)
3848
                                                                         (LET ((|HavingCondition514| |HavingCondition|))
3849
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3850
                                                                             (DESTRUCTURING-BIND
3851
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3852
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3853
                                                                               (WHEN ATN-PARSER::RESULT
3854
                                                                                 (SETF |HavingCondition|
3855
                                                                                         (CONS ATN-PARSER::RESULT
3856
                                                                                               |HavingCondition|)))
3857
                                                                               (|HavingClause.5| ATN-PARSER::RESULT-INDEX))
3858
                                                                             (SETF |HavingCondition| |HavingCondition514|))))
3859
                                                                        (T (SETF *ATN-TERM?* '|HavingCondition|)
3860
                                                                         (|HavingClause.2| ATN-PARSER::INDEX)))))))
3861
                                 (|HavingClause/fail.3| (ATN-PARSER::INDEX)
3862
                                   (%ATN-NODE-BLOCK |HavingClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
3863
                                 (|HavingClause/HavingClause.2.4| (ATN-PARSER::INDEX)
3864
                                   (%ATN-NODE-BLOCK |HavingClause/HavingClause.2.4|
3865
                                                    (%ATN-EDGE-BLOCK (PUSH |HavingCondition|)
3866
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3867
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|HavingCondition|
3868
                                                                                                  ATN-PARSER::INDEX)
3869
                                                                       (COND
3870
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|HavingCondition|)
3871
                                                                         (LET ((|HavingCondition513| |HavingCondition|))
3872
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3873
                                                                             (DESTRUCTURING-BIND
3874
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3875
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3876
                                                                               (WHEN ATN-PARSER::RESULT
3877
                                                                                 (SETF |HavingCondition|
3878
                                                                                         (CONS ATN-PARSER::RESULT
3879
                                                                                               |HavingCondition|)))
3880
                                                                               (|HavingClause.5| ATN-PARSER::RESULT-INDEX))
3881
                                                                             (SETF |HavingCondition| |HavingCondition513|))))
3882
                                                                        (T (SETF *ATN-TERM?* '|HavingCondition|)
3883
                                                                         (|HavingClause/fail.3| ATN-PARSER::INDEX)))))))
3884
                                 (|HavingClause/start.1| (ATN-PARSER::INDEX)
3885
                                   (%ATN-NODE-BLOCK |HavingClause/start.1|
3886
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:HAVING)
3887
                                                                     (COND
3888
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:HAVING)
3889
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:HAVING)
3890
                                                                       (|HavingClause/HavingClause.2.4| (1+ ATN-PARSER::INDEX)))
3891
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:HAVING)
3892
                                                                       (|HavingClause/fail.3| ATN-PARSER::INDEX)))))))
3893
                          (|HavingClause/start.1| ATN-PARSER::INDEX)
3894
                          (SETF *ATN-NODE NIL)
3895
                          NIL
3896
                          (IF ATN-PARSER::ATN-STRUCTURE
3897
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3898
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3899
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|HavingClause| ATN-PARSER::INDEX *ATN-STACK))))
3900
 (PROGN
3901
  (DEFVAR |HavingCondition-INDEX|)
3902
  (DEFUN |HavingCondition| (ATN-PARSER::INDEX &AUX (|Constraint| NIL))
3903
    "{22} HavingCondition ::= Constraint
3904
 (|Constraint|)"
3905
    (DECLARE (SPECIAL |HavingCondition-INDEX|))
3906
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |HavingCondition-INDEX| *ATN-LEVEL))
3907
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3908
    (IF (< |HavingCondition-INDEX| ATN-PARSER::INDEX)
3909
        (LET ((|HavingCondition-INDEX| ATN-PARSER::INDEX)
3910
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3911
              (*ATN-STACK (CONS '|HavingCondition| *ATN-STACK))
3912
              (ATN-PARSER::ATN-STRUCTURE NIL))
3913
          (DECLARE (SPECIAL |HavingCondition-INDEX|))
3914
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3915
          (DECLARE (TYPE CONS *ATN-STACK))
3916
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3917
            (%ATN-BLOCK |HavingCondition|
3918
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3919
                                   (SETF *ATN-TERM* '|HavingCondition|)
3920
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3921
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3922
                                   ATN-PARSER::INDEX)
3923
                                 (|HavingCondition.2| (ATN-PARSER::INDEX)
3924
                                   (%ATN-NODE-BLOCK |HavingCondition.2|
3925
                                                    (%ATN-EDGE-BLOCK (POP |HavingCondition|)
3926
                                                                     (WHEN T
3927
                                                                       (SETF *ATN-TERM* '|HavingCondition|)
3928
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3929
                                                                                   '|HavingCondition| ATN-PARSER::INDEX
3930
                                                                                   (LIST '|Constraint| |Constraint|))
3931
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3932
                                                                              (IF (EQ *ATN-REDUCE* T)
3933
                                                                                  (|HavingCondition-Constructor| |Constraint|)
3934
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
3935
                                                                                      (CONS '|HavingCondition|
3936
                                                                                            (DELETE NIL (LIST |Constraint|)))
3937
                                                                                      '|HavingCondition|))))
3938
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
3939
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
3940
                                 (|HavingCondition/fail.3| (ATN-PARSER::INDEX)
3941
                                   (%ATN-NODE-BLOCK |HavingCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
3942
                                 (|HavingCondition/start.1| (ATN-PARSER::INDEX)
3943
                                   (%ATN-NODE-BLOCK |HavingCondition/start.1|
3944
                                                    (%ATN-EDGE-BLOCK (PUSH |Constraint|)
3945
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
3946
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)
3947
                                                                       (COND
3948
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Constraint|)
3949
                                                                         (LET ((|Constraint515| |Constraint|))
3950
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
3951
                                                                             (DESTRUCTURING-BIND
3952
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
3953
                                                                                 ATN-PARSER::RESULT-AND-INDEX
3954
                                                                               (WHEN ATN-PARSER::RESULT
3955
                                                                                 (SETF |Constraint| ATN-PARSER::RESULT))
3956
                                                                               (|HavingCondition.2| ATN-PARSER::RESULT-INDEX))
3957
                                                                             (SETF |Constraint| |Constraint515|))))
3958
                                                                        (T (SETF *ATN-TERM?* '|Constraint|)
3959
                                                                         (|HavingCondition/fail.3| ATN-PARSER::INDEX))))))))
3960
                          (|HavingCondition/start.1| ATN-PARSER::INDEX)
3961
                          (SETF *ATN-NODE NIL)
3962
                          NIL
3963
                          (IF ATN-PARSER::ATN-STRUCTURE
3964
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
3965
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
3966
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|HavingCondition| ATN-PARSER::INDEX *ATN-STACK))))
3967
 (PROGN
3968
  (DEFVAR |OrderClause-INDEX|)
3969
  (DEFUN |OrderClause| (ATN-PARSER::INDEX &AUX (|OrderCondition| NIL))
3970
    "{23} OrderClause ::= 'ORDER' 'BY' OrderCondition+
3971
 (|OrderCondition|)"
3972
    (DECLARE (SPECIAL |OrderClause-INDEX|))
3973
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderClause-INDEX| *ATN-LEVEL))
3974
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
3975
    (IF (< |OrderClause-INDEX| ATN-PARSER::INDEX)
3976
        (LET ((|OrderClause-INDEX| ATN-PARSER::INDEX)
3977
              (*ATN-LEVEL (1+ *ATN-LEVEL))
3978
              (*ATN-STACK (CONS '|OrderClause| *ATN-STACK))
3979
              (ATN-PARSER::ATN-STRUCTURE NIL))
3980
          (DECLARE (SPECIAL |OrderClause-INDEX|))
3981
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
3982
          (DECLARE (TYPE CONS *ATN-STACK))
3983
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
3984
            (%ATN-BLOCK |OrderClause|
3985
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
3986
                                   (SETF *ATN-TERM* '|OrderClause|)
3987
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
3988
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
3989
                                   ATN-PARSER::INDEX)
3990
                                 (|OrderClause.2| (ATN-PARSER::INDEX)
3991
                                   (%ATN-NODE-BLOCK |OrderClause.2|
3992
                                                    (%ATN-EDGE-BLOCK (POP |OrderClause|)
3993
                                                                     (WHEN T
3994
                                                                       (SETF *ATN-TERM* '|OrderClause|)
3995
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
3996
                                                                                   '|OrderClause| ATN-PARSER::INDEX
3997
                                                                                   (LIST '|OrderCondition| |OrderCondition|))
3998
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
3999
                                                                              (IF (EQ *ATN-REDUCE* T)
4000
                                                                                  (|OrderClause-Constructor| |OrderCondition|)
4001
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
4002
                                                                                      (CONS '|OrderClause|
4003
                                                                                            (DELETE NIL (LIST |OrderCondition|)))
4004
                                                                                      '|OrderClause|))))
4005
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
4006
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
4007
                                 (|OrderClause.6| (ATN-PARSER::INDEX)
4008
                                   (%ATN-NODE-BLOCK |OrderClause.6|
4009
                                                    (%ATN-EDGE-BLOCK (PUSH |OrderCondition|)
4010
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4011
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition|
4012
                                                                                                  ATN-PARSER::INDEX)
4013
                                                                       (COND
4014
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|OrderCondition|)
4015
                                                                         (LET ((|OrderCondition517| |OrderCondition|))
4016
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4017
                                                                             (DESTRUCTURING-BIND
4018
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4019
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4020
                                                                               (WHEN ATN-PARSER::RESULT
4021
                                                                                 (SETF |OrderCondition|
4022
                                                                                         (CONS ATN-PARSER::RESULT
4023
                                                                                               |OrderCondition|)))
4024
                                                                               (|OrderClause.6| ATN-PARSER::RESULT-INDEX))
4025
                                                                             (SETF |OrderCondition| |OrderCondition517|))))
4026
                                                                        (T (SETF *ATN-TERM?* '|OrderCondition|)
4027
                                                                         (|OrderClause.2| ATN-PARSER::INDEX)))))))
4028
                                 (|OrderClause/fail.3| (ATN-PARSER::INDEX)
4029
                                   (%ATN-NODE-BLOCK |OrderClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
4030
                                 (|OrderClause/OrderClause.2.4| (ATN-PARSER::INDEX)
4031
                                   (%ATN-NODE-BLOCK |OrderClause/OrderClause.2.4|
4032
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:BY)
4033
                                                                     (COND
4034
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:BY)
4035
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:BY)
4036
                                                                       (|OrderClause/OrderClause.2.5| (1+ ATN-PARSER::INDEX)))
4037
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:BY)
4038
                                                                       (|OrderClause/fail.3| ATN-PARSER::INDEX))))))
4039
                                 (|OrderClause/OrderClause.2.5| (ATN-PARSER::INDEX)
4040
                                   (%ATN-NODE-BLOCK |OrderClause/OrderClause.2.5|
4041
                                                    (%ATN-EDGE-BLOCK (PUSH |OrderCondition|)
4042
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4043
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition|
4044
                                                                                                  ATN-PARSER::INDEX)
4045
                                                                       (COND
4046
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|OrderCondition|)
4047
                                                                         (LET ((|OrderCondition516| |OrderCondition|))
4048
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4049
                                                                             (DESTRUCTURING-BIND
4050
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4051
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4052
                                                                               (WHEN ATN-PARSER::RESULT
4053
                                                                                 (SETF |OrderCondition|
4054
                                                                                         (CONS ATN-PARSER::RESULT
4055
                                                                                               |OrderCondition|)))
4056
                                                                               (|OrderClause.6| ATN-PARSER::RESULT-INDEX))
4057
                                                                             (SETF |OrderCondition| |OrderCondition516|))))
4058
                                                                        (T (SETF *ATN-TERM?* '|OrderCondition|)
4059
                                                                         (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))
4060
                                 (|OrderClause/start.1| (ATN-PARSER::INDEX)
4061
                                   (%ATN-NODE-BLOCK |OrderClause/start.1|
4062
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:ORDER)
4063
                                                                     (COND
4064
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:ORDER)
4065
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:ORDER)
4066
                                                                       (|OrderClause/OrderClause.2.4| (1+ ATN-PARSER::INDEX)))
4067
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:ORDER)
4068
                                                                       (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))
4069
                          (|OrderClause/start.1| ATN-PARSER::INDEX)
4070
                          (SETF *ATN-NODE NIL)
4071
                          NIL
4072
                          (IF ATN-PARSER::ATN-STRUCTURE
4073
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
4074
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
4075
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderClause| ATN-PARSER::INDEX *ATN-STACK))))
4076
 (PROGN
4077
  (DEFVAR |OrderCondition-INDEX|)
4078
  (DEFUN |OrderCondition|
4079
         (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|Constraint| NIL) (|OrderDirection| NIL) (|Var| NIL))
4080
    "{24} OrderCondition ::= ((OrderDirection BrackettedExpression) | Constraint | Var)
4081
 (|BrackettedExpression| |Constraint| |OrderDirection| |Var|)"
4082
    (DECLARE (SPECIAL |OrderCondition-INDEX|))
4083
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderCondition-INDEX| *ATN-LEVEL))
4084
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
4085
    (IF (< |OrderCondition-INDEX| ATN-PARSER::INDEX)
4086
        (LET ((|OrderCondition-INDEX| ATN-PARSER::INDEX)
4087
              (*ATN-LEVEL (1+ *ATN-LEVEL))
4088
              (*ATN-STACK (CONS '|OrderCondition| *ATN-STACK))
4089
              (ATN-PARSER::ATN-STRUCTURE NIL))
4090
          (DECLARE (SPECIAL |OrderCondition-INDEX|))
4091
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
4092
          (DECLARE (TYPE CONS *ATN-STACK))
4093
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
4094
            (%ATN-BLOCK |OrderCondition|
4095
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
4096
                                   (SETF *ATN-TERM* '|OrderCondition|)
4097
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
4098
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
4099
                                   ATN-PARSER::INDEX)
4100
                                 (|OrderCondition.2| (ATN-PARSER::INDEX)
4101
                                   (%ATN-NODE-BLOCK |OrderCondition.2|
4102
                                                    (%ATN-EDGE-BLOCK (POP |OrderCondition|)
4103
                                                                     (WHEN T
4104
                                                                       (SETF *ATN-TERM* '|OrderCondition|)
4105
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
4106
                                                                                   '|OrderCondition| ATN-PARSER::INDEX
4107
                                                                                   (LIST '|BrackettedExpression|
4108
                                                                                         |BrackettedExpression| '|Constraint|
4109
                                                                                         |Constraint| '|OrderDirection|
4110
                                                                                         |OrderDirection| '|Var| |Var|))
4111
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
4112
                                                                              (IF (EQ *ATN-REDUCE* T)
4113
                                                                                  (|OrderCondition-Constructor|
4114
                                                                                   |BrackettedExpression| |Constraint|
4115
                                                                                   |OrderDirection| |Var|)
4116
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
4117
                                                                                      (CONS '|OrderCondition|
4118
                                                                                            (DELETE NIL
4119
                                                                                                    (LIST |BrackettedExpression|
4120
                                                                                                          |Constraint|
4121
                                                                                                          |OrderDirection| |Var|)))
4122
                                                                                      '|OrderCondition|))))
4123
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
4124
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
4125
                                 (|OrderCondition/fail.3| (ATN-PARSER::INDEX)
4126
                                   (%ATN-NODE-BLOCK |OrderCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
4127
                                 (|OrderCondition/OrderCondition.2.4| (ATN-PARSER::INDEX)
4128
                                   (%ATN-NODE-BLOCK |OrderCondition/OrderCondition.2.4|
4129
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |OrderDirection|)
4130
                                                                     (COND
4131
                                                                      ((|IS-OrderDirection| ATN-PARSER::|item|)
4132
                                                                       (SETF *ATN-TERM* '|OrderDirection|)
4133
                                                                       (SETF |OrderDirection|
4134
                                                                               (IF (EQ *ATN-REDUCE* T)
4135
                                                                                   (ATN-REDUCE-ITEM #'|OrderDirection-Constructor|
4136
                                                                                                    ATN-PARSER::|item|)
4137
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
4138
                                                                                       (LIST '|OrderDirection| ATN-PARSER::|item|)
4139
                                                                                       '|OrderDirection|)))
4140
                                                                       (|OrderCondition/OrderCondition.2.5| (1+ ATN-PARSER::INDEX)))
4141
                                                                      (T (SETF *ATN-TERM* '|OrderDirection|) NIL)))))
4142
                                 (|OrderCondition/OrderCondition.2.5| (ATN-PARSER::INDEX)
4143
                                   (%ATN-NODE-BLOCK |OrderCondition/OrderCondition.2.5|
4144
                                                    (%ATN-EDGE-BLOCK (PUSH |BrackettedExpression|)
4145
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4146
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression|
4147
                                                                                                  ATN-PARSER::INDEX)
4148
                                                                       (COND
4149
                                                                        (ATN-PARSER::SUCCESS
4150
                                                                         (SETF *ATN-TERM* '|BrackettedExpression|)
4151
                                                                         (LET ((|BrackettedExpression519| |BrackettedExpression|))
4152
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4153
                                                                             (DESTRUCTURING-BIND
4154
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4155
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4156
                                                                               (WHEN ATN-PARSER::RESULT
4157
                                                                                 (SETF |BrackettedExpression| ATN-PARSER::RESULT))
4158
                                                                               (|OrderCondition.2| ATN-PARSER::RESULT-INDEX))
4159
                                                                             (SETF |BrackettedExpression|
4160
                                                                                     |BrackettedExpression519|))))
4161
                                                                        (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))))
4162
                                 (|OrderCondition/start.1| (ATN-PARSER::INDEX)
4163
                                   (%ATN-NODE-BLOCK |OrderCondition/start.1|
4164
                                                    (%ATN-EDGE-BLOCK OR
4165
                                                                     (PROGN
4166
                                                                      (%ATN-EDGE-BLOCK
4167
                                                                       (ATN-PARSER::JUMP |OrderCondition/OrderCondition.2.4|)
4168
                                                                       (|OrderCondition/OrderCondition.2.4| ATN-PARSER::INDEX))
4169
                                                                      (%ATN-EDGE-BLOCK (PUSH |Constraint|)
4170
                                                                                       (MULTIPLE-VALUE-BIND
4171
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4172
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Constraint|
4173
                                                                                                                    ATN-PARSER::INDEX)
4174
                                                                                         (COND
4175
                                                                                          (ATN-PARSER::SUCCESS
4176
                                                                                           (SETF *ATN-TERM* '|Constraint|)
4177
                                                                                           (LET ((|Constraint518| |Constraint|))
4178
                                                                                             (DOLIST
4179
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
4180
                                                                                                  ATN-PARSER::RESULT)
4181
                                                                                               (DESTRUCTURING-BIND
4182
                                                                                                   (
4183
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4184
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
4185
                                                                                                 (WHEN ATN-PARSER::RESULT
4186
                                                                                                   (SETF |Constraint|
4187
                                                                                                           ATN-PARSER::RESULT))
4188
                                                                                                 (|OrderCondition.2|
4189
                                                                                                  ATN-PARSER::RESULT-INDEX))
4190
                                                                                               (SETF |Constraint|
4191
                                                                                                       |Constraint518|))))
4192
                                                                                          (T (SETF *ATN-TERM?* '|Constraint|)
4193
                                                                                           NIL))))
4194
                                                                      (%ATN-EDGE-BLOCK (TEST |Var|)
4195
                                                                                       (COND
4196
                                                                                        ((|IS-Var| ATN-PARSER::|item|)
4197
                                                                                         (SETF *ATN-TERM* '|Var|)
4198
                                                                                         (SETF |Var|
4199
                                                                                                 (IF (EQ *ATN-REDUCE* T)
4200
                                                                                                     (ATN-REDUCE-ITEM
4201
                                                                                                      #'|Var-Constructor|
4202
                                                                                                      ATN-PARSER::|item|)
4203
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
4204
                                                                                                         (LIST '|Var|
4205
                                                                                                               ATN-PARSER::|item|)
4206
                                                                                                         '|Var|)))
4207
                                                                                         (|OrderCondition.2|
4208
                                                                                          (1+ ATN-PARSER::INDEX)))
4209
                                                                                        (T (SETF *ATN-TERM?* '|Var|) NIL)))
4210
                                                                      (|OrderCondition/fail.3| ATN-PARSER::INDEX))))))
4211
                          (|OrderCondition/start.1| ATN-PARSER::INDEX)
4212
                          (SETF *ATN-NODE NIL)
4213
                          NIL
4214
                          (IF ATN-PARSER::ATN-STRUCTURE
4215
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
4216
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
4217
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderCondition| ATN-PARSER::INDEX *ATN-STACK))))
4218
 (PROGN
4219
  (DEFVAR |LimitOffsetClauses-INDEX|)
4220
  (DEFUN |LimitOffsetClauses| (ATN-PARSER::INDEX &AUX (|LimitClause| NIL) (|OffsetClause| NIL))
4221
    "{25} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause
4222
                                                              LimitClause?)))
4223
 (|LimitClause| |OffsetClause|)"
4224
    (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))
4225
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitOffsetClauses-INDEX| *ATN-LEVEL))
4226
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
4227
    (IF (< |LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)
4228
        (LET ((|LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)
4229
              (*ATN-LEVEL (1+ *ATN-LEVEL))
4230
              (*ATN-STACK (CONS '|LimitOffsetClauses| *ATN-STACK))
4231
              (ATN-PARSER::ATN-STRUCTURE NIL))
4232
          (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))
4233
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
4234
          (DECLARE (TYPE CONS *ATN-STACK))
4235
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
4236
            (%ATN-BLOCK |LimitOffsetClauses|
4237
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
4238
                                   (SETF *ATN-TERM* '|LimitOffsetClauses|)
4239
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
4240
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
4241
                                   ATN-PARSER::INDEX)
4242
                                 (|LimitOffsetClauses.2| (ATN-PARSER::INDEX)
4243
                                   (%ATN-NODE-BLOCK |LimitOffsetClauses.2|
4244
                                                    (%ATN-EDGE-BLOCK (POP |LimitOffsetClauses|)
4245
                                                                     (WHEN T
4246
                                                                       (SETF *ATN-TERM* '|LimitOffsetClauses|)
4247
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
4248
                                                                                   '|LimitOffsetClauses| ATN-PARSER::INDEX
4249
                                                                                   (LIST '|LimitClause| |LimitClause|
4250
                                                                                         '|OffsetClause| |OffsetClause|))
4251
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
4252
                                                                              (IF (EQ *ATN-REDUCE* T)
4253
                                                                                  (|LimitOffsetClauses-Constructor| |LimitClause|
4254
                                                                                                                    |OffsetClause|)
4255
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
4256
                                                                                      (CONS '|LimitOffsetClauses|
4257
                                                                                            (DELETE NIL
4258
                                                                                                    (LIST |LimitClause|
4259
                                                                                                          |OffsetClause|)))
4260
                                                                                      '|LimitOffsetClauses|))))
4261
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
4262
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
4263
                                 (|LimitOffsetClauses/fail.3| (ATN-PARSER::INDEX)
4264
                                   (%ATN-NODE-BLOCK |LimitOffsetClauses/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
4265
                                 (|LimitOffsetClauses/LimitOffsetClauses.2.4| (ATN-PARSER::INDEX)
4266
                                   (%ATN-NODE-BLOCK |LimitOffsetClauses/LimitOffsetClauses.2.4|
4267
                                                    (%ATN-EDGE-BLOCK (PUSH |LimitClause|)
4268
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4269
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)
4270
                                                                       (COND
4271
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|LimitClause|)
4272
                                                                         (LET ((|LimitClause523| |LimitClause|))
4273
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4274
                                                                             (DESTRUCTURING-BIND
4275
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4276
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4277
                                                                               (WHEN ATN-PARSER::RESULT
4278
                                                                                 (SETF |LimitClause| ATN-PARSER::RESULT))
4279
                                                                               (|LimitOffsetClauses/LimitOffsetClauses.2.5|
4280
                                                                                ATN-PARSER::RESULT-INDEX))
4281
                                                                             (SETF |LimitClause| |LimitClause523|))))
4282
                                                                        (T (SETF *ATN-TERM?* '|LimitClause|) NIL))))))
4283
                                 (|LimitOffsetClauses/LimitOffsetClauses.2.5| (ATN-PARSER::INDEX)
4284
                                   (%ATN-NODE-BLOCK |LimitOffsetClauses/LimitOffsetClauses.2.5|
4285
                                                    (%ATN-EDGE-BLOCK (PUSH |OffsetClause|)
4286
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4287
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)
4288
                                                                       (COND
4289
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|OffsetClause|)
4290
                                                                         (LET ((|OffsetClause522| |OffsetClause|))
4291
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4292
                                                                             (DESTRUCTURING-BIND
4293
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4294
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4295
                                                                               (WHEN ATN-PARSER::RESULT
4296
                                                                                 (SETF |OffsetClause| ATN-PARSER::RESULT))
4297
                                                                               (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))
4298
                                                                             (SETF |OffsetClause| |OffsetClause522|))))
4299
                                                                        (T (SETF *ATN-TERM?* '|OffsetClause|)
4300
                                                                         (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))
4301
                                 (|LimitOffsetClauses/LimitOffsetClauses.2.6| (ATN-PARSER::INDEX)
4302
                                   (%ATN-NODE-BLOCK |LimitOffsetClauses/LimitOffsetClauses.2.6|
4303
                                                    (%ATN-EDGE-BLOCK (PUSH |OffsetClause|)
4304
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4305
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)
4306
                                                                       (COND
4307
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|OffsetClause|)
4308
                                                                         (LET ((|OffsetClause521| |OffsetClause|))
4309
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4310
                                                                             (DESTRUCTURING-BIND
4311
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4312
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4313
                                                                               (WHEN ATN-PARSER::RESULT
4314
                                                                                 (SETF |OffsetClause| ATN-PARSER::RESULT))
4315
                                                                               (|LimitOffsetClauses/LimitOffsetClauses.2.7|
4316
                                                                                ATN-PARSER::RESULT-INDEX))
4317
                                                                             (SETF |OffsetClause| |OffsetClause521|))))
4318
                                                                        (T (SETF *ATN-TERM?* '|OffsetClause|) NIL))))))
4319
                                 (|LimitOffsetClauses/LimitOffsetClauses.2.7| (ATN-PARSER::INDEX)
4320
                                   (%ATN-NODE-BLOCK |LimitOffsetClauses/LimitOffsetClauses.2.7|
4321
                                                    (%ATN-EDGE-BLOCK (PUSH |LimitClause|)
4322
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4323
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)
4324
                                                                       (COND
4325
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|LimitClause|)
4326
                                                                         (LET ((|LimitClause520| |LimitClause|))
4327
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4328
                                                                             (DESTRUCTURING-BIND
4329
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4330
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4331
                                                                               (WHEN ATN-PARSER::RESULT
4332
                                                                                 (SETF |LimitClause| ATN-PARSER::RESULT))
4333
                                                                               (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))
4334
                                                                             (SETF |LimitClause| |LimitClause520|))))
4335
                                                                        (T (SETF *ATN-TERM?* '|LimitClause|)
4336
                                                                         (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))
4337
                                 (|LimitOffsetClauses/start.1| (ATN-PARSER::INDEX)
4338
                                   (%ATN-NODE-BLOCK |LimitOffsetClauses/start.1|
4339
                                                    (%ATN-EDGE-BLOCK OR
4340
                                                                     (PROGN
4341
                                                                      (%ATN-EDGE-BLOCK
4342
                                                                       (ATN-PARSER::JUMP
4343
                                                                        |LimitOffsetClauses/LimitOffsetClauses.2.4|)
4344
                                                                       (|LimitOffsetClauses/LimitOffsetClauses.2.4|
4345
                                                                        ATN-PARSER::INDEX))
4346
                                                                      (%ATN-EDGE-BLOCK
4347
                                                                       (ATN-PARSER::JUMP
4348
                                                                        |LimitOffsetClauses/LimitOffsetClauses.2.6|)
4349
                                                                       (|LimitOffsetClauses/LimitOffsetClauses.2.6|
4350
                                                                        ATN-PARSER::INDEX))
4351
                                                                      (|LimitOffsetClauses/fail.3| ATN-PARSER::INDEX))))))
4352
                          (|LimitOffsetClauses/start.1| ATN-PARSER::INDEX)
4353
                          (SETF *ATN-NODE NIL)
4354
                          NIL
4355
                          (IF ATN-PARSER::ATN-STRUCTURE
4356
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
4357
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
4358
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitOffsetClauses| ATN-PARSER::INDEX *ATN-STACK))))
4359
 (PROGN
4360
  (DEFVAR |LimitClause-INDEX|)
4361
  (DEFUN |LimitClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))
4362
    "{26} LimitClause ::= 'LIMIT' INTEGER
4363
 (INTEGER)"
4364
    (DECLARE (SPECIAL |LimitClause-INDEX|))
4365
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitClause-INDEX| *ATN-LEVEL))
4366
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
4367
    (IF (< |LimitClause-INDEX| ATN-PARSER::INDEX)
4368
        (LET ((|LimitClause-INDEX| ATN-PARSER::INDEX)
4369
              (*ATN-LEVEL (1+ *ATN-LEVEL))
4370
              (*ATN-STACK (CONS '|LimitClause| *ATN-STACK))
4371
              (ATN-PARSER::ATN-STRUCTURE NIL))
4372
          (DECLARE (SPECIAL |LimitClause-INDEX|))
4373
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
4374
          (DECLARE (TYPE CONS *ATN-STACK))
4375
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
4376
            (%ATN-BLOCK |LimitClause|
4377
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
4378
                                   (SETF *ATN-TERM* '|LimitClause|)
4379
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
4380
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
4381
                                   ATN-PARSER::INDEX)
4382
                                 (|LimitClause.2| (ATN-PARSER::INDEX)
4383
                                   (%ATN-NODE-BLOCK |LimitClause.2|
4384
                                                    (%ATN-EDGE-BLOCK (POP |LimitClause|)
4385
                                                                     (WHEN T
4386
                                                                       (SETF *ATN-TERM* '|LimitClause|)
4387
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
4388
                                                                                   '|LimitClause| ATN-PARSER::INDEX
4389
                                                                                   (LIST 'INTEGER INTEGER))
4390
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
4391
                                                                              (IF (EQ *ATN-REDUCE* T)
4392
                                                                                  (|LimitClause-Constructor| INTEGER)
4393
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
4394
                                                                                      (CONS '|LimitClause|
4395
                                                                                            (DELETE NIL (LIST INTEGER)))
4396
                                                                                      '|LimitClause|))))
4397
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
4398
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
4399
                                 (|LimitClause/fail.3| (ATN-PARSER::INDEX)
4400
                                   (%ATN-NODE-BLOCK |LimitClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
4401
                                 (|LimitClause/LimitClause.2.4| (ATN-PARSER::INDEX)
4402
                                   (%ATN-NODE-BLOCK |LimitClause/LimitClause.2.4|
4403
                                                    (%ATN-EDGE-BLOCK (TEST INTEGER)
4404
                                                                     (COND
4405
                                                                      ((IS-INTEGER ATN-PARSER::|item|) (SETF *ATN-TERM* 'INTEGER)
4406
                                                                       (SETF INTEGER
4407
                                                                               (IF (EQ *ATN-REDUCE* T)
4408
                                                                                   (ATN-REDUCE-ITEM #'|INTEGER-Constructor|
4409
                                                                                                    ATN-PARSER::|item|)
4410
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
4411
                                                                                       (LIST 'INTEGER ATN-PARSER::|item|)
4412
                                                                                       'INTEGER)))
4413
                                                                       (|LimitClause.2| (1+ ATN-PARSER::INDEX)))
4414
                                                                      (T (SETF *ATN-TERM?* 'INTEGER)
4415
                                                                       (|LimitClause/fail.3| ATN-PARSER::INDEX))))))
4416
                                 (|LimitClause/start.1| (ATN-PARSER::INDEX)
4417
                                   (%ATN-NODE-BLOCK |LimitClause/start.1|
4418
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:LIMIT)
4419
                                                                     (COND
4420
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:LIMIT)
4421
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:LIMIT)
4422
                                                                       (|LimitClause/LimitClause.2.4| (1+ ATN-PARSER::INDEX)))
4423
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:LIMIT)
4424
                                                                       (|LimitClause/fail.3| ATN-PARSER::INDEX)))))))
4425
                          (|LimitClause/start.1| ATN-PARSER::INDEX)
4426
                          (SETF *ATN-NODE NIL)
4427
                          NIL
4428
                          (IF ATN-PARSER::ATN-STRUCTURE
4429
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
4430
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
4431
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitClause| ATN-PARSER::INDEX *ATN-STACK))))
4432
 (PROGN
4433
  (DEFVAR |OffsetClause-INDEX|)
4434
  (DEFUN |OffsetClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))
4435
    "{27} OffsetClause ::= 'OFFSET' INTEGER
4436
 (INTEGER)"
4437
    (DECLARE (SPECIAL |OffsetClause-INDEX|))
4438
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OffsetClause-INDEX| *ATN-LEVEL))
4439
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
4440
    (IF (< |OffsetClause-INDEX| ATN-PARSER::INDEX)
4441
        (LET ((|OffsetClause-INDEX| ATN-PARSER::INDEX)
4442
              (*ATN-LEVEL (1+ *ATN-LEVEL))
4443
              (*ATN-STACK (CONS '|OffsetClause| *ATN-STACK))
4444
              (ATN-PARSER::ATN-STRUCTURE NIL))
4445
          (DECLARE (SPECIAL |OffsetClause-INDEX|))
4446
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
4447
          (DECLARE (TYPE CONS *ATN-STACK))
4448
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
4449
            (%ATN-BLOCK |OffsetClause|
4450
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
4451
                                   (SETF *ATN-TERM* '|OffsetClause|)
4452
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
4453
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
4454
                                   ATN-PARSER::INDEX)
4455
                                 (|OffsetClause.2| (ATN-PARSER::INDEX)
4456
                                   (%ATN-NODE-BLOCK |OffsetClause.2|
4457
                                                    (%ATN-EDGE-BLOCK (POP |OffsetClause|)
4458
                                                                     (WHEN T
4459
                                                                       (SETF *ATN-TERM* '|OffsetClause|)
4460
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
4461
                                                                                   '|OffsetClause| ATN-PARSER::INDEX
4462
                                                                                   (LIST 'INTEGER INTEGER))
4463
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
4464
                                                                              (IF (EQ *ATN-REDUCE* T)
4465
                                                                                  (|OffsetClause-Constructor| INTEGER)
4466
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
4467
                                                                                      (CONS '|OffsetClause|
4468
                                                                                            (DELETE NIL (LIST INTEGER)))
4469
                                                                                      '|OffsetClause|))))
4470
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
4471
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
4472
                                 (|OffsetClause/fail.3| (ATN-PARSER::INDEX)
4473
                                   (%ATN-NODE-BLOCK |OffsetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
4474
                                 (|OffsetClause/OffsetClause.2.4| (ATN-PARSER::INDEX)
4475
                                   (%ATN-NODE-BLOCK |OffsetClause/OffsetClause.2.4|
4476
                                                    (%ATN-EDGE-BLOCK (TEST INTEGER)
4477
                                                                     (COND
4478
                                                                      ((IS-INTEGER ATN-PARSER::|item|) (SETF *ATN-TERM* 'INTEGER)
4479
                                                                       (SETF INTEGER
4480
                                                                               (IF (EQ *ATN-REDUCE* T)
4481
                                                                                   (ATN-REDUCE-ITEM #'|INTEGER-Constructor|
4482
                                                                                                    ATN-PARSER::|item|)
4483
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
4484
                                                                                       (LIST 'INTEGER ATN-PARSER::|item|)
4485
                                                                                       'INTEGER)))
4486
                                                                       (|OffsetClause.2| (1+ ATN-PARSER::INDEX)))
4487
                                                                      (T (SETF *ATN-TERM?* 'INTEGER)
4488
                                                                       (|OffsetClause/fail.3| ATN-PARSER::INDEX))))))
4489
                                 (|OffsetClause/start.1| (ATN-PARSER::INDEX)
4490
                                   (%ATN-NODE-BLOCK |OffsetClause/start.1|
4491
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:OFFSET)
4492
                                                                     (COND
4493
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:OFFSET)
4494
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:OFFSET)
4495
                                                                       (|OffsetClause/OffsetClause.2.4| (1+ ATN-PARSER::INDEX)))
4496
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:OFFSET)
4497
                                                                       (|OffsetClause/fail.3| ATN-PARSER::INDEX)))))))
4498
                          (|OffsetClause/start.1| ATN-PARSER::INDEX)
4499
                          (SETF *ATN-NODE NIL)
4500
                          NIL
4501
                          (IF ATN-PARSER::ATN-STRUCTURE
4502
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
4503
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
4504
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|OffsetClause| ATN-PARSER::INDEX *ATN-STACK))))
4505
 (PROGN
4506
  (DEFVAR |FieldClause-INDEX|)
4507
  (DEFUN |FieldClause| (ATN-PARSER::INDEX &AUX (|BindingsClause| NIL) (|ValuesClause| NIL))
4508
    "{28pre} FieldClause ::= (BindingsClause | ValuesClause)
4509
 (|BindingsClause| |ValuesClause|)"
4510
    (DECLARE (SPECIAL |FieldClause-INDEX|))
4511
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |FieldClause-INDEX| *ATN-LEVEL))
4512
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
4513
    (IF (< |FieldClause-INDEX| ATN-PARSER::INDEX)
4514
        (LET ((|FieldClause-INDEX| ATN-PARSER::INDEX)
4515
              (*ATN-LEVEL (1+ *ATN-LEVEL))
4516
              (*ATN-STACK (CONS '|FieldClause| *ATN-STACK))
4517
              (ATN-PARSER::ATN-STRUCTURE NIL))
4518
          (DECLARE (SPECIAL |FieldClause-INDEX|))
4519
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
4520
          (DECLARE (TYPE CONS *ATN-STACK))
4521
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
4522
            (%ATN-BLOCK |FieldClause|
4523
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
4524
                                   (SETF *ATN-TERM* '|FieldClause|)
4525
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
4526
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
4527
                                   ATN-PARSER::INDEX)
4528
                                 (|FieldClause.2| (ATN-PARSER::INDEX)
4529
                                   (%ATN-NODE-BLOCK |FieldClause.2|
4530
                                                    (%ATN-EDGE-BLOCK (POP |FieldClause|)
4531
                                                                     (WHEN T
4532
                                                                       (SETF *ATN-TERM* '|FieldClause|)
4533
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
4534
                                                                                   '|FieldClause| ATN-PARSER::INDEX
4535
                                                                                   (LIST '|BindingsClause| |BindingsClause|
4536
                                                                                         '|ValuesClause| |ValuesClause|))
4537
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
4538
                                                                              (IF (EQ *ATN-REDUCE* T)
4539
                                                                                  (|FieldClause-Constructor| |BindingsClause|
4540
                                                                                                             |ValuesClause|)
4541
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
4542
                                                                                      (CONS '|FieldClause|
4543
                                                                                            (DELETE NIL
4544
                                                                                                    (LIST |BindingsClause|
4545
                                                                                                          |ValuesClause|)))
4546
                                                                                      '|FieldClause|))))
4547
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
4548
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
4549
                                 (|FieldClause/fail.3| (ATN-PARSER::INDEX)
4550
                                   (%ATN-NODE-BLOCK |FieldClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
4551
                                 (|FieldClause/start.1| (ATN-PARSER::INDEX)
4552
                                   (%ATN-NODE-BLOCK |FieldClause/start.1|
4553
                                                    (%ATN-EDGE-BLOCK OR
4554
                                                                     (PROGN
4555
                                                                      (%ATN-EDGE-BLOCK (PUSH |BindingsClause|)
4556
                                                                                       (MULTIPLE-VALUE-BIND
4557
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4558
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
4559
                                                                                            '|BindingsClause| ATN-PARSER::INDEX)
4560
                                                                                         (COND
4561
                                                                                          (ATN-PARSER::SUCCESS
4562
                                                                                           (SETF *ATN-TERM* '|BindingsClause|)
4563
                                                                                           (LET ((|BindingsClause524|
4564
                                                                                                  |BindingsClause|))
4565
                                                                                             (DOLIST
4566
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
4567
                                                                                                  ATN-PARSER::RESULT)
4568
                                                                                               (DESTRUCTURING-BIND
4569
                                                                                                   (
4570
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4571
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
4572
                                                                                                 (WHEN ATN-PARSER::RESULT
4573
                                                                                                   (SETF |BindingsClause|
4574
                                                                                                           ATN-PARSER::RESULT))
4575
                                                                                                 (|FieldClause.2|
4576
                                                                                                  ATN-PARSER::RESULT-INDEX))
4577
                                                                                               (SETF |BindingsClause|
4578
                                                                                                       |BindingsClause524|))))
4579
                                                                                          (T (SETF *ATN-TERM?* '|BindingsClause|)
4580
                                                                                           NIL))))
4581
                                                                      (%ATN-EDGE-BLOCK (PUSH |ValuesClause|)
4582
                                                                                       (MULTIPLE-VALUE-BIND
4583
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4584
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|ValuesClause|
4585
                                                                                                                    ATN-PARSER::INDEX)
4586
                                                                                         (COND
4587
                                                                                          (ATN-PARSER::SUCCESS
4588
                                                                                           (SETF *ATN-TERM* '|ValuesClause|)
4589
                                                                                           (LET ((|ValuesClause525| |ValuesClause|))
4590
                                                                                             (DOLIST
4591
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
4592
                                                                                                  ATN-PARSER::RESULT)
4593
                                                                                               (DESTRUCTURING-BIND
4594
                                                                                                   (
4595
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4596
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
4597
                                                                                                 (WHEN ATN-PARSER::RESULT
4598
                                                                                                   (SETF |ValuesClause|
4599
                                                                                                           ATN-PARSER::RESULT))
4600
                                                                                                 (|FieldClause.2|
4601
                                                                                                  ATN-PARSER::RESULT-INDEX))
4602
                                                                                               (SETF |ValuesClause|
4603
                                                                                                       |ValuesClause525|))))
4604
                                                                                          (T (SETF *ATN-TERM?* '|ValuesClause|)
4605
                                                                                           NIL))))
4606
                                                                      (|FieldClause/fail.3| ATN-PARSER::INDEX))))))
4607
                          (|FieldClause/start.1| ATN-PARSER::INDEX)
4608
                          (SETF *ATN-NODE NIL)
4609
                          NIL
4610
                          (IF ATN-PARSER::ATN-STRUCTURE
4611
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
4612
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
4613
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|FieldClause| ATN-PARSER::INDEX *ATN-STACK))))
4614
 (PROGN
4615
  (DEFVAR |BindingsClause-INDEX|)
4616
  (DEFUN |BindingsClause| (ATN-PARSER::INDEX &AUX (|BindingList| NIL) (|Var| NIL))
4617
    "{28} BindingsClause ::= 'BINDINGS' Var* '{' BindingList* '}'
4618
 (|BindingList| |Var|)"
4619
    (DECLARE (SPECIAL |BindingsClause-INDEX|))
4620
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BindingsClause-INDEX| *ATN-LEVEL))
4621
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
4622
    (IF (< |BindingsClause-INDEX| ATN-PARSER::INDEX)
4623
        (LET ((|BindingsClause-INDEX| ATN-PARSER::INDEX)
4624
              (*ATN-LEVEL (1+ *ATN-LEVEL))
4625
              (*ATN-STACK (CONS '|BindingsClause| *ATN-STACK))
4626
              (ATN-PARSER::ATN-STRUCTURE NIL))
4627
          (DECLARE (SPECIAL |BindingsClause-INDEX|))
4628
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
4629
          (DECLARE (TYPE CONS *ATN-STACK))
4630
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
4631
            (%ATN-BLOCK |BindingsClause|
4632
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
4633
                                   (SETF *ATN-TERM* '|BindingsClause|)
4634
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
4635
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
4636
                                   ATN-PARSER::INDEX)
4637
                                 (|BindingsClause.2| (ATN-PARSER::INDEX)
4638
                                   (%ATN-NODE-BLOCK |BindingsClause.2|
4639
                                                    (%ATN-EDGE-BLOCK (POP |BindingsClause|)
4640
                                                                     (WHEN T
4641
                                                                       (SETF *ATN-TERM* '|BindingsClause|)
4642
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
4643
                                                                                   '|BindingsClause| ATN-PARSER::INDEX
4644
                                                                                   (LIST '|BindingList| |BindingList| '|Var| |Var|))
4645
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
4646
                                                                              (IF (EQ *ATN-REDUCE* T)
4647
                                                                                  (|BindingsClause-Constructor| |BindingList| |Var|)
4648
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
4649
                                                                                      (CONS '|BindingsClause|
4650
                                                                                            (DELETE NIL (LIST |BindingList| |Var|)))
4651
                                                                                      '|BindingsClause|))))
4652
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
4653
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
4654
                                 (|BindingsClause.8| (ATN-PARSER::INDEX)
4655
                                   (%ATN-NODE-BLOCK |BindingsClause.8|
4656
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
4657
                                                                     (COND
4658
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
4659
                                                                       (SETF |Var|
4660
                                                                               (CONS
4661
                                                                                (IF (EQ *ATN-REDUCE* T)
4662
                                                                                    (ATN-REDUCE-ITEM #'|Var-Constructor|
4663
                                                                                                     ATN-PARSER::|item|)
4664
                                                                                    (IF (EQ *ATN-REDUCE* 'CONS)
4665
                                                                                        (LIST '|Var| ATN-PARSER::|item|)
4666
                                                                                        '|Var|))
4667
                                                                                |Var|))
4668
                                                                       (|BindingsClause.8| (1+ ATN-PARSER::INDEX)))
4669
                                                                      (T (SETF *ATN-TERM?* '|Var|)
4670
                                                                       (|BindingsClause/BindingsClause.2.5| ATN-PARSER::INDEX))))))
4671
                                 (|BindingsClause.9| (ATN-PARSER::INDEX)
4672
                                   (%ATN-NODE-BLOCK |BindingsClause.9|
4673
                                                    (%ATN-EDGE-BLOCK (PUSH |BindingList|)
4674
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4675
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BindingList| ATN-PARSER::INDEX)
4676
                                                                       (COND
4677
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|BindingList|)
4678
                                                                         (LET ((|BindingList527| |BindingList|))
4679
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4680
                                                                             (DESTRUCTURING-BIND
4681
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4682
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4683
                                                                               (WHEN ATN-PARSER::RESULT
4684
                                                                                 (SETF |BindingList|
4685
                                                                                         (CONS ATN-PARSER::RESULT |BindingList|)))
4686
                                                                               (|BindingsClause.9| ATN-PARSER::RESULT-INDEX))
4687
                                                                             (SETF |BindingList| |BindingList527|))))
4688
                                                                        (T (SETF *ATN-TERM?* '|BindingList|)
4689
                                                                         (|BindingsClause/BindingsClause.2.7|
4690
                                                                          ATN-PARSER::INDEX)))))))
4691
                                 (|BindingsClause/BindingsClause.2.4| (ATN-PARSER::INDEX)
4692
                                   (%ATN-NODE-BLOCK |BindingsClause/BindingsClause.2.4|
4693
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
4694
                                                                     (COND
4695
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
4696
                                                                       (SETF |Var|
4697
                                                                               (CONS
4698
                                                                                (IF (EQ *ATN-REDUCE* T)
4699
                                                                                    (ATN-REDUCE-ITEM #'|Var-Constructor|
4700
                                                                                                     ATN-PARSER::|item|)
4701
                                                                                    (IF (EQ *ATN-REDUCE* 'CONS)
4702
                                                                                        (LIST '|Var| ATN-PARSER::|item|)
4703
                                                                                        '|Var|))
4704
                                                                                |Var|))
4705
                                                                       (|BindingsClause.8| (1+ ATN-PARSER::INDEX)))
4706
                                                                      (T (SETF *ATN-TERM?* '|Var|)
4707
                                                                       (|BindingsClause/BindingsClause.2.5| ATN-PARSER::INDEX))))))
4708
                                 (|BindingsClause/BindingsClause.2.5| (ATN-PARSER::INDEX)
4709
                                   (%ATN-NODE-BLOCK |BindingsClause/BindingsClause.2.5|
4710
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
4711
                                                                     (COND
4712
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
4713
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
4714
                                                                       (|BindingsClause/BindingsClause.2.6| (1+ ATN-PARSER::INDEX)))
4715
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{)
4716
                                                                       (|BindingsClause/fail.3| ATN-PARSER::INDEX))))))
4717
                                 (|BindingsClause/BindingsClause.2.6| (ATN-PARSER::INDEX)
4718
                                   (%ATN-NODE-BLOCK |BindingsClause/BindingsClause.2.6|
4719
                                                    (%ATN-EDGE-BLOCK (PUSH |BindingList|)
4720
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4721
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BindingList| ATN-PARSER::INDEX)
4722
                                                                       (COND
4723
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|BindingList|)
4724
                                                                         (LET ((|BindingList526| |BindingList|))
4725
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4726
                                                                             (DESTRUCTURING-BIND
4727
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4728
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4729
                                                                               (WHEN ATN-PARSER::RESULT
4730
                                                                                 (SETF |BindingList|
4731
                                                                                         (CONS ATN-PARSER::RESULT |BindingList|)))
4732
                                                                               (|BindingsClause.9| ATN-PARSER::RESULT-INDEX))
4733
                                                                             (SETF |BindingList| |BindingList526|))))
4734
                                                                        (T (SETF *ATN-TERM?* '|BindingList|)
4735
                                                                         (|BindingsClause/BindingsClause.2.7|
4736
                                                                          ATN-PARSER::INDEX)))))))
4737
                                 (|BindingsClause/BindingsClause.2.7| (ATN-PARSER::INDEX)
4738
                                   (%ATN-NODE-BLOCK |BindingsClause/BindingsClause.2.7|
4739
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
4740
                                                                     (COND
4741
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
4742
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
4743
                                                                       (|BindingsClause.2| (1+ ATN-PARSER::INDEX)))
4744
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:})
4745
                                                                       (|BindingsClause/fail.3| ATN-PARSER::INDEX))))))
4746
                                 (|BindingsClause/fail.3| (ATN-PARSER::INDEX)
4747
                                   (%ATN-NODE-BLOCK |BindingsClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
4748
                                 (|BindingsClause/start.1| (ATN-PARSER::INDEX)
4749
                                   (%ATN-NODE-BLOCK |BindingsClause/start.1|
4750
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:BINDINGS)
4751
                                                                     (COND
4752
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:BINDINGS)
4753
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:BINDINGS)
4754
                                                                       (|BindingsClause/BindingsClause.2.4| (1+ ATN-PARSER::INDEX)))
4755
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:BINDINGS)
4756
                                                                       (|BindingsClause/fail.3| ATN-PARSER::INDEX)))))))
4757
                          (|BindingsClause/start.1| ATN-PARSER::INDEX)
4758
                          (SETF *ATN-NODE NIL)
4759
                          NIL
4760
                          (IF ATN-PARSER::ATN-STRUCTURE
4761
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
4762
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
4763
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BindingsClause| ATN-PARSER::INDEX *ATN-STACK))))
4764
 (PROGN
4765
  (DEFVAR |BindingList-INDEX|)
4766
  (DEFUN |BindingList| (ATN-PARSER::INDEX &AUX (|BindingValue| NIL))
4767
    "{28a} BindingList ::= '(' BindingValue* ')'
4768
 (|BindingValue|)"
4769
    (DECLARE (SPECIAL |BindingList-INDEX|))
4770
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BindingList-INDEX| *ATN-LEVEL))
4771
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
4772
    (IF (< |BindingList-INDEX| ATN-PARSER::INDEX)
4773
        (LET ((|BindingList-INDEX| ATN-PARSER::INDEX)
4774
              (*ATN-LEVEL (1+ *ATN-LEVEL))
4775
              (*ATN-STACK (CONS '|BindingList| *ATN-STACK))
4776
              (ATN-PARSER::ATN-STRUCTURE NIL))
4777
          (DECLARE (SPECIAL |BindingList-INDEX|))
4778
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
4779
          (DECLARE (TYPE CONS *ATN-STACK))
4780
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
4781
            (%ATN-BLOCK |BindingList|
4782
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
4783
                                   (SETF *ATN-TERM* '|BindingList|)
4784
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
4785
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
4786
                                   ATN-PARSER::INDEX)
4787
                                 (|BindingList.2| (ATN-PARSER::INDEX)
4788
                                   (%ATN-NODE-BLOCK |BindingList.2|
4789
                                                    (%ATN-EDGE-BLOCK (POP |BindingList|)
4790
                                                                     (WHEN T
4791
                                                                       (SETF *ATN-TERM* '|BindingList|)
4792
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
4793
                                                                                   '|BindingList| ATN-PARSER::INDEX
4794
                                                                                   (LIST '|BindingValue| |BindingValue|))
4795
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
4796
                                                                              (IF (EQ *ATN-REDUCE* T)
4797
                                                                                  (|BindingList-Constructor| |BindingValue|)
4798
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
4799
                                                                                      (CONS '|BindingList|
4800
                                                                                            (DELETE NIL (LIST |BindingValue|)))
4801
                                                                                      '|BindingList|))))
4802
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
4803
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
4804
                                 (|BindingList.6| (ATN-PARSER::INDEX)
4805
                                   (%ATN-NODE-BLOCK |BindingList.6|
4806
                                                    (%ATN-EDGE-BLOCK (PUSH |BindingValue|)
4807
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4808
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BindingValue| ATN-PARSER::INDEX)
4809
                                                                       (COND
4810
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|BindingValue|)
4811
                                                                         (LET ((|BindingValue529| |BindingValue|))
4812
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4813
                                                                             (DESTRUCTURING-BIND
4814
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4815
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4816
                                                                               (WHEN ATN-PARSER::RESULT
4817
                                                                                 (SETF |BindingValue|
4818
                                                                                         (CONS ATN-PARSER::RESULT |BindingValue|)))
4819
                                                                               (|BindingList.6| ATN-PARSER::RESULT-INDEX))
4820
                                                                             (SETF |BindingValue| |BindingValue529|))))
4821
                                                                        (T (SETF *ATN-TERM?* '|BindingValue|)
4822
                                                                         (|BindingList/BindingList.2.5| ATN-PARSER::INDEX)))))))
4823
                                 (|BindingList/BindingList.2.4| (ATN-PARSER::INDEX)
4824
                                   (%ATN-NODE-BLOCK |BindingList/BindingList.2.4|
4825
                                                    (%ATN-EDGE-BLOCK (PUSH |BindingValue|)
4826
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4827
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BindingValue| ATN-PARSER::INDEX)
4828
                                                                       (COND
4829
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|BindingValue|)
4830
                                                                         (LET ((|BindingValue528| |BindingValue|))
4831
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
4832
                                                                             (DESTRUCTURING-BIND
4833
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4834
                                                                                 ATN-PARSER::RESULT-AND-INDEX
4835
                                                                               (WHEN ATN-PARSER::RESULT
4836
                                                                                 (SETF |BindingValue|
4837
                                                                                         (CONS ATN-PARSER::RESULT |BindingValue|)))
4838
                                                                               (|BindingList.6| ATN-PARSER::RESULT-INDEX))
4839
                                                                             (SETF |BindingValue| |BindingValue528|))))
4840
                                                                        (T (SETF *ATN-TERM?* '|BindingValue|)
4841
                                                                         (|BindingList/BindingList.2.5| ATN-PARSER::INDEX)))))))
4842
                                 (|BindingList/BindingList.2.5| (ATN-PARSER::INDEX)
4843
                                   (%ATN-NODE-BLOCK |BindingList/BindingList.2.5|
4844
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
4845
                                                                     (COND
4846
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
4847
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
4848
                                                                       (|BindingList.2| (1+ ATN-PARSER::INDEX)))
4849
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
4850
                                                                       (|BindingList/fail.3| ATN-PARSER::INDEX))))))
4851
                                 (|BindingList/fail.3| (ATN-PARSER::INDEX)
4852
                                   (%ATN-NODE-BLOCK |BindingList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
4853
                                 (|BindingList/start.1| (ATN-PARSER::INDEX)
4854
                                   (%ATN-NODE-BLOCK |BindingList/start.1|
4855
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
4856
                                                                     (COND
4857
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
4858
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
4859
                                                                       (|BindingList/BindingList.2.4| (1+ ATN-PARSER::INDEX)))
4860
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
4861
                                                                       (|BindingList/fail.3| ATN-PARSER::INDEX)))))))
4862
                          (|BindingList/start.1| ATN-PARSER::INDEX)
4863
                          (SETF *ATN-NODE NIL)
4864
                          NIL
4865
                          (IF ATN-PARSER::ATN-STRUCTURE
4866
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
4867
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
4868
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BindingList| ATN-PARSER::INDEX *ATN-STACK))))
4869
 (PROGN
4870
  (DEFVAR |BindingValue-INDEX|)
4871
  (DEFUN |BindingValue|
4872
         (ATN-PARSER::INDEX &AUX (|BooleanLiteral| NIL) (|IRIref| NIL) (|NumericLiteral| NIL) (|RDFLiteral| NIL) (|Undef| NIL))
4873
    "{29} BindingValue ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | Undef)
4874
 (|BooleanLiteral| |IRIref| |NumericLiteral| |RDFLiteral| |Undef|)"
4875
    (DECLARE (SPECIAL |BindingValue-INDEX|))
4876
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BindingValue-INDEX| *ATN-LEVEL))
4877
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
4878
    (IF (< |BindingValue-INDEX| ATN-PARSER::INDEX)
4879
        (LET ((|BindingValue-INDEX| ATN-PARSER::INDEX)
4880
              (*ATN-LEVEL (1+ *ATN-LEVEL))
4881
              (*ATN-STACK (CONS '|BindingValue| *ATN-STACK))
4882
              (ATN-PARSER::ATN-STRUCTURE NIL))
4883
          (DECLARE (SPECIAL |BindingValue-INDEX|))
4884
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
4885
          (DECLARE (TYPE CONS *ATN-STACK))
4886
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
4887
            (%ATN-BLOCK |BindingValue|
4888
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
4889
                                   (SETF *ATN-TERM* '|BindingValue|)
4890
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
4891
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
4892
                                   ATN-PARSER::INDEX)
4893
                                 (|BindingValue.2| (ATN-PARSER::INDEX)
4894
                                   (%ATN-NODE-BLOCK |BindingValue.2|
4895
                                                    (%ATN-EDGE-BLOCK (POP |BindingValue|)
4896
                                                                     (WHEN T
4897
                                                                       (SETF *ATN-TERM* '|BindingValue|)
4898
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
4899
                                                                                   '|BindingValue| ATN-PARSER::INDEX
4900
                                                                                   (LIST '|BooleanLiteral| |BooleanLiteral|
4901
                                                                                         '|IRIref| |IRIref| '|NumericLiteral|
4902
                                                                                         |NumericLiteral| '|RDFLiteral| |RDFLiteral|
4903
                                                                                         '|Undef| |Undef|))
4904
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
4905
                                                                              (IF (EQ *ATN-REDUCE* T)
4906
                                                                                  (|BindingValue-Constructor| |BooleanLiteral|
4907
                                                                                                              |IRIref|
4908
                                                                                                              |NumericLiteral|
4909
                                                                                                              |RDFLiteral| |Undef|)
4910
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
4911
                                                                                      (CONS '|BindingValue|
4912
                                                                                            (DELETE NIL
4913
                                                                                                    (LIST |BooleanLiteral| |IRIref|
4914
                                                                                                          |NumericLiteral|
4915
                                                                                                          |RDFLiteral| |Undef|)))
4916
                                                                                      '|BindingValue|))))
4917
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
4918
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
4919
                                 (|BindingValue/fail.3| (ATN-PARSER::INDEX)
4920
                                   (%ATN-NODE-BLOCK |BindingValue/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
4921
                                 (|BindingValue/start.1| (ATN-PARSER::INDEX)
4922
                                   (%ATN-NODE-BLOCK |BindingValue/start.1|
4923
                                                    (%ATN-EDGE-BLOCK OR
4924
                                                                     (PROGN
4925
                                                                      (%ATN-EDGE-BLOCK (PUSH |IRIref|)
4926
                                                                                       (MULTIPLE-VALUE-BIND
4927
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4928
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|IRIref|
4929
                                                                                                                    ATN-PARSER::INDEX)
4930
                                                                                         (COND
4931
                                                                                          (ATN-PARSER::SUCCESS
4932
                                                                                           (SETF *ATN-TERM* '|IRIref|)
4933
                                                                                           (LET ((|IRIref530| |IRIref|))
4934
                                                                                             (DOLIST
4935
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
4936
                                                                                                  ATN-PARSER::RESULT)
4937
                                                                                               (DESTRUCTURING-BIND
4938
                                                                                                   (
4939
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4940
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
4941
                                                                                                 (WHEN ATN-PARSER::RESULT
4942
                                                                                                   (SETF |IRIref|
4943
                                                                                                           ATN-PARSER::RESULT))
4944
                                                                                                 (|BindingValue.2|
4945
                                                                                                  ATN-PARSER::RESULT-INDEX))
4946
                                                                                               (SETF |IRIref| |IRIref530|))))
4947
                                                                                          (T (SETF *ATN-TERM?* '|IRIref|) NIL))))
4948
                                                                      (%ATN-EDGE-BLOCK (PUSH |RDFLiteral|)
4949
                                                                                       (MULTIPLE-VALUE-BIND
4950
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
4951
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral|
4952
                                                                                                                    ATN-PARSER::INDEX)
4953
                                                                                         (COND
4954
                                                                                          (ATN-PARSER::SUCCESS
4955
                                                                                           (SETF *ATN-TERM* '|RDFLiteral|)
4956
                                                                                           (LET ((|RDFLiteral531| |RDFLiteral|))
4957
                                                                                             (DOLIST
4958
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
4959
                                                                                                  ATN-PARSER::RESULT)
4960
                                                                                               (DESTRUCTURING-BIND
4961
                                                                                                   (
4962
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
4963
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
4964
                                                                                                 (WHEN ATN-PARSER::RESULT
4965
                                                                                                   (SETF |RDFLiteral|
4966
                                                                                                           ATN-PARSER::RESULT))
4967
                                                                                                 (|BindingValue.2|
4968
                                                                                                  ATN-PARSER::RESULT-INDEX))
4969
                                                                                               (SETF |RDFLiteral|
4970
                                                                                                       |RDFLiteral531|))))
4971
                                                                                          (T (SETF *ATN-TERM?* '|RDFLiteral|)
4972
                                                                                           NIL))))
4973
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |NumericLiteral|)
4974
                                                                                       (COND
4975
                                                                                        ((|IS-NumericLiteral| ATN-PARSER::|item|)
4976
                                                                                         (SETF *ATN-TERM* '|NumericLiteral|)
4977
                                                                                         (SETF |NumericLiteral|
4978
                                                                                                 (IF (EQ *ATN-REDUCE* T)
4979
                                                                                                     (ATN-REDUCE-ITEM
4980
                                                                                                      #'|NumericLiteral-Constructor|
4981
                                                                                                      ATN-PARSER::|item|)
4982
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
4983
                                                                                                         (LIST '|NumericLiteral|
4984
                                                                                                               ATN-PARSER::|item|)
4985
                                                                                                         '|NumericLiteral|)))
4986
                                                                                         (|BindingValue.2| (1+ ATN-PARSER::INDEX)))
4987
                                                                                        (T (SETF *ATN-TERM* '|NumericLiteral|)
4988
                                                                                         NIL)))
4989
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |BooleanLiteral|)
4990
                                                                                       (COND
4991
                                                                                        ((|IS-BooleanLiteral| ATN-PARSER::|item|)
4992
                                                                                         (SETF *ATN-TERM* '|BooleanLiteral|)
4993
                                                                                         (SETF |BooleanLiteral|
4994
                                                                                                 (IF (EQ *ATN-REDUCE* T)
4995
                                                                                                     (ATN-REDUCE-ITEM
4996
                                                                                                      #'|BooleanLiteral-Constructor|
4997
                                                                                                      ATN-PARSER::|item|)
4998
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
4999
                                                                                                         (LIST '|BooleanLiteral|
5000
                                                                                                               ATN-PARSER::|item|)
5001
                                                                                                         '|BooleanLiteral|)))
5002
                                                                                         (|BindingValue.2| (1+ ATN-PARSER::INDEX)))
5003
                                                                                        (T (SETF *ATN-TERM* '|BooleanLiteral|)
5004
                                                                                         NIL)))
5005
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Undef|)
5006
                                                                                       (COND
5007
                                                                                        ((|IS-Undef| ATN-PARSER::|item|)
5008
                                                                                         (SETF *ATN-TERM* '|Undef|)
5009
                                                                                         (SETF |Undef|
5010
                                                                                                 (IF (EQ *ATN-REDUCE* T)
5011
                                                                                                     (ATN-REDUCE-ITEM
5012
                                                                                                      #'|Undef-Constructor|
5013
                                                                                                      ATN-PARSER::|item|)
5014
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
5015
                                                                                                         (LIST '|Undef|
5016
                                                                                                               ATN-PARSER::|item|)
5017
                                                                                                         '|Undef|)))
5018
                                                                                         (|BindingValue.2| (1+ ATN-PARSER::INDEX)))
5019
                                                                                        (T (SETF *ATN-TERM* '|Undef|) NIL)))
5020
                                                                      (|BindingValue/fail.3| ATN-PARSER::INDEX))))))
5021
                          (|BindingValue/start.1| ATN-PARSER::INDEX)
5022
                          (SETF *ATN-NODE NIL)
5023
                          NIL
5024
                          (IF ATN-PARSER::ATN-STRUCTURE
5025
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
5026
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
5027
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BindingValue| ATN-PARSER::INDEX *ATN-STACK))))
5028
 (PROGN
5029
  (DEFVAR |ValuesClause-INDEX|)
5030
  (DEFUN |ValuesClause| (ATN-PARSER::INDEX &AUX (|ValuesData| NIL))
5031
    "{28x} ValuesClause ::= 'VALUES' ValuesData
5032
 (|ValuesData|)"
5033
    (DECLARE (SPECIAL |ValuesClause-INDEX|))
5034
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ValuesClause-INDEX| *ATN-LEVEL))
5035
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
5036
    (IF (< |ValuesClause-INDEX| ATN-PARSER::INDEX)
5037
        (LET ((|ValuesClause-INDEX| ATN-PARSER::INDEX)
5038
              (*ATN-LEVEL (1+ *ATN-LEVEL))
5039
              (*ATN-STACK (CONS '|ValuesClause| *ATN-STACK))
5040
              (ATN-PARSER::ATN-STRUCTURE NIL))
5041
          (DECLARE (SPECIAL |ValuesClause-INDEX|))
5042
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
5043
          (DECLARE (TYPE CONS *ATN-STACK))
5044
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
5045
            (%ATN-BLOCK |ValuesClause|
5046
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
5047
                                   (SETF *ATN-TERM* '|ValuesClause|)
5048
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
5049
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
5050
                                   ATN-PARSER::INDEX)
5051
                                 (|ValuesClause.2| (ATN-PARSER::INDEX)
5052
                                   (%ATN-NODE-BLOCK |ValuesClause.2|
5053
                                                    (%ATN-EDGE-BLOCK (POP |ValuesClause|)
5054
                                                                     (WHEN T
5055
                                                                       (SETF *ATN-TERM* '|ValuesClause|)
5056
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
5057
                                                                                   '|ValuesClause| ATN-PARSER::INDEX
5058
                                                                                   (LIST '|ValuesData| |ValuesData|))
5059
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
5060
                                                                              (IF (EQ *ATN-REDUCE* T)
5061
                                                                                  (|ValuesClause-Constructor| |ValuesData|)
5062
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
5063
                                                                                      (CONS '|ValuesClause|
5064
                                                                                            (DELETE NIL (LIST |ValuesData|)))
5065
                                                                                      '|ValuesClause|))))
5066
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
5067
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
5068
                                 (|ValuesClause/fail.3| (ATN-PARSER::INDEX)
5069
                                   (%ATN-NODE-BLOCK |ValuesClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
5070
                                 (|ValuesClause/start.1| (ATN-PARSER::INDEX)
5071
                                   (%ATN-NODE-BLOCK |ValuesClause/start.1|
5072
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:VALUES)
5073
                                                                     (COND
5074
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:VALUES)
5075
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:VALUES)
5076
                                                                       (|ValuesClause/ValuesClause.2.4| (1+ ATN-PARSER::INDEX)))
5077
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:VALUES)
5078
                                                                       (|ValuesClause/fail.3| ATN-PARSER::INDEX))))))
5079
                                 (|ValuesClause/ValuesClause.2.4| (ATN-PARSER::INDEX)
5080
                                   (%ATN-NODE-BLOCK |ValuesClause/ValuesClause.2.4|
5081
                                                    (%ATN-EDGE-BLOCK (PUSH |ValuesData|)
5082
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5083
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ValuesData| ATN-PARSER::INDEX)
5084
                                                                       (COND
5085
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ValuesData|)
5086
                                                                         (LET ((|ValuesData532| |ValuesData|))
5087
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5088
                                                                             (DESTRUCTURING-BIND
5089
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5090
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5091
                                                                               (WHEN ATN-PARSER::RESULT
5092
                                                                                 (SETF |ValuesData| ATN-PARSER::RESULT))
5093
                                                                               (|ValuesClause.2| ATN-PARSER::RESULT-INDEX))
5094
                                                                             (SETF |ValuesData| |ValuesData532|))))
5095
                                                                        (T (SETF *ATN-TERM?* '|ValuesData|)
5096
                                                                         (|ValuesClause/fail.3| ATN-PARSER::INDEX))))))))
5097
                          (|ValuesClause/start.1| ATN-PARSER::INDEX)
5098
                          (SETF *ATN-NODE NIL)
5099
                          NIL
5100
                          (IF ATN-PARSER::ATN-STRUCTURE
5101
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
5102
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
5103
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ValuesClause| ATN-PARSER::INDEX *ATN-STACK))))
5104
 (PROGN
5105
  (DEFVAR |ValuesData-INDEX|)
5106
  (DEFUN |ValuesData| (ATN-PARSER::INDEX &AUX (|BindingList| NIL) (|BindingValue| NIL) (|Var| NIL) (|VarList| NIL))
5107
    "{28y} ValuesData ::= (('(' VarList ')' '{' BindingList* '}') | (Var '{'
5108
                                                                 BindingValue*
5109
                                                                 '}'))
5110
 (|BindingList| |BindingValue| |Var| |VarList|)"
5111
    (DECLARE (SPECIAL |ValuesData-INDEX|))
5112
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ValuesData-INDEX| *ATN-LEVEL))
5113
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
5114
    (IF (< |ValuesData-INDEX| ATN-PARSER::INDEX)
5115
        (LET ((|ValuesData-INDEX| ATN-PARSER::INDEX)
5116
              (*ATN-LEVEL (1+ *ATN-LEVEL))
5117
              (*ATN-STACK (CONS '|ValuesData| *ATN-STACK))
5118
              (ATN-PARSER::ATN-STRUCTURE NIL))
5119
          (DECLARE (SPECIAL |ValuesData-INDEX|))
5120
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
5121
          (DECLARE (TYPE CONS *ATN-STACK))
5122
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
5123
            (%ATN-BLOCK |ValuesData|
5124
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
5125
                                   (SETF *ATN-TERM* '|ValuesData|)
5126
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
5127
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
5128
                                   ATN-PARSER::INDEX)
5129
                                 (|ValuesData.10| (ATN-PARSER::INDEX)
5130
                                   (%ATN-NODE-BLOCK |ValuesData.10|
5131
                                                    (%ATN-EDGE-BLOCK (PUSH |BindingList|)
5132
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5133
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BindingList| ATN-PARSER::INDEX)
5134
                                                                       (COND
5135
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|BindingList|)
5136
                                                                         (LET ((|BindingList536| |BindingList|))
5137
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5138
                                                                             (DESTRUCTURING-BIND
5139
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5140
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5141
                                                                               (WHEN ATN-PARSER::RESULT
5142
                                                                                 (SETF |BindingList|
5143
                                                                                         (CONS ATN-PARSER::RESULT |BindingList|)))
5144
                                                                               (|ValuesData.10| ATN-PARSER::RESULT-INDEX))
5145
                                                                             (SETF |BindingList| |BindingList536|))))
5146
                                                                        (T (SETF *ATN-TERM?* '|BindingList|)
5147
                                                                         (|ValuesData/ValuesData.2.9| ATN-PARSER::INDEX)))))))
5148
                                 (|ValuesData.15| (ATN-PARSER::INDEX)
5149
                                   (%ATN-NODE-BLOCK |ValuesData.15|
5150
                                                    (%ATN-EDGE-BLOCK (PUSH |BindingValue|)
5151
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5152
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BindingValue| ATN-PARSER::INDEX)
5153
                                                                       (COND
5154
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|BindingValue|)
5155
                                                                         (LET ((|BindingValue534| |BindingValue|))
5156
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5157
                                                                             (DESTRUCTURING-BIND
5158
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5159
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5160
                                                                               (WHEN ATN-PARSER::RESULT
5161
                                                                                 (SETF |BindingValue|
5162
                                                                                         (CONS ATN-PARSER::RESULT |BindingValue|)))
5163
                                                                               (|ValuesData.15| ATN-PARSER::RESULT-INDEX))
5164
                                                                             (SETF |BindingValue| |BindingValue534|))))
5165
                                                                        (T (SETF *ATN-TERM?* '|BindingValue|)
5166
                                                                         (|ValuesData/ValuesData.2.14| ATN-PARSER::INDEX)))))))
5167
                                 (|ValuesData.2| (ATN-PARSER::INDEX)
5168
                                   (%ATN-NODE-BLOCK |ValuesData.2|
5169
                                                    (%ATN-EDGE-BLOCK (POP |ValuesData|)
5170
                                                                     (WHEN T
5171
                                                                       (SETF *ATN-TERM* '|ValuesData|)
5172
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
5173
                                                                                   '|ValuesData| ATN-PARSER::INDEX
5174
                                                                                   (LIST '|BindingList| |BindingList|
5175
                                                                                         '|BindingValue| |BindingValue| '|Var| |Var|
5176
                                                                                         '|VarList| |VarList|))
5177
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
5178
                                                                              (IF (EQ *ATN-REDUCE* T)
5179
                                                                                  (|ValuesData-Constructor| |BindingList|
5180
                                                                                                            |BindingValue| |Var|
5181
                                                                                                            |VarList|)
5182
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
5183
                                                                                      (CONS '|ValuesData|
5184
                                                                                            (DELETE NIL
5185
                                                                                                    (LIST |BindingList|
5186
                                                                                                          |BindingValue| |Var|
5187
                                                                                                          |VarList|)))
5188
                                                                                      '|ValuesData|))))
5189
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
5190
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
5191
                                 (|ValuesData/fail.3| (ATN-PARSER::INDEX)
5192
                                   (%ATN-NODE-BLOCK |ValuesData/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
5193
                                 (|ValuesData/start.1| (ATN-PARSER::INDEX)
5194
                                   (%ATN-NODE-BLOCK |ValuesData/start.1|
5195
                                                    (%ATN-EDGE-BLOCK OR
5196
                                                                     (PROGN
5197
                                                                      (%ATN-EDGE-BLOCK
5198
                                                                       (ATN-PARSER::JUMP |ValuesData/ValuesData.2.4|)
5199
                                                                       (|ValuesData/ValuesData.2.4| ATN-PARSER::INDEX))
5200
                                                                      (%ATN-EDGE-BLOCK
5201
                                                                       (ATN-PARSER::JUMP |ValuesData/ValuesData.2.11|)
5202
                                                                       (|ValuesData/ValuesData.2.11| ATN-PARSER::INDEX))
5203
                                                                      (|ValuesData/fail.3| ATN-PARSER::INDEX)))))
5204
                                 (|ValuesData/ValuesData.2.11| (ATN-PARSER::INDEX)
5205
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.11|
5206
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
5207
                                                                     (COND
5208
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
5209
                                                                       (SETF |Var|
5210
                                                                               (IF (EQ *ATN-REDUCE* T)
5211
                                                                                   (ATN-REDUCE-ITEM #'|Var-Constructor|
5212
                                                                                                    ATN-PARSER::|item|)
5213
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
5214
                                                                                       (LIST '|Var| ATN-PARSER::|item|)
5215
                                                                                       '|Var|)))
5216
                                                                       (|ValuesData/ValuesData.2.12| (1+ ATN-PARSER::INDEX)))
5217
                                                                      (T (SETF *ATN-TERM?* '|Var|) NIL)))))
5218
                                 (|ValuesData/ValuesData.2.12| (ATN-PARSER::INDEX)
5219
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.12|
5220
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
5221
                                                                     (COND
5222
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
5223
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
5224
                                                                       (|ValuesData/ValuesData.2.13| (1+ ATN-PARSER::INDEX)))
5225
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{) NIL)))))
5226
                                 (|ValuesData/ValuesData.2.13| (ATN-PARSER::INDEX)
5227
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.13|
5228
                                                    (%ATN-EDGE-BLOCK (PUSH |BindingValue|)
5229
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5230
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BindingValue| ATN-PARSER::INDEX)
5231
                                                                       (COND
5232
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|BindingValue|)
5233
                                                                         (LET ((|BindingValue533| |BindingValue|))
5234
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5235
                                                                             (DESTRUCTURING-BIND
5236
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5237
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5238
                                                                               (WHEN ATN-PARSER::RESULT
5239
                                                                                 (SETF |BindingValue|
5240
                                                                                         (CONS ATN-PARSER::RESULT |BindingValue|)))
5241
                                                                               (|ValuesData.15| ATN-PARSER::RESULT-INDEX))
5242
                                                                             (SETF |BindingValue| |BindingValue533|))))
5243
                                                                        (T (SETF *ATN-TERM?* '|BindingValue|)
5244
                                                                         (|ValuesData/ValuesData.2.14| ATN-PARSER::INDEX)))))))
5245
                                 (|ValuesData/ValuesData.2.14| (ATN-PARSER::INDEX)
5246
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.14|
5247
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
5248
                                                                     (COND
5249
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
5250
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
5251
                                                                       (|ValuesData.2| (1+ ATN-PARSER::INDEX)))
5252
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:}) NIL)))))
5253
                                 (|ValuesData/ValuesData.2.4| (ATN-PARSER::INDEX)
5254
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.4|
5255
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
5256
                                                                     (COND
5257
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
5258
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
5259
                                                                       (|ValuesData/ValuesData.2.5| (1+ ATN-PARSER::INDEX)))
5260
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|) NIL)))))
5261
                                 (|ValuesData/ValuesData.2.5| (ATN-PARSER::INDEX)
5262
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.5|
5263
                                                    (%ATN-EDGE-BLOCK (PUSH |VarList|)
5264
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5265
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarList| ATN-PARSER::INDEX)
5266
                                                                       (COND
5267
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarList|)
5268
                                                                         (LET ((|VarList537| |VarList|))
5269
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5270
                                                                             (DESTRUCTURING-BIND
5271
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5272
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5273
                                                                               (WHEN ATN-PARSER::RESULT
5274
                                                                                 (SETF |VarList| ATN-PARSER::RESULT))
5275
                                                                               (|ValuesData/ValuesData.2.6|
5276
                                                                                ATN-PARSER::RESULT-INDEX))
5277
                                                                             (SETF |VarList| |VarList537|))))
5278
                                                                        (T (SETF *ATN-TERM?* '|VarList|) NIL))))))
5279
                                 (|ValuesData/ValuesData.2.6| (ATN-PARSER::INDEX)
5280
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.6|
5281
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
5282
                                                                     (COND
5283
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
5284
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
5285
                                                                       (|ValuesData/ValuesData.2.7| (1+ ATN-PARSER::INDEX)))
5286
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|) NIL)))))
5287
                                 (|ValuesData/ValuesData.2.7| (ATN-PARSER::INDEX)
5288
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.7|
5289
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
5290
                                                                     (COND
5291
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
5292
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
5293
                                                                       (|ValuesData/ValuesData.2.8| (1+ ATN-PARSER::INDEX)))
5294
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{) NIL)))))
5295
                                 (|ValuesData/ValuesData.2.8| (ATN-PARSER::INDEX)
5296
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.8|
5297
                                                    (%ATN-EDGE-BLOCK (PUSH |BindingList|)
5298
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5299
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BindingList| ATN-PARSER::INDEX)
5300
                                                                       (COND
5301
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|BindingList|)
5302
                                                                         (LET ((|BindingList535| |BindingList|))
5303
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5304
                                                                             (DESTRUCTURING-BIND
5305
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5306
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5307
                                                                               (WHEN ATN-PARSER::RESULT
5308
                                                                                 (SETF |BindingList|
5309
                                                                                         (CONS ATN-PARSER::RESULT |BindingList|)))
5310
                                                                               (|ValuesData.10| ATN-PARSER::RESULT-INDEX))
5311
                                                                             (SETF |BindingList| |BindingList535|))))
5312
                                                                        (T (SETF *ATN-TERM?* '|BindingList|)
5313
                                                                         (|ValuesData/ValuesData.2.9| ATN-PARSER::INDEX)))))))
5314
                                 (|ValuesData/ValuesData.2.9| (ATN-PARSER::INDEX)
5315
                                   (%ATN-NODE-BLOCK |ValuesData/ValuesData.2.9|
5316
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
5317
                                                                     (COND
5318
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
5319
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
5320
                                                                       (|ValuesData.2| (1+ ATN-PARSER::INDEX)))
5321
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:}) NIL))))))
5322
                          (|ValuesData/start.1| ATN-PARSER::INDEX)
5323
                          (SETF *ATN-NODE NIL)
5324
                          NIL
5325
                          (IF ATN-PARSER::ATN-STRUCTURE
5326
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
5327
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
5328
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ValuesData| ATN-PARSER::INDEX *ATN-STACK))))
5329
 (PROGN
5330
  (DEFVAR |VarList-INDEX|)
5331
  (DEFUN |VarList| (ATN-PARSER::INDEX &AUX (|Var| NIL))
5332
    "{28z} VarList ::= Var*
5333
 (|Var|)"
5334
    (DECLARE (SPECIAL |VarList-INDEX|))
5335
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarList-INDEX| *ATN-LEVEL))
5336
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
5337
    (IF (< |VarList-INDEX| ATN-PARSER::INDEX)
5338
        (LET ((|VarList-INDEX| ATN-PARSER::INDEX)
5339
              (*ATN-LEVEL (1+ *ATN-LEVEL))
5340
              (*ATN-STACK (CONS '|VarList| *ATN-STACK))
5341
              (ATN-PARSER::ATN-STRUCTURE NIL))
5342
          (DECLARE (SPECIAL |VarList-INDEX|))
5343
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
5344
          (DECLARE (TYPE CONS *ATN-STACK))
5345
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
5346
            (%ATN-BLOCK |VarList|
5347
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
5348
                                   (SETF *ATN-TERM* '|VarList|)
5349
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
5350
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
5351
                                   ATN-PARSER::INDEX)
5352
                                 (|VarList.2| (ATN-PARSER::INDEX)
5353
                                   (%ATN-NODE-BLOCK |VarList.2|
5354
                                                    (%ATN-EDGE-BLOCK (POP |VarList|)
5355
                                                                     (WHEN T
5356
                                                                       (SETF *ATN-TERM* '|VarList|)
5357
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|VarList|
5358
                                                                                   ATN-PARSER::INDEX (LIST '|Var| |Var|))
5359
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
5360
                                                                              (IF (EQ *ATN-REDUCE* T)
5361
                                                                                  (|VarList-Constructor| |Var|)
5362
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
5363
                                                                                      (CONS '|VarList| (DELETE NIL (LIST |Var|)))
5364
                                                                                      '|VarList|))))
5365
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
5366
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
5367
                                 (|VarList.4| (ATN-PARSER::INDEX)
5368
                                   (%ATN-NODE-BLOCK |VarList.4|
5369
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
5370
                                                                     (COND
5371
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
5372
                                                                       (SETF |Var|
5373
                                                                               (CONS
5374
                                                                                (IF (EQ *ATN-REDUCE* T)
5375
                                                                                    (ATN-REDUCE-ITEM #'|Var-Constructor|
5376
                                                                                                     ATN-PARSER::|item|)
5377
                                                                                    (IF (EQ *ATN-REDUCE* 'CONS)
5378
                                                                                        (LIST '|Var| ATN-PARSER::|item|)
5379
                                                                                        '|Var|))
5380
                                                                                |Var|))
5381
                                                                       (|VarList.4| (1+ ATN-PARSER::INDEX)))
5382
                                                                      (T (SETF *ATN-TERM?* '|Var|)
5383
                                                                       (|VarList.2| ATN-PARSER::INDEX))))))
5384
                                 (|VarList/fail.3| (ATN-PARSER::INDEX)
5385
                                   (%ATN-NODE-BLOCK |VarList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
5386
                                 (|VarList/start.1| (ATN-PARSER::INDEX)
5387
                                   (%ATN-NODE-BLOCK |VarList/start.1|
5388
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
5389
                                                                     (COND
5390
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
5391
                                                                       (SETF |Var|
5392
                                                                               (CONS
5393
                                                                                (IF (EQ *ATN-REDUCE* T)
5394
                                                                                    (ATN-REDUCE-ITEM #'|Var-Constructor|
5395
                                                                                                     ATN-PARSER::|item|)
5396
                                                                                    (IF (EQ *ATN-REDUCE* 'CONS)
5397
                                                                                        (LIST '|Var| ATN-PARSER::|item|)
5398
                                                                                        '|Var|))
5399
                                                                                |Var|))
5400
                                                                       (|VarList.4| (1+ ATN-PARSER::INDEX)))
5401
                                                                      (T (SETF *ATN-TERM?* '|Var|)
5402
                                                                       (|VarList.2| ATN-PARSER::INDEX)))))))
5403
                          (|VarList/start.1| ATN-PARSER::INDEX)
5404
                          (SETF *ATN-NODE NIL)
5405
                          NIL
5406
                          (IF ATN-PARSER::ATN-STRUCTURE
5407
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
5408
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
5409
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarList| ATN-PARSER::INDEX *ATN-STACK))))
5410
 (PROGN
5411
  (DEFVAR |Update-INDEX|)
5412
  (DEFUN |Update| (ATN-PARSER::INDEX &AUX (|Update| NIL) (|Update1| NIL))
5413
    "{30} Update ::= Update1 (';' Update?)?
5414
 (|Update| |Update1|)"
5415
    (DECLARE (SPECIAL |Update-INDEX|))
5416
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Update-INDEX| *ATN-LEVEL))
5417
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
5418
    (IF (< |Update-INDEX| ATN-PARSER::INDEX)
5419
        (LET ((|Update-INDEX| ATN-PARSER::INDEX)
5420
              (*ATN-LEVEL (1+ *ATN-LEVEL))
5421
              (*ATN-STACK (CONS '|Update| *ATN-STACK))
5422
              (ATN-PARSER::ATN-STRUCTURE NIL))
5423
          (DECLARE (SPECIAL |Update-INDEX|))
5424
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
5425
          (DECLARE (TYPE CONS *ATN-STACK))
5426
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
5427
            (%ATN-BLOCK |Update|
5428
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
5429
                                   (SETF *ATN-TERM* '|Update|)
5430
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
5431
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
5432
                                   ATN-PARSER::INDEX)
5433
                                 (|Update.2| (ATN-PARSER::INDEX)
5434
                                   (%ATN-NODE-BLOCK |Update.2|
5435
                                                    (%ATN-EDGE-BLOCK (POP |Update|)
5436
                                                                     (WHEN T
5437
                                                                       (SETF *ATN-TERM* '|Update|)
5438
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Update|
5439
                                                                                   ATN-PARSER::INDEX
5440
                                                                                   (LIST '|Update| |Update| '|Update1| |Update1|))
5441
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
5442
                                                                              (IF (EQ *ATN-REDUCE* T)
5443
                                                                                  (|Update-Constructor| |Update| |Update1|)
5444
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
5445
                                                                                      (CONS '|Update|
5446
                                                                                            (DELETE NIL (LIST |Update| |Update1|)))
5447
                                                                                      '|Update|))))
5448
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
5449
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
5450
                                 (|Update/fail.3| (ATN-PARSER::INDEX)
5451
                                   (%ATN-NODE-BLOCK |Update/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
5452
                                 (|Update/start.1| (ATN-PARSER::INDEX)
5453
                                   (%ATN-NODE-BLOCK |Update/start.1|
5454
                                                    (%ATN-EDGE-BLOCK (PUSH |Update1|)
5455
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5456
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Update1| ATN-PARSER::INDEX)
5457
                                                                       (COND
5458
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Update1|)
5459
                                                                         (LET ((|Update1539| |Update1|))
5460
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5461
                                                                             (DESTRUCTURING-BIND
5462
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5463
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5464
                                                                               (WHEN ATN-PARSER::RESULT
5465
                                                                                 (SETF |Update1| ATN-PARSER::RESULT))
5466
                                                                               (|Update/Update.2.4| ATN-PARSER::RESULT-INDEX))
5467
                                                                             (SETF |Update1| |Update1539|))))
5468
                                                                        (T (SETF *ATN-TERM?* '|Update1|)
5469
                                                                         (|Update/fail.3| ATN-PARSER::INDEX)))))))
5470
                                 (|Update/Update.2.4| (ATN-PARSER::INDEX)
5471
                                   (%ATN-NODE-BLOCK |Update/Update.2.4|
5472
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Update/Update.2.5|)
5473
                                                                     (|Update/Update.2.5| ATN-PARSER::INDEX))
5474
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Update.2|) (|Update.2| ATN-PARSER::INDEX))))
5475
                                 (|Update/Update.2.5| (ATN-PARSER::INDEX)
5476
                                   (%ATN-NODE-BLOCK |Update/Update.2.5|
5477
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|;|)
5478
                                                                     (COND
5479
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|;|)
5480
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|;|)
5481
                                                                       (|Update/Update.2.6| (1+ ATN-PARSER::INDEX)))
5482
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|;|) NIL)))))
5483
                                 (|Update/Update.2.6| (ATN-PARSER::INDEX)
5484
                                   (%ATN-NODE-BLOCK |Update/Update.2.6|
5485
                                                    (%ATN-EDGE-BLOCK (PUSH |Update|)
5486
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5487
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Update| ATN-PARSER::INDEX)
5488
                                                                       (COND
5489
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Update|)
5490
                                                                         (LET ((|Update538| |Update|))
5491
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5492
                                                                             (DESTRUCTURING-BIND
5493
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5494
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5495
                                                                               (WHEN ATN-PARSER::RESULT
5496
                                                                                 (SETF |Update| ATN-PARSER::RESULT))
5497
                                                                               (|Update.2| ATN-PARSER::RESULT-INDEX))
5498
                                                                             (SETF |Update| |Update538|))))
5499
                                                                        (T (SETF *ATN-TERM?* '|Update|)
5500
                                                                         (|Update.2| ATN-PARSER::INDEX))))))))
5501
                          (|Update/start.1| ATN-PARSER::INDEX)
5502
                          (SETF *ATN-NODE NIL)
5503
                          NIL
5504
                          (IF ATN-PARSER::ATN-STRUCTURE
5505
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
5506
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
5507
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Update| ATN-PARSER::INDEX *ATN-STACK))))
5508
 (PROGN
5509
  (DEFVAR |Update1-INDEX|)
5510
  (DEFUN |Update1|
5511
         (ATN-PARSER::INDEX
5512
          &AUX (|Add| NIL) (|Clear| NIL) (|Copy| NIL) (|Create| NIL) (|DeleteData| NIL) (|DeleteWhere| NIL) (|Drop| NIL)
5513
          (|InsertData| NIL) (|Load| NIL) (|Modify| NIL) (|Move| NIL))
5514
    "{31} Update1 ::= (Load | Clear | Drop | Add | Move | Copy | Create | InsertData | DeleteData | DeleteWhere | Modify)
5515
 (|Add| |Clear| |Copy| |Create| |DeleteData| |DeleteWhere| |Drop| |InsertData|
5516
        |Load| |Modify| |Move|)"
5517
    (DECLARE (SPECIAL |Update1-INDEX|))
5518
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Update1-INDEX| *ATN-LEVEL))
5519
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
5520
    (IF (< |Update1-INDEX| ATN-PARSER::INDEX)
5521
        (LET ((|Update1-INDEX| ATN-PARSER::INDEX)
5522
              (*ATN-LEVEL (1+ *ATN-LEVEL))
5523
              (*ATN-STACK (CONS '|Update1| *ATN-STACK))
5524
              (ATN-PARSER::ATN-STRUCTURE NIL))
5525
          (DECLARE (SPECIAL |Update1-INDEX|))
5526
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
5527
          (DECLARE (TYPE CONS *ATN-STACK))
5528
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
5529
            (%ATN-BLOCK |Update1|
5530
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
5531
                                   (SETF *ATN-TERM* '|Update1|)
5532
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
5533
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
5534
                                   ATN-PARSER::INDEX)
5535
                                 (|Update1.2| (ATN-PARSER::INDEX)
5536
                                   (%ATN-NODE-BLOCK |Update1.2|
5537
                                                    (%ATN-EDGE-BLOCK (POP |Update1|)
5538
                                                                     (WHEN T
5539
                                                                       (SETF *ATN-TERM* '|Update1|)
5540
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Update1|
5541
                                                                                   ATN-PARSER::INDEX
5542
                                                                                   (LIST '|Add| |Add| '|Clear| |Clear| '|Copy|
5543
                                                                                         |Copy| '|Create| |Create| '|DeleteData|
5544
                                                                                         |DeleteData| '|DeleteWhere| |DeleteWhere|
5545
                                                                                         '|Drop| |Drop| '|InsertData| |InsertData|
5546
                                                                                         '|Load| |Load| '|Modify| |Modify| '|Move|
5547
                                                                                         |Move|))
5548
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
5549
                                                                              (IF (EQ *ATN-REDUCE* T)
5550
                                                                                  (|Update1-Constructor| |Add| |Clear| |Copy|
5551
                                                                                                         |Create| |DeleteData|
5552
                                                                                                         |DeleteWhere| |Drop|
5553
                                                                                                         |InsertData| |Load|
5554
                                                                                                         |Modify| |Move|)
5555
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
5556
                                                                                      (CONS '|Update1|
5557
                                                                                            (DELETE NIL
5558
                                                                                                    (LIST |Add| |Clear| |Copy|
5559
                                                                                                          |Create| |DeleteData|
5560
                                                                                                          |DeleteWhere| |Drop|
5561
                                                                                                          |InsertData| |Load|
5562
                                                                                                          |Modify| |Move|)))
5563
                                                                                      '|Update1|))))
5564
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
5565
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
5566
                                 (|Update1/fail.3| (ATN-PARSER::INDEX)
5567
                                   (%ATN-NODE-BLOCK |Update1/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
5568
                                 (|Update1/start.1| (ATN-PARSER::INDEX)
5569
                                   (%ATN-NODE-BLOCK |Update1/start.1|
5570
                                                    (%ATN-EDGE-BLOCK OR
5571
                                                                     (PROGN
5572
                                                                      (%ATN-EDGE-BLOCK (PUSH |Load|)
5573
                                                                                       (MULTIPLE-VALUE-BIND
5574
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5575
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Load|
5576
                                                                                                                    ATN-PARSER::INDEX)
5577
                                                                                         (COND
5578
                                                                                          (ATN-PARSER::SUCCESS
5579
                                                                                           (SETF *ATN-TERM* '|Load|)
5580
                                                                                           (LET ((|Load540| |Load|))
5581
                                                                                             (DOLIST
5582
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5583
                                                                                                  ATN-PARSER::RESULT)
5584
                                                                                               (DESTRUCTURING-BIND
5585
                                                                                                   (
5586
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5587
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5588
                                                                                                 (WHEN ATN-PARSER::RESULT
5589
                                                                                                   (SETF |Load| ATN-PARSER::RESULT))
5590
                                                                                                 (|Update1.2|
5591
                                                                                                  ATN-PARSER::RESULT-INDEX))
5592
                                                                                               (SETF |Load| |Load540|))))
5593
                                                                                          (T (SETF *ATN-TERM?* '|Load|) NIL))))
5594
                                                                      (%ATN-EDGE-BLOCK (PUSH |Clear|)
5595
                                                                                       (MULTIPLE-VALUE-BIND
5596
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5597
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Clear|
5598
                                                                                                                    ATN-PARSER::INDEX)
5599
                                                                                         (COND
5600
                                                                                          (ATN-PARSER::SUCCESS
5601
                                                                                           (SETF *ATN-TERM* '|Clear|)
5602
                                                                                           (LET ((|Clear541| |Clear|))
5603
                                                                                             (DOLIST
5604
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5605
                                                                                                  ATN-PARSER::RESULT)
5606
                                                                                               (DESTRUCTURING-BIND
5607
                                                                                                   (
5608
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5609
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5610
                                                                                                 (WHEN ATN-PARSER::RESULT
5611
                                                                                                   (SETF |Clear|
5612
                                                                                                           ATN-PARSER::RESULT))
5613
                                                                                                 (|Update1.2|
5614
                                                                                                  ATN-PARSER::RESULT-INDEX))
5615
                                                                                               (SETF |Clear| |Clear541|))))
5616
                                                                                          (T (SETF *ATN-TERM?* '|Clear|) NIL))))
5617
                                                                      (%ATN-EDGE-BLOCK (PUSH |Drop|)
5618
                                                                                       (MULTIPLE-VALUE-BIND
5619
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5620
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Drop|
5621
                                                                                                                    ATN-PARSER::INDEX)
5622
                                                                                         (COND
5623
                                                                                          (ATN-PARSER::SUCCESS
5624
                                                                                           (SETF *ATN-TERM* '|Drop|)
5625
                                                                                           (LET ((|Drop542| |Drop|))
5626
                                                                                             (DOLIST
5627
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5628
                                                                                                  ATN-PARSER::RESULT)
5629
                                                                                               (DESTRUCTURING-BIND
5630
                                                                                                   (
5631
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5632
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5633
                                                                                                 (WHEN ATN-PARSER::RESULT
5634
                                                                                                   (SETF |Drop| ATN-PARSER::RESULT))
5635
                                                                                                 (|Update1.2|
5636
                                                                                                  ATN-PARSER::RESULT-INDEX))
5637
                                                                                               (SETF |Drop| |Drop542|))))
5638
                                                                                          (T (SETF *ATN-TERM?* '|Drop|) NIL))))
5639
                                                                      (%ATN-EDGE-BLOCK (PUSH |Add|)
5640
                                                                                       (MULTIPLE-VALUE-BIND
5641
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5642
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Add|
5643
                                                                                                                    ATN-PARSER::INDEX)
5644
                                                                                         (COND
5645
                                                                                          (ATN-PARSER::SUCCESS
5646
                                                                                           (SETF *ATN-TERM* '|Add|)
5647
                                                                                           (LET ((|Add543| |Add|))
5648
                                                                                             (DOLIST
5649
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5650
                                                                                                  ATN-PARSER::RESULT)
5651
                                                                                               (DESTRUCTURING-BIND
5652
                                                                                                   (
5653
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5654
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5655
                                                                                                 (WHEN ATN-PARSER::RESULT
5656
                                                                                                   (SETF |Add| ATN-PARSER::RESULT))
5657
                                                                                                 (|Update1.2|
5658
                                                                                                  ATN-PARSER::RESULT-INDEX))
5659
                                                                                               (SETF |Add| |Add543|))))
5660
                                                                                          (T (SETF *ATN-TERM?* '|Add|) NIL))))
5661
                                                                      (%ATN-EDGE-BLOCK (PUSH |Move|)
5662
                                                                                       (MULTIPLE-VALUE-BIND
5663
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5664
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Move|
5665
                                                                                                                    ATN-PARSER::INDEX)
5666
                                                                                         (COND
5667
                                                                                          (ATN-PARSER::SUCCESS
5668
                                                                                           (SETF *ATN-TERM* '|Move|)
5669
                                                                                           (LET ((|Move544| |Move|))
5670
                                                                                             (DOLIST
5671
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5672
                                                                                                  ATN-PARSER::RESULT)
5673
                                                                                               (DESTRUCTURING-BIND
5674
                                                                                                   (
5675
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5676
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5677
                                                                                                 (WHEN ATN-PARSER::RESULT
5678
                                                                                                   (SETF |Move| ATN-PARSER::RESULT))
5679
                                                                                                 (|Update1.2|
5680
                                                                                                  ATN-PARSER::RESULT-INDEX))
5681
                                                                                               (SETF |Move| |Move544|))))
5682
                                                                                          (T (SETF *ATN-TERM?* '|Move|) NIL))))
5683
                                                                      (%ATN-EDGE-BLOCK (PUSH |Copy|)
5684
                                                                                       (MULTIPLE-VALUE-BIND
5685
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5686
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Copy|
5687
                                                                                                                    ATN-PARSER::INDEX)
5688
                                                                                         (COND
5689
                                                                                          (ATN-PARSER::SUCCESS
5690
                                                                                           (SETF *ATN-TERM* '|Copy|)
5691
                                                                                           (LET ((|Copy545| |Copy|))
5692
                                                                                             (DOLIST
5693
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5694
                                                                                                  ATN-PARSER::RESULT)
5695
                                                                                               (DESTRUCTURING-BIND
5696
                                                                                                   (
5697
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5698
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5699
                                                                                                 (WHEN ATN-PARSER::RESULT
5700
                                                                                                   (SETF |Copy| ATN-PARSER::RESULT))
5701
                                                                                                 (|Update1.2|
5702
                                                                                                  ATN-PARSER::RESULT-INDEX))
5703
                                                                                               (SETF |Copy| |Copy545|))))
5704
                                                                                          (T (SETF *ATN-TERM?* '|Copy|) NIL))))
5705
                                                                      (%ATN-EDGE-BLOCK (PUSH |Create|)
5706
                                                                                       (MULTIPLE-VALUE-BIND
5707
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5708
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Create|
5709
                                                                                                                    ATN-PARSER::INDEX)
5710
                                                                                         (COND
5711
                                                                                          (ATN-PARSER::SUCCESS
5712
                                                                                           (SETF *ATN-TERM* '|Create|)
5713
                                                                                           (LET ((|Create546| |Create|))
5714
                                                                                             (DOLIST
5715
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5716
                                                                                                  ATN-PARSER::RESULT)
5717
                                                                                               (DESTRUCTURING-BIND
5718
                                                                                                   (
5719
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5720
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5721
                                                                                                 (WHEN ATN-PARSER::RESULT
5722
                                                                                                   (SETF |Create|
5723
                                                                                                           ATN-PARSER::RESULT))
5724
                                                                                                 (|Update1.2|
5725
                                                                                                  ATN-PARSER::RESULT-INDEX))
5726
                                                                                               (SETF |Create| |Create546|))))
5727
                                                                                          (T (SETF *ATN-TERM?* '|Create|) NIL))))
5728
                                                                      (%ATN-EDGE-BLOCK (PUSH |InsertData|)
5729
                                                                                       (MULTIPLE-VALUE-BIND
5730
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5731
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|InsertData|
5732
                                                                                                                    ATN-PARSER::INDEX)
5733
                                                                                         (COND
5734
                                                                                          (ATN-PARSER::SUCCESS
5735
                                                                                           (SETF *ATN-TERM* '|InsertData|)
5736
                                                                                           (LET ((|InsertData547| |InsertData|))
5737
                                                                                             (DOLIST
5738
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5739
                                                                                                  ATN-PARSER::RESULT)
5740
                                                                                               (DESTRUCTURING-BIND
5741
                                                                                                   (
5742
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5743
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5744
                                                                                                 (WHEN ATN-PARSER::RESULT
5745
                                                                                                   (SETF |InsertData|
5746
                                                                                                           ATN-PARSER::RESULT))
5747
                                                                                                 (|Update1.2|
5748
                                                                                                  ATN-PARSER::RESULT-INDEX))
5749
                                                                                               (SETF |InsertData|
5750
                                                                                                       |InsertData547|))))
5751
                                                                                          (T (SETF *ATN-TERM?* '|InsertData|)
5752
                                                                                           NIL))))
5753
                                                                      (%ATN-EDGE-BLOCK (PUSH |DeleteData|)
5754
                                                                                       (MULTIPLE-VALUE-BIND
5755
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5756
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|DeleteData|
5757
                                                                                                                    ATN-PARSER::INDEX)
5758
                                                                                         (COND
5759
                                                                                          (ATN-PARSER::SUCCESS
5760
                                                                                           (SETF *ATN-TERM* '|DeleteData|)
5761
                                                                                           (LET ((|DeleteData548| |DeleteData|))
5762
                                                                                             (DOLIST
5763
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5764
                                                                                                  ATN-PARSER::RESULT)
5765
                                                                                               (DESTRUCTURING-BIND
5766
                                                                                                   (
5767
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5768
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5769
                                                                                                 (WHEN ATN-PARSER::RESULT
5770
                                                                                                   (SETF |DeleteData|
5771
                                                                                                           ATN-PARSER::RESULT))
5772
                                                                                                 (|Update1.2|
5773
                                                                                                  ATN-PARSER::RESULT-INDEX))
5774
                                                                                               (SETF |DeleteData|
5775
                                                                                                       |DeleteData548|))))
5776
                                                                                          (T (SETF *ATN-TERM?* '|DeleteData|)
5777
                                                                                           NIL))))
5778
                                                                      (%ATN-EDGE-BLOCK (PUSH |DeleteWhere|)
5779
                                                                                       (MULTIPLE-VALUE-BIND
5780
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5781
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|DeleteWhere|
5782
                                                                                                                    ATN-PARSER::INDEX)
5783
                                                                                         (COND
5784
                                                                                          (ATN-PARSER::SUCCESS
5785
                                                                                           (SETF *ATN-TERM* '|DeleteWhere|)
5786
                                                                                           (LET ((|DeleteWhere549| |DeleteWhere|))
5787
                                                                                             (DOLIST
5788
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5789
                                                                                                  ATN-PARSER::RESULT)
5790
                                                                                               (DESTRUCTURING-BIND
5791
                                                                                                   (
5792
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5793
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5794
                                                                                                 (WHEN ATN-PARSER::RESULT
5795
                                                                                                   (SETF |DeleteWhere|
5796
                                                                                                           ATN-PARSER::RESULT))
5797
                                                                                                 (|Update1.2|
5798
                                                                                                  ATN-PARSER::RESULT-INDEX))
5799
                                                                                               (SETF |DeleteWhere|
5800
                                                                                                       |DeleteWhere549|))))
5801
                                                                                          (T (SETF *ATN-TERM?* '|DeleteWhere|)
5802
                                                                                           NIL))))
5803
                                                                      (%ATN-EDGE-BLOCK (PUSH |Modify|)
5804
                                                                                       (MULTIPLE-VALUE-BIND
5805
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5806
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Modify|
5807
                                                                                                                    ATN-PARSER::INDEX)
5808
                                                                                         (COND
5809
                                                                                          (ATN-PARSER::SUCCESS
5810
                                                                                           (SETF *ATN-TERM* '|Modify|)
5811
                                                                                           (LET ((|Modify550| |Modify|))
5812
                                                                                             (DOLIST
5813
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
5814
                                                                                                  ATN-PARSER::RESULT)
5815
                                                                                               (DESTRUCTURING-BIND
5816
                                                                                                   (
5817
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5818
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
5819
                                                                                                 (WHEN ATN-PARSER::RESULT
5820
                                                                                                   (SETF |Modify|
5821
                                                                                                           ATN-PARSER::RESULT))
5822
                                                                                                 (|Update1.2|
5823
                                                                                                  ATN-PARSER::RESULT-INDEX))
5824
                                                                                               (SETF |Modify| |Modify550|))))
5825
                                                                                          (T (SETF *ATN-TERM?* '|Modify|) NIL))))
5826
                                                                      (|Update1/fail.3| ATN-PARSER::INDEX))))))
5827
                          (|Update1/start.1| ATN-PARSER::INDEX)
5828
                          (SETF *ATN-NODE NIL)
5829
                          NIL
5830
                          (IF ATN-PARSER::ATN-STRUCTURE
5831
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
5832
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
5833
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Update1| ATN-PARSER::INDEX *ATN-STACK))))
5834
 (PROGN
5835
  (DEFVAR |Load-INDEX|)
5836
  (DEFUN |Load| (ATN-PARSER::INDEX &AUX (|GraphRef| NIL) (|IRIref| NIL) (|Silence| NIL))
5837
    "{32} Load ::= 'LOAD' Silence? IRIref ('INTO' GraphRef)?
5838
 (|GraphRef| |IRIref| |Silence|)"
5839
    (DECLARE (SPECIAL |Load-INDEX|))
5840
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Load-INDEX| *ATN-LEVEL))
5841
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
5842
    (IF (< |Load-INDEX| ATN-PARSER::INDEX)
5843
        (LET ((|Load-INDEX| ATN-PARSER::INDEX)
5844
              (*ATN-LEVEL (1+ *ATN-LEVEL))
5845
              (*ATN-STACK (CONS '|Load| *ATN-STACK))
5846
              (ATN-PARSER::ATN-STRUCTURE NIL))
5847
          (DECLARE (SPECIAL |Load-INDEX|))
5848
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
5849
          (DECLARE (TYPE CONS *ATN-STACK))
5850
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
5851
            (%ATN-BLOCK |Load|
5852
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
5853
                                   (SETF *ATN-TERM* '|Load|)
5854
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
5855
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
5856
                                   ATN-PARSER::INDEX)
5857
                                 (|Load.2| (ATN-PARSER::INDEX)
5858
                                   (%ATN-NODE-BLOCK |Load.2|
5859
                                                    (%ATN-EDGE-BLOCK (POP |Load|)
5860
                                                                     (WHEN T
5861
                                                                       (SETF *ATN-TERM* '|Load|)
5862
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Load|
5863
                                                                                   ATN-PARSER::INDEX
5864
                                                                                   (LIST '|GraphRef| |GraphRef| '|IRIref| |IRIref|
5865
                                                                                         '|Silence| |Silence|))
5866
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
5867
                                                                              (IF (EQ *ATN-REDUCE* T)
5868
                                                                                  (|Load-Constructor| |GraphRef| |IRIref| |Silence|)
5869
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
5870
                                                                                      (CONS '|Load|
5871
                                                                                            (DELETE NIL
5872
                                                                                                    (LIST |GraphRef| |IRIref|
5873
                                                                                                          |Silence|)))
5874
                                                                                      '|Load|))))
5875
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
5876
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
5877
                                 (|Load/fail.3| (ATN-PARSER::INDEX)
5878
                                   (%ATN-NODE-BLOCK |Load/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
5879
                                 (|Load/Load.2.4| (ATN-PARSER::INDEX)
5880
                                   (%ATN-NODE-BLOCK |Load/Load.2.4|
5881
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Silence|)
5882
                                                                     (COND
5883
                                                                      ((|IS-Silence| ATN-PARSER::|item|)
5884
                                                                       (SETF *ATN-TERM* '|Silence|)
5885
                                                                       (SETF |Silence|
5886
                                                                               (IF (EQ *ATN-REDUCE* T)
5887
                                                                                   (ATN-REDUCE-ITEM #'|Silence-Constructor|
5888
                                                                                                    ATN-PARSER::|item|)
5889
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
5890
                                                                                       (LIST '|Silence| ATN-PARSER::|item|)
5891
                                                                                       '|Silence|)))
5892
                                                                       (|Load/Load.2.5| (1+ ATN-PARSER::INDEX)))
5893
                                                                      (T (SETF *ATN-TERM* '|Silence|)
5894
                                                                       (|Load/Load.2.5| ATN-PARSER::INDEX))))))
5895
                                 (|Load/Load.2.5| (ATN-PARSER::INDEX)
5896
                                   (%ATN-NODE-BLOCK |Load/Load.2.5|
5897
                                                    (%ATN-EDGE-BLOCK (PUSH |IRIref|)
5898
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5899
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)
5900
                                                                       (COND
5901
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|IRIref|)
5902
                                                                         (LET ((|IRIref552| |IRIref|))
5903
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5904
                                                                             (DESTRUCTURING-BIND
5905
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5906
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5907
                                                                               (WHEN ATN-PARSER::RESULT
5908
                                                                                 (SETF |IRIref| ATN-PARSER::RESULT))
5909
                                                                               (|Load/Load.2.6| ATN-PARSER::RESULT-INDEX))
5910
                                                                             (SETF |IRIref| |IRIref552|))))
5911
                                                                        (T (SETF *ATN-TERM?* '|IRIref|)
5912
                                                                         (|Load/fail.3| ATN-PARSER::INDEX)))))))
5913
                                 (|Load/Load.2.6| (ATN-PARSER::INDEX)
5914
                                   (%ATN-NODE-BLOCK |Load/Load.2.6|
5915
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Load/Load.2.7|)
5916
                                                                     (|Load/Load.2.7| ATN-PARSER::INDEX))
5917
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Load.2|) (|Load.2| ATN-PARSER::INDEX))))
5918
                                 (|Load/Load.2.7| (ATN-PARSER::INDEX)
5919
                                   (%ATN-NODE-BLOCK |Load/Load.2.7|
5920
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:INTO)
5921
                                                                     (COND
5922
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:INTO)
5923
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:INTO)
5924
                                                                       (|Load/Load.2.8| (1+ ATN-PARSER::INDEX)))
5925
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:INTO) NIL)))))
5926
                                 (|Load/Load.2.8| (ATN-PARSER::INDEX)
5927
                                   (%ATN-NODE-BLOCK |Load/Load.2.8|
5928
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphRef|)
5929
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
5930
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphRef| ATN-PARSER::INDEX)
5931
                                                                       (COND
5932
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphRef|)
5933
                                                                         (LET ((|GraphRef551| |GraphRef|))
5934
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
5935
                                                                             (DESTRUCTURING-BIND
5936
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
5937
                                                                                 ATN-PARSER::RESULT-AND-INDEX
5938
                                                                               (WHEN ATN-PARSER::RESULT
5939
                                                                                 (SETF |GraphRef| ATN-PARSER::RESULT))
5940
                                                                               (|Load.2| ATN-PARSER::RESULT-INDEX))
5941
                                                                             (SETF |GraphRef| |GraphRef551|))))
5942
                                                                        (T (SETF *ATN-TERM?* '|GraphRef|) NIL))))))
5943
                                 (|Load/start.1| (ATN-PARSER::INDEX)
5944
                                   (%ATN-NODE-BLOCK |Load/start.1|
5945
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:LOAD)
5946
                                                                     (COND
5947
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:LOAD)
5948
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:LOAD)
5949
                                                                       (|Load/Load.2.4| (1+ ATN-PARSER::INDEX)))
5950
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:LOAD)
5951
                                                                       (|Load/fail.3| ATN-PARSER::INDEX)))))))
5952
                          (|Load/start.1| ATN-PARSER::INDEX)
5953
                          (SETF *ATN-NODE NIL)
5954
                          NIL
5955
                          (IF ATN-PARSER::ATN-STRUCTURE
5956
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
5957
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
5958
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Load| ATN-PARSER::INDEX *ATN-STACK))))
5959
 (PROGN
5960
  (DEFVAR |Clear-INDEX|)
5961
  (DEFUN |Clear| (ATN-PARSER::INDEX &AUX (|GraphRefAll| NIL) (|Silence| NIL))
5962
    "{33} Clear ::= 'CLEAR' Silence? GraphRefAll
5963
 (|GraphRefAll| |Silence|)"
5964
    (DECLARE (SPECIAL |Clear-INDEX|))
5965
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Clear-INDEX| *ATN-LEVEL))
5966
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
5967
    (IF (< |Clear-INDEX| ATN-PARSER::INDEX)
5968
        (LET ((|Clear-INDEX| ATN-PARSER::INDEX)
5969
              (*ATN-LEVEL (1+ *ATN-LEVEL))
5970
              (*ATN-STACK (CONS '|Clear| *ATN-STACK))
5971
              (ATN-PARSER::ATN-STRUCTURE NIL))
5972
          (DECLARE (SPECIAL |Clear-INDEX|))
5973
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
5974
          (DECLARE (TYPE CONS *ATN-STACK))
5975
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
5976
            (%ATN-BLOCK |Clear|
5977
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
5978
                                   (SETF *ATN-TERM* '|Clear|)
5979
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
5980
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
5981
                                   ATN-PARSER::INDEX)
5982
                                 (|Clear.2| (ATN-PARSER::INDEX)
5983
                                   (%ATN-NODE-BLOCK |Clear.2|
5984
                                                    (%ATN-EDGE-BLOCK (POP |Clear|)
5985
                                                                     (WHEN T
5986
                                                                       (SETF *ATN-TERM* '|Clear|)
5987
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Clear|
5988
                                                                                   ATN-PARSER::INDEX
5989
                                                                                   (LIST '|GraphRefAll| |GraphRefAll| '|Silence|
5990
                                                                                         |Silence|))
5991
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
5992
                                                                              (IF (EQ *ATN-REDUCE* T)
5993
                                                                                  (|Clear-Constructor| |GraphRefAll| |Silence|)
5994
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
5995
                                                                                      (CONS '|Clear|
5996
                                                                                            (DELETE NIL
5997
                                                                                                    (LIST |GraphRefAll| |Silence|)))
5998
                                                                                      '|Clear|))))
5999
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6000
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6001
                                 (|Clear/Clear.2.4| (ATN-PARSER::INDEX)
6002
                                   (%ATN-NODE-BLOCK |Clear/Clear.2.4|
6003
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Silence|)
6004
                                                                     (COND
6005
                                                                      ((|IS-Silence| ATN-PARSER::|item|)
6006
                                                                       (SETF *ATN-TERM* '|Silence|)
6007
                                                                       (SETF |Silence|
6008
                                                                               (IF (EQ *ATN-REDUCE* T)
6009
                                                                                   (ATN-REDUCE-ITEM #'|Silence-Constructor|
6010
                                                                                                    ATN-PARSER::|item|)
6011
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
6012
                                                                                       (LIST '|Silence| ATN-PARSER::|item|)
6013
                                                                                       '|Silence|)))
6014
                                                                       (|Clear/Clear.2.5| (1+ ATN-PARSER::INDEX)))
6015
                                                                      (T (SETF *ATN-TERM* '|Silence|)
6016
                                                                       (|Clear/Clear.2.5| ATN-PARSER::INDEX))))))
6017
                                 (|Clear/Clear.2.5| (ATN-PARSER::INDEX)
6018
                                   (%ATN-NODE-BLOCK |Clear/Clear.2.5|
6019
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphRefAll|)
6020
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6021
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphRefAll| ATN-PARSER::INDEX)
6022
                                                                       (COND
6023
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphRefAll|)
6024
                                                                         (LET ((|GraphRefAll553| |GraphRefAll|))
6025
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6026
                                                                             (DESTRUCTURING-BIND
6027
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6028
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6029
                                                                               (WHEN ATN-PARSER::RESULT
6030
                                                                                 (SETF |GraphRefAll| ATN-PARSER::RESULT))
6031
                                                                               (|Clear.2| ATN-PARSER::RESULT-INDEX))
6032
                                                                             (SETF |GraphRefAll| |GraphRefAll553|))))
6033
                                                                        (T (SETF *ATN-TERM?* '|GraphRefAll|)
6034
                                                                         (|Clear/fail.3| ATN-PARSER::INDEX)))))))
6035
                                 (|Clear/fail.3| (ATN-PARSER::INDEX)
6036
                                   (%ATN-NODE-BLOCK |Clear/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6037
                                 (|Clear/start.1| (ATN-PARSER::INDEX)
6038
                                   (%ATN-NODE-BLOCK |Clear/start.1|
6039
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:CLEAR)
6040
                                                                     (COND
6041
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:CLEAR)
6042
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:CLEAR)
6043
                                                                       (|Clear/Clear.2.4| (1+ ATN-PARSER::INDEX)))
6044
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:CLEAR)
6045
                                                                       (|Clear/fail.3| ATN-PARSER::INDEX)))))))
6046
                          (|Clear/start.1| ATN-PARSER::INDEX)
6047
                          (SETF *ATN-NODE NIL)
6048
                          NIL
6049
                          (IF ATN-PARSER::ATN-STRUCTURE
6050
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
6051
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
6052
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Clear| ATN-PARSER::INDEX *ATN-STACK))))
6053
 (PROGN
6054
  (DEFVAR |Drop-INDEX|)
6055
  (DEFUN |Drop| (ATN-PARSER::INDEX &AUX (|GraphRefAll| NIL) (|Silence| NIL))
6056
    "{34} Drop ::= 'DROP' Silence? GraphRefAll
6057
 (|GraphRefAll| |Silence|)"
6058
    (DECLARE (SPECIAL |Drop-INDEX|))
6059
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Drop-INDEX| *ATN-LEVEL))
6060
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
6061
    (IF (< |Drop-INDEX| ATN-PARSER::INDEX)
6062
        (LET ((|Drop-INDEX| ATN-PARSER::INDEX)
6063
              (*ATN-LEVEL (1+ *ATN-LEVEL))
6064
              (*ATN-STACK (CONS '|Drop| *ATN-STACK))
6065
              (ATN-PARSER::ATN-STRUCTURE NIL))
6066
          (DECLARE (SPECIAL |Drop-INDEX|))
6067
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
6068
          (DECLARE (TYPE CONS *ATN-STACK))
6069
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
6070
            (%ATN-BLOCK |Drop|
6071
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
6072
                                   (SETF *ATN-TERM* '|Drop|)
6073
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
6074
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
6075
                                   ATN-PARSER::INDEX)
6076
                                 (|Drop.2| (ATN-PARSER::INDEX)
6077
                                   (%ATN-NODE-BLOCK |Drop.2|
6078
                                                    (%ATN-EDGE-BLOCK (POP |Drop|)
6079
                                                                     (WHEN T
6080
                                                                       (SETF *ATN-TERM* '|Drop|)
6081
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Drop|
6082
                                                                                   ATN-PARSER::INDEX
6083
                                                                                   (LIST '|GraphRefAll| |GraphRefAll| '|Silence|
6084
                                                                                         |Silence|))
6085
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
6086
                                                                              (IF (EQ *ATN-REDUCE* T)
6087
                                                                                  (|Drop-Constructor| |GraphRefAll| |Silence|)
6088
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
6089
                                                                                      (CONS '|Drop|
6090
                                                                                            (DELETE NIL
6091
                                                                                                    (LIST |GraphRefAll| |Silence|)))
6092
                                                                                      '|Drop|))))
6093
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6094
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6095
                                 (|Drop/Drop.2.4| (ATN-PARSER::INDEX)
6096
                                   (%ATN-NODE-BLOCK |Drop/Drop.2.4|
6097
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Silence|)
6098
                                                                     (COND
6099
                                                                      ((|IS-Silence| ATN-PARSER::|item|)
6100
                                                                       (SETF *ATN-TERM* '|Silence|)
6101
                                                                       (SETF |Silence|
6102
                                                                               (IF (EQ *ATN-REDUCE* T)
6103
                                                                                   (ATN-REDUCE-ITEM #'|Silence-Constructor|
6104
                                                                                                    ATN-PARSER::|item|)
6105
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
6106
                                                                                       (LIST '|Silence| ATN-PARSER::|item|)
6107
                                                                                       '|Silence|)))
6108
                                                                       (|Drop/Drop.2.5| (1+ ATN-PARSER::INDEX)))
6109
                                                                      (T (SETF *ATN-TERM* '|Silence|)
6110
                                                                       (|Drop/Drop.2.5| ATN-PARSER::INDEX))))))
6111
                                 (|Drop/Drop.2.5| (ATN-PARSER::INDEX)
6112
                                   (%ATN-NODE-BLOCK |Drop/Drop.2.5|
6113
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphRefAll|)
6114
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6115
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphRefAll| ATN-PARSER::INDEX)
6116
                                                                       (COND
6117
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphRefAll|)
6118
                                                                         (LET ((|GraphRefAll554| |GraphRefAll|))
6119
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6120
                                                                             (DESTRUCTURING-BIND
6121
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6122
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6123
                                                                               (WHEN ATN-PARSER::RESULT
6124
                                                                                 (SETF |GraphRefAll| ATN-PARSER::RESULT))
6125
                                                                               (|Drop.2| ATN-PARSER::RESULT-INDEX))
6126
                                                                             (SETF |GraphRefAll| |GraphRefAll554|))))
6127
                                                                        (T (SETF *ATN-TERM?* '|GraphRefAll|)
6128
                                                                         (|Drop/fail.3| ATN-PARSER::INDEX)))))))
6129
                                 (|Drop/fail.3| (ATN-PARSER::INDEX)
6130
                                   (%ATN-NODE-BLOCK |Drop/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6131
                                 (|Drop/start.1| (ATN-PARSER::INDEX)
6132
                                   (%ATN-NODE-BLOCK |Drop/start.1|
6133
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:DROP)
6134
                                                                     (COND
6135
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:DROP)
6136
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:DROP)
6137
                                                                       (|Drop/Drop.2.4| (1+ ATN-PARSER::INDEX)))
6138
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:DROP)
6139
                                                                       (|Drop/fail.3| ATN-PARSER::INDEX)))))))
6140
                          (|Drop/start.1| ATN-PARSER::INDEX)
6141
                          (SETF *ATN-NODE NIL)
6142
                          NIL
6143
                          (IF ATN-PARSER::ATN-STRUCTURE
6144
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
6145
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
6146
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Drop| ATN-PARSER::INDEX *ATN-STACK))))
6147
 (PROGN
6148
  (DEFVAR |Create-INDEX|)
6149
  (DEFUN |Create| (ATN-PARSER::INDEX &AUX (|GraphRef| NIL) (|Silence| NIL))
6150
    "{35} Create ::= 'CREATE' Silence? GraphRef
6151
 (|GraphRef| |Silence|)"
6152
    (DECLARE (SPECIAL |Create-INDEX|))
6153
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Create-INDEX| *ATN-LEVEL))
6154
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
6155
    (IF (< |Create-INDEX| ATN-PARSER::INDEX)
6156
        (LET ((|Create-INDEX| ATN-PARSER::INDEX)
6157
              (*ATN-LEVEL (1+ *ATN-LEVEL))
6158
              (*ATN-STACK (CONS '|Create| *ATN-STACK))
6159
              (ATN-PARSER::ATN-STRUCTURE NIL))
6160
          (DECLARE (SPECIAL |Create-INDEX|))
6161
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
6162
          (DECLARE (TYPE CONS *ATN-STACK))
6163
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
6164
            (%ATN-BLOCK |Create|
6165
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
6166
                                   (SETF *ATN-TERM* '|Create|)
6167
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
6168
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
6169
                                   ATN-PARSER::INDEX)
6170
                                 (|Create.2| (ATN-PARSER::INDEX)
6171
                                   (%ATN-NODE-BLOCK |Create.2|
6172
                                                    (%ATN-EDGE-BLOCK (POP |Create|)
6173
                                                                     (WHEN T
6174
                                                                       (SETF *ATN-TERM* '|Create|)
6175
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Create|
6176
                                                                                   ATN-PARSER::INDEX
6177
                                                                                   (LIST '|GraphRef| |GraphRef| '|Silence|
6178
                                                                                         |Silence|))
6179
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
6180
                                                                              (IF (EQ *ATN-REDUCE* T)
6181
                                                                                  (|Create-Constructor| |GraphRef| |Silence|)
6182
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
6183
                                                                                      (CONS '|Create|
6184
                                                                                            (DELETE NIL
6185
                                                                                                    (LIST |GraphRef| |Silence|)))
6186
                                                                                      '|Create|))))
6187
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6188
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6189
                                 (|Create/Create.2.4| (ATN-PARSER::INDEX)
6190
                                   (%ATN-NODE-BLOCK |Create/Create.2.4|
6191
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Silence|)
6192
                                                                     (COND
6193
                                                                      ((|IS-Silence| ATN-PARSER::|item|)
6194
                                                                       (SETF *ATN-TERM* '|Silence|)
6195
                                                                       (SETF |Silence|
6196
                                                                               (IF (EQ *ATN-REDUCE* T)
6197
                                                                                   (ATN-REDUCE-ITEM #'|Silence-Constructor|
6198
                                                                                                    ATN-PARSER::|item|)
6199
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
6200
                                                                                       (LIST '|Silence| ATN-PARSER::|item|)
6201
                                                                                       '|Silence|)))
6202
                                                                       (|Create/Create.2.5| (1+ ATN-PARSER::INDEX)))
6203
                                                                      (T (SETF *ATN-TERM* '|Silence|)
6204
                                                                       (|Create/Create.2.5| ATN-PARSER::INDEX))))))
6205
                                 (|Create/Create.2.5| (ATN-PARSER::INDEX)
6206
                                   (%ATN-NODE-BLOCK |Create/Create.2.5|
6207
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphRef|)
6208
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6209
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphRef| ATN-PARSER::INDEX)
6210
                                                                       (COND
6211
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphRef|)
6212
                                                                         (LET ((|GraphRef555| |GraphRef|))
6213
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6214
                                                                             (DESTRUCTURING-BIND
6215
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6216
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6217
                                                                               (WHEN ATN-PARSER::RESULT
6218
                                                                                 (SETF |GraphRef| ATN-PARSER::RESULT))
6219
                                                                               (|Create.2| ATN-PARSER::RESULT-INDEX))
6220
                                                                             (SETF |GraphRef| |GraphRef555|))))
6221
                                                                        (T (SETF *ATN-TERM?* '|GraphRef|)
6222
                                                                         (|Create/fail.3| ATN-PARSER::INDEX)))))))
6223
                                 (|Create/fail.3| (ATN-PARSER::INDEX)
6224
                                   (%ATN-NODE-BLOCK |Create/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6225
                                 (|Create/start.1| (ATN-PARSER::INDEX)
6226
                                   (%ATN-NODE-BLOCK |Create/start.1|
6227
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:CREATE)
6228
                                                                     (COND
6229
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:CREATE)
6230
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:CREATE)
6231
                                                                       (|Create/Create.2.4| (1+ ATN-PARSER::INDEX)))
6232
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:CREATE)
6233
                                                                       (|Create/fail.3| ATN-PARSER::INDEX)))))))
6234
                          (|Create/start.1| ATN-PARSER::INDEX)
6235
                          (SETF *ATN-NODE NIL)
6236
                          NIL
6237
                          (IF ATN-PARSER::ATN-STRUCTURE
6238
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
6239
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
6240
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Create| ATN-PARSER::INDEX *ATN-STACK))))
6241
 (PROGN
6242
  (DEFVAR |Add-INDEX|)
6243
  (DEFUN |Add| (ATN-PARSER::INDEX &AUX (|GraphOrDefault| NIL) (|Silence| NIL))
6244
    "{36} Add ::= 'ADD' Silence? GraphOrDefault 'TO' GraphOrDefault
6245
 (|GraphOrDefault| |Silence|)"
6246
    (DECLARE (SPECIAL |Add-INDEX|))
6247
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Add-INDEX| *ATN-LEVEL))
6248
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
6249
    (IF (< |Add-INDEX| ATN-PARSER::INDEX)
6250
        (LET ((|Add-INDEX| ATN-PARSER::INDEX)
6251
              (*ATN-LEVEL (1+ *ATN-LEVEL))
6252
              (*ATN-STACK (CONS '|Add| *ATN-STACK))
6253
              (ATN-PARSER::ATN-STRUCTURE NIL))
6254
          (DECLARE (SPECIAL |Add-INDEX|))
6255
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
6256
          (DECLARE (TYPE CONS *ATN-STACK))
6257
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
6258
            (%ATN-BLOCK |Add|
6259
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
6260
                                   (SETF *ATN-TERM* '|Add|)
6261
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
6262
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
6263
                                   ATN-PARSER::INDEX)
6264
                                 (|Add.2| (ATN-PARSER::INDEX)
6265
                                   (%ATN-NODE-BLOCK |Add.2|
6266
                                                    (%ATN-EDGE-BLOCK (POP |Add|)
6267
                                                                     (WHEN T
6268
                                                                       (SETF *ATN-TERM* '|Add|)
6269
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Add|
6270
                                                                                   ATN-PARSER::INDEX
6271
                                                                                   (LIST '|GraphOrDefault| |GraphOrDefault|
6272
                                                                                         '|Silence| |Silence|))
6273
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
6274
                                                                              (IF (EQ *ATN-REDUCE* T)
6275
                                                                                  (|Add-Constructor| |GraphOrDefault| |Silence|)
6276
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
6277
                                                                                      (CONS '|Add|
6278
                                                                                            (DELETE NIL
6279
                                                                                                    (LIST |GraphOrDefault|
6280
                                                                                                          |Silence|)))
6281
                                                                                      '|Add|))))
6282
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6283
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6284
                                 (|Add/Add.2.4| (ATN-PARSER::INDEX)
6285
                                   (%ATN-NODE-BLOCK |Add/Add.2.4|
6286
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Silence|)
6287
                                                                     (COND
6288
                                                                      ((|IS-Silence| ATN-PARSER::|item|)
6289
                                                                       (SETF *ATN-TERM* '|Silence|)
6290
                                                                       (SETF |Silence|
6291
                                                                               (IF (EQ *ATN-REDUCE* T)
6292
                                                                                   (ATN-REDUCE-ITEM #'|Silence-Constructor|
6293
                                                                                                    ATN-PARSER::|item|)
6294
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
6295
                                                                                       (LIST '|Silence| ATN-PARSER::|item|)
6296
                                                                                       '|Silence|)))
6297
                                                                       (|Add/Add.2.5| (1+ ATN-PARSER::INDEX)))
6298
                                                                      (T (SETF *ATN-TERM* '|Silence|)
6299
                                                                       (|Add/Add.2.5| ATN-PARSER::INDEX))))))
6300
                                 (|Add/Add.2.5| (ATN-PARSER::INDEX)
6301
                                   (%ATN-NODE-BLOCK |Add/Add.2.5|
6302
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphOrDefault|)
6303
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6304
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphOrDefault|
6305
                                                                                                  ATN-PARSER::INDEX)
6306
                                                                       (COND
6307
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphOrDefault|)
6308
                                                                         (LET ((|GraphOrDefault557| |GraphOrDefault|))
6309
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6310
                                                                             (DESTRUCTURING-BIND
6311
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6312
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6313
                                                                               (WHEN ATN-PARSER::RESULT
6314
                                                                                 (SETF |GraphOrDefault|
6315
                                                                                         (CONS ATN-PARSER::RESULT
6316
                                                                                               |GraphOrDefault|)))
6317
                                                                               (|Add/Add.2.6| ATN-PARSER::RESULT-INDEX))
6318
                                                                             (SETF |GraphOrDefault| |GraphOrDefault557|))))
6319
                                                                        (T (SETF *ATN-TERM?* '|GraphOrDefault|)
6320
                                                                         (|Add/fail.3| ATN-PARSER::INDEX)))))))
6321
                                 (|Add/Add.2.6| (ATN-PARSER::INDEX)
6322
                                   (%ATN-NODE-BLOCK |Add/Add.2.6|
6323
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:TO)
6324
                                                                     (COND
6325
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:TO)
6326
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:TO)
6327
                                                                       (|Add/Add.2.7| (1+ ATN-PARSER::INDEX)))
6328
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:TO)
6329
                                                                       (|Add/fail.3| ATN-PARSER::INDEX))))))
6330
                                 (|Add/Add.2.7| (ATN-PARSER::INDEX)
6331
                                   (%ATN-NODE-BLOCK |Add/Add.2.7|
6332
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphOrDefault|)
6333
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6334
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphOrDefault|
6335
                                                                                                  ATN-PARSER::INDEX)
6336
                                                                       (COND
6337
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphOrDefault|)
6338
                                                                         (LET ((|GraphOrDefault556| |GraphOrDefault|))
6339
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6340
                                                                             (DESTRUCTURING-BIND
6341
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6342
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6343
                                                                               (WHEN ATN-PARSER::RESULT
6344
                                                                                 (SETF |GraphOrDefault|
6345
                                                                                         (CONS ATN-PARSER::RESULT
6346
                                                                                               |GraphOrDefault|)))
6347
                                                                               (|Add.2| ATN-PARSER::RESULT-INDEX))
6348
                                                                             (SETF |GraphOrDefault| |GraphOrDefault556|))))
6349
                                                                        (T (SETF *ATN-TERM?* '|GraphOrDefault|)
6350
                                                                         (|Add/fail.3| ATN-PARSER::INDEX)))))))
6351
                                 (|Add/fail.3| (ATN-PARSER::INDEX)
6352
                                   (%ATN-NODE-BLOCK |Add/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6353
                                 (|Add/start.1| (ATN-PARSER::INDEX)
6354
                                   (%ATN-NODE-BLOCK |Add/start.1|
6355
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:ADD)
6356
                                                                     (COND
6357
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:ADD)
6358
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:ADD)
6359
                                                                       (|Add/Add.2.4| (1+ ATN-PARSER::INDEX)))
6360
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:ADD)
6361
                                                                       (|Add/fail.3| ATN-PARSER::INDEX)))))))
6362
                          (|Add/start.1| ATN-PARSER::INDEX)
6363
                          (SETF *ATN-NODE NIL)
6364
                          NIL
6365
                          (IF ATN-PARSER::ATN-STRUCTURE
6366
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
6367
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
6368
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Add| ATN-PARSER::INDEX *ATN-STACK))))
6369
 (PROGN
6370
  (DEFVAR |Move-INDEX|)
6371
  (DEFUN |Move| (ATN-PARSER::INDEX &AUX (|GraphOrDefault| NIL) (|Silence| NIL))
6372
    "{37} Move ::= 'MOVE' Silence? GraphOrDefault 'TO' GraphOrDefault
6373
 (|GraphOrDefault| |Silence|)"
6374
    (DECLARE (SPECIAL |Move-INDEX|))
6375
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Move-INDEX| *ATN-LEVEL))
6376
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
6377
    (IF (< |Move-INDEX| ATN-PARSER::INDEX)
6378
        (LET ((|Move-INDEX| ATN-PARSER::INDEX)
6379
              (*ATN-LEVEL (1+ *ATN-LEVEL))
6380
              (*ATN-STACK (CONS '|Move| *ATN-STACK))
6381
              (ATN-PARSER::ATN-STRUCTURE NIL))
6382
          (DECLARE (SPECIAL |Move-INDEX|))
6383
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
6384
          (DECLARE (TYPE CONS *ATN-STACK))
6385
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
6386
            (%ATN-BLOCK |Move|
6387
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
6388
                                   (SETF *ATN-TERM* '|Move|)
6389
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
6390
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
6391
                                   ATN-PARSER::INDEX)
6392
                                 (|Move.2| (ATN-PARSER::INDEX)
6393
                                   (%ATN-NODE-BLOCK |Move.2|
6394
                                                    (%ATN-EDGE-BLOCK (POP |Move|)
6395
                                                                     (WHEN T
6396
                                                                       (SETF *ATN-TERM* '|Move|)
6397
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Move|
6398
                                                                                   ATN-PARSER::INDEX
6399
                                                                                   (LIST '|GraphOrDefault| |GraphOrDefault|
6400
                                                                                         '|Silence| |Silence|))
6401
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
6402
                                                                              (IF (EQ *ATN-REDUCE* T)
6403
                                                                                  (|Move-Constructor| |GraphOrDefault| |Silence|)
6404
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
6405
                                                                                      (CONS '|Move|
6406
                                                                                            (DELETE NIL
6407
                                                                                                    (LIST |GraphOrDefault|
6408
                                                                                                          |Silence|)))
6409
                                                                                      '|Move|))))
6410
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6411
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6412
                                 (|Move/fail.3| (ATN-PARSER::INDEX)
6413
                                   (%ATN-NODE-BLOCK |Move/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6414
                                 (|Move/Move.2.4| (ATN-PARSER::INDEX)
6415
                                   (%ATN-NODE-BLOCK |Move/Move.2.4|
6416
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Silence|)
6417
                                                                     (COND
6418
                                                                      ((|IS-Silence| ATN-PARSER::|item|)
6419
                                                                       (SETF *ATN-TERM* '|Silence|)
6420
                                                                       (SETF |Silence|
6421
                                                                               (IF (EQ *ATN-REDUCE* T)
6422
                                                                                   (ATN-REDUCE-ITEM #'|Silence-Constructor|
6423
                                                                                                    ATN-PARSER::|item|)
6424
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
6425
                                                                                       (LIST '|Silence| ATN-PARSER::|item|)
6426
                                                                                       '|Silence|)))
6427
                                                                       (|Move/Move.2.5| (1+ ATN-PARSER::INDEX)))
6428
                                                                      (T (SETF *ATN-TERM* '|Silence|)
6429
                                                                       (|Move/Move.2.5| ATN-PARSER::INDEX))))))
6430
                                 (|Move/Move.2.5| (ATN-PARSER::INDEX)
6431
                                   (%ATN-NODE-BLOCK |Move/Move.2.5|
6432
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphOrDefault|)
6433
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6434
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphOrDefault|
6435
                                                                                                  ATN-PARSER::INDEX)
6436
                                                                       (COND
6437
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphOrDefault|)
6438
                                                                         (LET ((|GraphOrDefault559| |GraphOrDefault|))
6439
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6440
                                                                             (DESTRUCTURING-BIND
6441
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6442
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6443
                                                                               (WHEN ATN-PARSER::RESULT
6444
                                                                                 (SETF |GraphOrDefault|
6445
                                                                                         (CONS ATN-PARSER::RESULT
6446
                                                                                               |GraphOrDefault|)))
6447
                                                                               (|Move/Move.2.6| ATN-PARSER::RESULT-INDEX))
6448
                                                                             (SETF |GraphOrDefault| |GraphOrDefault559|))))
6449
                                                                        (T (SETF *ATN-TERM?* '|GraphOrDefault|)
6450
                                                                         (|Move/fail.3| ATN-PARSER::INDEX)))))))
6451
                                 (|Move/Move.2.6| (ATN-PARSER::INDEX)
6452
                                   (%ATN-NODE-BLOCK |Move/Move.2.6|
6453
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:TO)
6454
                                                                     (COND
6455
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:TO)
6456
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:TO)
6457
                                                                       (|Move/Move.2.7| (1+ ATN-PARSER::INDEX)))
6458
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:TO)
6459
                                                                       (|Move/fail.3| ATN-PARSER::INDEX))))))
6460
                                 (|Move/Move.2.7| (ATN-PARSER::INDEX)
6461
                                   (%ATN-NODE-BLOCK |Move/Move.2.7|
6462
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphOrDefault|)
6463
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6464
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphOrDefault|
6465
                                                                                                  ATN-PARSER::INDEX)
6466
                                                                       (COND
6467
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphOrDefault|)
6468
                                                                         (LET ((|GraphOrDefault558| |GraphOrDefault|))
6469
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6470
                                                                             (DESTRUCTURING-BIND
6471
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6472
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6473
                                                                               (WHEN ATN-PARSER::RESULT
6474
                                                                                 (SETF |GraphOrDefault|
6475
                                                                                         (CONS ATN-PARSER::RESULT
6476
                                                                                               |GraphOrDefault|)))
6477
                                                                               (|Move.2| ATN-PARSER::RESULT-INDEX))
6478
                                                                             (SETF |GraphOrDefault| |GraphOrDefault558|))))
6479
                                                                        (T (SETF *ATN-TERM?* '|GraphOrDefault|)
6480
                                                                         (|Move/fail.3| ATN-PARSER::INDEX)))))))
6481
                                 (|Move/start.1| (ATN-PARSER::INDEX)
6482
                                   (%ATN-NODE-BLOCK |Move/start.1|
6483
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:MOVE)
6484
                                                                     (COND
6485
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:MOVE)
6486
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:MOVE)
6487
                                                                       (|Move/Move.2.4| (1+ ATN-PARSER::INDEX)))
6488
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:MOVE)
6489
                                                                       (|Move/fail.3| ATN-PARSER::INDEX)))))))
6490
                          (|Move/start.1| ATN-PARSER::INDEX)
6491
                          (SETF *ATN-NODE NIL)
6492
                          NIL
6493
                          (IF ATN-PARSER::ATN-STRUCTURE
6494
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
6495
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
6496
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Move| ATN-PARSER::INDEX *ATN-STACK))))
6497
 (PROGN
6498
  (DEFVAR |Copy-INDEX|)
6499
  (DEFUN |Copy| (ATN-PARSER::INDEX &AUX (|GraphOrDefault| NIL) (|Silence| NIL))
6500
    "{38} Copy ::= 'COPY' Silence? GraphOrDefault 'TO' GraphOrDefault
6501
 (|GraphOrDefault| |Silence|)"
6502
    (DECLARE (SPECIAL |Copy-INDEX|))
6503
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Copy-INDEX| *ATN-LEVEL))
6504
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
6505
    (IF (< |Copy-INDEX| ATN-PARSER::INDEX)
6506
        (LET ((|Copy-INDEX| ATN-PARSER::INDEX)
6507
              (*ATN-LEVEL (1+ *ATN-LEVEL))
6508
              (*ATN-STACK (CONS '|Copy| *ATN-STACK))
6509
              (ATN-PARSER::ATN-STRUCTURE NIL))
6510
          (DECLARE (SPECIAL |Copy-INDEX|))
6511
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
6512
          (DECLARE (TYPE CONS *ATN-STACK))
6513
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
6514
            (%ATN-BLOCK |Copy|
6515
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
6516
                                   (SETF *ATN-TERM* '|Copy|)
6517
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
6518
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
6519
                                   ATN-PARSER::INDEX)
6520
                                 (|Copy.2| (ATN-PARSER::INDEX)
6521
                                   (%ATN-NODE-BLOCK |Copy.2|
6522
                                                    (%ATN-EDGE-BLOCK (POP |Copy|)
6523
                                                                     (WHEN T
6524
                                                                       (SETF *ATN-TERM* '|Copy|)
6525
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Copy|
6526
                                                                                   ATN-PARSER::INDEX
6527
                                                                                   (LIST '|GraphOrDefault| |GraphOrDefault|
6528
                                                                                         '|Silence| |Silence|))
6529
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
6530
                                                                              (IF (EQ *ATN-REDUCE* T)
6531
                                                                                  (|Copy-Constructor| |GraphOrDefault| |Silence|)
6532
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
6533
                                                                                      (CONS '|Copy|
6534
                                                                                            (DELETE NIL
6535
                                                                                                    (LIST |GraphOrDefault|
6536
                                                                                                          |Silence|)))
6537
                                                                                      '|Copy|))))
6538
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6539
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6540
                                 (|Copy/Copy.2.4| (ATN-PARSER::INDEX)
6541
                                   (%ATN-NODE-BLOCK |Copy/Copy.2.4|
6542
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Silence|)
6543
                                                                     (COND
6544
                                                                      ((|IS-Silence| ATN-PARSER::|item|)
6545
                                                                       (SETF *ATN-TERM* '|Silence|)
6546
                                                                       (SETF |Silence|
6547
                                                                               (IF (EQ *ATN-REDUCE* T)
6548
                                                                                   (ATN-REDUCE-ITEM #'|Silence-Constructor|
6549
                                                                                                    ATN-PARSER::|item|)
6550
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
6551
                                                                                       (LIST '|Silence| ATN-PARSER::|item|)
6552
                                                                                       '|Silence|)))
6553
                                                                       (|Copy/Copy.2.5| (1+ ATN-PARSER::INDEX)))
6554
                                                                      (T (SETF *ATN-TERM* '|Silence|)
6555
                                                                       (|Copy/Copy.2.5| ATN-PARSER::INDEX))))))
6556
                                 (|Copy/Copy.2.5| (ATN-PARSER::INDEX)
6557
                                   (%ATN-NODE-BLOCK |Copy/Copy.2.5|
6558
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphOrDefault|)
6559
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6560
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphOrDefault|
6561
                                                                                                  ATN-PARSER::INDEX)
6562
                                                                       (COND
6563
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphOrDefault|)
6564
                                                                         (LET ((|GraphOrDefault561| |GraphOrDefault|))
6565
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6566
                                                                             (DESTRUCTURING-BIND
6567
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6568
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6569
                                                                               (WHEN ATN-PARSER::RESULT
6570
                                                                                 (SETF |GraphOrDefault|
6571
                                                                                         (CONS ATN-PARSER::RESULT
6572
                                                                                               |GraphOrDefault|)))
6573
                                                                               (|Copy/Copy.2.6| ATN-PARSER::RESULT-INDEX))
6574
                                                                             (SETF |GraphOrDefault| |GraphOrDefault561|))))
6575
                                                                        (T (SETF *ATN-TERM?* '|GraphOrDefault|)
6576
                                                                         (|Copy/fail.3| ATN-PARSER::INDEX)))))))
6577
                                 (|Copy/Copy.2.6| (ATN-PARSER::INDEX)
6578
                                   (%ATN-NODE-BLOCK |Copy/Copy.2.6|
6579
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:TO)
6580
                                                                     (COND
6581
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:TO)
6582
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:TO)
6583
                                                                       (|Copy/Copy.2.7| (1+ ATN-PARSER::INDEX)))
6584
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:TO)
6585
                                                                       (|Copy/fail.3| ATN-PARSER::INDEX))))))
6586
                                 (|Copy/Copy.2.7| (ATN-PARSER::INDEX)
6587
                                   (%ATN-NODE-BLOCK |Copy/Copy.2.7|
6588
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphOrDefault|)
6589
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6590
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphOrDefault|
6591
                                                                                                  ATN-PARSER::INDEX)
6592
                                                                       (COND
6593
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphOrDefault|)
6594
                                                                         (LET ((|GraphOrDefault560| |GraphOrDefault|))
6595
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6596
                                                                             (DESTRUCTURING-BIND
6597
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6598
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6599
                                                                               (WHEN ATN-PARSER::RESULT
6600
                                                                                 (SETF |GraphOrDefault|
6601
                                                                                         (CONS ATN-PARSER::RESULT
6602
                                                                                               |GraphOrDefault|)))
6603
                                                                               (|Copy.2| ATN-PARSER::RESULT-INDEX))
6604
                                                                             (SETF |GraphOrDefault| |GraphOrDefault560|))))
6605
                                                                        (T (SETF *ATN-TERM?* '|GraphOrDefault|)
6606
                                                                         (|Copy/fail.3| ATN-PARSER::INDEX)))))))
6607
                                 (|Copy/fail.3| (ATN-PARSER::INDEX)
6608
                                   (%ATN-NODE-BLOCK |Copy/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6609
                                 (|Copy/start.1| (ATN-PARSER::INDEX)
6610
                                   (%ATN-NODE-BLOCK |Copy/start.1|
6611
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:COPY)
6612
                                                                     (COND
6613
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:COPY)
6614
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:COPY)
6615
                                                                       (|Copy/Copy.2.4| (1+ ATN-PARSER::INDEX)))
6616
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:COPY)
6617
                                                                       (|Copy/fail.3| ATN-PARSER::INDEX)))))))
6618
                          (|Copy/start.1| ATN-PARSER::INDEX)
6619
                          (SETF *ATN-NODE NIL)
6620
                          NIL
6621
                          (IF ATN-PARSER::ATN-STRUCTURE
6622
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
6623
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
6624
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Copy| ATN-PARSER::INDEX *ATN-STACK))))
6625
 (PROGN
6626
  (DEFVAR |InsertData-INDEX|)
6627
  (DEFUN |InsertData| (ATN-PARSER::INDEX &AUX (|QuadData| NIL))
6628
    "{39} InsertData ::= 'INSERT' 'DATA' QuadData
6629
 (|QuadData|)"
6630
    (DECLARE (SPECIAL |InsertData-INDEX|))
6631
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |InsertData-INDEX| *ATN-LEVEL))
6632
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
6633
    (IF (< |InsertData-INDEX| ATN-PARSER::INDEX)
6634
        (LET ((|InsertData-INDEX| ATN-PARSER::INDEX)
6635
              (*ATN-LEVEL (1+ *ATN-LEVEL))
6636
              (*ATN-STACK (CONS '|InsertData| *ATN-STACK))
6637
              (ATN-PARSER::ATN-STRUCTURE NIL))
6638
          (DECLARE (SPECIAL |InsertData-INDEX|))
6639
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
6640
          (DECLARE (TYPE CONS *ATN-STACK))
6641
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
6642
            (%ATN-BLOCK |InsertData|
6643
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
6644
                                   (SETF *ATN-TERM* '|InsertData|)
6645
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
6646
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
6647
                                   ATN-PARSER::INDEX)
6648
                                 (|InsertData.2| (ATN-PARSER::INDEX)
6649
                                   (%ATN-NODE-BLOCK |InsertData.2|
6650
                                                    (%ATN-EDGE-BLOCK (POP |InsertData|)
6651
                                                                     (WHEN T
6652
                                                                       (SETF *ATN-TERM* '|InsertData|)
6653
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
6654
                                                                                   '|InsertData| ATN-PARSER::INDEX
6655
                                                                                   (LIST '|QuadData| |QuadData|))
6656
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
6657
                                                                              (IF (EQ *ATN-REDUCE* T)
6658
                                                                                  (|InsertData-Constructor| |QuadData|)
6659
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
6660
                                                                                      (CONS '|InsertData|
6661
                                                                                            (DELETE NIL (LIST |QuadData|)))
6662
                                                                                      '|InsertData|))))
6663
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6664
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6665
                                 (|InsertData/fail.3| (ATN-PARSER::INDEX)
6666
                                   (%ATN-NODE-BLOCK |InsertData/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6667
                                 (|InsertData/InsertData.2.4| (ATN-PARSER::INDEX)
6668
                                   (%ATN-NODE-BLOCK |InsertData/InsertData.2.4|
6669
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:DATA)
6670
                                                                     (COND
6671
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:DATA)
6672
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:DATA)
6673
                                                                       (|InsertData/InsertData.2.5| (1+ ATN-PARSER::INDEX)))
6674
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:DATA)
6675
                                                                       (|InsertData/fail.3| ATN-PARSER::INDEX))))))
6676
                                 (|InsertData/InsertData.2.5| (ATN-PARSER::INDEX)
6677
                                   (%ATN-NODE-BLOCK |InsertData/InsertData.2.5|
6678
                                                    (%ATN-EDGE-BLOCK (PUSH |QuadData|)
6679
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6680
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|QuadData| ATN-PARSER::INDEX)
6681
                                                                       (COND
6682
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|QuadData|)
6683
                                                                         (LET ((|QuadData562| |QuadData|))
6684
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6685
                                                                             (DESTRUCTURING-BIND
6686
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6687
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6688
                                                                               (WHEN ATN-PARSER::RESULT
6689
                                                                                 (SETF |QuadData| ATN-PARSER::RESULT))
6690
                                                                               (|InsertData.2| ATN-PARSER::RESULT-INDEX))
6691
                                                                             (SETF |QuadData| |QuadData562|))))
6692
                                                                        (T (SETF *ATN-TERM?* '|QuadData|)
6693
                                                                         (|InsertData/fail.3| ATN-PARSER::INDEX)))))))
6694
                                 (|InsertData/start.1| (ATN-PARSER::INDEX)
6695
                                   (%ATN-NODE-BLOCK |InsertData/start.1|
6696
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:INSERT)
6697
                                                                     (COND
6698
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:INSERT)
6699
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:INSERT)
6700
                                                                       (|InsertData/InsertData.2.4| (1+ ATN-PARSER::INDEX)))
6701
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:INSERT)
6702
                                                                       (|InsertData/fail.3| ATN-PARSER::INDEX)))))))
6703
                          (|InsertData/start.1| ATN-PARSER::INDEX)
6704
                          (SETF *ATN-NODE NIL)
6705
                          NIL
6706
                          (IF ATN-PARSER::ATN-STRUCTURE
6707
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
6708
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
6709
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|InsertData| ATN-PARSER::INDEX *ATN-STACK))))
6710
 (PROGN
6711
  (DEFVAR |DeleteData-INDEX|)
6712
  (DEFUN |DeleteData| (ATN-PARSER::INDEX &AUX (|QuadData| NIL))
6713
    "{40} DeleteData ::= 'DELETE' 'DATA' QuadData
6714
 (|QuadData|)"
6715
    (DECLARE (SPECIAL |DeleteData-INDEX|))
6716
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DeleteData-INDEX| *ATN-LEVEL))
6717
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
6718
    (IF (< |DeleteData-INDEX| ATN-PARSER::INDEX)
6719
        (LET ((|DeleteData-INDEX| ATN-PARSER::INDEX)
6720
              (*ATN-LEVEL (1+ *ATN-LEVEL))
6721
              (*ATN-STACK (CONS '|DeleteData| *ATN-STACK))
6722
              (ATN-PARSER::ATN-STRUCTURE NIL))
6723
          (DECLARE (SPECIAL |DeleteData-INDEX|))
6724
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
6725
          (DECLARE (TYPE CONS *ATN-STACK))
6726
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
6727
            (%ATN-BLOCK |DeleteData|
6728
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
6729
                                   (SETF *ATN-TERM* '|DeleteData|)
6730
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
6731
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
6732
                                   ATN-PARSER::INDEX)
6733
                                 (|DeleteData.2| (ATN-PARSER::INDEX)
6734
                                   (%ATN-NODE-BLOCK |DeleteData.2|
6735
                                                    (%ATN-EDGE-BLOCK (POP |DeleteData|)
6736
                                                                     (WHEN T
6737
                                                                       (SETF *ATN-TERM* '|DeleteData|)
6738
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
6739
                                                                                   '|DeleteData| ATN-PARSER::INDEX
6740
                                                                                   (LIST '|QuadData| |QuadData|))
6741
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
6742
                                                                              (IF (EQ *ATN-REDUCE* T)
6743
                                                                                  (|DeleteData-Constructor| |QuadData|)
6744
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
6745
                                                                                      (CONS '|DeleteData|
6746
                                                                                            (DELETE NIL (LIST |QuadData|)))
6747
                                                                                      '|DeleteData|))))
6748
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6749
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6750
                                 (|DeleteData/DeleteData.2.4| (ATN-PARSER::INDEX)
6751
                                   (%ATN-NODE-BLOCK |DeleteData/DeleteData.2.4|
6752
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:DATA)
6753
                                                                     (COND
6754
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:DATA)
6755
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:DATA)
6756
                                                                       (|DeleteData/DeleteData.2.5| (1+ ATN-PARSER::INDEX)))
6757
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:DATA)
6758
                                                                       (|DeleteData/fail.3| ATN-PARSER::INDEX))))))
6759
                                 (|DeleteData/DeleteData.2.5| (ATN-PARSER::INDEX)
6760
                                   (%ATN-NODE-BLOCK |DeleteData/DeleteData.2.5|
6761
                                                    (%ATN-EDGE-BLOCK (PUSH |QuadData|)
6762
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6763
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|QuadData| ATN-PARSER::INDEX)
6764
                                                                       (COND
6765
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|QuadData|)
6766
                                                                         (LET ((|QuadData563| |QuadData|))
6767
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6768
                                                                             (DESTRUCTURING-BIND
6769
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6770
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6771
                                                                               (WHEN ATN-PARSER::RESULT
6772
                                                                                 (SETF |QuadData| ATN-PARSER::RESULT))
6773
                                                                               (|DeleteData.2| ATN-PARSER::RESULT-INDEX))
6774
                                                                             (SETF |QuadData| |QuadData563|))))
6775
                                                                        (T (SETF *ATN-TERM?* '|QuadData|)
6776
                                                                         (|DeleteData/fail.3| ATN-PARSER::INDEX)))))))
6777
                                 (|DeleteData/fail.3| (ATN-PARSER::INDEX)
6778
                                   (%ATN-NODE-BLOCK |DeleteData/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6779
                                 (|DeleteData/start.1| (ATN-PARSER::INDEX)
6780
                                   (%ATN-NODE-BLOCK |DeleteData/start.1|
6781
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:DELETE)
6782
                                                                     (COND
6783
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:DELETE)
6784
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:DELETE)
6785
                                                                       (|DeleteData/DeleteData.2.4| (1+ ATN-PARSER::INDEX)))
6786
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:DELETE)
6787
                                                                       (|DeleteData/fail.3| ATN-PARSER::INDEX)))))))
6788
                          (|DeleteData/start.1| ATN-PARSER::INDEX)
6789
                          (SETF *ATN-NODE NIL)
6790
                          NIL
6791
                          (IF ATN-PARSER::ATN-STRUCTURE
6792
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
6793
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
6794
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|DeleteData| ATN-PARSER::INDEX *ATN-STACK))))
6795
 (PROGN
6796
  (DEFVAR |DeleteWhere-INDEX|)
6797
  (DEFUN |DeleteWhere| (ATN-PARSER::INDEX &AUX (|QuadPattern| NIL))
6798
    "{41} DeleteWhere ::= 'DELETE' 'WHERE' QuadPattern
6799
 (|QuadPattern|)"
6800
    (DECLARE (SPECIAL |DeleteWhere-INDEX|))
6801
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DeleteWhere-INDEX| *ATN-LEVEL))
6802
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
6803
    (IF (< |DeleteWhere-INDEX| ATN-PARSER::INDEX)
6804
        (LET ((|DeleteWhere-INDEX| ATN-PARSER::INDEX)
6805
              (*ATN-LEVEL (1+ *ATN-LEVEL))
6806
              (*ATN-STACK (CONS '|DeleteWhere| *ATN-STACK))
6807
              (ATN-PARSER::ATN-STRUCTURE NIL))
6808
          (DECLARE (SPECIAL |DeleteWhere-INDEX|))
6809
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
6810
          (DECLARE (TYPE CONS *ATN-STACK))
6811
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
6812
            (%ATN-BLOCK |DeleteWhere|
6813
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
6814
                                   (SETF *ATN-TERM* '|DeleteWhere|)
6815
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
6816
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
6817
                                   ATN-PARSER::INDEX)
6818
                                 (|DeleteWhere.2| (ATN-PARSER::INDEX)
6819
                                   (%ATN-NODE-BLOCK |DeleteWhere.2|
6820
                                                    (%ATN-EDGE-BLOCK (POP |DeleteWhere|)
6821
                                                                     (WHEN T
6822
                                                                       (SETF *ATN-TERM* '|DeleteWhere|)
6823
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
6824
                                                                                   '|DeleteWhere| ATN-PARSER::INDEX
6825
                                                                                   (LIST '|QuadPattern| |QuadPattern|))
6826
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
6827
                                                                              (IF (EQ *ATN-REDUCE* T)
6828
                                                                                  (|DeleteWhere-Constructor| |QuadPattern|)
6829
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
6830
                                                                                      (CONS '|DeleteWhere|
6831
                                                                                            (DELETE NIL (LIST |QuadPattern|)))
6832
                                                                                      '|DeleteWhere|))))
6833
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6834
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6835
                                 (|DeleteWhere/DeleteWhere.2.4| (ATN-PARSER::INDEX)
6836
                                   (%ATN-NODE-BLOCK |DeleteWhere/DeleteWhere.2.4|
6837
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:WHERE)
6838
                                                                     (COND
6839
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:WHERE)
6840
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:WHERE)
6841
                                                                       (|DeleteWhere/DeleteWhere.2.5| (1+ ATN-PARSER::INDEX)))
6842
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:WHERE)
6843
                                                                       (|DeleteWhere/fail.3| ATN-PARSER::INDEX))))))
6844
                                 (|DeleteWhere/DeleteWhere.2.5| (ATN-PARSER::INDEX)
6845
                                   (%ATN-NODE-BLOCK |DeleteWhere/DeleteWhere.2.5|
6846
                                                    (%ATN-EDGE-BLOCK (PUSH |QuadPattern|)
6847
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6848
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|QuadPattern| ATN-PARSER::INDEX)
6849
                                                                       (COND
6850
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|QuadPattern|)
6851
                                                                         (LET ((|QuadPattern564| |QuadPattern|))
6852
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6853
                                                                             (DESTRUCTURING-BIND
6854
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6855
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6856
                                                                               (WHEN ATN-PARSER::RESULT
6857
                                                                                 (SETF |QuadPattern| ATN-PARSER::RESULT))
6858
                                                                               (|DeleteWhere.2| ATN-PARSER::RESULT-INDEX))
6859
                                                                             (SETF |QuadPattern| |QuadPattern564|))))
6860
                                                                        (T (SETF *ATN-TERM?* '|QuadPattern|)
6861
                                                                         (|DeleteWhere/fail.3| ATN-PARSER::INDEX)))))))
6862
                                 (|DeleteWhere/fail.3| (ATN-PARSER::INDEX)
6863
                                   (%ATN-NODE-BLOCK |DeleteWhere/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6864
                                 (|DeleteWhere/start.1| (ATN-PARSER::INDEX)
6865
                                   (%ATN-NODE-BLOCK |DeleteWhere/start.1|
6866
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:DELETE)
6867
                                                                     (COND
6868
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:DELETE)
6869
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:DELETE)
6870
                                                                       (|DeleteWhere/DeleteWhere.2.4| (1+ ATN-PARSER::INDEX)))
6871
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:DELETE)
6872
                                                                       (|DeleteWhere/fail.3| ATN-PARSER::INDEX)))))))
6873
                          (|DeleteWhere/start.1| ATN-PARSER::INDEX)
6874
                          (SETF *ATN-NODE NIL)
6875
                          NIL
6876
                          (IF ATN-PARSER::ATN-STRUCTURE
6877
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
6878
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
6879
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|DeleteWhere| ATN-PARSER::INDEX *ATN-STACK))))
6880
 (PROGN
6881
  (DEFVAR |Modify-INDEX|)
6882
  (DEFUN |Modify|
6883
         (ATN-PARSER::INDEX
6884
          &AUX (|DeleteClause| NIL) (|GroupGraphPattern| NIL) (|InsertClause| NIL) (|IRIref| NIL) (|UsingClause| NIL))
6885
    "{42} Modify ::= ('WITH' IRIref)? (((DeleteClause InsertClause?) | InsertClause)) UsingClause* 'WHERE' GroupGraphPattern
6886
 (|DeleteClause| |GroupGraphPattern| |InsertClause| |IRIref| |UsingClause|)"
6887
    (DECLARE (SPECIAL |Modify-INDEX|))
6888
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Modify-INDEX| *ATN-LEVEL))
6889
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
6890
    (IF (< |Modify-INDEX| ATN-PARSER::INDEX)
6891
        (LET ((|Modify-INDEX| ATN-PARSER::INDEX)
6892
              (*ATN-LEVEL (1+ *ATN-LEVEL))
6893
              (*ATN-STACK (CONS '|Modify| *ATN-STACK))
6894
              (ATN-PARSER::ATN-STRUCTURE NIL))
6895
          (DECLARE (SPECIAL |Modify-INDEX|))
6896
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
6897
          (DECLARE (TYPE CONS *ATN-STACK))
6898
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
6899
            (%ATN-BLOCK |Modify|
6900
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
6901
                                   (SETF *ATN-TERM* '|Modify|)
6902
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
6903
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
6904
                                   ATN-PARSER::INDEX)
6905
                                 (|Modify.12| (ATN-PARSER::INDEX)
6906
                                   (%ATN-NODE-BLOCK |Modify.12|
6907
                                                    (%ATN-EDGE-BLOCK (PUSH |UsingClause|)
6908
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6909
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|UsingClause| ATN-PARSER::INDEX)
6910
                                                                       (COND
6911
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|UsingClause|)
6912
                                                                         (LET ((|UsingClause567| |UsingClause|))
6913
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6914
                                                                             (DESTRUCTURING-BIND
6915
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6916
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6917
                                                                               (WHEN ATN-PARSER::RESULT
6918
                                                                                 (SETF |UsingClause|
6919
                                                                                         (CONS ATN-PARSER::RESULT |UsingClause|)))
6920
                                                                               (|Modify.12| ATN-PARSER::RESULT-INDEX))
6921
                                                                             (SETF |UsingClause| |UsingClause567|))))
6922
                                                                        (T (SETF *ATN-TERM?* '|UsingClause|)
6923
                                                                         (|Modify/Modify.2.6| ATN-PARSER::INDEX)))))))
6924
                                 (|Modify.2| (ATN-PARSER::INDEX)
6925
                                   (%ATN-NODE-BLOCK |Modify.2|
6926
                                                    (%ATN-EDGE-BLOCK (POP |Modify|)
6927
                                                                     (WHEN T
6928
                                                                       (SETF *ATN-TERM* '|Modify|)
6929
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Modify|
6930
                                                                                   ATN-PARSER::INDEX
6931
                                                                                   (LIST '|DeleteClause| |DeleteClause|
6932
                                                                                         '|GroupGraphPattern| |GroupGraphPattern|
6933
                                                                                         '|InsertClause| |InsertClause| '|IRIref|
6934
                                                                                         |IRIref| '|UsingClause| |UsingClause|))
6935
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
6936
                                                                              (IF (EQ *ATN-REDUCE* T)
6937
                                                                                  (|Modify-Constructor| |DeleteClause|
6938
                                                                                                        |GroupGraphPattern|
6939
                                                                                                        |InsertClause| |IRIref|
6940
                                                                                                        |UsingClause|)
6941
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
6942
                                                                                      (CONS '|Modify|
6943
                                                                                            (DELETE NIL
6944
                                                                                                    (LIST |DeleteClause|
6945
                                                                                                          |GroupGraphPattern|
6946
                                                                                                          |InsertClause| |IRIref|
6947
                                                                                                          |UsingClause|)))
6948
                                                                                      '|Modify|))))
6949
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
6950
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
6951
                                 (|Modify/fail.3| (ATN-PARSER::INDEX)
6952
                                   (%ATN-NODE-BLOCK |Modify/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
6953
                                 (|Modify/Modify.2.4| (ATN-PARSER::INDEX)
6954
                                   (%ATN-NODE-BLOCK |Modify/Modify.2.4|
6955
                                                    (%ATN-EDGE-BLOCK OR
6956
                                                                     (PROGN
6957
                                                                      (%ATN-EDGE-BLOCK
6958
                                                                       (ATN-PARSER::JUMP |Modify/Modify/Modify.2.5.10|)
6959
                                                                       (|Modify/Modify/Modify.2.5.10| ATN-PARSER::INDEX))
6960
                                                                      (%ATN-EDGE-BLOCK (PUSH |InsertClause|)
6961
                                                                                       (MULTIPLE-VALUE-BIND
6962
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6963
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|InsertClause|
6964
                                                                                                                    ATN-PARSER::INDEX)
6965
                                                                                         (COND
6966
                                                                                          (ATN-PARSER::SUCCESS
6967
                                                                                           (SETF *ATN-TERM* '|InsertClause|)
6968
                                                                                           (LET ((|InsertClause568| |InsertClause|))
6969
                                                                                             (DOLIST
6970
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
6971
                                                                                                  ATN-PARSER::RESULT)
6972
                                                                                               (DESTRUCTURING-BIND
6973
                                                                                                   (
6974
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6975
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
6976
                                                                                                 (WHEN ATN-PARSER::RESULT
6977
                                                                                                   (SETF |InsertClause|
6978
                                                                                                           ATN-PARSER::RESULT))
6979
                                                                                                 (|Modify/Modify.2.5|
6980
                                                                                                  ATN-PARSER::RESULT-INDEX))
6981
                                                                                               (SETF |InsertClause|
6982
                                                                                                       |InsertClause568|))))
6983
                                                                                          (T (SETF *ATN-TERM?* '|InsertClause|)
6984
                                                                                           NIL))))
6985
                                                                      (|Modify/fail.3| ATN-PARSER::INDEX)))))
6986
                                 (|Modify/Modify.2.5| (ATN-PARSER::INDEX)
6987
                                   (%ATN-NODE-BLOCK |Modify/Modify.2.5|
6988
                                                    (%ATN-EDGE-BLOCK (PUSH |UsingClause|)
6989
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
6990
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|UsingClause| ATN-PARSER::INDEX)
6991
                                                                       (COND
6992
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|UsingClause|)
6993
                                                                         (LET ((|UsingClause566| |UsingClause|))
6994
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
6995
                                                                             (DESTRUCTURING-BIND
6996
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
6997
                                                                                 ATN-PARSER::RESULT-AND-INDEX
6998
                                                                               (WHEN ATN-PARSER::RESULT
6999
                                                                                 (SETF |UsingClause|
7000
                                                                                         (CONS ATN-PARSER::RESULT |UsingClause|)))
7001
                                                                               (|Modify.12| ATN-PARSER::RESULT-INDEX))
7002
                                                                             (SETF |UsingClause| |UsingClause566|))))
7003
                                                                        (T (SETF *ATN-TERM?* '|UsingClause|)
7004
                                                                         (|Modify/Modify.2.6| ATN-PARSER::INDEX)))))))
7005
                                 (|Modify/Modify.2.6| (ATN-PARSER::INDEX)
7006
                                   (%ATN-NODE-BLOCK |Modify/Modify.2.6|
7007
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:WHERE)
7008
                                                                     (COND
7009
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:WHERE)
7010
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:WHERE)
7011
                                                                       (|Modify/Modify.2.7| (1+ ATN-PARSER::INDEX)))
7012
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:WHERE)
7013
                                                                       (|Modify/fail.3| ATN-PARSER::INDEX))))))
7014
                                 (|Modify/Modify.2.7| (ATN-PARSER::INDEX)
7015
                                   (%ATN-NODE-BLOCK |Modify/Modify.2.7|
7016
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
7017
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7018
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
7019
                                                                                                  ATN-PARSER::INDEX)
7020
                                                                       (COND
7021
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
7022
                                                                         (LET ((|GroupGraphPattern565| |GroupGraphPattern|))
7023
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7024
                                                                             (DESTRUCTURING-BIND
7025
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7026
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7027
                                                                               (WHEN ATN-PARSER::RESULT
7028
                                                                                 (SETF |GroupGraphPattern| ATN-PARSER::RESULT))
7029
                                                                               (|Modify.2| ATN-PARSER::RESULT-INDEX))
7030
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern565|))))
7031
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
7032
                                                                         (|Modify/fail.3| ATN-PARSER::INDEX)))))))
7033
                                 (|Modify/Modify/Modify.2.4.8| (ATN-PARSER::INDEX)
7034
                                   (%ATN-NODE-BLOCK |Modify/Modify/Modify.2.4.8|
7035
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:WITH)
7036
                                                                     (COND
7037
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:WITH)
7038
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:WITH)
7039
                                                                       (|Modify/Modify/Modify.2.4.9| (1+ ATN-PARSER::INDEX)))
7040
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:WITH) NIL)))))
7041
                                 (|Modify/Modify/Modify.2.4.9| (ATN-PARSER::INDEX)
7042
                                   (%ATN-NODE-BLOCK |Modify/Modify/Modify.2.4.9|
7043
                                                    (%ATN-EDGE-BLOCK (PUSH |IRIref|)
7044
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7045
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)
7046
                                                                       (COND
7047
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|IRIref|)
7048
                                                                         (LET ((|IRIref571| |IRIref|))
7049
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7050
                                                                             (DESTRUCTURING-BIND
7051
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7052
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7053
                                                                               (WHEN ATN-PARSER::RESULT
7054
                                                                                 (SETF |IRIref| ATN-PARSER::RESULT))
7055
                                                                               (|Modify/Modify.2.4| ATN-PARSER::RESULT-INDEX))
7056
                                                                             (SETF |IRIref| |IRIref571|))))
7057
                                                                        (T (SETF *ATN-TERM?* '|IRIref|) NIL))))))
7058
                                 (|Modify/Modify/Modify.2.5.10| (ATN-PARSER::INDEX)
7059
                                   (%ATN-NODE-BLOCK |Modify/Modify/Modify.2.5.10|
7060
                                                    (%ATN-EDGE-BLOCK (PUSH |DeleteClause|)
7061
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7062
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DeleteClause| ATN-PARSER::INDEX)
7063
                                                                       (COND
7064
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DeleteClause|)
7065
                                                                         (LET ((|DeleteClause570| |DeleteClause|))
7066
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7067
                                                                             (DESTRUCTURING-BIND
7068
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7069
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7070
                                                                               (WHEN ATN-PARSER::RESULT
7071
                                                                                 (SETF |DeleteClause| ATN-PARSER::RESULT))
7072
                                                                               (|Modify/Modify/Modify.2.5.11|
7073
                                                                                ATN-PARSER::RESULT-INDEX))
7074
                                                                             (SETF |DeleteClause| |DeleteClause570|))))
7075
                                                                        (T (SETF *ATN-TERM?* '|DeleteClause|) NIL))))))
7076
                                 (|Modify/Modify/Modify.2.5.11| (ATN-PARSER::INDEX)
7077
                                   (%ATN-NODE-BLOCK |Modify/Modify/Modify.2.5.11|
7078
                                                    (%ATN-EDGE-BLOCK (PUSH |InsertClause|)
7079
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7080
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|InsertClause| ATN-PARSER::INDEX)
7081
                                                                       (COND
7082
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|InsertClause|)
7083
                                                                         (LET ((|InsertClause569| |InsertClause|))
7084
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7085
                                                                             (DESTRUCTURING-BIND
7086
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7087
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7088
                                                                               (WHEN ATN-PARSER::RESULT
7089
                                                                                 (SETF |InsertClause| ATN-PARSER::RESULT))
7090
                                                                               (|Modify/Modify.2.5| ATN-PARSER::RESULT-INDEX))
7091
                                                                             (SETF |InsertClause| |InsertClause569|))))
7092
                                                                        (T (SETF *ATN-TERM?* '|InsertClause|)
7093
                                                                         (|Modify/Modify.2.5| ATN-PARSER::INDEX)))))))
7094
                                 (|Modify/start.1| (ATN-PARSER::INDEX)
7095
                                   (%ATN-NODE-BLOCK |Modify/start.1|
7096
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Modify/Modify/Modify.2.4.8|)
7097
                                                                     (|Modify/Modify/Modify.2.4.8| ATN-PARSER::INDEX))
7098
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Modify/Modify.2.4|)
7099
                                                                     (|Modify/Modify.2.4| ATN-PARSER::INDEX)))))
7100
                          (|Modify/start.1| ATN-PARSER::INDEX)
7101
                          (SETF *ATN-NODE NIL)
7102
                          NIL
7103
                          (IF ATN-PARSER::ATN-STRUCTURE
7104
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7105
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7106
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Modify| ATN-PARSER::INDEX *ATN-STACK))))
7107
 (PROGN
7108
  (DEFVAR |DeleteClause-INDEX|)
7109
  (DEFUN |DeleteClause| (ATN-PARSER::INDEX &AUX (|QuadPattern| NIL))
7110
    "{43} DeleteClause ::= 'DELETE' QuadPattern
7111
 (|QuadPattern|)"
7112
    (DECLARE (SPECIAL |DeleteClause-INDEX|))
7113
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DeleteClause-INDEX| *ATN-LEVEL))
7114
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7115
    (IF (< |DeleteClause-INDEX| ATN-PARSER::INDEX)
7116
        (LET ((|DeleteClause-INDEX| ATN-PARSER::INDEX)
7117
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7118
              (*ATN-STACK (CONS '|DeleteClause| *ATN-STACK))
7119
              (ATN-PARSER::ATN-STRUCTURE NIL))
7120
          (DECLARE (SPECIAL |DeleteClause-INDEX|))
7121
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7122
          (DECLARE (TYPE CONS *ATN-STACK))
7123
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7124
            (%ATN-BLOCK |DeleteClause|
7125
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7126
                                   (SETF *ATN-TERM* '|DeleteClause|)
7127
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7128
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7129
                                   ATN-PARSER::INDEX)
7130
                                 (|DeleteClause.2| (ATN-PARSER::INDEX)
7131
                                   (%ATN-NODE-BLOCK |DeleteClause.2|
7132
                                                    (%ATN-EDGE-BLOCK (POP |DeleteClause|)
7133
                                                                     (WHEN T
7134
                                                                       (SETF *ATN-TERM* '|DeleteClause|)
7135
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
7136
                                                                                   '|DeleteClause| ATN-PARSER::INDEX
7137
                                                                                   (LIST '|QuadPattern| |QuadPattern|))
7138
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7139
                                                                              (IF (EQ *ATN-REDUCE* T)
7140
                                                                                  (|DeleteClause-Constructor| |QuadPattern|)
7141
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7142
                                                                                      (CONS '|DeleteClause|
7143
                                                                                            (DELETE NIL (LIST |QuadPattern|)))
7144
                                                                                      '|DeleteClause|))))
7145
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7146
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7147
                                 (|DeleteClause/DeleteClause.2.4| (ATN-PARSER::INDEX)
7148
                                   (%ATN-NODE-BLOCK |DeleteClause/DeleteClause.2.4|
7149
                                                    (%ATN-EDGE-BLOCK (PUSH |QuadPattern|)
7150
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7151
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|QuadPattern| ATN-PARSER::INDEX)
7152
                                                                       (COND
7153
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|QuadPattern|)
7154
                                                                         (LET ((|QuadPattern572| |QuadPattern|))
7155
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7156
                                                                             (DESTRUCTURING-BIND
7157
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7158
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7159
                                                                               (WHEN ATN-PARSER::RESULT
7160
                                                                                 (SETF |QuadPattern| ATN-PARSER::RESULT))
7161
                                                                               (|DeleteClause.2| ATN-PARSER::RESULT-INDEX))
7162
                                                                             (SETF |QuadPattern| |QuadPattern572|))))
7163
                                                                        (T (SETF *ATN-TERM?* '|QuadPattern|)
7164
                                                                         (|DeleteClause/fail.3| ATN-PARSER::INDEX)))))))
7165
                                 (|DeleteClause/fail.3| (ATN-PARSER::INDEX)
7166
                                   (%ATN-NODE-BLOCK |DeleteClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7167
                                 (|DeleteClause/start.1| (ATN-PARSER::INDEX)
7168
                                   (%ATN-NODE-BLOCK |DeleteClause/start.1|
7169
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:DELETE)
7170
                                                                     (COND
7171
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:DELETE)
7172
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:DELETE)
7173
                                                                       (|DeleteClause/DeleteClause.2.4| (1+ ATN-PARSER::INDEX)))
7174
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:DELETE)
7175
                                                                       (|DeleteClause/fail.3| ATN-PARSER::INDEX)))))))
7176
                          (|DeleteClause/start.1| ATN-PARSER::INDEX)
7177
                          (SETF *ATN-NODE NIL)
7178
                          NIL
7179
                          (IF ATN-PARSER::ATN-STRUCTURE
7180
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7181
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7182
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|DeleteClause| ATN-PARSER::INDEX *ATN-STACK))))
7183
 (PROGN
7184
  (DEFVAR |InsertClause-INDEX|)
7185
  (DEFUN |InsertClause| (ATN-PARSER::INDEX &AUX (|QuadPattern| NIL))
7186
    "{44} InsertClause ::= 'INSERT' QuadPattern
7187
 (|QuadPattern|)"
7188
    (DECLARE (SPECIAL |InsertClause-INDEX|))
7189
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |InsertClause-INDEX| *ATN-LEVEL))
7190
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7191
    (IF (< |InsertClause-INDEX| ATN-PARSER::INDEX)
7192
        (LET ((|InsertClause-INDEX| ATN-PARSER::INDEX)
7193
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7194
              (*ATN-STACK (CONS '|InsertClause| *ATN-STACK))
7195
              (ATN-PARSER::ATN-STRUCTURE NIL))
7196
          (DECLARE (SPECIAL |InsertClause-INDEX|))
7197
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7198
          (DECLARE (TYPE CONS *ATN-STACK))
7199
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7200
            (%ATN-BLOCK |InsertClause|
7201
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7202
                                   (SETF *ATN-TERM* '|InsertClause|)
7203
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7204
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7205
                                   ATN-PARSER::INDEX)
7206
                                 (|InsertClause.2| (ATN-PARSER::INDEX)
7207
                                   (%ATN-NODE-BLOCK |InsertClause.2|
7208
                                                    (%ATN-EDGE-BLOCK (POP |InsertClause|)
7209
                                                                     (WHEN T
7210
                                                                       (SETF *ATN-TERM* '|InsertClause|)
7211
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
7212
                                                                                   '|InsertClause| ATN-PARSER::INDEX
7213
                                                                                   (LIST '|QuadPattern| |QuadPattern|))
7214
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7215
                                                                              (IF (EQ *ATN-REDUCE* T)
7216
                                                                                  (|InsertClause-Constructor| |QuadPattern|)
7217
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7218
                                                                                      (CONS '|InsertClause|
7219
                                                                                            (DELETE NIL (LIST |QuadPattern|)))
7220
                                                                                      '|InsertClause|))))
7221
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7222
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7223
                                 (|InsertClause/fail.3| (ATN-PARSER::INDEX)
7224
                                   (%ATN-NODE-BLOCK |InsertClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7225
                                 (|InsertClause/InsertClause.2.4| (ATN-PARSER::INDEX)
7226
                                   (%ATN-NODE-BLOCK |InsertClause/InsertClause.2.4|
7227
                                                    (%ATN-EDGE-BLOCK (PUSH |QuadPattern|)
7228
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7229
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|QuadPattern| ATN-PARSER::INDEX)
7230
                                                                       (COND
7231
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|QuadPattern|)
7232
                                                                         (LET ((|QuadPattern573| |QuadPattern|))
7233
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7234
                                                                             (DESTRUCTURING-BIND
7235
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7236
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7237
                                                                               (WHEN ATN-PARSER::RESULT
7238
                                                                                 (SETF |QuadPattern| ATN-PARSER::RESULT))
7239
                                                                               (|InsertClause.2| ATN-PARSER::RESULT-INDEX))
7240
                                                                             (SETF |QuadPattern| |QuadPattern573|))))
7241
                                                                        (T (SETF *ATN-TERM?* '|QuadPattern|)
7242
                                                                         (|InsertClause/fail.3| ATN-PARSER::INDEX)))))))
7243
                                 (|InsertClause/start.1| (ATN-PARSER::INDEX)
7244
                                   (%ATN-NODE-BLOCK |InsertClause/start.1|
7245
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:INSERT)
7246
                                                                     (COND
7247
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:INSERT)
7248
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:INSERT)
7249
                                                                       (|InsertClause/InsertClause.2.4| (1+ ATN-PARSER::INDEX)))
7250
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:INSERT)
7251
                                                                       (|InsertClause/fail.3| ATN-PARSER::INDEX)))))))
7252
                          (|InsertClause/start.1| ATN-PARSER::INDEX)
7253
                          (SETF *ATN-NODE NIL)
7254
                          NIL
7255
                          (IF ATN-PARSER::ATN-STRUCTURE
7256
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7257
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7258
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|InsertClause| ATN-PARSER::INDEX *ATN-STACK))))
7259
 (PROGN
7260
  (DEFVAR |UsingClause-INDEX|)
7261
  (DEFUN |UsingClause| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (|NamedIRIref| NIL))
7262
    "{45} UsingClause ::= 'USING' ((IRIref | NamedIRIref))
7263
 (|IRIref| |NamedIRIref|)"
7264
    (DECLARE (SPECIAL |UsingClause-INDEX|))
7265
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |UsingClause-INDEX| *ATN-LEVEL))
7266
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7267
    (IF (< |UsingClause-INDEX| ATN-PARSER::INDEX)
7268
        (LET ((|UsingClause-INDEX| ATN-PARSER::INDEX)
7269
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7270
              (*ATN-STACK (CONS '|UsingClause| *ATN-STACK))
7271
              (ATN-PARSER::ATN-STRUCTURE NIL))
7272
          (DECLARE (SPECIAL |UsingClause-INDEX|))
7273
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7274
          (DECLARE (TYPE CONS *ATN-STACK))
7275
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7276
            (%ATN-BLOCK |UsingClause|
7277
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7278
                                   (SETF *ATN-TERM* '|UsingClause|)
7279
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7280
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7281
                                   ATN-PARSER::INDEX)
7282
                                 (|UsingClause.2| (ATN-PARSER::INDEX)
7283
                                   (%ATN-NODE-BLOCK |UsingClause.2|
7284
                                                    (%ATN-EDGE-BLOCK (POP |UsingClause|)
7285
                                                                     (WHEN T
7286
                                                                       (SETF *ATN-TERM* '|UsingClause|)
7287
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
7288
                                                                                   '|UsingClause| ATN-PARSER::INDEX
7289
                                                                                   (LIST '|IRIref| |IRIref| '|NamedIRIref|
7290
                                                                                         |NamedIRIref|))
7291
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7292
                                                                              (IF (EQ *ATN-REDUCE* T)
7293
                                                                                  (|UsingClause-Constructor| |IRIref| |NamedIRIref|)
7294
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7295
                                                                                      (CONS '|UsingClause|
7296
                                                                                            (DELETE NIL
7297
                                                                                                    (LIST |IRIref| |NamedIRIref|)))
7298
                                                                                      '|UsingClause|))))
7299
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7300
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7301
                                 (|UsingClause/fail.3| (ATN-PARSER::INDEX)
7302
                                   (%ATN-NODE-BLOCK |UsingClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7303
                                 (|UsingClause/start.1| (ATN-PARSER::INDEX)
7304
                                   (%ATN-NODE-BLOCK |UsingClause/start.1|
7305
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:USING)
7306
                                                                     (COND
7307
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:USING)
7308
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:USING)
7309
                                                                       (|UsingClause/UsingClause.2.4| (1+ ATN-PARSER::INDEX)))
7310
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:USING)
7311
                                                                       (|UsingClause/fail.3| ATN-PARSER::INDEX))))))
7312
                                 (|UsingClause/UsingClause.2.4| (ATN-PARSER::INDEX)
7313
                                   (%ATN-NODE-BLOCK |UsingClause/UsingClause.2.4|
7314
                                                    (%ATN-EDGE-BLOCK OR
7315
                                                                     (PROGN
7316
                                                                      (%ATN-EDGE-BLOCK (PUSH |IRIref|)
7317
                                                                                       (MULTIPLE-VALUE-BIND
7318
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7319
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|IRIref|
7320
                                                                                                                    ATN-PARSER::INDEX)
7321
                                                                                         (COND
7322
                                                                                          (ATN-PARSER::SUCCESS
7323
                                                                                           (SETF *ATN-TERM* '|IRIref|)
7324
                                                                                           (LET ((|IRIref574| |IRIref|))
7325
                                                                                             (DOLIST
7326
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
7327
                                                                                                  ATN-PARSER::RESULT)
7328
                                                                                               (DESTRUCTURING-BIND
7329
                                                                                                   (
7330
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7331
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
7332
                                                                                                 (WHEN ATN-PARSER::RESULT
7333
                                                                                                   (SETF |IRIref|
7334
                                                                                                           ATN-PARSER::RESULT))
7335
                                                                                                 (|UsingClause.2|
7336
                                                                                                  ATN-PARSER::RESULT-INDEX))
7337
                                                                                               (SETF |IRIref| |IRIref574|))))
7338
                                                                                          (T (SETF *ATN-TERM?* '|IRIref|) NIL))))
7339
                                                                      (%ATN-EDGE-BLOCK (PUSH |NamedIRIref|)
7340
                                                                                       (MULTIPLE-VALUE-BIND
7341
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7342
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|NamedIRIref|
7343
                                                                                                                    ATN-PARSER::INDEX)
7344
                                                                                         (COND
7345
                                                                                          (ATN-PARSER::SUCCESS
7346
                                                                                           (SETF *ATN-TERM* '|NamedIRIref|)
7347
                                                                                           (LET ((|NamedIRIref575| |NamedIRIref|))
7348
                                                                                             (DOLIST
7349
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
7350
                                                                                                  ATN-PARSER::RESULT)
7351
                                                                                               (DESTRUCTURING-BIND
7352
                                                                                                   (
7353
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7354
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
7355
                                                                                                 (WHEN ATN-PARSER::RESULT
7356
                                                                                                   (SETF |NamedIRIref|
7357
                                                                                                           ATN-PARSER::RESULT))
7358
                                                                                                 (|UsingClause.2|
7359
                                                                                                  ATN-PARSER::RESULT-INDEX))
7360
                                                                                               (SETF |NamedIRIref|
7361
                                                                                                       |NamedIRIref575|))))
7362
                                                                                          (T (SETF *ATN-TERM?* '|NamedIRIref|)
7363
                                                                                           NIL))))
7364
                                                                      (|UsingClause/fail.3| ATN-PARSER::INDEX))))))
7365
                          (|UsingClause/start.1| ATN-PARSER::INDEX)
7366
                          (SETF *ATN-NODE NIL)
7367
                          NIL
7368
                          (IF ATN-PARSER::ATN-STRUCTURE
7369
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7370
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7371
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|UsingClause| ATN-PARSER::INDEX *ATN-STACK))))
7372
 (PROGN
7373
  (DEFVAR |NamedIRIref-INDEX|)
7374
  (DEFUN |NamedIRIref| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))
7375
    "{45a} NamedIRIref ::= 'NAMED' IRIref
7376
 (|IRIref|)"
7377
    (DECLARE (SPECIAL |NamedIRIref-INDEX|))
7378
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NamedIRIref-INDEX| *ATN-LEVEL))
7379
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7380
    (IF (< |NamedIRIref-INDEX| ATN-PARSER::INDEX)
7381
        (LET ((|NamedIRIref-INDEX| ATN-PARSER::INDEX)
7382
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7383
              (*ATN-STACK (CONS '|NamedIRIref| *ATN-STACK))
7384
              (ATN-PARSER::ATN-STRUCTURE NIL))
7385
          (DECLARE (SPECIAL |NamedIRIref-INDEX|))
7386
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7387
          (DECLARE (TYPE CONS *ATN-STACK))
7388
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7389
            (%ATN-BLOCK |NamedIRIref|
7390
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7391
                                   (SETF *ATN-TERM* '|NamedIRIref|)
7392
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7393
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7394
                                   ATN-PARSER::INDEX)
7395
                                 (|NamedIRIref.2| (ATN-PARSER::INDEX)
7396
                                   (%ATN-NODE-BLOCK |NamedIRIref.2|
7397
                                                    (%ATN-EDGE-BLOCK (POP |NamedIRIref|)
7398
                                                                     (WHEN T
7399
                                                                       (SETF *ATN-TERM* '|NamedIRIref|)
7400
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
7401
                                                                                   '|NamedIRIref| ATN-PARSER::INDEX
7402
                                                                                   (LIST '|IRIref| |IRIref|))
7403
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7404
                                                                              (IF (EQ *ATN-REDUCE* T)
7405
                                                                                  (|NamedIRIref-Constructor| |IRIref|)
7406
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7407
                                                                                      (CONS '|NamedIRIref|
7408
                                                                                            (DELETE NIL (LIST |IRIref|)))
7409
                                                                                      '|NamedIRIref|))))
7410
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7411
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7412
                                 (|NamedIRIref/fail.3| (ATN-PARSER::INDEX)
7413
                                   (%ATN-NODE-BLOCK |NamedIRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7414
                                 (|NamedIRIref/NamedIRIref.2.4| (ATN-PARSER::INDEX)
7415
                                   (%ATN-NODE-BLOCK |NamedIRIref/NamedIRIref.2.4|
7416
                                                    (%ATN-EDGE-BLOCK (PUSH |IRIref|)
7417
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7418
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)
7419
                                                                       (COND
7420
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|IRIref|)
7421
                                                                         (LET ((|IRIref576| |IRIref|))
7422
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7423
                                                                             (DESTRUCTURING-BIND
7424
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7425
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7426
                                                                               (WHEN ATN-PARSER::RESULT
7427
                                                                                 (SETF |IRIref| ATN-PARSER::RESULT))
7428
                                                                               (|NamedIRIref.2| ATN-PARSER::RESULT-INDEX))
7429
                                                                             (SETF |IRIref| |IRIref576|))))
7430
                                                                        (T (SETF *ATN-TERM?* '|IRIref|)
7431
                                                                         (|NamedIRIref/fail.3| ATN-PARSER::INDEX)))))))
7432
                                 (|NamedIRIref/start.1| (ATN-PARSER::INDEX)
7433
                                   (%ATN-NODE-BLOCK |NamedIRIref/start.1|
7434
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:NAMED)
7435
                                                                     (COND
7436
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:NAMED)
7437
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:NAMED)
7438
                                                                       (|NamedIRIref/NamedIRIref.2.4| (1+ ATN-PARSER::INDEX)))
7439
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:NAMED)
7440
                                                                       (|NamedIRIref/fail.3| ATN-PARSER::INDEX)))))))
7441
                          (|NamedIRIref/start.1| ATN-PARSER::INDEX)
7442
                          (SETF *ATN-NODE NIL)
7443
                          NIL
7444
                          (IF ATN-PARSER::ATN-STRUCTURE
7445
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7446
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7447
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|NamedIRIref| ATN-PARSER::INDEX *ATN-STACK))))
7448
 (PROGN
7449
  (DEFVAR |GraphOrDefault-INDEX|)
7450
  (DEFUN |GraphOrDefault| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))
7451
    "{46} GraphOrDefault ::= ('DEFAULT' | ('GRAPH'? IRIref))
7452
 (|IRIref|)"
7453
    (DECLARE (SPECIAL |GraphOrDefault-INDEX|))
7454
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphOrDefault-INDEX| *ATN-LEVEL))
7455
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7456
    (IF (< |GraphOrDefault-INDEX| ATN-PARSER::INDEX)
7457
        (LET ((|GraphOrDefault-INDEX| ATN-PARSER::INDEX)
7458
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7459
              (*ATN-STACK (CONS '|GraphOrDefault| *ATN-STACK))
7460
              (ATN-PARSER::ATN-STRUCTURE NIL))
7461
          (DECLARE (SPECIAL |GraphOrDefault-INDEX|))
7462
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7463
          (DECLARE (TYPE CONS *ATN-STACK))
7464
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7465
            (%ATN-BLOCK |GraphOrDefault|
7466
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7467
                                   (SETF *ATN-TERM* '|GraphOrDefault|)
7468
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7469
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7470
                                   ATN-PARSER::INDEX)
7471
                                 (|GraphOrDefault.2| (ATN-PARSER::INDEX)
7472
                                   (%ATN-NODE-BLOCK |GraphOrDefault.2|
7473
                                                    (%ATN-EDGE-BLOCK (POP |GraphOrDefault|)
7474
                                                                     (WHEN T
7475
                                                                       (SETF *ATN-TERM* '|GraphOrDefault|)
7476
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
7477
                                                                                   '|GraphOrDefault| ATN-PARSER::INDEX
7478
                                                                                   (LIST '|IRIref| |IRIref|))
7479
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7480
                                                                              (IF (EQ *ATN-REDUCE* T)
7481
                                                                                  (|GraphOrDefault-Constructor| |IRIref|)
7482
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7483
                                                                                      (CONS '|GraphOrDefault|
7484
                                                                                            (DELETE NIL (LIST |IRIref|)))
7485
                                                                                      '|GraphOrDefault|))))
7486
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7487
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7488
                                 (|GraphOrDefault/fail.3| (ATN-PARSER::INDEX)
7489
                                   (%ATN-NODE-BLOCK |GraphOrDefault/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7490
                                 (|GraphOrDefault/GraphOrDefault.2.4| (ATN-PARSER::INDEX)
7491
                                   (%ATN-NODE-BLOCK |GraphOrDefault/GraphOrDefault.2.4|
7492
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:GRAPH)
7493
                                                                     (COND
7494
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:GRAPH)
7495
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:GRAPH)
7496
                                                                       (|GraphOrDefault/GraphOrDefault.2.5| (1+ ATN-PARSER::INDEX)))
7497
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:GRAPH)
7498
                                                                       (|GraphOrDefault/GraphOrDefault.2.5| ATN-PARSER::INDEX))))))
7499
                                 (|GraphOrDefault/GraphOrDefault.2.5| (ATN-PARSER::INDEX)
7500
                                   (%ATN-NODE-BLOCK |GraphOrDefault/GraphOrDefault.2.5|
7501
                                                    (%ATN-EDGE-BLOCK (PUSH |IRIref|)
7502
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7503
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)
7504
                                                                       (COND
7505
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|IRIref|)
7506
                                                                         (LET ((|IRIref577| |IRIref|))
7507
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7508
                                                                             (DESTRUCTURING-BIND
7509
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7510
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7511
                                                                               (WHEN ATN-PARSER::RESULT
7512
                                                                                 (SETF |IRIref| ATN-PARSER::RESULT))
7513
                                                                               (|GraphOrDefault.2| ATN-PARSER::RESULT-INDEX))
7514
                                                                             (SETF |IRIref| |IRIref577|))))
7515
                                                                        (T (SETF *ATN-TERM?* '|IRIref|) NIL))))))
7516
                                 (|GraphOrDefault/start.1| (ATN-PARSER::INDEX)
7517
                                   (%ATN-NODE-BLOCK |GraphOrDefault/start.1|
7518
                                                    (%ATN-EDGE-BLOCK OR
7519
                                                                     (PROGN
7520
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:DEFAULT)
7521
                                                                                       (COND
7522
                                                                                        ((EQ ATN-PARSER::|item| 'SPOCQ.S:DEFAULT)
7523
                                                                                         (SETF *ATN-TERM* 'SPOCQ.S:DEFAULT)
7524
                                                                                         (|GraphOrDefault.2|
7525
                                                                                          (1+ ATN-PARSER::INDEX)))
7526
                                                                                        (T (SETF *ATN-TERM?* 'SPOCQ.S:DEFAULT)
7527
                                                                                         NIL)))
7528
                                                                      (%ATN-EDGE-BLOCK
7529
                                                                       (ATN-PARSER::JUMP |GraphOrDefault/GraphOrDefault.2.4|)
7530
                                                                       (|GraphOrDefault/GraphOrDefault.2.4| ATN-PARSER::INDEX))
7531
                                                                      (|GraphOrDefault/fail.3| ATN-PARSER::INDEX))))))
7532
                          (|GraphOrDefault/start.1| ATN-PARSER::INDEX)
7533
                          (SETF *ATN-NODE NIL)
7534
                          NIL
7535
                          (IF ATN-PARSER::ATN-STRUCTURE
7536
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7537
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7538
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphOrDefault| ATN-PARSER::INDEX *ATN-STACK))))
7539
 (PROGN
7540
  (DEFVAR |GraphRef-INDEX|)
7541
  (DEFUN |GraphRef| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))
7542
    "{47} GraphRef ::= 'GRAPH' IRIref
7543
 (|IRIref|)"
7544
    (DECLARE (SPECIAL |GraphRef-INDEX|))
7545
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphRef-INDEX| *ATN-LEVEL))
7546
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7547
    (IF (< |GraphRef-INDEX| ATN-PARSER::INDEX)
7548
        (LET ((|GraphRef-INDEX| ATN-PARSER::INDEX)
7549
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7550
              (*ATN-STACK (CONS '|GraphRef| *ATN-STACK))
7551
              (ATN-PARSER::ATN-STRUCTURE NIL))
7552
          (DECLARE (SPECIAL |GraphRef-INDEX|))
7553
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7554
          (DECLARE (TYPE CONS *ATN-STACK))
7555
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7556
            (%ATN-BLOCK |GraphRef|
7557
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7558
                                   (SETF *ATN-TERM* '|GraphRef|)
7559
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7560
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7561
                                   ATN-PARSER::INDEX)
7562
                                 (|GraphRef.2| (ATN-PARSER::INDEX)
7563
                                   (%ATN-NODE-BLOCK |GraphRef.2|
7564
                                                    (%ATN-EDGE-BLOCK (POP |GraphRef|)
7565
                                                                     (WHEN T
7566
                                                                       (SETF *ATN-TERM* '|GraphRef|)
7567
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|GraphRef|
7568
                                                                                   ATN-PARSER::INDEX (LIST '|IRIref| |IRIref|))
7569
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7570
                                                                              (IF (EQ *ATN-REDUCE* T)
7571
                                                                                  (|GraphRef-Constructor| |IRIref|)
7572
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7573
                                                                                      (CONS '|GraphRef|
7574
                                                                                            (DELETE NIL (LIST |IRIref|)))
7575
                                                                                      '|GraphRef|))))
7576
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7577
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7578
                                 (|GraphRef/fail.3| (ATN-PARSER::INDEX)
7579
                                   (%ATN-NODE-BLOCK |GraphRef/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7580
                                 (|GraphRef/GraphRef.2.4| (ATN-PARSER::INDEX)
7581
                                   (%ATN-NODE-BLOCK |GraphRef/GraphRef.2.4|
7582
                                                    (%ATN-EDGE-BLOCK (PUSH |IRIref|)
7583
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7584
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)
7585
                                                                       (COND
7586
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|IRIref|)
7587
                                                                         (LET ((|IRIref578| |IRIref|))
7588
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7589
                                                                             (DESTRUCTURING-BIND
7590
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7591
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7592
                                                                               (WHEN ATN-PARSER::RESULT
7593
                                                                                 (SETF |IRIref| ATN-PARSER::RESULT))
7594
                                                                               (|GraphRef.2| ATN-PARSER::RESULT-INDEX))
7595
                                                                             (SETF |IRIref| |IRIref578|))))
7596
                                                                        (T (SETF *ATN-TERM?* '|IRIref|)
7597
                                                                         (|GraphRef/fail.3| ATN-PARSER::INDEX)))))))
7598
                                 (|GraphRef/start.1| (ATN-PARSER::INDEX)
7599
                                   (%ATN-NODE-BLOCK |GraphRef/start.1|
7600
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:GRAPH)
7601
                                                                     (COND
7602
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:GRAPH)
7603
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:GRAPH)
7604
                                                                       (|GraphRef/GraphRef.2.4| (1+ ATN-PARSER::INDEX)))
7605
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:GRAPH)
7606
                                                                       (|GraphRef/fail.3| ATN-PARSER::INDEX)))))))
7607
                          (|GraphRef/start.1| ATN-PARSER::INDEX)
7608
                          (SETF *ATN-NODE NIL)
7609
                          NIL
7610
                          (IF ATN-PARSER::ATN-STRUCTURE
7611
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7612
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7613
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphRef| ATN-PARSER::INDEX *ATN-STACK))))
7614
 (PROGN
7615
  (DEFVAR |GraphRefAll-INDEX|)
7616
  (DEFUN |GraphRefAll| (ATN-PARSER::INDEX &AUX (|GraphRef| NIL) (|GraphRefKeyword| NIL))
7617
    "{48} GraphRefAll ::= (GraphRef | GraphRefKeyword)
7618
 (|GraphRef| |GraphRefKeyword|)"
7619
    (DECLARE (SPECIAL |GraphRefAll-INDEX|))
7620
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphRefAll-INDEX| *ATN-LEVEL))
7621
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7622
    (IF (< |GraphRefAll-INDEX| ATN-PARSER::INDEX)
7623
        (LET ((|GraphRefAll-INDEX| ATN-PARSER::INDEX)
7624
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7625
              (*ATN-STACK (CONS '|GraphRefAll| *ATN-STACK))
7626
              (ATN-PARSER::ATN-STRUCTURE NIL))
7627
          (DECLARE (SPECIAL |GraphRefAll-INDEX|))
7628
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7629
          (DECLARE (TYPE CONS *ATN-STACK))
7630
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7631
            (%ATN-BLOCK |GraphRefAll|
7632
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7633
                                   (SETF *ATN-TERM* '|GraphRefAll|)
7634
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7635
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7636
                                   ATN-PARSER::INDEX)
7637
                                 (|GraphRefAll.2| (ATN-PARSER::INDEX)
7638
                                   (%ATN-NODE-BLOCK |GraphRefAll.2|
7639
                                                    (%ATN-EDGE-BLOCK (POP |GraphRefAll|)
7640
                                                                     (WHEN T
7641
                                                                       (SETF *ATN-TERM* '|GraphRefAll|)
7642
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
7643
                                                                                   '|GraphRefAll| ATN-PARSER::INDEX
7644
                                                                                   (LIST '|GraphRef| |GraphRef| '|GraphRefKeyword|
7645
                                                                                         |GraphRefKeyword|))
7646
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7647
                                                                              (IF (EQ *ATN-REDUCE* T)
7648
                                                                                  (|GraphRefAll-Constructor| |GraphRef|
7649
                                                                                                             |GraphRefKeyword|)
7650
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7651
                                                                                      (CONS '|GraphRefAll|
7652
                                                                                            (DELETE NIL
7653
                                                                                                    (LIST |GraphRef|
7654
                                                                                                          |GraphRefKeyword|)))
7655
                                                                                      '|GraphRefAll|))))
7656
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7657
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7658
                                 (|GraphRefAll/fail.3| (ATN-PARSER::INDEX)
7659
                                   (%ATN-NODE-BLOCK |GraphRefAll/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7660
                                 (|GraphRefAll/start.1| (ATN-PARSER::INDEX)
7661
                                   (%ATN-NODE-BLOCK |GraphRefAll/start.1|
7662
                                                    (%ATN-EDGE-BLOCK OR
7663
                                                                     (PROGN
7664
                                                                      (%ATN-EDGE-BLOCK (PUSH |GraphRef|)
7665
                                                                                       (MULTIPLE-VALUE-BIND
7666
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7667
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|GraphRef|
7668
                                                                                                                    ATN-PARSER::INDEX)
7669
                                                                                         (COND
7670
                                                                                          (ATN-PARSER::SUCCESS
7671
                                                                                           (SETF *ATN-TERM* '|GraphRef|)
7672
                                                                                           (LET ((|GraphRef579| |GraphRef|))
7673
                                                                                             (DOLIST
7674
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
7675
                                                                                                  ATN-PARSER::RESULT)
7676
                                                                                               (DESTRUCTURING-BIND
7677
                                                                                                   (
7678
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7679
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
7680
                                                                                                 (WHEN ATN-PARSER::RESULT
7681
                                                                                                   (SETF |GraphRef|
7682
                                                                                                           ATN-PARSER::RESULT))
7683
                                                                                                 (|GraphRefAll.2|
7684
                                                                                                  ATN-PARSER::RESULT-INDEX))
7685
                                                                                               (SETF |GraphRef| |GraphRef579|))))
7686
                                                                                          (T (SETF *ATN-TERM?* '|GraphRef|) NIL))))
7687
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |GraphRefKeyword|)
7688
                                                                                       (COND
7689
                                                                                        ((|IS-GraphRefKeyword| ATN-PARSER::|item|)
7690
                                                                                         (SETF *ATN-TERM* '|GraphRefKeyword|)
7691
                                                                                         (SETF |GraphRefKeyword|
7692
                                                                                                 (IF (EQ *ATN-REDUCE* T)
7693
                                                                                                     (ATN-REDUCE-ITEM
7694
                                                                                                      #'|GraphRefKeyword-Constructor|
7695
                                                                                                      ATN-PARSER::|item|)
7696
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
7697
                                                                                                         (LIST '|GraphRefKeyword|
7698
                                                                                                               ATN-PARSER::|item|)
7699
                                                                                                         '|GraphRefKeyword|)))
7700
                                                                                         (|GraphRefAll.2| (1+ ATN-PARSER::INDEX)))
7701
                                                                                        (T (SETF *ATN-TERM* '|GraphRefKeyword|)
7702
                                                                                         NIL)))
7703
                                                                      (|GraphRefAll/fail.3| ATN-PARSER::INDEX))))))
7704
                          (|GraphRefAll/start.1| ATN-PARSER::INDEX)
7705
                          (SETF *ATN-NODE NIL)
7706
                          NIL
7707
                          (IF ATN-PARSER::ATN-STRUCTURE
7708
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7709
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7710
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphRefAll| ATN-PARSER::INDEX *ATN-STACK))))
7711
 (PROGN
7712
  (DEFVAR |QuadPattern-INDEX|)
7713
  (DEFUN |QuadPattern| (ATN-PARSER::INDEX &AUX (|Quads| NIL))
7714
    "{49} QuadPattern ::= '{' Quads? '}'
7715
 (|Quads|)"
7716
    (DECLARE (SPECIAL |QuadPattern-INDEX|))
7717
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |QuadPattern-INDEX| *ATN-LEVEL))
7718
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7719
    (IF (< |QuadPattern-INDEX| ATN-PARSER::INDEX)
7720
        (LET ((|QuadPattern-INDEX| ATN-PARSER::INDEX)
7721
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7722
              (*ATN-STACK (CONS '|QuadPattern| *ATN-STACK))
7723
              (ATN-PARSER::ATN-STRUCTURE NIL))
7724
          (DECLARE (SPECIAL |QuadPattern-INDEX|))
7725
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7726
          (DECLARE (TYPE CONS *ATN-STACK))
7727
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7728
            (%ATN-BLOCK |QuadPattern|
7729
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7730
                                   (SETF *ATN-TERM* '|QuadPattern|)
7731
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7732
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7733
                                   ATN-PARSER::INDEX)
7734
                                 (|QuadPattern.2| (ATN-PARSER::INDEX)
7735
                                   (%ATN-NODE-BLOCK |QuadPattern.2|
7736
                                                    (%ATN-EDGE-BLOCK (POP |QuadPattern|)
7737
                                                                     (WHEN T
7738
                                                                       (SETF *ATN-TERM* '|QuadPattern|)
7739
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
7740
                                                                                   '|QuadPattern| ATN-PARSER::INDEX
7741
                                                                                   (LIST '|Quads| |Quads|))
7742
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7743
                                                                              (IF (EQ *ATN-REDUCE* T)
7744
                                                                                  (|QuadPattern-Constructor| |Quads|)
7745
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7746
                                                                                      (CONS '|QuadPattern|
7747
                                                                                            (DELETE NIL (LIST |Quads|)))
7748
                                                                                      '|QuadPattern|))))
7749
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7750
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7751
                                 (|QuadPattern/fail.3| (ATN-PARSER::INDEX)
7752
                                   (%ATN-NODE-BLOCK |QuadPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7753
                                 (|QuadPattern/QuadPattern.2.4| (ATN-PARSER::INDEX)
7754
                                   (%ATN-NODE-BLOCK |QuadPattern/QuadPattern.2.4|
7755
                                                    (%ATN-EDGE-BLOCK (PUSH |Quads|)
7756
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7757
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Quads| ATN-PARSER::INDEX)
7758
                                                                       (COND
7759
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Quads|)
7760
                                                                         (LET ((|Quads580| |Quads|))
7761
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7762
                                                                             (DESTRUCTURING-BIND
7763
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7764
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7765
                                                                               (WHEN ATN-PARSER::RESULT
7766
                                                                                 (SETF |Quads| ATN-PARSER::RESULT))
7767
                                                                               (|QuadPattern/QuadPattern.2.5|
7768
                                                                                ATN-PARSER::RESULT-INDEX))
7769
                                                                             (SETF |Quads| |Quads580|))))
7770
                                                                        (T (SETF *ATN-TERM?* '|Quads|)
7771
                                                                         (|QuadPattern/QuadPattern.2.5| ATN-PARSER::INDEX)))))))
7772
                                 (|QuadPattern/QuadPattern.2.5| (ATN-PARSER::INDEX)
7773
                                   (%ATN-NODE-BLOCK |QuadPattern/QuadPattern.2.5|
7774
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
7775
                                                                     (COND
7776
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
7777
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
7778
                                                                       (|QuadPattern.2| (1+ ATN-PARSER::INDEX)))
7779
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:})
7780
                                                                       (|QuadPattern/fail.3| ATN-PARSER::INDEX))))))
7781
                                 (|QuadPattern/start.1| (ATN-PARSER::INDEX)
7782
                                   (%ATN-NODE-BLOCK |QuadPattern/start.1|
7783
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
7784
                                                                     (COND
7785
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
7786
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
7787
                                                                       (|QuadPattern/QuadPattern.2.4| (1+ ATN-PARSER::INDEX)))
7788
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{)
7789
                                                                       (|QuadPattern/fail.3| ATN-PARSER::INDEX)))))))
7790
                          (|QuadPattern/start.1| ATN-PARSER::INDEX)
7791
                          (SETF *ATN-NODE NIL)
7792
                          NIL
7793
                          (IF ATN-PARSER::ATN-STRUCTURE
7794
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7795
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7796
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|QuadPattern| ATN-PARSER::INDEX *ATN-STACK))))
7797
 (PROGN
7798
  (DEFVAR |QuadData-INDEX|)
7799
  (DEFUN |QuadData| (ATN-PARSER::INDEX &AUX (|Quads| NIL))
7800
    "{50} QuadData ::= '{' Quads? '}'
7801
 (|Quads|)"
7802
    (DECLARE (SPECIAL |QuadData-INDEX|))
7803
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |QuadData-INDEX| *ATN-LEVEL))
7804
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7805
    (IF (< |QuadData-INDEX| ATN-PARSER::INDEX)
7806
        (LET ((|QuadData-INDEX| ATN-PARSER::INDEX)
7807
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7808
              (*ATN-STACK (CONS '|QuadData| *ATN-STACK))
7809
              (ATN-PARSER::ATN-STRUCTURE NIL))
7810
          (DECLARE (SPECIAL |QuadData-INDEX|))
7811
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7812
          (DECLARE (TYPE CONS *ATN-STACK))
7813
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7814
            (%ATN-BLOCK |QuadData|
7815
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7816
                                   (SETF *ATN-TERM* '|QuadData|)
7817
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7818
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7819
                                   ATN-PARSER::INDEX)
7820
                                 (|QuadData.2| (ATN-PARSER::INDEX)
7821
                                   (%ATN-NODE-BLOCK |QuadData.2|
7822
                                                    (%ATN-EDGE-BLOCK (POP |QuadData|)
7823
                                                                     (WHEN T
7824
                                                                       (SETF *ATN-TERM* '|QuadData|)
7825
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|QuadData|
7826
                                                                                   ATN-PARSER::INDEX (LIST '|Quads| |Quads|))
7827
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7828
                                                                              (IF (EQ *ATN-REDUCE* T)
7829
                                                                                  (|QuadData-Constructor| |Quads|)
7830
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7831
                                                                                      (CONS '|QuadData| (DELETE NIL (LIST |Quads|)))
7832
                                                                                      '|QuadData|))))
7833
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7834
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7835
                                 (|QuadData/fail.3| (ATN-PARSER::INDEX)
7836
                                   (%ATN-NODE-BLOCK |QuadData/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7837
                                 (|QuadData/QuadData.2.4| (ATN-PARSER::INDEX)
7838
                                   (%ATN-NODE-BLOCK |QuadData/QuadData.2.4|
7839
                                                    (%ATN-EDGE-BLOCK (PUSH |Quads|)
7840
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7841
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Quads| ATN-PARSER::INDEX)
7842
                                                                       (COND
7843
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Quads|)
7844
                                                                         (LET ((|Quads581| |Quads|))
7845
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7846
                                                                             (DESTRUCTURING-BIND
7847
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7848
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7849
                                                                               (WHEN ATN-PARSER::RESULT
7850
                                                                                 (SETF |Quads| ATN-PARSER::RESULT))
7851
                                                                               (|QuadData/QuadData.2.5| ATN-PARSER::RESULT-INDEX))
7852
                                                                             (SETF |Quads| |Quads581|))))
7853
                                                                        (T (SETF *ATN-TERM?* '|Quads|)
7854
                                                                         (|QuadData/QuadData.2.5| ATN-PARSER::INDEX)))))))
7855
                                 (|QuadData/QuadData.2.5| (ATN-PARSER::INDEX)
7856
                                   (%ATN-NODE-BLOCK |QuadData/QuadData.2.5|
7857
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
7858
                                                                     (COND
7859
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
7860
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
7861
                                                                       (|QuadData.2| (1+ ATN-PARSER::INDEX)))
7862
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:})
7863
                                                                       (|QuadData/fail.3| ATN-PARSER::INDEX))))))
7864
                                 (|QuadData/start.1| (ATN-PARSER::INDEX)
7865
                                   (%ATN-NODE-BLOCK |QuadData/start.1|
7866
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
7867
                                                                     (COND
7868
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
7869
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
7870
                                                                       (|QuadData/QuadData.2.4| (1+ ATN-PARSER::INDEX)))
7871
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{)
7872
                                                                       (|QuadData/fail.3| ATN-PARSER::INDEX)))))))
7873
                          (|QuadData/start.1| ATN-PARSER::INDEX)
7874
                          (SETF *ATN-NODE NIL)
7875
                          NIL
7876
                          (IF ATN-PARSER::ATN-STRUCTURE
7877
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7878
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7879
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|QuadData| ATN-PARSER::INDEX *ATN-STACK))))
7880
 (PROGN
7881
  (DEFVAR |Quads-INDEX|)
7882
  (DEFUN |Quads| (ATN-PARSER::INDEX &AUX (|Quads| NIL) (|TriplesOrQuads| NIL))
7883
    "{51} Quads ::= TriplesOrQuads Quads?
7884
 (|Quads| |TriplesOrQuads|)"
7885
    (DECLARE (SPECIAL |Quads-INDEX|))
7886
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Quads-INDEX| *ATN-LEVEL))
7887
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7888
    (IF (< |Quads-INDEX| ATN-PARSER::INDEX)
7889
        (LET ((|Quads-INDEX| ATN-PARSER::INDEX)
7890
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7891
              (*ATN-STACK (CONS '|Quads| *ATN-STACK))
7892
              (ATN-PARSER::ATN-STRUCTURE NIL))
7893
          (DECLARE (SPECIAL |Quads-INDEX|))
7894
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7895
          (DECLARE (TYPE CONS *ATN-STACK))
7896
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7897
            (%ATN-BLOCK |Quads|
7898
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7899
                                   (SETF *ATN-TERM* '|Quads|)
7900
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7901
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7902
                                   ATN-PARSER::INDEX)
7903
                                 (|Quads.2| (ATN-PARSER::INDEX)
7904
                                   (%ATN-NODE-BLOCK |Quads.2|
7905
                                                    (%ATN-EDGE-BLOCK (POP |Quads|)
7906
                                                                     (WHEN T
7907
                                                                       (SETF *ATN-TERM* '|Quads|)
7908
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Quads|
7909
                                                                                   ATN-PARSER::INDEX
7910
                                                                                   (LIST '|Quads| |Quads| '|TriplesOrQuads|
7911
                                                                                         |TriplesOrQuads|))
7912
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
7913
                                                                              (IF (EQ *ATN-REDUCE* T)
7914
                                                                                  (|Quads-Constructor| |Quads| |TriplesOrQuads|)
7915
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
7916
                                                                                      (CONS '|Quads|
7917
                                                                                            (DELETE NIL
7918
                                                                                                    (LIST |Quads|
7919
                                                                                                          |TriplesOrQuads|)))
7920
                                                                                      '|Quads|))))
7921
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
7922
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
7923
                                 (|Quads/fail.3| (ATN-PARSER::INDEX)
7924
                                   (%ATN-NODE-BLOCK |Quads/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
7925
                                 (|Quads/Quads.2.4| (ATN-PARSER::INDEX)
7926
                                   (%ATN-NODE-BLOCK |Quads/Quads.2.4|
7927
                                                    (%ATN-EDGE-BLOCK (PUSH |Quads|)
7928
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7929
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Quads| ATN-PARSER::INDEX)
7930
                                                                       (COND
7931
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Quads|)
7932
                                                                         (LET ((|Quads582| |Quads|))
7933
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7934
                                                                             (DESTRUCTURING-BIND
7935
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7936
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7937
                                                                               (WHEN ATN-PARSER::RESULT
7938
                                                                                 (SETF |Quads| ATN-PARSER::RESULT))
7939
                                                                               (|Quads.2| ATN-PARSER::RESULT-INDEX))
7940
                                                                             (SETF |Quads| |Quads582|))))
7941
                                                                        (T (SETF *ATN-TERM?* '|Quads|)
7942
                                                                         (|Quads.2| ATN-PARSER::INDEX)))))))
7943
                                 (|Quads/start.1| (ATN-PARSER::INDEX)
7944
                                   (%ATN-NODE-BLOCK |Quads/start.1|
7945
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesOrQuads|)
7946
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
7947
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesOrQuads|
7948
                                                                                                  ATN-PARSER::INDEX)
7949
                                                                       (COND
7950
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesOrQuads|)
7951
                                                                         (LET ((|TriplesOrQuads583| |TriplesOrQuads|))
7952
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
7953
                                                                             (DESTRUCTURING-BIND
7954
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
7955
                                                                                 ATN-PARSER::RESULT-AND-INDEX
7956
                                                                               (WHEN ATN-PARSER::RESULT
7957
                                                                                 (SETF |TriplesOrQuads| ATN-PARSER::RESULT))
7958
                                                                               (|Quads/Quads.2.4| ATN-PARSER::RESULT-INDEX))
7959
                                                                             (SETF |TriplesOrQuads| |TriplesOrQuads583|))))
7960
                                                                        (T (SETF *ATN-TERM?* '|TriplesOrQuads|)
7961
                                                                         (|Quads/fail.3| ATN-PARSER::INDEX))))))))
7962
                          (|Quads/start.1| ATN-PARSER::INDEX)
7963
                          (SETF *ATN-NODE NIL)
7964
                          NIL
7965
                          (IF ATN-PARSER::ATN-STRUCTURE
7966
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
7967
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
7968
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Quads| ATN-PARSER::INDEX *ATN-STACK))))
7969
 (PROGN
7970
  (DEFVAR |TriplesOrQuads-INDEX|)
7971
  (DEFUN |TriplesOrQuads| (ATN-PARSER::INDEX &AUX (|QuadsNotTriples| NIL) (|TriplesTemplate| NIL))
7972
    "{51a} TriplesOrQuads ::= (TriplesTemplate | (QuadsNotTriples '.'?))
7973
 (|QuadsNotTriples| |TriplesTemplate|)"
7974
    (DECLARE (SPECIAL |TriplesOrQuads-INDEX|))
7975
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesOrQuads-INDEX| *ATN-LEVEL))
7976
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
7977
    (IF (< |TriplesOrQuads-INDEX| ATN-PARSER::INDEX)
7978
        (LET ((|TriplesOrQuads-INDEX| ATN-PARSER::INDEX)
7979
              (*ATN-LEVEL (1+ *ATN-LEVEL))
7980
              (*ATN-STACK (CONS '|TriplesOrQuads| *ATN-STACK))
7981
              (ATN-PARSER::ATN-STRUCTURE NIL))
7982
          (DECLARE (SPECIAL |TriplesOrQuads-INDEX|))
7983
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
7984
          (DECLARE (TYPE CONS *ATN-STACK))
7985
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
7986
            (%ATN-BLOCK |TriplesOrQuads|
7987
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
7988
                                   (SETF *ATN-TERM* '|TriplesOrQuads|)
7989
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
7990
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
7991
                                   ATN-PARSER::INDEX)
7992
                                 (|TriplesOrQuads.2| (ATN-PARSER::INDEX)
7993
                                   (%ATN-NODE-BLOCK |TriplesOrQuads.2|
7994
                                                    (%ATN-EDGE-BLOCK (POP |TriplesOrQuads|)
7995
                                                                     (WHEN T
7996
                                                                       (SETF *ATN-TERM* '|TriplesOrQuads|)
7997
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
7998
                                                                                   '|TriplesOrQuads| ATN-PARSER::INDEX
7999
                                                                                   (LIST '|QuadsNotTriples| |QuadsNotTriples|
8000
                                                                                         '|TriplesTemplate| |TriplesTemplate|))
8001
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
8002
                                                                              (IF (EQ *ATN-REDUCE* T)
8003
                                                                                  (|TriplesOrQuads-Constructor| |QuadsNotTriples|
8004
                                                                                                                |TriplesTemplate|)
8005
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
8006
                                                                                      (CONS '|TriplesOrQuads|
8007
                                                                                            (DELETE NIL
8008
                                                                                                    (LIST |QuadsNotTriples|
8009
                                                                                                          |TriplesTemplate|)))
8010
                                                                                      '|TriplesOrQuads|))))
8011
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
8012
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
8013
                                 (|TriplesOrQuads/fail.3| (ATN-PARSER::INDEX)
8014
                                   (%ATN-NODE-BLOCK |TriplesOrQuads/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
8015
                                 (|TriplesOrQuads/start.1| (ATN-PARSER::INDEX)
8016
                                   (%ATN-NODE-BLOCK |TriplesOrQuads/start.1|
8017
                                                    (%ATN-EDGE-BLOCK OR
8018
                                                                     (PROGN
8019
                                                                      (%ATN-EDGE-BLOCK (PUSH |TriplesTemplate|)
8020
                                                                                       (MULTIPLE-VALUE-BIND
8021
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8022
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
8023
                                                                                            '|TriplesTemplate| ATN-PARSER::INDEX)
8024
                                                                                         (COND
8025
                                                                                          (ATN-PARSER::SUCCESS
8026
                                                                                           (SETF *ATN-TERM* '|TriplesTemplate|)
8027
                                                                                           (LET ((|TriplesTemplate584|
8028
                                                                                                  |TriplesTemplate|))
8029
                                                                                             (DOLIST
8030
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
8031
                                                                                                  ATN-PARSER::RESULT)
8032
                                                                                               (DESTRUCTURING-BIND
8033
                                                                                                   (
8034
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8035
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
8036
                                                                                                 (WHEN ATN-PARSER::RESULT
8037
                                                                                                   (SETF |TriplesTemplate|
8038
                                                                                                           ATN-PARSER::RESULT))
8039
                                                                                                 (|TriplesOrQuads.2|
8040
                                                                                                  ATN-PARSER::RESULT-INDEX))
8041
                                                                                               (SETF |TriplesTemplate|
8042
                                                                                                       |TriplesTemplate584|))))
8043
                                                                                          (T (SETF *ATN-TERM?* '|TriplesTemplate|)
8044
                                                                                           NIL))))
8045
                                                                      (%ATN-EDGE-BLOCK
8046
                                                                       (ATN-PARSER::JUMP |TriplesOrQuads/TriplesOrQuads.2.4|)
8047
                                                                       (|TriplesOrQuads/TriplesOrQuads.2.4| ATN-PARSER::INDEX))
8048
                                                                      (|TriplesOrQuads/fail.3| ATN-PARSER::INDEX)))))
8049
                                 (|TriplesOrQuads/TriplesOrQuads.2.4| (ATN-PARSER::INDEX)
8050
                                   (%ATN-NODE-BLOCK |TriplesOrQuads/TriplesOrQuads.2.4|
8051
                                                    (%ATN-EDGE-BLOCK (PUSH |QuadsNotTriples|)
8052
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8053
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|QuadsNotTriples|
8054
                                                                                                  ATN-PARSER::INDEX)
8055
                                                                       (COND
8056
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|QuadsNotTriples|)
8057
                                                                         (LET ((|QuadsNotTriples585| |QuadsNotTriples|))
8058
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8059
                                                                             (DESTRUCTURING-BIND
8060
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8061
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8062
                                                                               (WHEN ATN-PARSER::RESULT
8063
                                                                                 (SETF |QuadsNotTriples| ATN-PARSER::RESULT))
8064
                                                                               (|TriplesOrQuads/TriplesOrQuads.2.5|
8065
                                                                                ATN-PARSER::RESULT-INDEX))
8066
                                                                             (SETF |QuadsNotTriples| |QuadsNotTriples585|))))
8067
                                                                        (T (SETF *ATN-TERM?* '|QuadsNotTriples|) NIL))))))
8068
                                 (|TriplesOrQuads/TriplesOrQuads.2.5| (ATN-PARSER::INDEX)
8069
                                   (%ATN-NODE-BLOCK |TriplesOrQuads/TriplesOrQuads.2.5|
8070
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)
8071
                                                                     (COND
8072
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)
8073
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|.|)
8074
                                                                       (|TriplesOrQuads.2| (1+ ATN-PARSER::INDEX)))
8075
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|)
8076
                                                                       (|TriplesOrQuads.2| ATN-PARSER::INDEX)))))))
8077
                          (|TriplesOrQuads/start.1| ATN-PARSER::INDEX)
8078
                          (SETF *ATN-NODE NIL)
8079
                          NIL
8080
                          (IF ATN-PARSER::ATN-STRUCTURE
8081
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
8082
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
8083
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesOrQuads| ATN-PARSER::INDEX *ATN-STACK))))
8084
 (PROGN
8085
  (DEFVAR |QuadsNotTriples-INDEX|)
8086
  (DEFUN |QuadsNotTriples| (ATN-PARSER::INDEX &AUX (|TriplesTemplate| NIL) (|VarOrIRIref| NIL))
8087
    "{52} QuadsNotTriples ::= 'GRAPH' VarOrIRIref '{' TriplesTemplate? '}'
8088
 (|TriplesTemplate| |VarOrIRIref|)"
8089
    (DECLARE (SPECIAL |QuadsNotTriples-INDEX|))
8090
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |QuadsNotTriples-INDEX| *ATN-LEVEL))
8091
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
8092
    (IF (< |QuadsNotTriples-INDEX| ATN-PARSER::INDEX)
8093
        (LET ((|QuadsNotTriples-INDEX| ATN-PARSER::INDEX)
8094
              (*ATN-LEVEL (1+ *ATN-LEVEL))
8095
              (*ATN-STACK (CONS '|QuadsNotTriples| *ATN-STACK))
8096
              (ATN-PARSER::ATN-STRUCTURE NIL))
8097
          (DECLARE (SPECIAL |QuadsNotTriples-INDEX|))
8098
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
8099
          (DECLARE (TYPE CONS *ATN-STACK))
8100
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
8101
            (%ATN-BLOCK |QuadsNotTriples|
8102
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
8103
                                   (SETF *ATN-TERM* '|QuadsNotTriples|)
8104
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
8105
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
8106
                                   ATN-PARSER::INDEX)
8107
                                 (|QuadsNotTriples.2| (ATN-PARSER::INDEX)
8108
                                   (%ATN-NODE-BLOCK |QuadsNotTriples.2|
8109
                                                    (%ATN-EDGE-BLOCK (POP |QuadsNotTriples|)
8110
                                                                     (WHEN T
8111
                                                                       (SETF *ATN-TERM* '|QuadsNotTriples|)
8112
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
8113
                                                                                   '|QuadsNotTriples| ATN-PARSER::INDEX
8114
                                                                                   (LIST '|TriplesTemplate| |TriplesTemplate|
8115
                                                                                         '|VarOrIRIref| |VarOrIRIref|))
8116
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
8117
                                                                              (IF (EQ *ATN-REDUCE* T)
8118
                                                                                  (|QuadsNotTriples-Constructor| |TriplesTemplate|
8119
                                                                                                                 |VarOrIRIref|)
8120
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
8121
                                                                                      (CONS '|QuadsNotTriples|
8122
                                                                                            (DELETE NIL
8123
                                                                                                    (LIST |TriplesTemplate|
8124
                                                                                                          |VarOrIRIref|)))
8125
                                                                                      '|QuadsNotTriples|))))
8126
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
8127
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
8128
                                 (|QuadsNotTriples/fail.3| (ATN-PARSER::INDEX)
8129
                                   (%ATN-NODE-BLOCK |QuadsNotTriples/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
8130
                                 (|QuadsNotTriples/QuadsNotTriples.2.4| (ATN-PARSER::INDEX)
8131
                                   (%ATN-NODE-BLOCK |QuadsNotTriples/QuadsNotTriples.2.4|
8132
                                                    (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
8133
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8134
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)
8135
                                                                       (COND
8136
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarOrIRIref|)
8137
                                                                         (LET ((|VarOrIRIref587| |VarOrIRIref|))
8138
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8139
                                                                             (DESTRUCTURING-BIND
8140
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8141
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8142
                                                                               (WHEN ATN-PARSER::RESULT
8143
                                                                                 (SETF |VarOrIRIref| ATN-PARSER::RESULT))
8144
                                                                               (|QuadsNotTriples/QuadsNotTriples.2.5|
8145
                                                                                ATN-PARSER::RESULT-INDEX))
8146
                                                                             (SETF |VarOrIRIref| |VarOrIRIref587|))))
8147
                                                                        (T (SETF *ATN-TERM?* '|VarOrIRIref|)
8148
                                                                         (|QuadsNotTriples/fail.3| ATN-PARSER::INDEX)))))))
8149
                                 (|QuadsNotTriples/QuadsNotTriples.2.5| (ATN-PARSER::INDEX)
8150
                                   (%ATN-NODE-BLOCK |QuadsNotTriples/QuadsNotTriples.2.5|
8151
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
8152
                                                                     (COND
8153
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
8154
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
8155
                                                                       (|QuadsNotTriples/QuadsNotTriples.2.6|
8156
                                                                        (1+ ATN-PARSER::INDEX)))
8157
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{)
8158
                                                                       (|QuadsNotTriples/fail.3| ATN-PARSER::INDEX))))))
8159
                                 (|QuadsNotTriples/QuadsNotTriples.2.6| (ATN-PARSER::INDEX)
8160
                                   (%ATN-NODE-BLOCK |QuadsNotTriples/QuadsNotTriples.2.6|
8161
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesTemplate|)
8162
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8163
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesTemplate|
8164
                                                                                                  ATN-PARSER::INDEX)
8165
                                                                       (COND
8166
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesTemplate|)
8167
                                                                         (LET ((|TriplesTemplate586| |TriplesTemplate|))
8168
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8169
                                                                             (DESTRUCTURING-BIND
8170
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8171
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8172
                                                                               (WHEN ATN-PARSER::RESULT
8173
                                                                                 (SETF |TriplesTemplate| ATN-PARSER::RESULT))
8174
                                                                               (|QuadsNotTriples/QuadsNotTriples.2.7|
8175
                                                                                ATN-PARSER::RESULT-INDEX))
8176
                                                                             (SETF |TriplesTemplate| |TriplesTemplate586|))))
8177
                                                                        (T (SETF *ATN-TERM?* '|TriplesTemplate|)
8178
                                                                         (|QuadsNotTriples/QuadsNotTriples.2.7|
8179
                                                                          ATN-PARSER::INDEX)))))))
8180
                                 (|QuadsNotTriples/QuadsNotTriples.2.7| (ATN-PARSER::INDEX)
8181
                                   (%ATN-NODE-BLOCK |QuadsNotTriples/QuadsNotTriples.2.7|
8182
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
8183
                                                                     (COND
8184
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
8185
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
8186
                                                                       (|QuadsNotTriples.2| (1+ ATN-PARSER::INDEX)))
8187
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:})
8188
                                                                       (|QuadsNotTriples/fail.3| ATN-PARSER::INDEX))))))
8189
                                 (|QuadsNotTriples/start.1| (ATN-PARSER::INDEX)
8190
                                   (%ATN-NODE-BLOCK |QuadsNotTriples/start.1|
8191
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:GRAPH)
8192
                                                                     (COND
8193
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:GRAPH)
8194
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:GRAPH)
8195
                                                                       (|QuadsNotTriples/QuadsNotTriples.2.4|
8196
                                                                        (1+ ATN-PARSER::INDEX)))
8197
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:GRAPH)
8198
                                                                       (|QuadsNotTriples/fail.3| ATN-PARSER::INDEX)))))))
8199
                          (|QuadsNotTriples/start.1| ATN-PARSER::INDEX)
8200
                          (SETF *ATN-NODE NIL)
8201
                          NIL
8202
                          (IF ATN-PARSER::ATN-STRUCTURE
8203
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
8204
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
8205
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|QuadsNotTriples| ATN-PARSER::INDEX *ATN-STACK))))
8206
 (PROGN
8207
  (DEFVAR |TriplesTemplate-INDEX|)
8208
  (DEFUN |TriplesTemplate| (ATN-PARSER::INDEX &AUX (|TriplesSameSubject| NIL) (|TriplesTemplate| NIL))
8209
    "{53} TriplesTemplate ::= TriplesSameSubject ('.' TriplesTemplate)? '.'?
8210
 (|TriplesSameSubject| |TriplesTemplate|)"
8211
    (DECLARE (SPECIAL |TriplesTemplate-INDEX|))
8212
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesTemplate-INDEX| *ATN-LEVEL))
8213
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
8214
    (IF (< |TriplesTemplate-INDEX| ATN-PARSER::INDEX)
8215
        (LET ((|TriplesTemplate-INDEX| ATN-PARSER::INDEX)
8216
              (*ATN-LEVEL (1+ *ATN-LEVEL))
8217
              (*ATN-STACK (CONS '|TriplesTemplate| *ATN-STACK))
8218
              (ATN-PARSER::ATN-STRUCTURE NIL))
8219
          (DECLARE (SPECIAL |TriplesTemplate-INDEX|))
8220
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
8221
          (DECLARE (TYPE CONS *ATN-STACK))
8222
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
8223
            (%ATN-BLOCK |TriplesTemplate|
8224
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
8225
                                   (SETF *ATN-TERM* '|TriplesTemplate|)
8226
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
8227
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
8228
                                   ATN-PARSER::INDEX)
8229
                                 (|TriplesTemplate.2| (ATN-PARSER::INDEX)
8230
                                   (%ATN-NODE-BLOCK |TriplesTemplate.2|
8231
                                                    (%ATN-EDGE-BLOCK (POP |TriplesTemplate|)
8232
                                                                     (WHEN T
8233
                                                                       (SETF *ATN-TERM* '|TriplesTemplate|)
8234
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
8235
                                                                                   '|TriplesTemplate| ATN-PARSER::INDEX
8236
                                                                                   (LIST '|TriplesSameSubject| |TriplesSameSubject|
8237
                                                                                         '|TriplesTemplate| |TriplesTemplate|))
8238
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
8239
                                                                              (IF (EQ *ATN-REDUCE* T)
8240
                                                                                  (|TriplesTemplate-Constructor|
8241
                                                                                   |TriplesSameSubject| |TriplesTemplate|)
8242
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
8243
                                                                                      (CONS '|TriplesTemplate|
8244
                                                                                            (DELETE NIL
8245
                                                                                                    (LIST |TriplesSameSubject|
8246
                                                                                                          |TriplesTemplate|)))
8247
                                                                                      '|TriplesTemplate|))))
8248
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
8249
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
8250
                                 (|TriplesTemplate/fail.3| (ATN-PARSER::INDEX)
8251
                                   (%ATN-NODE-BLOCK |TriplesTemplate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
8252
                                 (|TriplesTemplate/start.1| (ATN-PARSER::INDEX)
8253
                                   (%ATN-NODE-BLOCK |TriplesTemplate/start.1|
8254
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesSameSubject|)
8255
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8256
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject|
8257
                                                                                                  ATN-PARSER::INDEX)
8258
                                                                       (COND
8259
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesSameSubject|)
8260
                                                                         (LET ((|TriplesSameSubject589| |TriplesSameSubject|))
8261
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8262
                                                                             (DESTRUCTURING-BIND
8263
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8264
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8265
                                                                               (WHEN ATN-PARSER::RESULT
8266
                                                                                 (SETF |TriplesSameSubject| ATN-PARSER::RESULT))
8267
                                                                               (|TriplesTemplate/TriplesTemplate.2.4|
8268
                                                                                ATN-PARSER::RESULT-INDEX))
8269
                                                                             (SETF |TriplesSameSubject| |TriplesSameSubject589|))))
8270
                                                                        (T (SETF *ATN-TERM?* '|TriplesSameSubject|)
8271
                                                                         (|TriplesTemplate/fail.3| ATN-PARSER::INDEX)))))))
8272
                                 (|TriplesTemplate/TriplesTemplate.2.4| (ATN-PARSER::INDEX)
8273
                                   (%ATN-NODE-BLOCK |TriplesTemplate/TriplesTemplate.2.4|
8274
                                                    (%ATN-EDGE-BLOCK
8275
                                                     (ATN-PARSER::JUMP |TriplesTemplate/TriplesTemplate/TriplesTemplate.2.5.6|)
8276
                                                     (|TriplesTemplate/TriplesTemplate/TriplesTemplate.2.5.6| ATN-PARSER::INDEX))
8277
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |TriplesTemplate/TriplesTemplate.2.5|)
8278
                                                                     (|TriplesTemplate/TriplesTemplate.2.5| ATN-PARSER::INDEX))))
8279
                                 (|TriplesTemplate/TriplesTemplate.2.5| (ATN-PARSER::INDEX)
8280
                                   (%ATN-NODE-BLOCK |TriplesTemplate/TriplesTemplate.2.5|
8281
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)
8282
                                                                     (COND
8283
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)
8284
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|.|)
8285
                                                                       (|TriplesTemplate.2| (1+ ATN-PARSER::INDEX)))
8286
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|)
8287
                                                                       (|TriplesTemplate.2| ATN-PARSER::INDEX))))))
8288
                                 (|TriplesTemplate/TriplesTemplate/TriplesTemplate.2.5.6| (ATN-PARSER::INDEX)
8289
                                   (%ATN-NODE-BLOCK |TriplesTemplate/TriplesTemplate/TriplesTemplate.2.5.6|
8290
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)
8291
                                                                     (COND
8292
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)
8293
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|.|)
8294
                                                                       (|TriplesTemplate/TriplesTemplate/TriplesTemplate.2.5.7|
8295
                                                                        (1+ ATN-PARSER::INDEX)))
8296
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))
8297
                                 (|TriplesTemplate/TriplesTemplate/TriplesTemplate.2.5.7| (ATN-PARSER::INDEX)
8298
                                   (%ATN-NODE-BLOCK |TriplesTemplate/TriplesTemplate/TriplesTemplate.2.5.7|
8299
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesTemplate|)
8300
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8301
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesTemplate|
8302
                                                                                                  ATN-PARSER::INDEX)
8303
                                                                       (COND
8304
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesTemplate|)
8305
                                                                         (LET ((|TriplesTemplate588| |TriplesTemplate|))
8306
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8307
                                                                             (DESTRUCTURING-BIND
8308
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8309
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8310
                                                                               (WHEN ATN-PARSER::RESULT
8311
                                                                                 (SETF |TriplesTemplate| ATN-PARSER::RESULT))
8312
                                                                               (|TriplesTemplate/TriplesTemplate.2.5|
8313
                                                                                ATN-PARSER::RESULT-INDEX))
8314
                                                                             (SETF |TriplesTemplate| |TriplesTemplate588|))))
8315
                                                                        (T (SETF *ATN-TERM?* '|TriplesTemplate|) NIL)))))))
8316
                          (|TriplesTemplate/start.1| ATN-PARSER::INDEX)
8317
                          (SETF *ATN-NODE NIL)
8318
                          NIL
8319
                          (IF ATN-PARSER::ATN-STRUCTURE
8320
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
8321
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
8322
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesTemplate| ATN-PARSER::INDEX *ATN-STACK))))
8323
 (PROGN
8324
  (DEFVAR |GroupGraphPattern-INDEX|)
8325
  (DEFUN |GroupGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPatternSub| NIL) (|SubSelect| NIL))
8326
    "{54} GroupGraphPattern ::= '{' ((SubSelect | GroupGraphPatternSub)) '}'
8327
 (|GroupGraphPatternSub| |SubSelect|)"
8328
    (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))
8329
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPattern-INDEX| *ATN-LEVEL))
8330
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
8331
    (IF (< |GroupGraphPattern-INDEX| ATN-PARSER::INDEX)
8332
        (LET ((|GroupGraphPattern-INDEX| ATN-PARSER::INDEX)
8333
              (*ATN-LEVEL (1+ *ATN-LEVEL))
8334
              (*ATN-STACK (CONS '|GroupGraphPattern| *ATN-STACK))
8335
              (ATN-PARSER::ATN-STRUCTURE NIL))
8336
          (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))
8337
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
8338
          (DECLARE (TYPE CONS *ATN-STACK))
8339
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
8340
            (%ATN-BLOCK |GroupGraphPattern|
8341
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
8342
                                   (SETF *ATN-TERM* '|GroupGraphPattern|)
8343
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
8344
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
8345
                                   ATN-PARSER::INDEX)
8346
                                 (|GroupGraphPattern.2| (ATN-PARSER::INDEX)
8347
                                   (%ATN-NODE-BLOCK |GroupGraphPattern.2|
8348
                                                    (%ATN-EDGE-BLOCK (POP |GroupGraphPattern|)
8349
                                                                     (WHEN T
8350
                                                                       (SETF *ATN-TERM* '|GroupGraphPattern|)
8351
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
8352
                                                                                   '|GroupGraphPattern| ATN-PARSER::INDEX
8353
                                                                                   (LIST '|GroupGraphPatternSub|
8354
                                                                                         |GroupGraphPatternSub| '|SubSelect|
8355
                                                                                         |SubSelect|))
8356
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
8357
                                                                              (IF (EQ *ATN-REDUCE* T)
8358
                                                                                  (|GroupGraphPattern-Constructor|
8359
                                                                                   |GroupGraphPatternSub| |SubSelect|)
8360
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
8361
                                                                                      (CONS '|GroupGraphPattern|
8362
                                                                                            (DELETE NIL
8363
                                                                                                    (LIST |GroupGraphPatternSub|
8364
                                                                                                          |SubSelect|)))
8365
                                                                                      '|GroupGraphPattern|))))
8366
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
8367
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
8368
                                 (|GroupGraphPattern/fail.3| (ATN-PARSER::INDEX)
8369
                                   (%ATN-NODE-BLOCK |GroupGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
8370
                                 (|GroupGraphPattern/GroupGraphPattern.2.4| (ATN-PARSER::INDEX)
8371
                                   (%ATN-NODE-BLOCK |GroupGraphPattern/GroupGraphPattern.2.4|
8372
                                                    (%ATN-EDGE-BLOCK OR
8373
                                                                     (PROGN
8374
                                                                      (%ATN-EDGE-BLOCK (PUSH |SubSelect|)
8375
                                                                                       (MULTIPLE-VALUE-BIND
8376
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8377
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|SubSelect|
8378
                                                                                                                    ATN-PARSER::INDEX)
8379
                                                                                         (COND
8380
                                                                                          (ATN-PARSER::SUCCESS
8381
                                                                                           (SETF *ATN-TERM* '|SubSelect|)
8382
                                                                                           (LET ((|SubSelect590| |SubSelect|))
8383
                                                                                             (DOLIST
8384
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
8385
                                                                                                  ATN-PARSER::RESULT)
8386
                                                                                               (DESTRUCTURING-BIND
8387
                                                                                                   (
8388
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8389
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
8390
                                                                                                 (WHEN ATN-PARSER::RESULT
8391
                                                                                                   (SETF |SubSelect|
8392
                                                                                                           ATN-PARSER::RESULT))
8393
                                                                                                 (|GroupGraphPattern/GroupGraphPattern.2.5|
8394
                                                                                                  ATN-PARSER::RESULT-INDEX))
8395
                                                                                               (SETF |SubSelect| |SubSelect590|))))
8396
                                                                                          (T (SETF *ATN-TERM?* '|SubSelect|) NIL))))
8397
                                                                      (%ATN-EDGE-BLOCK (PUSH |GroupGraphPatternSub|)
8398
                                                                                       (MULTIPLE-VALUE-BIND
8399
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8400
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
8401
                                                                                            '|GroupGraphPatternSub|
8402
                                                                                            ATN-PARSER::INDEX)
8403
                                                                                         (COND
8404
                                                                                          (ATN-PARSER::SUCCESS
8405
                                                                                           (SETF *ATN-TERM* '|GroupGraphPatternSub|)
8406
                                                                                           (LET ((|GroupGraphPatternSub591|
8407
                                                                                                  |GroupGraphPatternSub|))
8408
                                                                                             (DOLIST
8409
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
8410
                                                                                                  ATN-PARSER::RESULT)
8411
                                                                                               (DESTRUCTURING-BIND
8412
                                                                                                   (
8413
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8414
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
8415
                                                                                                 (WHEN ATN-PARSER::RESULT
8416
                                                                                                   (SETF |GroupGraphPatternSub|
8417
                                                                                                           ATN-PARSER::RESULT))
8418
                                                                                                 (|GroupGraphPattern/GroupGraphPattern.2.5|
8419
                                                                                                  ATN-PARSER::RESULT-INDEX))
8420
                                                                                               (SETF |GroupGraphPatternSub|
8421
                                                                                                       |GroupGraphPatternSub591|))))
8422
                                                                                          (T
8423
                                                                                           (SETF *ATN-TERM?*
8424
                                                                                                   '|GroupGraphPatternSub|)
8425
                                                                                           NIL))))
8426
                                                                      (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX)))))
8427
                                 (|GroupGraphPattern/GroupGraphPattern.2.5| (ATN-PARSER::INDEX)
8428
                                   (%ATN-NODE-BLOCK |GroupGraphPattern/GroupGraphPattern.2.5|
8429
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
8430
                                                                     (COND
8431
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
8432
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
8433
                                                                       (|GroupGraphPattern.2| (1+ ATN-PARSER::INDEX)))
8434
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:})
8435
                                                                       (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX))))))
8436
                                 (|GroupGraphPattern/start.1| (ATN-PARSER::INDEX)
8437
                                   (%ATN-NODE-BLOCK |GroupGraphPattern/start.1|
8438
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
8439
                                                                     (COND
8440
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
8441
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
8442
                                                                       (|GroupGraphPattern/GroupGraphPattern.2.4|
8443
                                                                        (1+ ATN-PARSER::INDEX)))
8444
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{)
8445
                                                                       (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
8446
                          (|GroupGraphPattern/start.1| ATN-PARSER::INDEX)
8447
                          (SETF *ATN-NODE NIL)
8448
                          NIL
8449
                          (IF ATN-PARSER::ATN-STRUCTURE
8450
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
8451
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
8452
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))
8453
 (PROGN
8454
  (DEFVAR |GroupGraphPatternSub-INDEX|)
8455
  (DEFUN |GroupGraphPatternSub| (ATN-PARSER::INDEX &AUX (|GroupGraphPatternRest| NIL) (|TriplesBlock| NIL))
8456
    "{55} GroupGraphPatternSub ::= TriplesBlock? GroupGraphPatternRest*
8457
 (|GroupGraphPatternRest| |TriplesBlock|)"
8458
    (DECLARE (SPECIAL |GroupGraphPatternSub-INDEX|))
8459
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPatternSub-INDEX| *ATN-LEVEL))
8460
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
8461
    (IF (< |GroupGraphPatternSub-INDEX| ATN-PARSER::INDEX)
8462
        (LET ((|GroupGraphPatternSub-INDEX| ATN-PARSER::INDEX)
8463
              (*ATN-LEVEL (1+ *ATN-LEVEL))
8464
              (*ATN-STACK (CONS '|GroupGraphPatternSub| *ATN-STACK))
8465
              (ATN-PARSER::ATN-STRUCTURE NIL))
8466
          (DECLARE (SPECIAL |GroupGraphPatternSub-INDEX|))
8467
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
8468
          (DECLARE (TYPE CONS *ATN-STACK))
8469
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
8470
            (%ATN-BLOCK |GroupGraphPatternSub|
8471
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
8472
                                   (SETF *ATN-TERM* '|GroupGraphPatternSub|)
8473
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
8474
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
8475
                                   ATN-PARSER::INDEX)
8476
                                 (|GroupGraphPatternSub.2| (ATN-PARSER::INDEX)
8477
                                   (%ATN-NODE-BLOCK |GroupGraphPatternSub.2|
8478
                                                    (%ATN-EDGE-BLOCK (POP |GroupGraphPatternSub|)
8479
                                                                     (WHEN T
8480
                                                                       (SETF *ATN-TERM* '|GroupGraphPatternSub|)
8481
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
8482
                                                                                   '|GroupGraphPatternSub| ATN-PARSER::INDEX
8483
                                                                                   (LIST '|GroupGraphPatternRest|
8484
                                                                                         |GroupGraphPatternRest| '|TriplesBlock|
8485
                                                                                         |TriplesBlock|))
8486
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
8487
                                                                              (IF (EQ *ATN-REDUCE* T)
8488
                                                                                  (|GroupGraphPatternSub-Constructor|
8489
                                                                                   |GroupGraphPatternRest| |TriplesBlock|)
8490
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
8491
                                                                                      (CONS '|GroupGraphPatternSub|
8492
                                                                                            (DELETE NIL
8493
                                                                                                    (LIST |GroupGraphPatternRest|
8494
                                                                                                          |TriplesBlock|)))
8495
                                                                                      '|GroupGraphPatternSub|))))
8496
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
8497
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
8498
                                 (|GroupGraphPatternSub.5| (ATN-PARSER::INDEX)
8499
                                   (%ATN-NODE-BLOCK |GroupGraphPatternSub.5|
8500
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPatternRest|)
8501
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8502
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest|
8503
                                                                                                  ATN-PARSER::INDEX)
8504
                                                                       (COND
8505
                                                                        (ATN-PARSER::SUCCESS
8506
                                                                         (SETF *ATN-TERM* '|GroupGraphPatternRest|)
8507
                                                                         (LET ((|GroupGraphPatternRest593| |GroupGraphPatternRest|))
8508
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8509
                                                                             (DESTRUCTURING-BIND
8510
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8511
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8512
                                                                               (WHEN ATN-PARSER::RESULT
8513
                                                                                 (SETF |GroupGraphPatternRest|
8514
                                                                                         (CONS ATN-PARSER::RESULT
8515
                                                                                               |GroupGraphPatternRest|)))
8516
                                                                               (|GroupGraphPatternSub.5| ATN-PARSER::RESULT-INDEX))
8517
                                                                             (SETF |GroupGraphPatternRest|
8518
                                                                                     |GroupGraphPatternRest593|))))
8519
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPatternRest|)
8520
                                                                         (|GroupGraphPatternSub.2| ATN-PARSER::INDEX)))))))
8521
                                 (|GroupGraphPatternSub/fail.3| (ATN-PARSER::INDEX)
8522
                                   (%ATN-NODE-BLOCK |GroupGraphPatternSub/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
8523
                                 (|GroupGraphPatternSub/GroupGraphPatternSub.2.4| (ATN-PARSER::INDEX)
8524
                                   (%ATN-NODE-BLOCK |GroupGraphPatternSub/GroupGraphPatternSub.2.4|
8525
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPatternRest|)
8526
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8527
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest|
8528
                                                                                                  ATN-PARSER::INDEX)
8529
                                                                       (COND
8530
                                                                        (ATN-PARSER::SUCCESS
8531
                                                                         (SETF *ATN-TERM* '|GroupGraphPatternRest|)
8532
                                                                         (LET ((|GroupGraphPatternRest592| |GroupGraphPatternRest|))
8533
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8534
                                                                             (DESTRUCTURING-BIND
8535
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8536
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8537
                                                                               (WHEN ATN-PARSER::RESULT
8538
                                                                                 (SETF |GroupGraphPatternRest|
8539
                                                                                         (CONS ATN-PARSER::RESULT
8540
                                                                                               |GroupGraphPatternRest|)))
8541
                                                                               (|GroupGraphPatternSub.5| ATN-PARSER::RESULT-INDEX))
8542
                                                                             (SETF |GroupGraphPatternRest|
8543
                                                                                     |GroupGraphPatternRest592|))))
8544
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPatternRest|)
8545
                                                                         (|GroupGraphPatternSub.2| ATN-PARSER::INDEX)))))))
8546
                                 (|GroupGraphPatternSub/start.1| (ATN-PARSER::INDEX)
8547
                                   (%ATN-NODE-BLOCK |GroupGraphPatternSub/start.1|
8548
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesBlock|)
8549
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8550
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)
8551
                                                                       (COND
8552
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesBlock|)
8553
                                                                         (LET ((|TriplesBlock594| |TriplesBlock|))
8554
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8555
                                                                             (DESTRUCTURING-BIND
8556
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8557
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8558
                                                                               (WHEN ATN-PARSER::RESULT
8559
                                                                                 (SETF |TriplesBlock| ATN-PARSER::RESULT))
8560
                                                                               (|GroupGraphPatternSub/GroupGraphPatternSub.2.4|
8561
                                                                                ATN-PARSER::RESULT-INDEX))
8562
                                                                             (SETF |TriplesBlock| |TriplesBlock594|))))
8563
                                                                        (T (SETF *ATN-TERM?* '|TriplesBlock|)
8564
                                                                         (|GroupGraphPatternSub/GroupGraphPatternSub.2.4|
8565
                                                                          ATN-PARSER::INDEX))))))))
8566
                          (|GroupGraphPatternSub/start.1| ATN-PARSER::INDEX)
8567
                          (SETF *ATN-NODE NIL)
8568
                          NIL
8569
                          (IF ATN-PARSER::ATN-STRUCTURE
8570
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
8571
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
8572
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPatternSub| ATN-PARSER::INDEX *ATN-STACK))))
8573
 (PROGN
8574
  (DEFVAR |GroupGraphPatternRest-INDEX|)
8575
  (DEFUN |GroupGraphPatternRest|
8576
         (ATN-PARSER::INDEX
8577
          &AUX (|Bind| NIL) (|FieldClause| NIL) (|Filter| NIL) (|GraphPatternNotTriples| NIL) (|TriplesBlock| NIL))
8578
    "{55a} GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter | Bind | FieldClause)) '.'? TriplesBlock?
8579
 (|Bind| |FieldClause| |Filter| |GraphPatternNotTriples| |TriplesBlock|)"
8580
    (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))
8581
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPatternRest-INDEX| *ATN-LEVEL))
8582
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
8583
    (IF (< |GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)
8584
        (LET ((|GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)
8585
              (*ATN-LEVEL (1+ *ATN-LEVEL))
8586
              (*ATN-STACK (CONS '|GroupGraphPatternRest| *ATN-STACK))
8587
              (ATN-PARSER::ATN-STRUCTURE NIL))
8588
          (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))
8589
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
8590
          (DECLARE (TYPE CONS *ATN-STACK))
8591
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
8592
            (%ATN-BLOCK |GroupGraphPatternRest|
8593
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
8594
                                   (SETF *ATN-TERM* '|GroupGraphPatternRest|)
8595
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
8596
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
8597
                                   ATN-PARSER::INDEX)
8598
                                 (|GroupGraphPatternRest.2| (ATN-PARSER::INDEX)
8599
                                   (%ATN-NODE-BLOCK |GroupGraphPatternRest.2|
8600
                                                    (%ATN-EDGE-BLOCK (POP |GroupGraphPatternRest|)
8601
                                                                     (WHEN T
8602
                                                                       (SETF *ATN-TERM* '|GroupGraphPatternRest|)
8603
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
8604
                                                                                   '|GroupGraphPatternRest| ATN-PARSER::INDEX
8605
                                                                                   (LIST '|Bind| |Bind| '|FieldClause| |FieldClause|
8606
                                                                                         '|Filter| |Filter|
8607
                                                                                         '|GraphPatternNotTriples|
8608
                                                                                         |GraphPatternNotTriples| '|TriplesBlock|
8609
                                                                                         |TriplesBlock|))
8610
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
8611
                                                                              (IF (EQ *ATN-REDUCE* T)
8612
                                                                                  (|GroupGraphPatternRest-Constructor| |Bind|
8613
                                                                                                                       |FieldClause|
8614
                                                                                                                       |Filter|
8615
                                                                                                                       |GraphPatternNotTriples|
8616
                                                                                                                       |TriplesBlock|)
8617
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
8618
                                                                                      (CONS '|GroupGraphPatternRest|
8619
                                                                                            (DELETE NIL
8620
                                                                                                    (LIST |Bind| |FieldClause|
8621
                                                                                                          |Filter|
8622
                                                                                                          |GraphPatternNotTriples|
8623
                                                                                                          |TriplesBlock|)))
8624
                                                                                      '|GroupGraphPatternRest|))))
8625
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
8626
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
8627
                                 (|GroupGraphPatternRest/fail.3| (ATN-PARSER::INDEX)
8628
                                   (%ATN-NODE-BLOCK |GroupGraphPatternRest/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
8629
                                 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4| (ATN-PARSER::INDEX)
8630
                                   (%ATN-NODE-BLOCK |GroupGraphPatternRest/GroupGraphPatternRest.2.4|
8631
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)
8632
                                                                     (COND
8633
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)
8634
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|.|)
8635
                                                                       (|GroupGraphPatternRest/GroupGraphPatternRest.2.5|
8636
                                                                        (1+ ATN-PARSER::INDEX)))
8637
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|)
8638
                                                                       (|GroupGraphPatternRest/GroupGraphPatternRest.2.5|
8639
                                                                        ATN-PARSER::INDEX))))))
8640
                                 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| (ATN-PARSER::INDEX)
8641
                                   (%ATN-NODE-BLOCK |GroupGraphPatternRest/GroupGraphPatternRest.2.5|
8642
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesBlock|)
8643
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8644
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)
8645
                                                                       (COND
8646
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesBlock|)
8647
                                                                         (LET ((|TriplesBlock595| |TriplesBlock|))
8648
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8649
                                                                             (DESTRUCTURING-BIND
8650
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8651
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8652
                                                                               (WHEN ATN-PARSER::RESULT
8653
                                                                                 (SETF |TriplesBlock| ATN-PARSER::RESULT))
8654
                                                                               (|GroupGraphPatternRest.2| ATN-PARSER::RESULT-INDEX))
8655
                                                                             (SETF |TriplesBlock| |TriplesBlock595|))))
8656
                                                                        (T (SETF *ATN-TERM?* '|TriplesBlock|)
8657
                                                                         (|GroupGraphPatternRest.2| ATN-PARSER::INDEX)))))))
8658
                                 (|GroupGraphPatternRest/start.1| (ATN-PARSER::INDEX)
8659
                                   (%ATN-NODE-BLOCK |GroupGraphPatternRest/start.1|
8660
                                                    (%ATN-EDGE-BLOCK OR
8661
                                                                     (PROGN
8662
                                                                      (%ATN-EDGE-BLOCK (PUSH |GraphPatternNotTriples|)
8663
                                                                                       (MULTIPLE-VALUE-BIND
8664
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8665
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
8666
                                                                                            '|GraphPatternNotTriples|
8667
                                                                                            ATN-PARSER::INDEX)
8668
                                                                                         (COND
8669
                                                                                          (ATN-PARSER::SUCCESS
8670
                                                                                           (SETF *ATN-TERM*
8671
                                                                                                   '|GraphPatternNotTriples|)
8672
                                                                                           (LET ((|GraphPatternNotTriples596|
8673
                                                                                                  |GraphPatternNotTriples|))
8674
                                                                                             (DOLIST
8675
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
8676
                                                                                                  ATN-PARSER::RESULT)
8677
                                                                                               (DESTRUCTURING-BIND
8678
                                                                                                   (
8679
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8680
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
8681
                                                                                                 (WHEN ATN-PARSER::RESULT
8682
                                                                                                   (SETF |GraphPatternNotTriples|
8683
                                                                                                           ATN-PARSER::RESULT))
8684
                                                                                                 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|
8685
                                                                                                  ATN-PARSER::RESULT-INDEX))
8686
                                                                                               (SETF |GraphPatternNotTriples|
8687
                                                                                                       |GraphPatternNotTriples596|))))
8688
                                                                                          (T
8689
                                                                                           (SETF *ATN-TERM?*
8690
                                                                                                   '|GraphPatternNotTriples|)
8691
                                                                                           NIL))))
8692
                                                                      (%ATN-EDGE-BLOCK (PUSH |Filter|)
8693
                                                                                       (MULTIPLE-VALUE-BIND
8694
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8695
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Filter|
8696
                                                                                                                    ATN-PARSER::INDEX)
8697
                                                                                         (COND
8698
                                                                                          (ATN-PARSER::SUCCESS
8699
                                                                                           (SETF *ATN-TERM* '|Filter|)
8700
                                                                                           (LET ((|Filter597| |Filter|))
8701
                                                                                             (DOLIST
8702
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
8703
                                                                                                  ATN-PARSER::RESULT)
8704
                                                                                               (DESTRUCTURING-BIND
8705
                                                                                                   (
8706
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8707
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
8708
                                                                                                 (WHEN ATN-PARSER::RESULT
8709
                                                                                                   (SETF |Filter|
8710
                                                                                                           ATN-PARSER::RESULT))
8711
                                                                                                 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|
8712
                                                                                                  ATN-PARSER::RESULT-INDEX))
8713
                                                                                               (SETF |Filter| |Filter597|))))
8714
                                                                                          (T (SETF *ATN-TERM?* '|Filter|) NIL))))
8715
                                                                      (%ATN-EDGE-BLOCK (PUSH |Bind|)
8716
                                                                                       (MULTIPLE-VALUE-BIND
8717
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8718
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Bind|
8719
                                                                                                                    ATN-PARSER::INDEX)
8720
                                                                                         (COND
8721
                                                                                          (ATN-PARSER::SUCCESS
8722
                                                                                           (SETF *ATN-TERM* '|Bind|)
8723
                                                                                           (LET ((|Bind598| |Bind|))
8724
                                                                                             (DOLIST
8725
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
8726
                                                                                                  ATN-PARSER::RESULT)
8727
                                                                                               (DESTRUCTURING-BIND
8728
                                                                                                   (
8729
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8730
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
8731
                                                                                                 (WHEN ATN-PARSER::RESULT
8732
                                                                                                   (SETF |Bind| ATN-PARSER::RESULT))
8733
                                                                                                 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|
8734
                                                                                                  ATN-PARSER::RESULT-INDEX))
8735
                                                                                               (SETF |Bind| |Bind598|))))
8736
                                                                                          (T (SETF *ATN-TERM?* '|Bind|) NIL))))
8737
                                                                      (%ATN-EDGE-BLOCK (PUSH |FieldClause|)
8738
                                                                                       (MULTIPLE-VALUE-BIND
8739
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8740
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|FieldClause|
8741
                                                                                                                    ATN-PARSER::INDEX)
8742
                                                                                         (COND
8743
                                                                                          (ATN-PARSER::SUCCESS
8744
                                                                                           (SETF *ATN-TERM* '|FieldClause|)
8745
                                                                                           (LET ((|FieldClause599| |FieldClause|))
8746
                                                                                             (DOLIST
8747
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
8748
                                                                                                  ATN-PARSER::RESULT)
8749
                                                                                               (DESTRUCTURING-BIND
8750
                                                                                                   (
8751
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8752
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
8753
                                                                                                 (WHEN ATN-PARSER::RESULT
8754
                                                                                                   (SETF |FieldClause|
8755
                                                                                                           ATN-PARSER::RESULT))
8756
                                                                                                 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|
8757
                                                                                                  ATN-PARSER::RESULT-INDEX))
8758
                                                                                               (SETF |FieldClause|
8759
                                                                                                       |FieldClause599|))))
8760
                                                                                          (T (SETF *ATN-TERM?* '|FieldClause|)
8761
                                                                                           NIL))))
8762
                                                                      (|GroupGraphPatternRest/fail.3| ATN-PARSER::INDEX))))))
8763
                          (|GroupGraphPatternRest/start.1| ATN-PARSER::INDEX)
8764
                          (SETF *ATN-NODE NIL)
8765
                          NIL
8766
                          (IF ATN-PARSER::ATN-STRUCTURE
8767
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
8768
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
8769
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPatternRest| ATN-PARSER::INDEX *ATN-STACK))))
8770
 (PROGN
8771
  (DEFVAR |TriplesBlock-INDEX|)
8772
  (DEFUN |TriplesBlock| (ATN-PARSER::INDEX &AUX (|TriplesBlockRest| NIL) (|TriplesSameSubject| NIL))
8773
    "{56} TriplesBlock ::= TriplesSameSubject TriplesBlockRest* '.'?
8774
 (|TriplesBlockRest| |TriplesSameSubject|)"
8775
    (DECLARE (SPECIAL |TriplesBlock-INDEX|))
8776
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesBlock-INDEX| *ATN-LEVEL))
8777
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
8778
    (IF (< |TriplesBlock-INDEX| ATN-PARSER::INDEX)
8779
        (LET ((|TriplesBlock-INDEX| ATN-PARSER::INDEX)
8780
              (*ATN-LEVEL (1+ *ATN-LEVEL))
8781
              (*ATN-STACK (CONS '|TriplesBlock| *ATN-STACK))
8782
              (ATN-PARSER::ATN-STRUCTURE NIL))
8783
          (DECLARE (SPECIAL |TriplesBlock-INDEX|))
8784
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
8785
          (DECLARE (TYPE CONS *ATN-STACK))
8786
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
8787
            (%ATN-BLOCK |TriplesBlock|
8788
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
8789
                                   (SETF *ATN-TERM* '|TriplesBlock|)
8790
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
8791
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
8792
                                   ATN-PARSER::INDEX)
8793
                                 (|TriplesBlock.2| (ATN-PARSER::INDEX)
8794
                                   (%ATN-NODE-BLOCK |TriplesBlock.2|
8795
                                                    (%ATN-EDGE-BLOCK (POP |TriplesBlock|)
8796
                                                                     (WHEN T
8797
                                                                       (SETF *ATN-TERM* '|TriplesBlock|)
8798
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
8799
                                                                                   '|TriplesBlock| ATN-PARSER::INDEX
8800
                                                                                   (LIST '|TriplesBlockRest| |TriplesBlockRest|
8801
                                                                                         '|TriplesSameSubject|
8802
                                                                                         |TriplesSameSubject|))
8803
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
8804
                                                                              (IF (EQ *ATN-REDUCE* T)
8805
                                                                                  (|TriplesBlock-Constructor| |TriplesBlockRest|
8806
                                                                                                              |TriplesSameSubject|)
8807
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
8808
                                                                                      (CONS '|TriplesBlock|
8809
                                                                                            (DELETE NIL
8810
                                                                                                    (LIST |TriplesBlockRest|
8811
                                                                                                          |TriplesSameSubject|)))
8812
                                                                                      '|TriplesBlock|))))
8813
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
8814
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
8815
                                 (|TriplesBlock.6| (ATN-PARSER::INDEX)
8816
                                   (%ATN-NODE-BLOCK |TriplesBlock.6|
8817
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesBlockRest|)
8818
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8819
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlockRest|
8820
                                                                                                  ATN-PARSER::INDEX)
8821
                                                                       (COND
8822
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesBlockRest|)
8823
                                                                         (LET ((|TriplesBlockRest601| |TriplesBlockRest|))
8824
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8825
                                                                             (DESTRUCTURING-BIND
8826
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8827
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8828
                                                                               (WHEN ATN-PARSER::RESULT
8829
                                                                                 (SETF |TriplesBlockRest|
8830
                                                                                         (CONS ATN-PARSER::RESULT
8831
                                                                                               |TriplesBlockRest|)))
8832
                                                                               (|TriplesBlock.6| ATN-PARSER::RESULT-INDEX))
8833
                                                                             (SETF |TriplesBlockRest| |TriplesBlockRest601|))))
8834
                                                                        (T (SETF *ATN-TERM?* '|TriplesBlockRest|)
8835
                                                                         (|TriplesBlock/TriplesBlock.2.5| ATN-PARSER::INDEX)))))))
8836
                                 (|TriplesBlock/fail.3| (ATN-PARSER::INDEX)
8837
                                   (%ATN-NODE-BLOCK |TriplesBlock/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
8838
                                 (|TriplesBlock/start.1| (ATN-PARSER::INDEX)
8839
                                   (%ATN-NODE-BLOCK |TriplesBlock/start.1|
8840
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesSameSubject|)
8841
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8842
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject|
8843
                                                                                                  ATN-PARSER::INDEX)
8844
                                                                       (COND
8845
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesSameSubject|)
8846
                                                                         (LET ((|TriplesSameSubject602| |TriplesSameSubject|))
8847
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8848
                                                                             (DESTRUCTURING-BIND
8849
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8850
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8851
                                                                               (WHEN ATN-PARSER::RESULT
8852
                                                                                 (SETF |TriplesSameSubject| ATN-PARSER::RESULT))
8853
                                                                               (|TriplesBlock/TriplesBlock.2.4|
8854
                                                                                ATN-PARSER::RESULT-INDEX))
8855
                                                                             (SETF |TriplesSameSubject| |TriplesSameSubject602|))))
8856
                                                                        (T (SETF *ATN-TERM?* '|TriplesSameSubject|)
8857
                                                                         (|TriplesBlock/fail.3| ATN-PARSER::INDEX)))))))
8858
                                 (|TriplesBlock/TriplesBlock.2.4| (ATN-PARSER::INDEX)
8859
                                   (%ATN-NODE-BLOCK |TriplesBlock/TriplesBlock.2.4|
8860
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesBlockRest|)
8861
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8862
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlockRest|
8863
                                                                                                  ATN-PARSER::INDEX)
8864
                                                                       (COND
8865
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesBlockRest|)
8866
                                                                         (LET ((|TriplesBlockRest600| |TriplesBlockRest|))
8867
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8868
                                                                             (DESTRUCTURING-BIND
8869
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8870
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8871
                                                                               (WHEN ATN-PARSER::RESULT
8872
                                                                                 (SETF |TriplesBlockRest|
8873
                                                                                         (CONS ATN-PARSER::RESULT
8874
                                                                                               |TriplesBlockRest|)))
8875
                                                                               (|TriplesBlock.6| ATN-PARSER::RESULT-INDEX))
8876
                                                                             (SETF |TriplesBlockRest| |TriplesBlockRest600|))))
8877
                                                                        (T (SETF *ATN-TERM?* '|TriplesBlockRest|)
8878
                                                                         (|TriplesBlock/TriplesBlock.2.5| ATN-PARSER::INDEX)))))))
8879
                                 (|TriplesBlock/TriplesBlock.2.5| (ATN-PARSER::INDEX)
8880
                                   (%ATN-NODE-BLOCK |TriplesBlock/TriplesBlock.2.5|
8881
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)
8882
                                                                     (COND
8883
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)
8884
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|.|)
8885
                                                                       (|TriplesBlock.2| (1+ ATN-PARSER::INDEX)))
8886
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|)
8887
                                                                       (|TriplesBlock.2| ATN-PARSER::INDEX)))))))
8888
                          (|TriplesBlock/start.1| ATN-PARSER::INDEX)
8889
                          (SETF *ATN-NODE NIL)
8890
                          NIL
8891
                          (IF ATN-PARSER::ATN-STRUCTURE
8892
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
8893
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
8894
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesBlock| ATN-PARSER::INDEX *ATN-STACK))))
8895
 (PROGN
8896
  (DEFVAR |TriplesBlockRest-INDEX|)
8897
  (DEFUN |TriplesBlockRest| (ATN-PARSER::INDEX &AUX (|TriplesSameSubject| NIL))
8898
    "{56a} TriplesBlockRest ::= '.' TriplesSameSubject
8899
 (|TriplesSameSubject|)"
8900
    (DECLARE (SPECIAL |TriplesBlockRest-INDEX|))
8901
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesBlockRest-INDEX| *ATN-LEVEL))
8902
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
8903
    (IF (< |TriplesBlockRest-INDEX| ATN-PARSER::INDEX)
8904
        (LET ((|TriplesBlockRest-INDEX| ATN-PARSER::INDEX)
8905
              (*ATN-LEVEL (1+ *ATN-LEVEL))
8906
              (*ATN-STACK (CONS '|TriplesBlockRest| *ATN-STACK))
8907
              (ATN-PARSER::ATN-STRUCTURE NIL))
8908
          (DECLARE (SPECIAL |TriplesBlockRest-INDEX|))
8909
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
8910
          (DECLARE (TYPE CONS *ATN-STACK))
8911
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
8912
            (%ATN-BLOCK |TriplesBlockRest|
8913
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
8914
                                   (SETF *ATN-TERM* '|TriplesBlockRest|)
8915
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
8916
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
8917
                                   ATN-PARSER::INDEX)
8918
                                 (|TriplesBlockRest.2| (ATN-PARSER::INDEX)
8919
                                   (%ATN-NODE-BLOCK |TriplesBlockRest.2|
8920
                                                    (%ATN-EDGE-BLOCK (POP |TriplesBlockRest|)
8921
                                                                     (WHEN T
8922
                                                                       (SETF *ATN-TERM* '|TriplesBlockRest|)
8923
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
8924
                                                                                   '|TriplesBlockRest| ATN-PARSER::INDEX
8925
                                                                                   (LIST '|TriplesSameSubject|
8926
                                                                                         |TriplesSameSubject|))
8927
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
8928
                                                                              (IF (EQ *ATN-REDUCE* T)
8929
                                                                                  (|TriplesBlockRest-Constructor|
8930
                                                                                   |TriplesSameSubject|)
8931
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
8932
                                                                                      (CONS '|TriplesBlockRest|
8933
                                                                                            (DELETE NIL
8934
                                                                                                    (LIST |TriplesSameSubject|)))
8935
                                                                                      '|TriplesBlockRest|))))
8936
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
8937
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
8938
                                 (|TriplesBlockRest/fail.3| (ATN-PARSER::INDEX)
8939
                                   (%ATN-NODE-BLOCK |TriplesBlockRest/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
8940
                                 (|TriplesBlockRest/start.1| (ATN-PARSER::INDEX)
8941
                                   (%ATN-NODE-BLOCK |TriplesBlockRest/start.1|
8942
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)
8943
                                                                     (COND
8944
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)
8945
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|.|)
8946
                                                                       (|TriplesBlockRest/TriplesBlockRest.2.4|
8947
                                                                        (1+ ATN-PARSER::INDEX)))
8948
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|)
8949
                                                                       (|TriplesBlockRest/fail.3| ATN-PARSER::INDEX))))))
8950
                                 (|TriplesBlockRest/TriplesBlockRest.2.4| (ATN-PARSER::INDEX)
8951
                                   (%ATN-NODE-BLOCK |TriplesBlockRest/TriplesBlockRest.2.4|
8952
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesSameSubject|)
8953
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
8954
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject|
8955
                                                                                                  ATN-PARSER::INDEX)
8956
                                                                       (COND
8957
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesSameSubject|)
8958
                                                                         (LET ((|TriplesSameSubject603| |TriplesSameSubject|))
8959
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
8960
                                                                             (DESTRUCTURING-BIND
8961
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
8962
                                                                                 ATN-PARSER::RESULT-AND-INDEX
8963
                                                                               (WHEN ATN-PARSER::RESULT
8964
                                                                                 (SETF |TriplesSameSubject| ATN-PARSER::RESULT))
8965
                                                                               (|TriplesBlockRest.2| ATN-PARSER::RESULT-INDEX))
8966
                                                                             (SETF |TriplesSameSubject| |TriplesSameSubject603|))))
8967
                                                                        (T (SETF *ATN-TERM?* '|TriplesSameSubject|)
8968
                                                                         (|TriplesBlockRest/fail.3| ATN-PARSER::INDEX))))))))
8969
                          (|TriplesBlockRest/start.1| ATN-PARSER::INDEX)
8970
                          (SETF *ATN-NODE NIL)
8971
                          NIL
8972
                          (IF ATN-PARSER::ATN-STRUCTURE
8973
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
8974
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
8975
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesBlockRest| ATN-PARSER::INDEX *ATN-STACK))))
8976
 (PROGN
8977
  (DEFVAR |GraphPatternNotTriples-INDEX|)
8978
  (DEFUN |GraphPatternNotTriples|
8979
         (ATN-PARSER::INDEX
8980
          &AUX (|GraphGraphPattern| NIL) (|GroupOrUnionGraphPattern| NIL) (|MinusGraphPattern| NIL) (|OptionalGraphPattern| NIL)
8981
          (|RevisionGraphPattern| NIL) (|ServiceGraphPattern| NIL))
8982
    "{57} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | MinusGraphPattern | GraphGraphPattern | RevisionGraphPattern | ServiceGraphPattern)
8983
 (|GraphGraphPattern| |GroupOrUnionGraphPattern| |MinusGraphPattern|
8984
                      |OptionalGraphPattern| |RevisionGraphPattern|
8985
                      |ServiceGraphPattern|)"
8986
    (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))
8987
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphPatternNotTriples-INDEX| *ATN-LEVEL))
8988
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
8989
    (IF (< |GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)
8990
        (LET ((|GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)
8991
              (*ATN-LEVEL (1+ *ATN-LEVEL))
8992
              (*ATN-STACK (CONS '|GraphPatternNotTriples| *ATN-STACK))
8993
              (ATN-PARSER::ATN-STRUCTURE NIL))
8994
          (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))
8995
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
8996
          (DECLARE (TYPE CONS *ATN-STACK))
8997
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
8998
            (%ATN-BLOCK |GraphPatternNotTriples|
8999
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
9000
                                   (SETF *ATN-TERM* '|GraphPatternNotTriples|)
9001
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
9002
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
9003
                                   ATN-PARSER::INDEX)
9004
                                 (|GraphPatternNotTriples.2| (ATN-PARSER::INDEX)
9005
                                   (%ATN-NODE-BLOCK |GraphPatternNotTriples.2|
9006
                                                    (%ATN-EDGE-BLOCK (POP |GraphPatternNotTriples|)
9007
                                                                     (WHEN T
9008
                                                                       (SETF *ATN-TERM* '|GraphPatternNotTriples|)
9009
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
9010
                                                                                   '|GraphPatternNotTriples| ATN-PARSER::INDEX
9011
                                                                                   (LIST '|GraphGraphPattern| |GraphGraphPattern|
9012
                                                                                         '|GroupOrUnionGraphPattern|
9013
                                                                                         |GroupOrUnionGraphPattern|
9014
                                                                                         '|MinusGraphPattern| |MinusGraphPattern|
9015
                                                                                         '|OptionalGraphPattern|
9016
                                                                                         |OptionalGraphPattern|
9017
                                                                                         '|RevisionGraphPattern|
9018
                                                                                         |RevisionGraphPattern|
9019
                                                                                         '|ServiceGraphPattern|
9020
                                                                                         |ServiceGraphPattern|))
9021
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
9022
                                                                              (IF (EQ *ATN-REDUCE* T)
9023
                                                                                  (|GraphPatternNotTriples-Constructor|
9024
                                                                                   |GraphGraphPattern| |GroupOrUnionGraphPattern|
9025
                                                                                   |MinusGraphPattern| |OptionalGraphPattern|
9026
                                                                                   |RevisionGraphPattern| |ServiceGraphPattern|)
9027
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
9028
                                                                                      (CONS '|GraphPatternNotTriples|
9029
                                                                                            (DELETE NIL
9030
                                                                                                    (LIST |GraphGraphPattern|
9031
                                                                                                          |GroupOrUnionGraphPattern|
9032
                                                                                                          |MinusGraphPattern|
9033
                                                                                                          |OptionalGraphPattern|
9034
                                                                                                          |RevisionGraphPattern|
9035
                                                                                                          |ServiceGraphPattern|)))
9036
                                                                                      '|GraphPatternNotTriples|))))
9037
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
9038
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
9039
                                 (|GraphPatternNotTriples/fail.3| (ATN-PARSER::INDEX)
9040
                                   (%ATN-NODE-BLOCK |GraphPatternNotTriples/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
9041
                                 (|GraphPatternNotTriples/start.1| (ATN-PARSER::INDEX)
9042
                                   (%ATN-NODE-BLOCK |GraphPatternNotTriples/start.1|
9043
                                                    (%ATN-EDGE-BLOCK OR
9044
                                                                     (PROGN
9045
                                                                      (%ATN-EDGE-BLOCK (PUSH |OptionalGraphPattern|)
9046
                                                                                       (MULTIPLE-VALUE-BIND
9047
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9048
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
9049
                                                                                            '|OptionalGraphPattern|
9050
                                                                                            ATN-PARSER::INDEX)
9051
                                                                                         (COND
9052
                                                                                          (ATN-PARSER::SUCCESS
9053
                                                                                           (SETF *ATN-TERM* '|OptionalGraphPattern|)
9054
                                                                                           (LET ((|OptionalGraphPattern604|
9055
                                                                                                  |OptionalGraphPattern|))
9056
                                                                                             (DOLIST
9057
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
9058
                                                                                                  ATN-PARSER::RESULT)
9059
                                                                                               (DESTRUCTURING-BIND
9060
                                                                                                   (
9061
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9062
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
9063
                                                                                                 (WHEN ATN-PARSER::RESULT
9064
                                                                                                   (SETF |OptionalGraphPattern|
9065
                                                                                                           ATN-PARSER::RESULT))
9066
                                                                                                 (|GraphPatternNotTriples.2|
9067
                                                                                                  ATN-PARSER::RESULT-INDEX))
9068
                                                                                               (SETF |OptionalGraphPattern|
9069
                                                                                                       |OptionalGraphPattern604|))))
9070
                                                                                          (T
9071
                                                                                           (SETF *ATN-TERM?*
9072
                                                                                                   '|OptionalGraphPattern|)
9073
                                                                                           NIL))))
9074
                                                                      (%ATN-EDGE-BLOCK (PUSH |GroupOrUnionGraphPattern|)
9075
                                                                                       (MULTIPLE-VALUE-BIND
9076
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9077
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
9078
                                                                                            '|GroupOrUnionGraphPattern|
9079
                                                                                            ATN-PARSER::INDEX)
9080
                                                                                         (COND
9081
                                                                                          (ATN-PARSER::SUCCESS
9082
                                                                                           (SETF *ATN-TERM*
9083
                                                                                                   '|GroupOrUnionGraphPattern|)
9084
                                                                                           (LET ((|GroupOrUnionGraphPattern605|
9085
                                                                                                  |GroupOrUnionGraphPattern|))
9086
                                                                                             (DOLIST
9087
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
9088
                                                                                                  ATN-PARSER::RESULT)
9089
                                                                                               (DESTRUCTURING-BIND
9090
                                                                                                   (
9091
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9092
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
9093
                                                                                                 (WHEN ATN-PARSER::RESULT
9094
                                                                                                   (SETF |GroupOrUnionGraphPattern|
9095
                                                                                                           ATN-PARSER::RESULT))
9096
                                                                                                 (|GraphPatternNotTriples.2|
9097
                                                                                                  ATN-PARSER::RESULT-INDEX))
9098
                                                                                               (SETF |GroupOrUnionGraphPattern|
9099
                                                                                                       |GroupOrUnionGraphPattern605|))))
9100
                                                                                          (T
9101
                                                                                           (SETF *ATN-TERM?*
9102
                                                                                                   '|GroupOrUnionGraphPattern|)
9103
                                                                                           NIL))))
9104
                                                                      (%ATN-EDGE-BLOCK (PUSH |MinusGraphPattern|)
9105
                                                                                       (MULTIPLE-VALUE-BIND
9106
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9107
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
9108
                                                                                            '|MinusGraphPattern| ATN-PARSER::INDEX)
9109
                                                                                         (COND
9110
                                                                                          (ATN-PARSER::SUCCESS
9111
                                                                                           (SETF *ATN-TERM* '|MinusGraphPattern|)
9112
                                                                                           (LET ((|MinusGraphPattern606|
9113
                                                                                                  |MinusGraphPattern|))
9114
                                                                                             (DOLIST
9115
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
9116
                                                                                                  ATN-PARSER::RESULT)
9117
                                                                                               (DESTRUCTURING-BIND
9118
                                                                                                   (
9119
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9120
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
9121
                                                                                                 (WHEN ATN-PARSER::RESULT
9122
                                                                                                   (SETF |MinusGraphPattern|
9123
                                                                                                           ATN-PARSER::RESULT))
9124
                                                                                                 (|GraphPatternNotTriples.2|
9125
                                                                                                  ATN-PARSER::RESULT-INDEX))
9126
                                                                                               (SETF |MinusGraphPattern|
9127
                                                                                                       |MinusGraphPattern606|))))
9128
                                                                                          (T (SETF *ATN-TERM?* '|MinusGraphPattern|)
9129
                                                                                           NIL))))
9130
                                                                      (%ATN-EDGE-BLOCK (PUSH |GraphGraphPattern|)
9131
                                                                                       (MULTIPLE-VALUE-BIND
9132
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9133
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
9134
                                                                                            '|GraphGraphPattern| ATN-PARSER::INDEX)
9135
                                                                                         (COND
9136
                                                                                          (ATN-PARSER::SUCCESS
9137
                                                                                           (SETF *ATN-TERM* '|GraphGraphPattern|)
9138
                                                                                           (LET ((|GraphGraphPattern607|
9139
                                                                                                  |GraphGraphPattern|))
9140
                                                                                             (DOLIST
9141
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
9142
                                                                                                  ATN-PARSER::RESULT)
9143
                                                                                               (DESTRUCTURING-BIND
9144
                                                                                                   (
9145
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9146
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
9147
                                                                                                 (WHEN ATN-PARSER::RESULT
9148
                                                                                                   (SETF |GraphGraphPattern|
9149
                                                                                                           ATN-PARSER::RESULT))
9150
                                                                                                 (|GraphPatternNotTriples.2|
9151
                                                                                                  ATN-PARSER::RESULT-INDEX))
9152
                                                                                               (SETF |GraphGraphPattern|
9153
                                                                                                       |GraphGraphPattern607|))))
9154
                                                                                          (T (SETF *ATN-TERM?* '|GraphGraphPattern|)
9155
                                                                                           NIL))))
9156
                                                                      (%ATN-EDGE-BLOCK (PUSH |RevisionGraphPattern|)
9157
                                                                                       (MULTIPLE-VALUE-BIND
9158
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9159
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
9160
                                                                                            '|RevisionGraphPattern|
9161
                                                                                            ATN-PARSER::INDEX)
9162
                                                                                         (COND
9163
                                                                                          (ATN-PARSER::SUCCESS
9164
                                                                                           (SETF *ATN-TERM* '|RevisionGraphPattern|)
9165
                                                                                           (LET ((|RevisionGraphPattern608|
9166
                                                                                                  |RevisionGraphPattern|))
9167
                                                                                             (DOLIST
9168
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
9169
                                                                                                  ATN-PARSER::RESULT)
9170
                                                                                               (DESTRUCTURING-BIND
9171
                                                                                                   (
9172
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9173
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
9174
                                                                                                 (WHEN ATN-PARSER::RESULT
9175
                                                                                                   (SETF |RevisionGraphPattern|
9176
                                                                                                           ATN-PARSER::RESULT))
9177
                                                                                                 (|GraphPatternNotTriples.2|
9178
                                                                                                  ATN-PARSER::RESULT-INDEX))
9179
                                                                                               (SETF |RevisionGraphPattern|
9180
                                                                                                       |RevisionGraphPattern608|))))
9181
                                                                                          (T
9182
                                                                                           (SETF *ATN-TERM?*
9183
                                                                                                   '|RevisionGraphPattern|)
9184
                                                                                           NIL))))
9185
                                                                      (%ATN-EDGE-BLOCK (PUSH |ServiceGraphPattern|)
9186
                                                                                       (MULTIPLE-VALUE-BIND
9187
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9188
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
9189
                                                                                            '|ServiceGraphPattern|
9190
                                                                                            ATN-PARSER::INDEX)
9191
                                                                                         (COND
9192
                                                                                          (ATN-PARSER::SUCCESS
9193
                                                                                           (SETF *ATN-TERM* '|ServiceGraphPattern|)
9194
                                                                                           (LET ((|ServiceGraphPattern609|
9195
                                                                                                  |ServiceGraphPattern|))
9196
                                                                                             (DOLIST
9197
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
9198
                                                                                                  ATN-PARSER::RESULT)
9199
                                                                                               (DESTRUCTURING-BIND
9200
                                                                                                   (
9201
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9202
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
9203
                                                                                                 (WHEN ATN-PARSER::RESULT
9204
                                                                                                   (SETF |ServiceGraphPattern|
9205
                                                                                                           ATN-PARSER::RESULT))
9206
                                                                                                 (|GraphPatternNotTriples.2|
9207
                                                                                                  ATN-PARSER::RESULT-INDEX))
9208
                                                                                               (SETF |ServiceGraphPattern|
9209
                                                                                                       |ServiceGraphPattern609|))))
9210
                                                                                          (T
9211
                                                                                           (SETF *ATN-TERM?* '|ServiceGraphPattern|)
9212
                                                                                           NIL))))
9213
                                                                      (|GraphPatternNotTriples/fail.3| ATN-PARSER::INDEX))))))
9214
                          (|GraphPatternNotTriples/start.1| ATN-PARSER::INDEX)
9215
                          (SETF *ATN-NODE NIL)
9216
                          NIL
9217
                          (IF ATN-PARSER::ATN-STRUCTURE
9218
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
9219
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
9220
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphPatternNotTriples| ATN-PARSER::INDEX *ATN-STACK))))
9221
 (PROGN
9222
  (DEFVAR |OptionalGraphPattern-INDEX|)
9223
  (DEFUN |OptionalGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))
9224
    "{58} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern
9225
 (|GroupGraphPattern|)"
9226
    (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))
9227
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OptionalGraphPattern-INDEX| *ATN-LEVEL))
9228
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
9229
    (IF (< |OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)
9230
        (LET ((|OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)
9231
              (*ATN-LEVEL (1+ *ATN-LEVEL))
9232
              (*ATN-STACK (CONS '|OptionalGraphPattern| *ATN-STACK))
9233
              (ATN-PARSER::ATN-STRUCTURE NIL))
9234
          (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))
9235
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
9236
          (DECLARE (TYPE CONS *ATN-STACK))
9237
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
9238
            (%ATN-BLOCK |OptionalGraphPattern|
9239
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
9240
                                   (SETF *ATN-TERM* '|OptionalGraphPattern|)
9241
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
9242
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
9243
                                   ATN-PARSER::INDEX)
9244
                                 (|OptionalGraphPattern.2| (ATN-PARSER::INDEX)
9245
                                   (%ATN-NODE-BLOCK |OptionalGraphPattern.2|
9246
                                                    (%ATN-EDGE-BLOCK (POP |OptionalGraphPattern|)
9247
                                                                     (WHEN T
9248
                                                                       (SETF *ATN-TERM* '|OptionalGraphPattern|)
9249
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
9250
                                                                                   '|OptionalGraphPattern| ATN-PARSER::INDEX
9251
                                                                                   (LIST '|GroupGraphPattern| |GroupGraphPattern|))
9252
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
9253
                                                                              (IF (EQ *ATN-REDUCE* T)
9254
                                                                                  (|OptionalGraphPattern-Constructor|
9255
                                                                                   |GroupGraphPattern|)
9256
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
9257
                                                                                      (CONS '|OptionalGraphPattern|
9258
                                                                                            (DELETE NIL (LIST |GroupGraphPattern|)))
9259
                                                                                      '|OptionalGraphPattern|))))
9260
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
9261
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
9262
                                 (|OptionalGraphPattern/fail.3| (ATN-PARSER::INDEX)
9263
                                   (%ATN-NODE-BLOCK |OptionalGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
9264
                                 (|OptionalGraphPattern/OptionalGraphPattern.2.4| (ATN-PARSER::INDEX)
9265
                                   (%ATN-NODE-BLOCK |OptionalGraphPattern/OptionalGraphPattern.2.4|
9266
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
9267
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9268
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
9269
                                                                                                  ATN-PARSER::INDEX)
9270
                                                                       (COND
9271
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
9272
                                                                         (LET ((|GroupGraphPattern610| |GroupGraphPattern|))
9273
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9274
                                                                             (DESTRUCTURING-BIND
9275
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9276
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9277
                                                                               (WHEN ATN-PARSER::RESULT
9278
                                                                                 (SETF |GroupGraphPattern| ATN-PARSER::RESULT))
9279
                                                                               (|OptionalGraphPattern.2| ATN-PARSER::RESULT-INDEX))
9280
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern610|))))
9281
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
9282
                                                                         (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9283
                                 (|OptionalGraphPattern/start.1| (ATN-PARSER::INDEX)
9284
                                   (%ATN-NODE-BLOCK |OptionalGraphPattern/start.1|
9285
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:OPTIONAL)
9286
                                                                     (COND
9287
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:OPTIONAL)
9288
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:OPTIONAL)
9289
                                                                       (|OptionalGraphPattern/OptionalGraphPattern.2.4|
9290
                                                                        (1+ ATN-PARSER::INDEX)))
9291
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:OPTIONAL)
9292
                                                                       (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9293
                          (|OptionalGraphPattern/start.1| ATN-PARSER::INDEX)
9294
                          (SETF *ATN-NODE NIL)
9295
                          NIL
9296
                          (IF ATN-PARSER::ATN-STRUCTURE
9297
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
9298
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
9299
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|OptionalGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))
9300
 (PROGN
9301
  (DEFVAR |GraphGraphPattern-INDEX|)
9302
  (DEFUN |GraphGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL) (|VarOrIRIref| NIL))
9303
    "{59} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern
9304
 (|GroupGraphPattern| |VarOrIRIref|)"
9305
    (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))
9306
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphGraphPattern-INDEX| *ATN-LEVEL))
9307
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
9308
    (IF (< |GraphGraphPattern-INDEX| ATN-PARSER::INDEX)
9309
        (LET ((|GraphGraphPattern-INDEX| ATN-PARSER::INDEX)
9310
              (*ATN-LEVEL (1+ *ATN-LEVEL))
9311
              (*ATN-STACK (CONS '|GraphGraphPattern| *ATN-STACK))
9312
              (ATN-PARSER::ATN-STRUCTURE NIL))
9313
          (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))
9314
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
9315
          (DECLARE (TYPE CONS *ATN-STACK))
9316
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
9317
            (%ATN-BLOCK |GraphGraphPattern|
9318
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
9319
                                   (SETF *ATN-TERM* '|GraphGraphPattern|)
9320
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
9321
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
9322
                                   ATN-PARSER::INDEX)
9323
                                 (|GraphGraphPattern.2| (ATN-PARSER::INDEX)
9324
                                   (%ATN-NODE-BLOCK |GraphGraphPattern.2|
9325
                                                    (%ATN-EDGE-BLOCK (POP |GraphGraphPattern|)
9326
                                                                     (WHEN T
9327
                                                                       (SETF *ATN-TERM* '|GraphGraphPattern|)
9328
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
9329
                                                                                   '|GraphGraphPattern| ATN-PARSER::INDEX
9330
                                                                                   (LIST '|GroupGraphPattern| |GroupGraphPattern|
9331
                                                                                         '|VarOrIRIref| |VarOrIRIref|))
9332
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
9333
                                                                              (IF (EQ *ATN-REDUCE* T)
9334
                                                                                  (|GraphGraphPattern-Constructor|
9335
                                                                                   |GroupGraphPattern| |VarOrIRIref|)
9336
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
9337
                                                                                      (CONS '|GraphGraphPattern|
9338
                                                                                            (DELETE NIL
9339
                                                                                                    (LIST |GroupGraphPattern|
9340
                                                                                                          |VarOrIRIref|)))
9341
                                                                                      '|GraphGraphPattern|))))
9342
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
9343
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
9344
                                 (|GraphGraphPattern/fail.3| (ATN-PARSER::INDEX)
9345
                                   (%ATN-NODE-BLOCK |GraphGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
9346
                                 (|GraphGraphPattern/GraphGraphPattern.2.4| (ATN-PARSER::INDEX)
9347
                                   (%ATN-NODE-BLOCK |GraphGraphPattern/GraphGraphPattern.2.4|
9348
                                                    (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
9349
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9350
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)
9351
                                                                       (COND
9352
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarOrIRIref|)
9353
                                                                         (LET ((|VarOrIRIref612| |VarOrIRIref|))
9354
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9355
                                                                             (DESTRUCTURING-BIND
9356
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9357
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9358
                                                                               (WHEN ATN-PARSER::RESULT
9359
                                                                                 (SETF |VarOrIRIref| ATN-PARSER::RESULT))
9360
                                                                               (|GraphGraphPattern/GraphGraphPattern.2.5|
9361
                                                                                ATN-PARSER::RESULT-INDEX))
9362
                                                                             (SETF |VarOrIRIref| |VarOrIRIref612|))))
9363
                                                                        (T (SETF *ATN-TERM?* '|VarOrIRIref|)
9364
                                                                         (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9365
                                 (|GraphGraphPattern/GraphGraphPattern.2.5| (ATN-PARSER::INDEX)
9366
                                   (%ATN-NODE-BLOCK |GraphGraphPattern/GraphGraphPattern.2.5|
9367
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
9368
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9369
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
9370
                                                                                                  ATN-PARSER::INDEX)
9371
                                                                       (COND
9372
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
9373
                                                                         (LET ((|GroupGraphPattern611| |GroupGraphPattern|))
9374
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9375
                                                                             (DESTRUCTURING-BIND
9376
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9377
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9378
                                                                               (WHEN ATN-PARSER::RESULT
9379
                                                                                 (SETF |GroupGraphPattern| ATN-PARSER::RESULT))
9380
                                                                               (|GraphGraphPattern.2| ATN-PARSER::RESULT-INDEX))
9381
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern611|))))
9382
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
9383
                                                                         (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9384
                                 (|GraphGraphPattern/start.1| (ATN-PARSER::INDEX)
9385
                                   (%ATN-NODE-BLOCK |GraphGraphPattern/start.1|
9386
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:GRAPH)
9387
                                                                     (COND
9388
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:GRAPH)
9389
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:GRAPH)
9390
                                                                       (|GraphGraphPattern/GraphGraphPattern.2.4|
9391
                                                                        (1+ ATN-PARSER::INDEX)))
9392
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:GRAPH)
9393
                                                                       (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9394
                          (|GraphGraphPattern/start.1| ATN-PARSER::INDEX)
9395
                          (SETF *ATN-NODE NIL)
9396
                          NIL
9397
                          (IF ATN-PARSER::ATN-STRUCTURE
9398
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
9399
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
9400
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))
9401
 (PROGN
9402
  (DEFVAR |ServiceGraphPattern-INDEX|)
9403
  (DEFUN |ServiceGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL) (|Silence| NIL) (|VarOrIRIref| NIL))
9404
    "{60} ServiceGraphPattern ::= 'SERVICE' Silence? VarOrIRIref GroupGraphPattern
9405
 (|GroupGraphPattern| |Silence| |VarOrIRIref|)"
9406
    (DECLARE (SPECIAL |ServiceGraphPattern-INDEX|))
9407
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ServiceGraphPattern-INDEX| *ATN-LEVEL))
9408
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
9409
    (IF (< |ServiceGraphPattern-INDEX| ATN-PARSER::INDEX)
9410
        (LET ((|ServiceGraphPattern-INDEX| ATN-PARSER::INDEX)
9411
              (*ATN-LEVEL (1+ *ATN-LEVEL))
9412
              (*ATN-STACK (CONS '|ServiceGraphPattern| *ATN-STACK))
9413
              (ATN-PARSER::ATN-STRUCTURE NIL))
9414
          (DECLARE (SPECIAL |ServiceGraphPattern-INDEX|))
9415
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
9416
          (DECLARE (TYPE CONS *ATN-STACK))
9417
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
9418
            (%ATN-BLOCK |ServiceGraphPattern|
9419
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
9420
                                   (SETF *ATN-TERM* '|ServiceGraphPattern|)
9421
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
9422
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
9423
                                   ATN-PARSER::INDEX)
9424
                                 (|ServiceGraphPattern.2| (ATN-PARSER::INDEX)
9425
                                   (%ATN-NODE-BLOCK |ServiceGraphPattern.2|
9426
                                                    (%ATN-EDGE-BLOCK (POP |ServiceGraphPattern|)
9427
                                                                     (WHEN T
9428
                                                                       (SETF *ATN-TERM* '|ServiceGraphPattern|)
9429
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
9430
                                                                                   '|ServiceGraphPattern| ATN-PARSER::INDEX
9431
                                                                                   (LIST '|GroupGraphPattern| |GroupGraphPattern|
9432
                                                                                         '|Silence| |Silence| '|VarOrIRIref|
9433
                                                                                         |VarOrIRIref|))
9434
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
9435
                                                                              (IF (EQ *ATN-REDUCE* T)
9436
                                                                                  (|ServiceGraphPattern-Constructor|
9437
                                                                                   |GroupGraphPattern| |Silence| |VarOrIRIref|)
9438
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
9439
                                                                                      (CONS '|ServiceGraphPattern|
9440
                                                                                            (DELETE NIL
9441
                                                                                                    (LIST |GroupGraphPattern|
9442
                                                                                                          |Silence| |VarOrIRIref|)))
9443
                                                                                      '|ServiceGraphPattern|))))
9444
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
9445
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
9446
                                 (|ServiceGraphPattern/fail.3| (ATN-PARSER::INDEX)
9447
                                   (%ATN-NODE-BLOCK |ServiceGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
9448
                                 (|ServiceGraphPattern/ServiceGraphPattern.2.4| (ATN-PARSER::INDEX)
9449
                                   (%ATN-NODE-BLOCK |ServiceGraphPattern/ServiceGraphPattern.2.4|
9450
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Silence|)
9451
                                                                     (COND
9452
                                                                      ((|IS-Silence| ATN-PARSER::|item|)
9453
                                                                       (SETF *ATN-TERM* '|Silence|)
9454
                                                                       (SETF |Silence|
9455
                                                                               (IF (EQ *ATN-REDUCE* T)
9456
                                                                                   (ATN-REDUCE-ITEM #'|Silence-Constructor|
9457
                                                                                                    ATN-PARSER::|item|)
9458
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
9459
                                                                                       (LIST '|Silence| ATN-PARSER::|item|)
9460
                                                                                       '|Silence|)))
9461
                                                                       (|ServiceGraphPattern/ServiceGraphPattern.2.5|
9462
                                                                        (1+ ATN-PARSER::INDEX)))
9463
                                                                      (T (SETF *ATN-TERM* '|Silence|)
9464
                                                                       (|ServiceGraphPattern/ServiceGraphPattern.2.5|
9465
                                                                        ATN-PARSER::INDEX))))))
9466
                                 (|ServiceGraphPattern/ServiceGraphPattern.2.5| (ATN-PARSER::INDEX)
9467
                                   (%ATN-NODE-BLOCK |ServiceGraphPattern/ServiceGraphPattern.2.5|
9468
                                                    (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
9469
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9470
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)
9471
                                                                       (COND
9472
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarOrIRIref|)
9473
                                                                         (LET ((|VarOrIRIref614| |VarOrIRIref|))
9474
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9475
                                                                             (DESTRUCTURING-BIND
9476
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9477
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9478
                                                                               (WHEN ATN-PARSER::RESULT
9479
                                                                                 (SETF |VarOrIRIref| ATN-PARSER::RESULT))
9480
                                                                               (|ServiceGraphPattern/ServiceGraphPattern.2.6|
9481
                                                                                ATN-PARSER::RESULT-INDEX))
9482
                                                                             (SETF |VarOrIRIref| |VarOrIRIref614|))))
9483
                                                                        (T (SETF *ATN-TERM?* '|VarOrIRIref|)
9484
                                                                         (|ServiceGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9485
                                 (|ServiceGraphPattern/ServiceGraphPattern.2.6| (ATN-PARSER::INDEX)
9486
                                   (%ATN-NODE-BLOCK |ServiceGraphPattern/ServiceGraphPattern.2.6|
9487
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
9488
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9489
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
9490
                                                                                                  ATN-PARSER::INDEX)
9491
                                                                       (COND
9492
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
9493
                                                                         (LET ((|GroupGraphPattern613| |GroupGraphPattern|))
9494
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9495
                                                                             (DESTRUCTURING-BIND
9496
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9497
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9498
                                                                               (WHEN ATN-PARSER::RESULT
9499
                                                                                 (SETF |GroupGraphPattern| ATN-PARSER::RESULT))
9500
                                                                               (|ServiceGraphPattern.2| ATN-PARSER::RESULT-INDEX))
9501
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern613|))))
9502
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
9503
                                                                         (|ServiceGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9504
                                 (|ServiceGraphPattern/start.1| (ATN-PARSER::INDEX)
9505
                                   (%ATN-NODE-BLOCK |ServiceGraphPattern/start.1|
9506
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:SERVICE)
9507
                                                                     (COND
9508
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:SERVICE)
9509
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:SERVICE)
9510
                                                                       (|ServiceGraphPattern/ServiceGraphPattern.2.4|
9511
                                                                        (1+ ATN-PARSER::INDEX)))
9512
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:SERVICE)
9513
                                                                       (|ServiceGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9514
                          (|ServiceGraphPattern/start.1| ATN-PARSER::INDEX)
9515
                          (SETF *ATN-NODE NIL)
9516
                          NIL
9517
                          (IF ATN-PARSER::ATN-STRUCTURE
9518
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
9519
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
9520
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ServiceGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))
9521
 (PROGN
9522
  (DEFVAR |RevisionGraphPattern-INDEX|)
9523
  (DEFUN |RevisionGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL) (|String| NIL) (|VarOrIRIref| NIL))
9524
    "{60a} RevisionGraphPattern ::= 'REVISION' ((VarOrIRIref | String)) GroupGraphPattern
9525
 (|GroupGraphPattern| |String| |VarOrIRIref|)"
9526
    (DECLARE (SPECIAL |RevisionGraphPattern-INDEX|))
9527
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RevisionGraphPattern-INDEX| *ATN-LEVEL))
9528
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
9529
    (IF (< |RevisionGraphPattern-INDEX| ATN-PARSER::INDEX)
9530
        (LET ((|RevisionGraphPattern-INDEX| ATN-PARSER::INDEX)
9531
              (*ATN-LEVEL (1+ *ATN-LEVEL))
9532
              (*ATN-STACK (CONS '|RevisionGraphPattern| *ATN-STACK))
9533
              (ATN-PARSER::ATN-STRUCTURE NIL))
9534
          (DECLARE (SPECIAL |RevisionGraphPattern-INDEX|))
9535
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
9536
          (DECLARE (TYPE CONS *ATN-STACK))
9537
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
9538
            (%ATN-BLOCK |RevisionGraphPattern|
9539
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
9540
                                   (SETF *ATN-TERM* '|RevisionGraphPattern|)
9541
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
9542
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
9543
                                   ATN-PARSER::INDEX)
9544
                                 (|RevisionGraphPattern.2| (ATN-PARSER::INDEX)
9545
                                   (%ATN-NODE-BLOCK |RevisionGraphPattern.2|
9546
                                                    (%ATN-EDGE-BLOCK (POP |RevisionGraphPattern|)
9547
                                                                     (WHEN T
9548
                                                                       (SETF *ATN-TERM* '|RevisionGraphPattern|)
9549
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
9550
                                                                                   '|RevisionGraphPattern| ATN-PARSER::INDEX
9551
                                                                                   (LIST '|GroupGraphPattern| |GroupGraphPattern|
9552
                                                                                         '|String| |String| '|VarOrIRIref|
9553
                                                                                         |VarOrIRIref|))
9554
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
9555
                                                                              (IF (EQ *ATN-REDUCE* T)
9556
                                                                                  (|RevisionGraphPattern-Constructor|
9557
                                                                                   |GroupGraphPattern| |String| |VarOrIRIref|)
9558
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
9559
                                                                                      (CONS '|RevisionGraphPattern|
9560
                                                                                            (DELETE NIL
9561
                                                                                                    (LIST |GroupGraphPattern|
9562
                                                                                                          |String| |VarOrIRIref|)))
9563
                                                                                      '|RevisionGraphPattern|))))
9564
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
9565
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
9566
                                 (|RevisionGraphPattern/fail.3| (ATN-PARSER::INDEX)
9567
                                   (%ATN-NODE-BLOCK |RevisionGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
9568
                                 (|RevisionGraphPattern/RevisionGraphPattern.2.4| (ATN-PARSER::INDEX)
9569
                                   (%ATN-NODE-BLOCK |RevisionGraphPattern/RevisionGraphPattern.2.4|
9570
                                                    (%ATN-EDGE-BLOCK OR
9571
                                                                     (PROGN
9572
                                                                      (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
9573
                                                                                       (MULTIPLE-VALUE-BIND
9574
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9575
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref|
9576
                                                                                                                    ATN-PARSER::INDEX)
9577
                                                                                         (COND
9578
                                                                                          (ATN-PARSER::SUCCESS
9579
                                                                                           (SETF *ATN-TERM* '|VarOrIRIref|)
9580
                                                                                           (LET ((|VarOrIRIref616| |VarOrIRIref|))
9581
                                                                                             (DOLIST
9582
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
9583
                                                                                                  ATN-PARSER::RESULT)
9584
                                                                                               (DESTRUCTURING-BIND
9585
                                                                                                   (
9586
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9587
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
9588
                                                                                                 (WHEN ATN-PARSER::RESULT
9589
                                                                                                   (SETF |VarOrIRIref|
9590
                                                                                                           ATN-PARSER::RESULT))
9591
                                                                                                 (|RevisionGraphPattern/RevisionGraphPattern.2.5|
9592
                                                                                                  ATN-PARSER::RESULT-INDEX))
9593
                                                                                               (SETF |VarOrIRIref|
9594
                                                                                                       |VarOrIRIref616|))))
9595
                                                                                          (T (SETF *ATN-TERM?* '|VarOrIRIref|)
9596
                                                                                           NIL))))
9597
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |String|)
9598
                                                                                       (COND
9599
                                                                                        ((|IS-String| ATN-PARSER::|item|)
9600
                                                                                         (SETF *ATN-TERM* '|String|)
9601
                                                                                         (SETF |String|
9602
                                                                                                 (IF (EQ *ATN-REDUCE* T)
9603
                                                                                                     (ATN-REDUCE-ITEM
9604
                                                                                                      #'|String-Constructor|
9605
                                                                                                      ATN-PARSER::|item|)
9606
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
9607
                                                                                                         (LIST '|String|
9608
                                                                                                               ATN-PARSER::|item|)
9609
                                                                                                         '|String|)))
9610
                                                                                         (|RevisionGraphPattern/RevisionGraphPattern.2.5|
9611
                                                                                          (1+ ATN-PARSER::INDEX)))
9612
                                                                                        (T (SETF *ATN-TERM* '|String|) NIL)))
9613
                                                                      (|RevisionGraphPattern/fail.3| ATN-PARSER::INDEX)))))
9614
                                 (|RevisionGraphPattern/RevisionGraphPattern.2.5| (ATN-PARSER::INDEX)
9615
                                   (%ATN-NODE-BLOCK |RevisionGraphPattern/RevisionGraphPattern.2.5|
9616
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
9617
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9618
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
9619
                                                                                                  ATN-PARSER::INDEX)
9620
                                                                       (COND
9621
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
9622
                                                                         (LET ((|GroupGraphPattern615| |GroupGraphPattern|))
9623
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9624
                                                                             (DESTRUCTURING-BIND
9625
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9626
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9627
                                                                               (WHEN ATN-PARSER::RESULT
9628
                                                                                 (SETF |GroupGraphPattern| ATN-PARSER::RESULT))
9629
                                                                               (|RevisionGraphPattern.2| ATN-PARSER::RESULT-INDEX))
9630
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern615|))))
9631
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
9632
                                                                         (|RevisionGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9633
                                 (|RevisionGraphPattern/start.1| (ATN-PARSER::INDEX)
9634
                                   (%ATN-NODE-BLOCK |RevisionGraphPattern/start.1|
9635
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:REVISION)
9636
                                                                     (COND
9637
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:REVISION)
9638
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:REVISION)
9639
                                                                       (|RevisionGraphPattern/RevisionGraphPattern.2.4|
9640
                                                                        (1+ ATN-PARSER::INDEX)))
9641
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:REVISION)
9642
                                                                       (|RevisionGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
9643
                          (|RevisionGraphPattern/start.1| ATN-PARSER::INDEX)
9644
                          (SETF *ATN-NODE NIL)
9645
                          NIL
9646
                          (IF ATN-PARSER::ATN-STRUCTURE
9647
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
9648
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
9649
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|RevisionGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))
9650
 (PROGN
9651
  (DEFVAR |Bind-INDEX|)
9652
  (DEFUN |Bind| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|IRIref| NIL) (|Lambda| NIL) (|Var| NIL))
9653
    "{61} Bind ::= 'BIND' '(' (((Lambda 'AS' IRIref) | (Expression 'AS' Var))) ')'
9654
 (|Expression| |IRIref| |Lambda| |Var|)"
9655
    (DECLARE (SPECIAL |Bind-INDEX|))
9656
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Bind-INDEX| *ATN-LEVEL))
9657
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
9658
    (IF (< |Bind-INDEX| ATN-PARSER::INDEX)
9659
        (LET ((|Bind-INDEX| ATN-PARSER::INDEX)
9660
              (*ATN-LEVEL (1+ *ATN-LEVEL))
9661
              (*ATN-STACK (CONS '|Bind| *ATN-STACK))
9662
              (ATN-PARSER::ATN-STRUCTURE NIL))
9663
          (DECLARE (SPECIAL |Bind-INDEX|))
9664
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
9665
          (DECLARE (TYPE CONS *ATN-STACK))
9666
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
9667
            (%ATN-BLOCK |Bind|
9668
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
9669
                                   (SETF *ATN-TERM* '|Bind|)
9670
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
9671
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
9672
                                   ATN-PARSER::INDEX)
9673
                                 (|Bind.2| (ATN-PARSER::INDEX)
9674
                                   (%ATN-NODE-BLOCK |Bind.2|
9675
                                                    (%ATN-EDGE-BLOCK (POP |Bind|)
9676
                                                                     (WHEN T
9677
                                                                       (SETF *ATN-TERM* '|Bind|)
9678
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Bind|
9679
                                                                                   ATN-PARSER::INDEX
9680
                                                                                   (LIST '|Expression| |Expression| '|IRIref|
9681
                                                                                         |IRIref| '|Lambda| |Lambda| '|Var| |Var|))
9682
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
9683
                                                                              (IF (EQ *ATN-REDUCE* T)
9684
                                                                                  (|Bind-Constructor| |Expression| |IRIref| |Lambda|
9685
                                                                                                      |Var|)
9686
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
9687
                                                                                      (CONS '|Bind|
9688
                                                                                            (DELETE NIL
9689
                                                                                                    (LIST |Expression| |IRIref|
9690
                                                                                                          |Lambda| |Var|)))
9691
                                                                                      '|Bind|))))
9692
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
9693
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
9694
                                 (|Bind/Bind.2.4| (ATN-PARSER::INDEX)
9695
                                   (%ATN-NODE-BLOCK |Bind/Bind.2.4|
9696
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
9697
                                                                     (COND
9698
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
9699
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
9700
                                                                       (|Bind/Bind.2.5| (1+ ATN-PARSER::INDEX)))
9701
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
9702
                                                                       (|Bind/fail.3| ATN-PARSER::INDEX))))))
9703
                                 (|Bind/Bind.2.5| (ATN-PARSER::INDEX)
9704
                                   (%ATN-NODE-BLOCK |Bind/Bind.2.5|
9705
                                                    (%ATN-EDGE-BLOCK OR
9706
                                                                     (PROGN
9707
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Bind/Bind/Bind.2.6.7|)
9708
                                                                                       (|Bind/Bind/Bind.2.6.7| ATN-PARSER::INDEX))
9709
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Bind/Bind/Bind.2.6.10|)
9710
                                                                                       (|Bind/Bind/Bind.2.6.10| ATN-PARSER::INDEX))
9711
                                                                      (|Bind/fail.3| ATN-PARSER::INDEX)))))
9712
                                 (|Bind/Bind.2.6| (ATN-PARSER::INDEX)
9713
                                   (%ATN-NODE-BLOCK |Bind/Bind.2.6|
9714
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
9715
                                                                     (COND
9716
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
9717
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
9718
                                                                       (|Bind.2| (1+ ATN-PARSER::INDEX)))
9719
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
9720
                                                                       (|Bind/fail.3| ATN-PARSER::INDEX))))))
9721
                                 (|Bind/Bind/Bind.2.6.10| (ATN-PARSER::INDEX)
9722
                                   (%ATN-NODE-BLOCK |Bind/Bind/Bind.2.6.10|
9723
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
9724
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9725
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
9726
                                                                       (COND
9727
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
9728
                                                                         (LET ((|Expression617| |Expression|))
9729
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9730
                                                                             (DESTRUCTURING-BIND
9731
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9732
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9733
                                                                               (WHEN ATN-PARSER::RESULT
9734
                                                                                 (SETF |Expression| ATN-PARSER::RESULT))
9735
                                                                               (|Bind/Bind/Bind.2.6.11| ATN-PARSER::RESULT-INDEX))
9736
                                                                             (SETF |Expression| |Expression617|))))
9737
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
9738
                                 (|Bind/Bind/Bind.2.6.11| (ATN-PARSER::INDEX)
9739
                                   (%ATN-NODE-BLOCK |Bind/Bind/Bind.2.6.11|
9740
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:AS)
9741
                                                                     (COND
9742
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)
9743
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:AS)
9744
                                                                       (|Bind/Bind/Bind.2.6.12| (1+ ATN-PARSER::INDEX)))
9745
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) NIL)))))
9746
                                 (|Bind/Bind/Bind.2.6.12| (ATN-PARSER::INDEX)
9747
                                   (%ATN-NODE-BLOCK |Bind/Bind/Bind.2.6.12|
9748
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
9749
                                                                     (COND
9750
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
9751
                                                                       (SETF |Var|
9752
                                                                               (IF (EQ *ATN-REDUCE* T)
9753
                                                                                   (ATN-REDUCE-ITEM #'|Var-Constructor|
9754
                                                                                                    ATN-PARSER::|item|)
9755
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
9756
                                                                                       (LIST '|Var| ATN-PARSER::|item|)
9757
                                                                                       '|Var|)))
9758
                                                                       (|Bind/Bind.2.6| (1+ ATN-PARSER::INDEX)))
9759
                                                                      (T (SETF *ATN-TERM?* '|Var|) NIL)))))
9760
                                 (|Bind/Bind/Bind.2.6.7| (ATN-PARSER::INDEX)
9761
                                   (%ATN-NODE-BLOCK |Bind/Bind/Bind.2.6.7|
9762
                                                    (%ATN-EDGE-BLOCK (PUSH |Lambda|)
9763
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9764
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Lambda| ATN-PARSER::INDEX)
9765
                                                                       (COND
9766
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Lambda|)
9767
                                                                         (LET ((|Lambda619| |Lambda|))
9768
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9769
                                                                             (DESTRUCTURING-BIND
9770
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9771
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9772
                                                                               (WHEN ATN-PARSER::RESULT
9773
                                                                                 (SETF |Lambda| ATN-PARSER::RESULT))
9774
                                                                               (|Bind/Bind/Bind.2.6.8| ATN-PARSER::RESULT-INDEX))
9775
                                                                             (SETF |Lambda| |Lambda619|))))
9776
                                                                        (T (SETF *ATN-TERM?* '|Lambda|) NIL))))))
9777
                                 (|Bind/Bind/Bind.2.6.8| (ATN-PARSER::INDEX)
9778
                                   (%ATN-NODE-BLOCK |Bind/Bind/Bind.2.6.8|
9779
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:AS)
9780
                                                                     (COND
9781
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)
9782
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:AS)
9783
                                                                       (|Bind/Bind/Bind.2.6.9| (1+ ATN-PARSER::INDEX)))
9784
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) NIL)))))
9785
                                 (|Bind/Bind/Bind.2.6.9| (ATN-PARSER::INDEX)
9786
                                   (%ATN-NODE-BLOCK |Bind/Bind/Bind.2.6.9|
9787
                                                    (%ATN-EDGE-BLOCK (PUSH |IRIref|)
9788
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9789
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)
9790
                                                                       (COND
9791
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|IRIref|)
9792
                                                                         (LET ((|IRIref618| |IRIref|))
9793
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9794
                                                                             (DESTRUCTURING-BIND
9795
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9796
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9797
                                                                               (WHEN ATN-PARSER::RESULT
9798
                                                                                 (SETF |IRIref| ATN-PARSER::RESULT))
9799
                                                                               (|Bind/Bind.2.6| ATN-PARSER::RESULT-INDEX))
9800
                                                                             (SETF |IRIref| |IRIref618|))))
9801
                                                                        (T (SETF *ATN-TERM?* '|IRIref|) NIL))))))
9802
                                 (|Bind/fail.3| (ATN-PARSER::INDEX)
9803
                                   (%ATN-NODE-BLOCK |Bind/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
9804
                                 (|Bind/start.1| (ATN-PARSER::INDEX)
9805
                                   (%ATN-NODE-BLOCK |Bind/start.1|
9806
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:BIND)
9807
                                                                     (COND
9808
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:BIND)
9809
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:BIND)
9810
                                                                       (|Bind/Bind.2.4| (1+ ATN-PARSER::INDEX)))
9811
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:BIND)
9812
                                                                       (|Bind/fail.3| ATN-PARSER::INDEX)))))))
9813
                          (|Bind/start.1| ATN-PARSER::INDEX)
9814
                          (SETF *ATN-NODE NIL)
9815
                          NIL
9816
                          (IF ATN-PARSER::ATN-STRUCTURE
9817
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
9818
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
9819
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Bind| ATN-PARSER::INDEX *ATN-STACK))))
9820
 (PROGN
9821
  (DEFVAR |Lambda-INDEX|)
9822
  (DEFUN |Lambda| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|Var| NIL))
9823
    "{61a} Lambda ::= '(' 'LAMBDA' '(' Var* ')' Expression* ')'
9824
 (|Expression| |Var|)"
9825
    (DECLARE (SPECIAL |Lambda-INDEX|))
9826
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Lambda-INDEX| *ATN-LEVEL))
9827
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
9828
    (IF (< |Lambda-INDEX| ATN-PARSER::INDEX)
9829
        (LET ((|Lambda-INDEX| ATN-PARSER::INDEX)
9830
              (*ATN-LEVEL (1+ *ATN-LEVEL))
9831
              (*ATN-STACK (CONS '|Lambda| *ATN-STACK))
9832
              (ATN-PARSER::ATN-STRUCTURE NIL))
9833
          (DECLARE (SPECIAL |Lambda-INDEX|))
9834
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
9835
          (DECLARE (TYPE CONS *ATN-STACK))
9836
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
9837
            (%ATN-BLOCK |Lambda|
9838
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
9839
                                   (SETF *ATN-TERM* '|Lambda|)
9840
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
9841
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
9842
                                   ATN-PARSER::INDEX)
9843
                                 (|Lambda.10| (ATN-PARSER::INDEX)
9844
                                   (%ATN-NODE-BLOCK |Lambda.10|
9845
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
9846
                                                                     (COND
9847
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
9848
                                                                       (SETF |Var|
9849
                                                                               (CONS
9850
                                                                                (IF (EQ *ATN-REDUCE* T)
9851
                                                                                    (ATN-REDUCE-ITEM #'|Var-Constructor|
9852
                                                                                                     ATN-PARSER::|item|)
9853
                                                                                    (IF (EQ *ATN-REDUCE* 'CONS)
9854
                                                                                        (LIST '|Var| ATN-PARSER::|item|)
9855
                                                                                        '|Var|))
9856
                                                                                |Var|))
9857
                                                                       (|Lambda.10| (1+ ATN-PARSER::INDEX)))
9858
                                                                      (T (SETF *ATN-TERM?* '|Var|)
9859
                                                                       (|Lambda/Lambda.2.7| ATN-PARSER::INDEX))))))
9860
                                 (|Lambda.11| (ATN-PARSER::INDEX)
9861
                                   (%ATN-NODE-BLOCK |Lambda.11|
9862
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
9863
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9864
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
9865
                                                                       (COND
9866
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
9867
                                                                         (LET ((|Expression621| |Expression|))
9868
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9869
                                                                             (DESTRUCTURING-BIND
9870
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9871
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9872
                                                                               (WHEN ATN-PARSER::RESULT
9873
                                                                                 (SETF |Expression|
9874
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
9875
                                                                               (|Lambda.11| ATN-PARSER::RESULT-INDEX))
9876
                                                                             (SETF |Expression| |Expression621|))))
9877
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
9878
                                                                         (|Lambda/Lambda.2.9| ATN-PARSER::INDEX)))))))
9879
                                 (|Lambda.2| (ATN-PARSER::INDEX)
9880
                                   (%ATN-NODE-BLOCK |Lambda.2|
9881
                                                    (%ATN-EDGE-BLOCK (POP |Lambda|)
9882
                                                                     (WHEN T
9883
                                                                       (SETF *ATN-TERM* '|Lambda|)
9884
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Lambda|
9885
                                                                                   ATN-PARSER::INDEX
9886
                                                                                   (LIST '|Expression| |Expression| '|Var| |Var|))
9887
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
9888
                                                                              (IF (EQ *ATN-REDUCE* T)
9889
                                                                                  (|Lambda-Constructor| |Expression| |Var|)
9890
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
9891
                                                                                      (CONS '|Lambda|
9892
                                                                                            (DELETE NIL (LIST |Expression| |Var|)))
9893
                                                                                      '|Lambda|))))
9894
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
9895
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
9896
                                 (|Lambda/fail.3| (ATN-PARSER::INDEX)
9897
                                   (%ATN-NODE-BLOCK |Lambda/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
9898
                                 (|Lambda/Lambda.2.4| (ATN-PARSER::INDEX)
9899
                                   (%ATN-NODE-BLOCK |Lambda/Lambda.2.4|
9900
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:LAMBDA)
9901
                                                                     (COND
9902
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:LAMBDA)
9903
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:LAMBDA)
9904
                                                                       (|Lambda/Lambda.2.5| (1+ ATN-PARSER::INDEX)))
9905
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:LAMBDA)
9906
                                                                       (|Lambda/fail.3| ATN-PARSER::INDEX))))))
9907
                                 (|Lambda/Lambda.2.5| (ATN-PARSER::INDEX)
9908
                                   (%ATN-NODE-BLOCK |Lambda/Lambda.2.5|
9909
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
9910
                                                                     (COND
9911
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
9912
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
9913
                                                                       (|Lambda/Lambda.2.6| (1+ ATN-PARSER::INDEX)))
9914
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
9915
                                                                       (|Lambda/fail.3| ATN-PARSER::INDEX))))))
9916
                                 (|Lambda/Lambda.2.6| (ATN-PARSER::INDEX)
9917
                                   (%ATN-NODE-BLOCK |Lambda/Lambda.2.6|
9918
                                                    (%ATN-EDGE-BLOCK (TEST |Var|)
9919
                                                                     (COND
9920
                                                                      ((|IS-Var| ATN-PARSER::|item|) (SETF *ATN-TERM* '|Var|)
9921
                                                                       (SETF |Var|
9922
                                                                               (CONS
9923
                                                                                (IF (EQ *ATN-REDUCE* T)
9924
                                                                                    (ATN-REDUCE-ITEM #'|Var-Constructor|
9925
                                                                                                     ATN-PARSER::|item|)
9926
                                                                                    (IF (EQ *ATN-REDUCE* 'CONS)
9927
                                                                                        (LIST '|Var| ATN-PARSER::|item|)
9928
                                                                                        '|Var|))
9929
                                                                                |Var|))
9930
                                                                       (|Lambda.10| (1+ ATN-PARSER::INDEX)))
9931
                                                                      (T (SETF *ATN-TERM?* '|Var|)
9932
                                                                       (|Lambda/Lambda.2.7| ATN-PARSER::INDEX))))))
9933
                                 (|Lambda/Lambda.2.7| (ATN-PARSER::INDEX)
9934
                                   (%ATN-NODE-BLOCK |Lambda/Lambda.2.7|
9935
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
9936
                                                                     (COND
9937
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
9938
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
9939
                                                                       (|Lambda/Lambda.2.8| (1+ ATN-PARSER::INDEX)))
9940
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
9941
                                                                       (|Lambda/fail.3| ATN-PARSER::INDEX))))))
9942
                                 (|Lambda/Lambda.2.8| (ATN-PARSER::INDEX)
9943
                                   (%ATN-NODE-BLOCK |Lambda/Lambda.2.8|
9944
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
9945
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
9946
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
9947
                                                                       (COND
9948
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
9949
                                                                         (LET ((|Expression620| |Expression|))
9950
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
9951
                                                                             (DESTRUCTURING-BIND
9952
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
9953
                                                                                 ATN-PARSER::RESULT-AND-INDEX
9954
                                                                               (WHEN ATN-PARSER::RESULT
9955
                                                                                 (SETF |Expression|
9956
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
9957
                                                                               (|Lambda.11| ATN-PARSER::RESULT-INDEX))
9958
                                                                             (SETF |Expression| |Expression620|))))
9959
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
9960
                                                                         (|Lambda/Lambda.2.9| ATN-PARSER::INDEX)))))))
9961
                                 (|Lambda/Lambda.2.9| (ATN-PARSER::INDEX)
9962
                                   (%ATN-NODE-BLOCK |Lambda/Lambda.2.9|
9963
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
9964
                                                                     (COND
9965
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
9966
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
9967
                                                                       (|Lambda.2| (1+ ATN-PARSER::INDEX)))
9968
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
9969
                                                                       (|Lambda/fail.3| ATN-PARSER::INDEX))))))
9970
                                 (|Lambda/start.1| (ATN-PARSER::INDEX)
9971
                                   (%ATN-NODE-BLOCK |Lambda/start.1|
9972
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
9973
                                                                     (COND
9974
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
9975
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
9976
                                                                       (|Lambda/Lambda.2.4| (1+ ATN-PARSER::INDEX)))
9977
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
9978
                                                                       (|Lambda/fail.3| ATN-PARSER::INDEX)))))))
9979
                          (|Lambda/start.1| ATN-PARSER::INDEX)
9980
                          (SETF *ATN-NODE NIL)
9981
                          NIL
9982
                          (IF ATN-PARSER::ATN-STRUCTURE
9983
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
9984
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
9985
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Lambda| ATN-PARSER::INDEX *ATN-STACK))))
9986
 (PROGN
9987
  (DEFVAR |MinusGraphPattern-INDEX|)
9988
  (DEFUN |MinusGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))
9989
    "{62} MinusGraphPattern ::= 'MINUS' GroupGraphPattern
9990
 (|GroupGraphPattern|)"
9991
    (DECLARE (SPECIAL |MinusGraphPattern-INDEX|))
9992
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MinusGraphPattern-INDEX| *ATN-LEVEL))
9993
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
9994
    (IF (< |MinusGraphPattern-INDEX| ATN-PARSER::INDEX)
9995
        (LET ((|MinusGraphPattern-INDEX| ATN-PARSER::INDEX)
9996
              (*ATN-LEVEL (1+ *ATN-LEVEL))
9997
              (*ATN-STACK (CONS '|MinusGraphPattern| *ATN-STACK))
9998
              (ATN-PARSER::ATN-STRUCTURE NIL))
9999
          (DECLARE (SPECIAL |MinusGraphPattern-INDEX|))
10000
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
10001
          (DECLARE (TYPE CONS *ATN-STACK))
10002
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
10003
            (%ATN-BLOCK |MinusGraphPattern|
10004
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
10005
                                   (SETF *ATN-TERM* '|MinusGraphPattern|)
10006
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
10007
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
10008
                                   ATN-PARSER::INDEX)
10009
                                 (|MinusGraphPattern.2| (ATN-PARSER::INDEX)
10010
                                   (%ATN-NODE-BLOCK |MinusGraphPattern.2|
10011
                                                    (%ATN-EDGE-BLOCK (POP |MinusGraphPattern|)
10012
                                                                     (WHEN T
10013
                                                                       (SETF *ATN-TERM* '|MinusGraphPattern|)
10014
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
10015
                                                                                   '|MinusGraphPattern| ATN-PARSER::INDEX
10016
                                                                                   (LIST '|GroupGraphPattern| |GroupGraphPattern|))
10017
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
10018
                                                                              (IF (EQ *ATN-REDUCE* T)
10019
                                                                                  (|MinusGraphPattern-Constructor|
10020
                                                                                   |GroupGraphPattern|)
10021
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
10022
                                                                                      (CONS '|MinusGraphPattern|
10023
                                                                                            (DELETE NIL (LIST |GroupGraphPattern|)))
10024
                                                                                      '|MinusGraphPattern|))))
10025
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
10026
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
10027
                                 (|MinusGraphPattern/fail.3| (ATN-PARSER::INDEX)
10028
                                   (%ATN-NODE-BLOCK |MinusGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
10029
                                 (|MinusGraphPattern/MinusGraphPattern.2.4| (ATN-PARSER::INDEX)
10030
                                   (%ATN-NODE-BLOCK |MinusGraphPattern/MinusGraphPattern.2.4|
10031
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
10032
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10033
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
10034
                                                                                                  ATN-PARSER::INDEX)
10035
                                                                       (COND
10036
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
10037
                                                                         (LET ((|GroupGraphPattern622| |GroupGraphPattern|))
10038
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10039
                                                                             (DESTRUCTURING-BIND
10040
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10041
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10042
                                                                               (WHEN ATN-PARSER::RESULT
10043
                                                                                 (SETF |GroupGraphPattern| ATN-PARSER::RESULT))
10044
                                                                               (|MinusGraphPattern.2| ATN-PARSER::RESULT-INDEX))
10045
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern622|))))
10046
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
10047
                                                                         (|MinusGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
10048
                                 (|MinusGraphPattern/start.1| (ATN-PARSER::INDEX)
10049
                                   (%ATN-NODE-BLOCK |MinusGraphPattern/start.1|
10050
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:MINUS)
10051
                                                                     (COND
10052
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:MINUS)
10053
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:MINUS)
10054
                                                                       (|MinusGraphPattern/MinusGraphPattern.2.4|
10055
                                                                        (1+ ATN-PARSER::INDEX)))
10056
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:MINUS)
10057
                                                                       (|MinusGraphPattern/fail.3| ATN-PARSER::INDEX)))))))
10058
                          (|MinusGraphPattern/start.1| ATN-PARSER::INDEX)
10059
                          (SETF *ATN-NODE NIL)
10060
                          NIL
10061
                          (IF ATN-PARSER::ATN-STRUCTURE
10062
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
10063
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
10064
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|MinusGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))
10065
 (PROGN
10066
  (DEFVAR |GroupOrUnionGraphPattern-INDEX|)
10067
  (DEFUN |GroupOrUnionGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))
10068
    "{63} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*
10069
 (|GroupGraphPattern|)"
10070
    (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))
10071
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupOrUnionGraphPattern-INDEX| *ATN-LEVEL))
10072
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
10073
    (IF (< |GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)
10074
        (LET ((|GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)
10075
              (*ATN-LEVEL (1+ *ATN-LEVEL))
10076
              (*ATN-STACK (CONS '|GroupOrUnionGraphPattern| *ATN-STACK))
10077
              (ATN-PARSER::ATN-STRUCTURE NIL))
10078
          (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))
10079
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
10080
          (DECLARE (TYPE CONS *ATN-STACK))
10081
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
10082
            (%ATN-BLOCK |GroupOrUnionGraphPattern|
10083
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
10084
                                   (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)
10085
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
10086
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
10087
                                   ATN-PARSER::INDEX)
10088
                                 (|GroupOrUnionGraphPattern.2| (ATN-PARSER::INDEX)
10089
                                   (%ATN-NODE-BLOCK |GroupOrUnionGraphPattern.2|
10090
                                                    (%ATN-EDGE-BLOCK (POP |GroupOrUnionGraphPattern|)
10091
                                                                     (WHEN T
10092
                                                                       (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)
10093
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
10094
                                                                                   '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX
10095
                                                                                   (LIST '|GroupGraphPattern| |GroupGraphPattern|))
10096
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
10097
                                                                              (IF (EQ *ATN-REDUCE* T)
10098
                                                                                  (|GroupOrUnionGraphPattern-Constructor|
10099
                                                                                   |GroupGraphPattern|)
10100
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
10101
                                                                                      (CONS '|GroupOrUnionGraphPattern|
10102
                                                                                            (DELETE NIL (LIST |GroupGraphPattern|)))
10103
                                                                                      '|GroupOrUnionGraphPattern|))))
10104
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
10105
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
10106
                                 (|GroupOrUnionGraphPattern.5| (ATN-PARSER::INDEX)
10107
                                   (%ATN-NODE-BLOCK |GroupOrUnionGraphPattern.5|
10108
                                                    (%ATN-EDGE-BLOCK
10109
                                                     (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)
10110
                                                     (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))
10111
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)
10112
                                                                     (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))
10113
                                 (|GroupOrUnionGraphPattern/fail.3| (ATN-PARSER::INDEX)
10114
                                   (%ATN-NODE-BLOCK |GroupOrUnionGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
10115
                                 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4| (ATN-PARSER::INDEX)
10116
                                   (%ATN-NODE-BLOCK |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|
10117
                                                    (%ATN-EDGE-BLOCK
10118
                                                     (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)
10119
                                                     (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))
10120
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)
10121
                                                                     (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))
10122
                                 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| (ATN-PARSER::INDEX)
10123
                                   (%ATN-NODE-BLOCK |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|
10124
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:UNION)
10125
                                                                     (COND
10126
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:UNION)
10127
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:UNION)
10128
                                                                       (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|
10129
                                                                        (1+ ATN-PARSER::INDEX)))
10130
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:UNION) NIL)))))
10131
                                 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7| (ATN-PARSER::INDEX)
10132
                                   (%ATN-NODE-BLOCK |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|
10133
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
10134
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10135
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
10136
                                                                                                  ATN-PARSER::INDEX)
10137
                                                                       (COND
10138
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
10139
                                                                         (LET ((|GroupGraphPattern623| |GroupGraphPattern|))
10140
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10141
                                                                             (DESTRUCTURING-BIND
10142
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10143
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10144
                                                                               (WHEN ATN-PARSER::RESULT
10145
                                                                                 (SETF |GroupGraphPattern|
10146
                                                                                         (CONS ATN-PARSER::RESULT
10147
                                                                                               |GroupGraphPattern|)))
10148
                                                                               (|GroupOrUnionGraphPattern.5|
10149
                                                                                ATN-PARSER::RESULT-INDEX))
10150
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern623|))))
10151
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|) NIL))))))
10152
                                 (|GroupOrUnionGraphPattern/start.1| (ATN-PARSER::INDEX)
10153
                                   (%ATN-NODE-BLOCK |GroupOrUnionGraphPattern/start.1|
10154
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
10155
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10156
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
10157
                                                                                                  ATN-PARSER::INDEX)
10158
                                                                       (COND
10159
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
10160
                                                                         (LET ((|GroupGraphPattern624| |GroupGraphPattern|))
10161
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10162
                                                                             (DESTRUCTURING-BIND
10163
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10164
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10165
                                                                               (WHEN ATN-PARSER::RESULT
10166
                                                                                 (SETF |GroupGraphPattern|
10167
                                                                                         (CONS ATN-PARSER::RESULT
10168
                                                                                               |GroupGraphPattern|)))
10169
                                                                               (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|
10170
                                                                                ATN-PARSER::RESULT-INDEX))
10171
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern624|))))
10172
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
10173
                                                                         (|GroupOrUnionGraphPattern/fail.3| ATN-PARSER::INDEX))))))))
10174
                          (|GroupOrUnionGraphPattern/start.1| ATN-PARSER::INDEX)
10175
                          (SETF *ATN-NODE NIL)
10176
                          NIL
10177
                          (IF ATN-PARSER::ATN-STRUCTURE
10178
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
10179
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
10180
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))
10181
 (PROGN
10182
  (DEFVAR |Filter-INDEX|)
10183
  (DEFUN |Filter| (ATN-PARSER::INDEX &AUX (|Constraint| NIL))
10184
    "{64} Filter ::= 'FILTER' Constraint
10185
 (|Constraint|)"
10186
    (DECLARE (SPECIAL |Filter-INDEX|))
10187
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Filter-INDEX| *ATN-LEVEL))
10188
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
10189
    (IF (< |Filter-INDEX| ATN-PARSER::INDEX)
10190
        (LET ((|Filter-INDEX| ATN-PARSER::INDEX)
10191
              (*ATN-LEVEL (1+ *ATN-LEVEL))
10192
              (*ATN-STACK (CONS '|Filter| *ATN-STACK))
10193
              (ATN-PARSER::ATN-STRUCTURE NIL))
10194
          (DECLARE (SPECIAL |Filter-INDEX|))
10195
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
10196
          (DECLARE (TYPE CONS *ATN-STACK))
10197
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
10198
            (%ATN-BLOCK |Filter|
10199
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
10200
                                   (SETF *ATN-TERM* '|Filter|)
10201
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
10202
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
10203
                                   ATN-PARSER::INDEX)
10204
                                 (|Filter.2| (ATN-PARSER::INDEX)
10205
                                   (%ATN-NODE-BLOCK |Filter.2|
10206
                                                    (%ATN-EDGE-BLOCK (POP |Filter|)
10207
                                                                     (WHEN T
10208
                                                                       (SETF *ATN-TERM* '|Filter|)
10209
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Filter|
10210
                                                                                   ATN-PARSER::INDEX
10211
                                                                                   (LIST '|Constraint| |Constraint|))
10212
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
10213
                                                                              (IF (EQ *ATN-REDUCE* T)
10214
                                                                                  (|Filter-Constructor| |Constraint|)
10215
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
10216
                                                                                      (CONS '|Filter|
10217
                                                                                            (DELETE NIL (LIST |Constraint|)))
10218
                                                                                      '|Filter|))))
10219
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
10220
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
10221
                                 (|Filter/fail.3| (ATN-PARSER::INDEX)
10222
                                   (%ATN-NODE-BLOCK |Filter/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
10223
                                 (|Filter/Filter.2.4| (ATN-PARSER::INDEX)
10224
                                   (%ATN-NODE-BLOCK |Filter/Filter.2.4|
10225
                                                    (%ATN-EDGE-BLOCK (PUSH |Constraint|)
10226
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10227
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)
10228
                                                                       (COND
10229
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Constraint|)
10230
                                                                         (LET ((|Constraint625| |Constraint|))
10231
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10232
                                                                             (DESTRUCTURING-BIND
10233
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10234
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10235
                                                                               (WHEN ATN-PARSER::RESULT
10236
                                                                                 (SETF |Constraint| ATN-PARSER::RESULT))
10237
                                                                               (|Filter.2| ATN-PARSER::RESULT-INDEX))
10238
                                                                             (SETF |Constraint| |Constraint625|))))
10239
                                                                        (T (SETF *ATN-TERM?* '|Constraint|)
10240
                                                                         (|Filter/fail.3| ATN-PARSER::INDEX)))))))
10241
                                 (|Filter/start.1| (ATN-PARSER::INDEX)
10242
                                   (%ATN-NODE-BLOCK |Filter/start.1|
10243
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:FILTER)
10244
                                                                     (COND
10245
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:FILTER)
10246
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:FILTER)
10247
                                                                       (|Filter/Filter.2.4| (1+ ATN-PARSER::INDEX)))
10248
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:FILTER)
10249
                                                                       (|Filter/fail.3| ATN-PARSER::INDEX)))))))
10250
                          (|Filter/start.1| ATN-PARSER::INDEX)
10251
                          (SETF *ATN-NODE NIL)
10252
                          NIL
10253
                          (IF ATN-PARSER::ATN-STRUCTURE
10254
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
10255
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
10256
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Filter| ATN-PARSER::INDEX *ATN-STACK))))
10257
 (PROGN
10258
  (DEFVAR |Constraint-INDEX|)
10259
  (DEFUN |Constraint| (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|BuiltInCall| NIL) (|FunctionCall| NIL))
10260
    "{65} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)
10261
 (|BrackettedExpression| |BuiltInCall| |FunctionCall|)"
10262
    (DECLARE (SPECIAL |Constraint-INDEX|))
10263
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Constraint-INDEX| *ATN-LEVEL))
10264
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
10265
    (IF (< |Constraint-INDEX| ATN-PARSER::INDEX)
10266
        (LET ((|Constraint-INDEX| ATN-PARSER::INDEX)
10267
              (*ATN-LEVEL (1+ *ATN-LEVEL))
10268
              (*ATN-STACK (CONS '|Constraint| *ATN-STACK))
10269
              (ATN-PARSER::ATN-STRUCTURE NIL))
10270
          (DECLARE (SPECIAL |Constraint-INDEX|))
10271
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
10272
          (DECLARE (TYPE CONS *ATN-STACK))
10273
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
10274
            (%ATN-BLOCK |Constraint|
10275
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
10276
                                   (SETF *ATN-TERM* '|Constraint|)
10277
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
10278
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
10279
                                   ATN-PARSER::INDEX)
10280
                                 (|Constraint.2| (ATN-PARSER::INDEX)
10281
                                   (%ATN-NODE-BLOCK |Constraint.2|
10282
                                                    (%ATN-EDGE-BLOCK (POP |Constraint|)
10283
                                                                     (WHEN T
10284
                                                                       (SETF *ATN-TERM* '|Constraint|)
10285
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
10286
                                                                                   '|Constraint| ATN-PARSER::INDEX
10287
                                                                                   (LIST '|BrackettedExpression|
10288
                                                                                         |BrackettedExpression| '|BuiltInCall|
10289
                                                                                         |BuiltInCall| '|FunctionCall|
10290
                                                                                         |FunctionCall|))
10291
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
10292
                                                                              (IF (EQ *ATN-REDUCE* T)
10293
                                                                                  (|Constraint-Constructor| |BrackettedExpression|
10294
                                                                                                            |BuiltInCall|
10295
                                                                                                            |FunctionCall|)
10296
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
10297
                                                                                      (CONS '|Constraint|
10298
                                                                                            (DELETE NIL
10299
                                                                                                    (LIST |BrackettedExpression|
10300
                                                                                                          |BuiltInCall|
10301
                                                                                                          |FunctionCall|)))
10302
                                                                                      '|Constraint|))))
10303
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
10304
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
10305
                                 (|Constraint/fail.3| (ATN-PARSER::INDEX)
10306
                                   (%ATN-NODE-BLOCK |Constraint/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
10307
                                 (|Constraint/start.1| (ATN-PARSER::INDEX)
10308
                                   (%ATN-NODE-BLOCK |Constraint/start.1|
10309
                                                    (%ATN-EDGE-BLOCK OR
10310
                                                                     (PROGN
10311
                                                                      (%ATN-EDGE-BLOCK (PUSH |BrackettedExpression|)
10312
                                                                                       (MULTIPLE-VALUE-BIND
10313
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10314
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
10315
                                                                                            '|BrackettedExpression|
10316
                                                                                            ATN-PARSER::INDEX)
10317
                                                                                         (COND
10318
                                                                                          (ATN-PARSER::SUCCESS
10319
                                                                                           (SETF *ATN-TERM* '|BrackettedExpression|)
10320
                                                                                           (LET ((|BrackettedExpression626|
10321
                                                                                                  |BrackettedExpression|))
10322
                                                                                             (DOLIST
10323
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
10324
                                                                                                  ATN-PARSER::RESULT)
10325
                                                                                               (DESTRUCTURING-BIND
10326
                                                                                                   (
10327
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10328
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
10329
                                                                                                 (WHEN ATN-PARSER::RESULT
10330
                                                                                                   (SETF |BrackettedExpression|
10331
                                                                                                           ATN-PARSER::RESULT))
10332
                                                                                                 (|Constraint.2|
10333
                                                                                                  ATN-PARSER::RESULT-INDEX))
10334
                                                                                               (SETF |BrackettedExpression|
10335
                                                                                                       |BrackettedExpression626|))))
10336
                                                                                          (T
10337
                                                                                           (SETF *ATN-TERM?*
10338
                                                                                                   '|BrackettedExpression|)
10339
                                                                                           NIL))))
10340
                                                                      (%ATN-EDGE-BLOCK (PUSH |BuiltInCall|)
10341
                                                                                       (MULTIPLE-VALUE-BIND
10342
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10343
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall|
10344
                                                                                                                    ATN-PARSER::INDEX)
10345
                                                                                         (COND
10346
                                                                                          (ATN-PARSER::SUCCESS
10347
                                                                                           (SETF *ATN-TERM* '|BuiltInCall|)
10348
                                                                                           (LET ((|BuiltInCall627| |BuiltInCall|))
10349
                                                                                             (DOLIST
10350
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
10351
                                                                                                  ATN-PARSER::RESULT)
10352
                                                                                               (DESTRUCTURING-BIND
10353
                                                                                                   (
10354
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10355
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
10356
                                                                                                 (WHEN ATN-PARSER::RESULT
10357
                                                                                                   (SETF |BuiltInCall|
10358
                                                                                                           ATN-PARSER::RESULT))
10359
                                                                                                 (|Constraint.2|
10360
                                                                                                  ATN-PARSER::RESULT-INDEX))
10361
                                                                                               (SETF |BuiltInCall|
10362
                                                                                                       |BuiltInCall627|))))
10363
                                                                                          (T (SETF *ATN-TERM?* '|BuiltInCall|)
10364
                                                                                           NIL))))
10365
                                                                      (%ATN-EDGE-BLOCK (PUSH |FunctionCall|)
10366
                                                                                       (MULTIPLE-VALUE-BIND
10367
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10368
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|FunctionCall|
10369
                                                                                                                    ATN-PARSER::INDEX)
10370
                                                                                         (COND
10371
                                                                                          (ATN-PARSER::SUCCESS
10372
                                                                                           (SETF *ATN-TERM* '|FunctionCall|)
10373
                                                                                           (LET ((|FunctionCall628| |FunctionCall|))
10374
                                                                                             (DOLIST
10375
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
10376
                                                                                                  ATN-PARSER::RESULT)
10377
                                                                                               (DESTRUCTURING-BIND
10378
                                                                                                   (
10379
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10380
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
10381
                                                                                                 (WHEN ATN-PARSER::RESULT
10382
                                                                                                   (SETF |FunctionCall|
10383
                                                                                                           ATN-PARSER::RESULT))
10384
                                                                                                 (|Constraint.2|
10385
                                                                                                  ATN-PARSER::RESULT-INDEX))
10386
                                                                                               (SETF |FunctionCall|
10387
                                                                                                       |FunctionCall628|))))
10388
                                                                                          (T (SETF *ATN-TERM?* '|FunctionCall|)
10389
                                                                                           NIL))))
10390
                                                                      (|Constraint/fail.3| ATN-PARSER::INDEX))))))
10391
                          (|Constraint/start.1| ATN-PARSER::INDEX)
10392
                          (SETF *ATN-NODE NIL)
10393
                          NIL
10394
                          (IF ATN-PARSER::ATN-STRUCTURE
10395
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
10396
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
10397
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Constraint| ATN-PARSER::INDEX *ATN-STACK))))
10398
 (PROGN
10399
  (DEFVAR |FunctionCall-INDEX|)
10400
  (DEFUN |FunctionCall| (ATN-PARSER::INDEX &AUX (|ArgList| NIL) (|IRIref| NIL))
10401
    "{66} FunctionCall ::= IRIref ArgList
10402
 (|ArgList| |IRIref|)"
10403
    (DECLARE (SPECIAL |FunctionCall-INDEX|))
10404
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |FunctionCall-INDEX| *ATN-LEVEL))
10405
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
10406
    (IF (< |FunctionCall-INDEX| ATN-PARSER::INDEX)
10407
        (LET ((|FunctionCall-INDEX| ATN-PARSER::INDEX)
10408
              (*ATN-LEVEL (1+ *ATN-LEVEL))
10409
              (*ATN-STACK (CONS '|FunctionCall| *ATN-STACK))
10410
              (ATN-PARSER::ATN-STRUCTURE NIL))
10411
          (DECLARE (SPECIAL |FunctionCall-INDEX|))
10412
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
10413
          (DECLARE (TYPE CONS *ATN-STACK))
10414
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
10415
            (%ATN-BLOCK |FunctionCall|
10416
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
10417
                                   (SETF *ATN-TERM* '|FunctionCall|)
10418
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
10419
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
10420
                                   ATN-PARSER::INDEX)
10421
                                 (|FunctionCall.2| (ATN-PARSER::INDEX)
10422
                                   (%ATN-NODE-BLOCK |FunctionCall.2|
10423
                                                    (%ATN-EDGE-BLOCK (POP |FunctionCall|)
10424
                                                                     (WHEN T
10425
                                                                       (SETF *ATN-TERM* '|FunctionCall|)
10426
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
10427
                                                                                   '|FunctionCall| ATN-PARSER::INDEX
10428
                                                                                   (LIST '|ArgList| |ArgList| '|IRIref| |IRIref|))
10429
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
10430
                                                                              (IF (EQ *ATN-REDUCE* T)
10431
                                                                                  (|FunctionCall-Constructor| |ArgList| |IRIref|)
10432
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
10433
                                                                                      (CONS '|FunctionCall|
10434
                                                                                            (DELETE NIL (LIST |ArgList| |IRIref|)))
10435
                                                                                      '|FunctionCall|))))
10436
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
10437
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
10438
                                 (|FunctionCall/fail.3| (ATN-PARSER::INDEX)
10439
                                   (%ATN-NODE-BLOCK |FunctionCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
10440
                                 (|FunctionCall/FunctionCall.2.4| (ATN-PARSER::INDEX)
10441
                                   (%ATN-NODE-BLOCK |FunctionCall/FunctionCall.2.4|
10442
                                                    (%ATN-EDGE-BLOCK (PUSH |ArgList|)
10443
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10444
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ArgList| ATN-PARSER::INDEX)
10445
                                                                       (COND
10446
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ArgList|)
10447
                                                                         (LET ((|ArgList629| |ArgList|))
10448
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10449
                                                                             (DESTRUCTURING-BIND
10450
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10451
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10452
                                                                               (WHEN ATN-PARSER::RESULT
10453
                                                                                 (SETF |ArgList| ATN-PARSER::RESULT))
10454
                                                                               (|FunctionCall.2| ATN-PARSER::RESULT-INDEX))
10455
                                                                             (SETF |ArgList| |ArgList629|))))
10456
                                                                        (T (SETF *ATN-TERM?* '|ArgList|)
10457
                                                                         (|FunctionCall/fail.3| ATN-PARSER::INDEX)))))))
10458
                                 (|FunctionCall/start.1| (ATN-PARSER::INDEX)
10459
                                   (%ATN-NODE-BLOCK |FunctionCall/start.1|
10460
                                                    (%ATN-EDGE-BLOCK (PUSH |IRIref|)
10461
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10462
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)
10463
                                                                       (COND
10464
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|IRIref|)
10465
                                                                         (LET ((|IRIref630| |IRIref|))
10466
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10467
                                                                             (DESTRUCTURING-BIND
10468
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10469
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10470
                                                                               (WHEN ATN-PARSER::RESULT
10471
                                                                                 (SETF |IRIref| ATN-PARSER::RESULT))
10472
                                                                               (|FunctionCall/FunctionCall.2.4|
10473
                                                                                ATN-PARSER::RESULT-INDEX))
10474
                                                                             (SETF |IRIref| |IRIref630|))))
10475
                                                                        (T (SETF *ATN-TERM?* '|IRIref|)
10476
                                                                         (|FunctionCall/fail.3| ATN-PARSER::INDEX))))))))
10477
                          (|FunctionCall/start.1| ATN-PARSER::INDEX)
10478
                          (SETF *ATN-NODE NIL)
10479
                          NIL
10480
                          (IF ATN-PARSER::ATN-STRUCTURE
10481
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
10482
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
10483
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|FunctionCall| ATN-PARSER::INDEX *ATN-STACK))))
10484
 (PROGN
10485
  (DEFVAR |ArgList-INDEX|)
10486
  (DEFUN |ArgList| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (NILLIST NIL))
10487
    "{67} ArgList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))
10488
 (|Expression| NILLIST)"
10489
    (DECLARE (SPECIAL |ArgList-INDEX|))
10490
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ArgList-INDEX| *ATN-LEVEL))
10491
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
10492
    (IF (< |ArgList-INDEX| ATN-PARSER::INDEX)
10493
        (LET ((|ArgList-INDEX| ATN-PARSER::INDEX)
10494
              (*ATN-LEVEL (1+ *ATN-LEVEL))
10495
              (*ATN-STACK (CONS '|ArgList| *ATN-STACK))
10496
              (ATN-PARSER::ATN-STRUCTURE NIL))
10497
          (DECLARE (SPECIAL |ArgList-INDEX|))
10498
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
10499
          (DECLARE (TYPE CONS *ATN-STACK))
10500
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
10501
            (%ATN-BLOCK |ArgList|
10502
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
10503
                                   (SETF *ATN-TERM* '|ArgList|)
10504
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
10505
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
10506
                                   ATN-PARSER::INDEX)
10507
                                 (|ArgList.2| (ATN-PARSER::INDEX)
10508
                                   (%ATN-NODE-BLOCK |ArgList.2|
10509
                                                    (%ATN-EDGE-BLOCK (POP |ArgList|)
10510
                                                                     (WHEN T
10511
                                                                       (SETF *ATN-TERM* '|ArgList|)
10512
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|ArgList|
10513
                                                                                   ATN-PARSER::INDEX
10514
                                                                                   (LIST '|Expression| |Expression| 'NILLIST
10515
                                                                                         NILLIST))
10516
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
10517
                                                                              (IF (EQ *ATN-REDUCE* T)
10518
                                                                                  (|ArgList-Constructor| |Expression| NILLIST)
10519
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
10520
                                                                                      (CONS '|ArgList|
10521
                                                                                            (DELETE NIL
10522
                                                                                                    (LIST |Expression| NILLIST)))
10523
                                                                                      '|ArgList|))))
10524
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
10525
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
10526
                                 (|ArgList.8| (ATN-PARSER::INDEX)
10527
                                   (%ATN-NODE-BLOCK |ArgList.8|
10528
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)
10529
                                                                     (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))
10530
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)
10531
                                                                     (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))
10532
                                 (|ArgList/ArgList.2.4| (ATN-PARSER::INDEX)
10533
                                   (%ATN-NODE-BLOCK |ArgList/ArgList.2.4|
10534
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
10535
                                                                     (COND
10536
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
10537
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
10538
                                                                       (|ArgList/ArgList.2.5| (1+ ATN-PARSER::INDEX)))
10539
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|) NIL)))))
10540
                                 (|ArgList/ArgList.2.5| (ATN-PARSER::INDEX)
10541
                                   (%ATN-NODE-BLOCK |ArgList/ArgList.2.5|
10542
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
10543
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10544
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
10545
                                                                       (COND
10546
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
10547
                                                                         (LET ((|Expression633| |Expression|))
10548
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10549
                                                                             (DESTRUCTURING-BIND
10550
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10551
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10552
                                                                               (WHEN ATN-PARSER::RESULT
10553
                                                                                 (SETF |Expression|
10554
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
10555
                                                                               (|ArgList/ArgList.2.6| ATN-PARSER::RESULT-INDEX))
10556
                                                                             (SETF |Expression| |Expression633|))))
10557
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
10558
                                 (|ArgList/ArgList.2.6| (ATN-PARSER::INDEX)
10559
                                   (%ATN-NODE-BLOCK |ArgList/ArgList.2.6|
10560
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)
10561
                                                                     (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))
10562
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)
10563
                                                                     (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))
10564
                                 (|ArgList/ArgList.2.7| (ATN-PARSER::INDEX)
10565
                                   (%ATN-NODE-BLOCK |ArgList/ArgList.2.7|
10566
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
10567
                                                                     (COND
10568
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
10569
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
10570
                                                                       (|ArgList.2| (1+ ATN-PARSER::INDEX)))
10571
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|) NIL)))))
10572
                                 (|ArgList/ArgList.8.10| (ATN-PARSER::INDEX)
10573
                                   (%ATN-NODE-BLOCK |ArgList/ArgList.8.10|
10574
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
10575
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10576
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
10577
                                                                       (COND
10578
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
10579
                                                                         (LET ((|Expression632| |Expression|))
10580
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10581
                                                                             (DESTRUCTURING-BIND
10582
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10583
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10584
                                                                               (WHEN ATN-PARSER::RESULT
10585
                                                                                 (SETF |Expression|
10586
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
10587
                                                                               (|ArgList.8| ATN-PARSER::RESULT-INDEX))
10588
                                                                             (SETF |Expression| |Expression632|))))
10589
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
10590
                                 (|ArgList/ArgList.8.9| (ATN-PARSER::INDEX)
10591
                                   (%ATN-NODE-BLOCK |ArgList/ArgList.8.9|
10592
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
10593
                                                                     (COND
10594
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
10595
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
10596
                                                                       (|ArgList/ArgList.8.10| (1+ ATN-PARSER::INDEX)))
10597
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
10598
                                 (|ArgList/fail.3| (ATN-PARSER::INDEX)
10599
                                   (%ATN-NODE-BLOCK |ArgList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
10600
                                 (|ArgList/start.1| (ATN-PARSER::INDEX)
10601
                                   (%ATN-NODE-BLOCK |ArgList/start.1|
10602
                                                    (%ATN-EDGE-BLOCK OR
10603
                                                                     (PROGN
10604
                                                                      (%ATN-EDGE-BLOCK (PUSH NILLIST)
10605
                                                                                       (MULTIPLE-VALUE-BIND
10606
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10607
                                                                                           (ATN-PARSE-SUBSTRUCTURE* 'NILLIST
10608
                                                                                                                    ATN-PARSER::INDEX)
10609
                                                                                         (COND
10610
                                                                                          (ATN-PARSER::SUCCESS
10611
                                                                                           (SETF *ATN-TERM* 'NILLIST)
10612
                                                                                           (LET ((NILLIST631 NILLIST))
10613
                                                                                             (DOLIST
10614
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
10615
                                                                                                  ATN-PARSER::RESULT)
10616
                                                                                               (DESTRUCTURING-BIND
10617
                                                                                                   (
10618
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10619
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
10620
                                                                                                 (WHEN ATN-PARSER::RESULT
10621
                                                                                                   (SETF NILLIST
10622
                                                                                                           ATN-PARSER::RESULT))
10623
                                                                                                 (|ArgList.2|
10624
                                                                                                  ATN-PARSER::RESULT-INDEX))
10625
                                                                                               (SETF NILLIST NILLIST631))))
10626
                                                                                          (T (SETF *ATN-TERM?* 'NILLIST) NIL))))
10627
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ArgList/ArgList.2.4|)
10628
                                                                                       (|ArgList/ArgList.2.4| ATN-PARSER::INDEX))
10629
                                                                      (|ArgList/fail.3| ATN-PARSER::INDEX))))))
10630
                          (|ArgList/start.1| ATN-PARSER::INDEX)
10631
                          (SETF *ATN-NODE NIL)
10632
                          NIL
10633
                          (IF ATN-PARSER::ATN-STRUCTURE
10634
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
10635
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
10636
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ArgList| ATN-PARSER::INDEX *ATN-STACK))))
10637
 (PROGN
10638
  (DEFVAR |ExpressionList-INDEX|)
10639
  (DEFUN |ExpressionList| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (NILLIST NIL))
10640
    "{68} ExpressionList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))
10641
 (|Expression| NILLIST)"
10642
    (DECLARE (SPECIAL |ExpressionList-INDEX|))
10643
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ExpressionList-INDEX| *ATN-LEVEL))
10644
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
10645
    (IF (< |ExpressionList-INDEX| ATN-PARSER::INDEX)
10646
        (LET ((|ExpressionList-INDEX| ATN-PARSER::INDEX)
10647
              (*ATN-LEVEL (1+ *ATN-LEVEL))
10648
              (*ATN-STACK (CONS '|ExpressionList| *ATN-STACK))
10649
              (ATN-PARSER::ATN-STRUCTURE NIL))
10650
          (DECLARE (SPECIAL |ExpressionList-INDEX|))
10651
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
10652
          (DECLARE (TYPE CONS *ATN-STACK))
10653
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
10654
            (%ATN-BLOCK |ExpressionList|
10655
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
10656
                                   (SETF *ATN-TERM* '|ExpressionList|)
10657
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
10658
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
10659
                                   ATN-PARSER::INDEX)
10660
                                 (|ExpressionList.2| (ATN-PARSER::INDEX)
10661
                                   (%ATN-NODE-BLOCK |ExpressionList.2|
10662
                                                    (%ATN-EDGE-BLOCK (POP |ExpressionList|)
10663
                                                                     (WHEN T
10664
                                                                       (SETF *ATN-TERM* '|ExpressionList|)
10665
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
10666
                                                                                   '|ExpressionList| ATN-PARSER::INDEX
10667
                                                                                   (LIST '|Expression| |Expression| 'NILLIST
10668
                                                                                         NILLIST))
10669
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
10670
                                                                              (IF (EQ *ATN-REDUCE* T)
10671
                                                                                  (|ExpressionList-Constructor| |Expression|
10672
                                                                                                                NILLIST)
10673
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
10674
                                                                                      (CONS '|ExpressionList|
10675
                                                                                            (DELETE NIL
10676
                                                                                                    (LIST |Expression| NILLIST)))
10677
                                                                                      '|ExpressionList|))))
10678
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
10679
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
10680
                                 (|ExpressionList.8| (ATN-PARSER::INDEX)
10681
                                   (%ATN-NODE-BLOCK |ExpressionList.8|
10682
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ExpressionList/ExpressionList.8.9|)
10683
                                                                     (|ExpressionList/ExpressionList.8.9| ATN-PARSER::INDEX))
10684
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ExpressionList/ExpressionList.2.7|)
10685
                                                                     (|ExpressionList/ExpressionList.2.7| ATN-PARSER::INDEX))))
10686
                                 (|ExpressionList/ExpressionList.2.4| (ATN-PARSER::INDEX)
10687
                                   (%ATN-NODE-BLOCK |ExpressionList/ExpressionList.2.4|
10688
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
10689
                                                                     (COND
10690
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
10691
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
10692
                                                                       (|ExpressionList/ExpressionList.2.5| (1+ ATN-PARSER::INDEX)))
10693
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|) NIL)))))
10694
                                 (|ExpressionList/ExpressionList.2.5| (ATN-PARSER::INDEX)
10695
                                   (%ATN-NODE-BLOCK |ExpressionList/ExpressionList.2.5|
10696
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
10697
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10698
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
10699
                                                                       (COND
10700
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
10701
                                                                         (LET ((|Expression636| |Expression|))
10702
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10703
                                                                             (DESTRUCTURING-BIND
10704
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10705
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10706
                                                                               (WHEN ATN-PARSER::RESULT
10707
                                                                                 (SETF |Expression|
10708
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
10709
                                                                               (|ExpressionList/ExpressionList.2.6|
10710
                                                                                ATN-PARSER::RESULT-INDEX))
10711
                                                                             (SETF |Expression| |Expression636|))))
10712
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
10713
                                 (|ExpressionList/ExpressionList.2.6| (ATN-PARSER::INDEX)
10714
                                   (%ATN-NODE-BLOCK |ExpressionList/ExpressionList.2.6|
10715
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ExpressionList/ExpressionList.8.9|)
10716
                                                                     (|ExpressionList/ExpressionList.8.9| ATN-PARSER::INDEX))
10717
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ExpressionList/ExpressionList.2.7|)
10718
                                                                     (|ExpressionList/ExpressionList.2.7| ATN-PARSER::INDEX))))
10719
                                 (|ExpressionList/ExpressionList.2.7| (ATN-PARSER::INDEX)
10720
                                   (%ATN-NODE-BLOCK |ExpressionList/ExpressionList.2.7|
10721
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
10722
                                                                     (COND
10723
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
10724
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
10725
                                                                       (|ExpressionList.2| (1+ ATN-PARSER::INDEX)))
10726
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|) NIL)))))
10727
                                 (|ExpressionList/ExpressionList.8.10| (ATN-PARSER::INDEX)
10728
                                   (%ATN-NODE-BLOCK |ExpressionList/ExpressionList.8.10|
10729
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
10730
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10731
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
10732
                                                                       (COND
10733
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
10734
                                                                         (LET ((|Expression635| |Expression|))
10735
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10736
                                                                             (DESTRUCTURING-BIND
10737
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10738
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10739
                                                                               (WHEN ATN-PARSER::RESULT
10740
                                                                                 (SETF |Expression|
10741
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
10742
                                                                               (|ExpressionList.8| ATN-PARSER::RESULT-INDEX))
10743
                                                                             (SETF |Expression| |Expression635|))))
10744
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
10745
                                 (|ExpressionList/ExpressionList.8.9| (ATN-PARSER::INDEX)
10746
                                   (%ATN-NODE-BLOCK |ExpressionList/ExpressionList.8.9|
10747
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
10748
                                                                     (COND
10749
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
10750
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
10751
                                                                       (|ExpressionList/ExpressionList.8.10|
10752
                                                                        (1+ ATN-PARSER::INDEX)))
10753
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
10754
                                 (|ExpressionList/fail.3| (ATN-PARSER::INDEX)
10755
                                   (%ATN-NODE-BLOCK |ExpressionList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
10756
                                 (|ExpressionList/start.1| (ATN-PARSER::INDEX)
10757
                                   (%ATN-NODE-BLOCK |ExpressionList/start.1|
10758
                                                    (%ATN-EDGE-BLOCK OR
10759
                                                                     (PROGN
10760
                                                                      (%ATN-EDGE-BLOCK (PUSH NILLIST)
10761
                                                                                       (MULTIPLE-VALUE-BIND
10762
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10763
                                                                                           (ATN-PARSE-SUBSTRUCTURE* 'NILLIST
10764
                                                                                                                    ATN-PARSER::INDEX)
10765
                                                                                         (COND
10766
                                                                                          (ATN-PARSER::SUCCESS
10767
                                                                                           (SETF *ATN-TERM* 'NILLIST)
10768
                                                                                           (LET ((NILLIST634 NILLIST))
10769
                                                                                             (DOLIST
10770
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
10771
                                                                                                  ATN-PARSER::RESULT)
10772
                                                                                               (DESTRUCTURING-BIND
10773
                                                                                                   (
10774
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10775
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
10776
                                                                                                 (WHEN ATN-PARSER::RESULT
10777
                                                                                                   (SETF NILLIST
10778
                                                                                                           ATN-PARSER::RESULT))
10779
                                                                                                 (|ExpressionList.2|
10780
                                                                                                  ATN-PARSER::RESULT-INDEX))
10781
                                                                                               (SETF NILLIST NILLIST634))))
10782
                                                                                          (T (SETF *ATN-TERM?* 'NILLIST) NIL))))
10783
                                                                      (%ATN-EDGE-BLOCK
10784
                                                                       (ATN-PARSER::JUMP |ExpressionList/ExpressionList.2.4|)
10785
                                                                       (|ExpressionList/ExpressionList.2.4| ATN-PARSER::INDEX))
10786
                                                                      (|ExpressionList/fail.3| ATN-PARSER::INDEX))))))
10787
                          (|ExpressionList/start.1| ATN-PARSER::INDEX)
10788
                          (SETF *ATN-NODE NIL)
10789
                          NIL
10790
                          (IF ATN-PARSER::ATN-STRUCTURE
10791
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
10792
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
10793
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ExpressionList| ATN-PARSER::INDEX *ATN-STACK))))
10794
 (PROGN
10795
  (DEFVAR |ConstructTemplate-INDEX|)
10796
  (DEFUN |ConstructTemplate| (ATN-PARSER::INDEX &AUX (|ConstructQuads| NIL))
10797
    "{69} ConstructTemplate ::= '{' ConstructQuads? '}'
10798
 (|ConstructQuads|)"
10799
    (DECLARE (SPECIAL |ConstructTemplate-INDEX|))
10800
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTemplate-INDEX| *ATN-LEVEL))
10801
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
10802
    (IF (< |ConstructTemplate-INDEX| ATN-PARSER::INDEX)
10803
        (LET ((|ConstructTemplate-INDEX| ATN-PARSER::INDEX)
10804
              (*ATN-LEVEL (1+ *ATN-LEVEL))
10805
              (*ATN-STACK (CONS '|ConstructTemplate| *ATN-STACK))
10806
              (ATN-PARSER::ATN-STRUCTURE NIL))
10807
          (DECLARE (SPECIAL |ConstructTemplate-INDEX|))
10808
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
10809
          (DECLARE (TYPE CONS *ATN-STACK))
10810
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
10811
            (%ATN-BLOCK |ConstructTemplate|
10812
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
10813
                                   (SETF *ATN-TERM* '|ConstructTemplate|)
10814
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
10815
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
10816
                                   ATN-PARSER::INDEX)
10817
                                 (|ConstructTemplate.2| (ATN-PARSER::INDEX)
10818
                                   (%ATN-NODE-BLOCK |ConstructTemplate.2|
10819
                                                    (%ATN-EDGE-BLOCK (POP |ConstructTemplate|)
10820
                                                                     (WHEN T
10821
                                                                       (SETF *ATN-TERM* '|ConstructTemplate|)
10822
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
10823
                                                                                   '|ConstructTemplate| ATN-PARSER::INDEX
10824
                                                                                   (LIST '|ConstructQuads| |ConstructQuads|))
10825
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
10826
                                                                              (IF (EQ *ATN-REDUCE* T)
10827
                                                                                  (|ConstructTemplate-Constructor| |ConstructQuads|)
10828
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
10829
                                                                                      (CONS '|ConstructTemplate|
10830
                                                                                            (DELETE NIL (LIST |ConstructQuads|)))
10831
                                                                                      '|ConstructTemplate|))))
10832
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
10833
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
10834
                                 (|ConstructTemplate/ConstructTemplate.2.4| (ATN-PARSER::INDEX)
10835
                                   (%ATN-NODE-BLOCK |ConstructTemplate/ConstructTemplate.2.4|
10836
                                                    (%ATN-EDGE-BLOCK (PUSH |ConstructQuads|)
10837
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10838
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ConstructQuads|
10839
                                                                                                  ATN-PARSER::INDEX)
10840
                                                                       (COND
10841
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ConstructQuads|)
10842
                                                                         (LET ((|ConstructQuads637| |ConstructQuads|))
10843
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10844
                                                                             (DESTRUCTURING-BIND
10845
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10846
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10847
                                                                               (WHEN ATN-PARSER::RESULT
10848
                                                                                 (SETF |ConstructQuads| ATN-PARSER::RESULT))
10849
                                                                               (|ConstructTemplate/ConstructTemplate.2.5|
10850
                                                                                ATN-PARSER::RESULT-INDEX))
10851
                                                                             (SETF |ConstructQuads| |ConstructQuads637|))))
10852
                                                                        (T (SETF *ATN-TERM?* '|ConstructQuads|)
10853
                                                                         (|ConstructTemplate/ConstructTemplate.2.5|
10854
                                                                          ATN-PARSER::INDEX)))))))
10855
                                 (|ConstructTemplate/ConstructTemplate.2.5| (ATN-PARSER::INDEX)
10856
                                   (%ATN-NODE-BLOCK |ConstructTemplate/ConstructTemplate.2.5|
10857
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
10858
                                                                     (COND
10859
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
10860
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
10861
                                                                       (|ConstructTemplate.2| (1+ ATN-PARSER::INDEX)))
10862
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:})
10863
                                                                       (|ConstructTemplate/fail.3| ATN-PARSER::INDEX))))))
10864
                                 (|ConstructTemplate/fail.3| (ATN-PARSER::INDEX)
10865
                                   (%ATN-NODE-BLOCK |ConstructTemplate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
10866
                                 (|ConstructTemplate/start.1| (ATN-PARSER::INDEX)
10867
                                   (%ATN-NODE-BLOCK |ConstructTemplate/start.1|
10868
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
10869
                                                                     (COND
10870
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
10871
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
10872
                                                                       (|ConstructTemplate/ConstructTemplate.2.4|
10873
                                                                        (1+ ATN-PARSER::INDEX)))
10874
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{)
10875
                                                                       (|ConstructTemplate/fail.3| ATN-PARSER::INDEX)))))))
10876
                          (|ConstructTemplate/start.1| ATN-PARSER::INDEX)
10877
                          (SETF *ATN-NODE NIL)
10878
                          NIL
10879
                          (IF ATN-PARSER::ATN-STRUCTURE
10880
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
10881
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
10882
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTemplate| ATN-PARSER::INDEX *ATN-STACK))))
10883
 (PROGN
10884
  (DEFVAR |ConstructTriples-INDEX|)
10885
  (DEFUN |ConstructTriples| (ATN-PARSER::INDEX &AUX (|ConstructTriples| NIL) (|TriplesSameSubject| NIL))
10886
    "{70a} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?
10887
 (|ConstructTriples| |TriplesSameSubject|)"
10888
    (DECLARE (SPECIAL |ConstructTriples-INDEX|))
10889
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTriples-INDEX| *ATN-LEVEL))
10890
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
10891
    (IF (< |ConstructTriples-INDEX| ATN-PARSER::INDEX)
10892
        (LET ((|ConstructTriples-INDEX| ATN-PARSER::INDEX)
10893
              (*ATN-LEVEL (1+ *ATN-LEVEL))
10894
              (*ATN-STACK (CONS '|ConstructTriples| *ATN-STACK))
10895
              (ATN-PARSER::ATN-STRUCTURE NIL))
10896
          (DECLARE (SPECIAL |ConstructTriples-INDEX|))
10897
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
10898
          (DECLARE (TYPE CONS *ATN-STACK))
10899
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
10900
            (%ATN-BLOCK |ConstructTriples|
10901
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
10902
                                   (SETF *ATN-TERM* '|ConstructTriples|)
10903
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
10904
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
10905
                                   ATN-PARSER::INDEX)
10906
                                 (|ConstructTriples.2| (ATN-PARSER::INDEX)
10907
                                   (%ATN-NODE-BLOCK |ConstructTriples.2|
10908
                                                    (%ATN-EDGE-BLOCK (POP |ConstructTriples|)
10909
                                                                     (WHEN T
10910
                                                                       (SETF *ATN-TERM* '|ConstructTriples|)
10911
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
10912
                                                                                   '|ConstructTriples| ATN-PARSER::INDEX
10913
                                                                                   (LIST '|ConstructTriples| |ConstructTriples|
10914
                                                                                         '|TriplesSameSubject|
10915
                                                                                         |TriplesSameSubject|))
10916
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
10917
                                                                              (IF (EQ *ATN-REDUCE* T)
10918
                                                                                  (|ConstructTriples-Constructor| |ConstructTriples|
10919
                                                                                                                  |TriplesSameSubject|)
10920
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
10921
                                                                                      (CONS '|ConstructTriples|
10922
                                                                                            (DELETE NIL
10923
                                                                                                    (LIST |ConstructTriples|
10924
                                                                                                          |TriplesSameSubject|)))
10925
                                                                                      '|ConstructTriples|))))
10926
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
10927
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
10928
                                 (|ConstructTriples/ConstructTriples.2.4| (ATN-PARSER::INDEX)
10929
                                   (%ATN-NODE-BLOCK |ConstructTriples/ConstructTriples.2.4|
10930
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ConstructTriples/ConstructTriples.2.5|)
10931
                                                                     (|ConstructTriples/ConstructTriples.2.5| ATN-PARSER::INDEX))
10932
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ConstructTriples.2|)
10933
                                                                     (|ConstructTriples.2| ATN-PARSER::INDEX))))
10934
                                 (|ConstructTriples/ConstructTriples.2.5| (ATN-PARSER::INDEX)
10935
                                   (%ATN-NODE-BLOCK |ConstructTriples/ConstructTriples.2.5|
10936
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)
10937
                                                                     (COND
10938
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)
10939
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|.|)
10940
                                                                       (|ConstructTriples/ConstructTriples.2.6|
10941
                                                                        (1+ ATN-PARSER::INDEX)))
10942
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))
10943
                                 (|ConstructTriples/ConstructTriples.2.6| (ATN-PARSER::INDEX)
10944
                                   (%ATN-NODE-BLOCK |ConstructTriples/ConstructTriples.2.6|
10945
                                                    (%ATN-EDGE-BLOCK (PUSH |ConstructTriples|)
10946
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10947
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples|
10948
                                                                                                  ATN-PARSER::INDEX)
10949
                                                                       (COND
10950
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ConstructTriples|)
10951
                                                                         (LET ((|ConstructTriples638| |ConstructTriples|))
10952
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10953
                                                                             (DESTRUCTURING-BIND
10954
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10955
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10956
                                                                               (WHEN ATN-PARSER::RESULT
10957
                                                                                 (SETF |ConstructTriples| ATN-PARSER::RESULT))
10958
                                                                               (|ConstructTriples.2| ATN-PARSER::RESULT-INDEX))
10959
                                                                             (SETF |ConstructTriples| |ConstructTriples638|))))
10960
                                                                        (T (SETF *ATN-TERM?* '|ConstructTriples|)
10961
                                                                         (|ConstructTriples.2| ATN-PARSER::INDEX)))))))
10962
                                 (|ConstructTriples/fail.3| (ATN-PARSER::INDEX)
10963
                                   (%ATN-NODE-BLOCK |ConstructTriples/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
10964
                                 (|ConstructTriples/start.1| (ATN-PARSER::INDEX)
10965
                                   (%ATN-NODE-BLOCK |ConstructTriples/start.1|
10966
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesSameSubject|)
10967
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
10968
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject|
10969
                                                                                                  ATN-PARSER::INDEX)
10970
                                                                       (COND
10971
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesSameSubject|)
10972
                                                                         (LET ((|TriplesSameSubject639| |TriplesSameSubject|))
10973
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
10974
                                                                             (DESTRUCTURING-BIND
10975
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
10976
                                                                                 ATN-PARSER::RESULT-AND-INDEX
10977
                                                                               (WHEN ATN-PARSER::RESULT
10978
                                                                                 (SETF |TriplesSameSubject| ATN-PARSER::RESULT))
10979
                                                                               (|ConstructTriples/ConstructTriples.2.4|
10980
                                                                                ATN-PARSER::RESULT-INDEX))
10981
                                                                             (SETF |TriplesSameSubject| |TriplesSameSubject639|))))
10982
                                                                        (T (SETF *ATN-TERM?* '|TriplesSameSubject|)
10983
                                                                         (|ConstructTriples/fail.3| ATN-PARSER::INDEX))))))))
10984
                          (|ConstructTriples/start.1| ATN-PARSER::INDEX)
10985
                          (SETF *ATN-NODE NIL)
10986
                          NIL
10987
                          (IF ATN-PARSER::ATN-STRUCTURE
10988
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
10989
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
10990
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTriples| ATN-PARSER::INDEX *ATN-STACK))))
10991
 (PROGN
10992
  (DEFVAR |ConstructQuads-INDEX|)
10993
  (DEFUN |ConstructQuads| (ATN-PARSER::INDEX &AUX (|ConstructQuads| NIL) (|ConstructTriples| NIL) (|VarOrIRIref| NIL))
10994
    "{70b} ConstructQuads ::= ((('GRAPH' VarOrIRIref '{' ConstructTriples
10995
                             '}') | ConstructTriples)) ConstructQuads?
10996
 (|ConstructQuads| |ConstructTriples| |VarOrIRIref|)"
10997
    (DECLARE (SPECIAL |ConstructQuads-INDEX|))
10998
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructQuads-INDEX| *ATN-LEVEL))
10999
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
11000
    (IF (< |ConstructQuads-INDEX| ATN-PARSER::INDEX)
11001
        (LET ((|ConstructQuads-INDEX| ATN-PARSER::INDEX)
11002
              (*ATN-LEVEL (1+ *ATN-LEVEL))
11003
              (*ATN-STACK (CONS '|ConstructQuads| *ATN-STACK))
11004
              (ATN-PARSER::ATN-STRUCTURE NIL))
11005
          (DECLARE (SPECIAL |ConstructQuads-INDEX|))
11006
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
11007
          (DECLARE (TYPE CONS *ATN-STACK))
11008
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
11009
            (%ATN-BLOCK |ConstructQuads|
11010
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
11011
                                   (SETF *ATN-TERM* '|ConstructQuads|)
11012
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
11013
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
11014
                                   ATN-PARSER::INDEX)
11015
                                 (|ConstructQuads.2| (ATN-PARSER::INDEX)
11016
                                   (%ATN-NODE-BLOCK |ConstructQuads.2|
11017
                                                    (%ATN-EDGE-BLOCK (POP |ConstructQuads|)
11018
                                                                     (WHEN T
11019
                                                                       (SETF *ATN-TERM* '|ConstructQuads|)
11020
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
11021
                                                                                   '|ConstructQuads| ATN-PARSER::INDEX
11022
                                                                                   (LIST '|ConstructQuads| |ConstructQuads|
11023
                                                                                         '|ConstructTriples| |ConstructTriples|
11024
                                                                                         '|VarOrIRIref| |VarOrIRIref|))
11025
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
11026
                                                                              (IF (EQ *ATN-REDUCE* T)
11027
                                                                                  (|ConstructQuads-Constructor| |ConstructQuads|
11028
                                                                                                                |ConstructTriples|
11029
                                                                                                                |VarOrIRIref|)
11030
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
11031
                                                                                      (CONS '|ConstructQuads|
11032
                                                                                            (DELETE NIL
11033
                                                                                                    (LIST |ConstructQuads|
11034
                                                                                                          |ConstructTriples|
11035
                                                                                                          |VarOrIRIref|)))
11036
                                                                                      '|ConstructQuads|))))
11037
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
11038
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
11039
                                 (|ConstructQuads/ConstructQuads.2.4| (ATN-PARSER::INDEX)
11040
                                   (%ATN-NODE-BLOCK |ConstructQuads/ConstructQuads.2.4|
11041
                                                    (%ATN-EDGE-BLOCK (PUSH |ConstructQuads|)
11042
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11043
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ConstructQuads|
11044
                                                                                                  ATN-PARSER::INDEX)
11045
                                                                       (COND
11046
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ConstructQuads|)
11047
                                                                         (LET ((|ConstructQuads640| |ConstructQuads|))
11048
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11049
                                                                             (DESTRUCTURING-BIND
11050
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11051
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11052
                                                                               (WHEN ATN-PARSER::RESULT
11053
                                                                                 (SETF |ConstructQuads| ATN-PARSER::RESULT))
11054
                                                                               (|ConstructQuads.2| ATN-PARSER::RESULT-INDEX))
11055
                                                                             (SETF |ConstructQuads| |ConstructQuads640|))))
11056
                                                                        (T (SETF *ATN-TERM?* '|ConstructQuads|)
11057
                                                                         (|ConstructQuads.2| ATN-PARSER::INDEX)))))))
11058
                                 (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.5| (ATN-PARSER::INDEX)
11059
                                   (%ATN-NODE-BLOCK |ConstructQuads/ConstructQuads/ConstructQuads.2.4.5|
11060
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:GRAPH)
11061
                                                                     (COND
11062
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:GRAPH)
11063
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:GRAPH)
11064
                                                                       (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.6|
11065
                                                                        (1+ ATN-PARSER::INDEX)))
11066
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:GRAPH) NIL)))))
11067
                                 (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.6| (ATN-PARSER::INDEX)
11068
                                   (%ATN-NODE-BLOCK |ConstructQuads/ConstructQuads/ConstructQuads.2.4.6|
11069
                                                    (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
11070
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11071
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)
11072
                                                                       (COND
11073
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarOrIRIref|)
11074
                                                                         (LET ((|VarOrIRIref643| |VarOrIRIref|))
11075
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11076
                                                                             (DESTRUCTURING-BIND
11077
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11078
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11079
                                                                               (WHEN ATN-PARSER::RESULT
11080
                                                                                 (SETF |VarOrIRIref| ATN-PARSER::RESULT))
11081
                                                                               (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.7|
11082
                                                                                ATN-PARSER::RESULT-INDEX))
11083
                                                                             (SETF |VarOrIRIref| |VarOrIRIref643|))))
11084
                                                                        (T (SETF *ATN-TERM?* '|VarOrIRIref|) NIL))))))
11085
                                 (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.7| (ATN-PARSER::INDEX)
11086
                                   (%ATN-NODE-BLOCK |ConstructQuads/ConstructQuads/ConstructQuads.2.4.7|
11087
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
11088
                                                                     (COND
11089
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
11090
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
11091
                                                                       (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.8|
11092
                                                                        (1+ ATN-PARSER::INDEX)))
11093
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{) NIL)))))
11094
                                 (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.8| (ATN-PARSER::INDEX)
11095
                                   (%ATN-NODE-BLOCK |ConstructQuads/ConstructQuads/ConstructQuads.2.4.8|
11096
                                                    (%ATN-EDGE-BLOCK (PUSH |ConstructTriples|)
11097
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11098
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples|
11099
                                                                                                  ATN-PARSER::INDEX)
11100
                                                                       (COND
11101
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ConstructTriples|)
11102
                                                                         (LET ((|ConstructTriples642| |ConstructTriples|))
11103
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11104
                                                                             (DESTRUCTURING-BIND
11105
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11106
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11107
                                                                               (WHEN ATN-PARSER::RESULT
11108
                                                                                 (SETF |ConstructTriples| ATN-PARSER::RESULT))
11109
                                                                               (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.9|
11110
                                                                                ATN-PARSER::RESULT-INDEX))
11111
                                                                             (SETF |ConstructTriples| |ConstructTriples642|))))
11112
                                                                        (T (SETF *ATN-TERM?* '|ConstructTriples|) NIL))))))
11113
                                 (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.9| (ATN-PARSER::INDEX)
11114
                                   (%ATN-NODE-BLOCK |ConstructQuads/ConstructQuads/ConstructQuads.2.4.9|
11115
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
11116
                                                                     (COND
11117
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
11118
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
11119
                                                                       (|ConstructQuads/ConstructQuads.2.4| (1+ ATN-PARSER::INDEX)))
11120
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:}) NIL)))))
11121
                                 (|ConstructQuads/fail.3| (ATN-PARSER::INDEX)
11122
                                   (%ATN-NODE-BLOCK |ConstructQuads/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
11123
                                 (|ConstructQuads/start.1| (ATN-PARSER::INDEX)
11124
                                   (%ATN-NODE-BLOCK |ConstructQuads/start.1|
11125
                                                    (%ATN-EDGE-BLOCK OR
11126
                                                                     (PROGN
11127
                                                                      (%ATN-EDGE-BLOCK
11128
                                                                       (ATN-PARSER::JUMP
11129
                                                                        |ConstructQuads/ConstructQuads/ConstructQuads.2.4.5|)
11130
                                                                       (|ConstructQuads/ConstructQuads/ConstructQuads.2.4.5|
11131
                                                                        ATN-PARSER::INDEX))
11132
                                                                      (%ATN-EDGE-BLOCK (PUSH |ConstructTriples|)
11133
                                                                                       (MULTIPLE-VALUE-BIND
11134
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11135
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
11136
                                                                                            '|ConstructTriples| ATN-PARSER::INDEX)
11137
                                                                                         (COND
11138
                                                                                          (ATN-PARSER::SUCCESS
11139
                                                                                           (SETF *ATN-TERM* '|ConstructTriples|)
11140
                                                                                           (LET ((|ConstructTriples641|
11141
                                                                                                  |ConstructTriples|))
11142
                                                                                             (DOLIST
11143
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
11144
                                                                                                  ATN-PARSER::RESULT)
11145
                                                                                               (DESTRUCTURING-BIND
11146
                                                                                                   (
11147
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11148
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
11149
                                                                                                 (WHEN ATN-PARSER::RESULT
11150
                                                                                                   (SETF |ConstructTriples|
11151
                                                                                                           ATN-PARSER::RESULT))
11152
                                                                                                 (|ConstructQuads/ConstructQuads.2.4|
11153
                                                                                                  ATN-PARSER::RESULT-INDEX))
11154
                                                                                               (SETF |ConstructTriples|
11155
                                                                                                       |ConstructTriples641|))))
11156
                                                                                          (T (SETF *ATN-TERM?* '|ConstructTriples|)
11157
                                                                                           NIL))))
11158
                                                                      (|ConstructQuads/fail.3| ATN-PARSER::INDEX))))))
11159
                          (|ConstructQuads/start.1| ATN-PARSER::INDEX)
11160
                          (SETF *ATN-NODE NIL)
11161
                          NIL
11162
                          (IF ATN-PARSER::ATN-STRUCTURE
11163
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
11164
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
11165
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructQuads| ATN-PARSER::INDEX *ATN-STACK))))
11166
 (PROGN
11167
  (DEFVAR |TriplesSameSubject-INDEX|)
11168
  (DEFUN |TriplesSameSubject|
11169
         (ATN-PARSER::INDEX
11170
          &AUX (|Annotation| NIL) (|PropertyList| NIL) (|PropertyListNotEmpty| NIL) (|TriplesNode| NIL) (|VarOrTermOrGroup| NIL))
11171
    "{71} TriplesSameSubject ::= (((VarOrTermOrGroup
11172
                                PropertyListNotEmpty) | (TriplesNode
11173
                                                         PropertyList))) Annotation?
11174
 (|Annotation| |PropertyList| |PropertyListNotEmpty| |TriplesNode|
11175
  |VarOrTermOrGroup|)"
11176
    (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))
11177
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesSameSubject-INDEX| *ATN-LEVEL))
11178
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
11179
    (IF (< |TriplesSameSubject-INDEX| ATN-PARSER::INDEX)
11180
        (LET ((|TriplesSameSubject-INDEX| ATN-PARSER::INDEX)
11181
              (*ATN-LEVEL (1+ *ATN-LEVEL))
11182
              (*ATN-STACK (CONS '|TriplesSameSubject| *ATN-STACK))
11183
              (ATN-PARSER::ATN-STRUCTURE NIL))
11184
          (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))
11185
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
11186
          (DECLARE (TYPE CONS *ATN-STACK))
11187
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
11188
            (%ATN-BLOCK |TriplesSameSubject|
11189
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
11190
                                   (SETF *ATN-TERM* '|TriplesSameSubject|)
11191
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
11192
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
11193
                                   ATN-PARSER::INDEX)
11194
                                 (|TriplesSameSubject.2| (ATN-PARSER::INDEX)
11195
                                   (%ATN-NODE-BLOCK |TriplesSameSubject.2|
11196
                                                    (%ATN-EDGE-BLOCK (POP |TriplesSameSubject|)
11197
                                                                     (WHEN T
11198
                                                                       (SETF *ATN-TERM* '|TriplesSameSubject|)
11199
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
11200
                                                                                   '|TriplesSameSubject| ATN-PARSER::INDEX
11201
                                                                                   (LIST '|Annotation| |Annotation| '|PropertyList|
11202
                                                                                         |PropertyList| '|PropertyListNotEmpty|
11203
                                                                                         |PropertyListNotEmpty| '|TriplesNode|
11204
                                                                                         |TriplesNode| '|VarOrTermOrGroup|
11205
                                                                                         |VarOrTermOrGroup|))
11206
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
11207
                                                                              (IF (EQ *ATN-REDUCE* T)
11208
                                                                                  (|TriplesSameSubject-Constructor| |Annotation|
11209
                                                                                                                    |PropertyList|
11210
                                                                                                                    |PropertyListNotEmpty|
11211
                                                                                                                    |TriplesNode|
11212
                                                                                                                    |VarOrTermOrGroup|)
11213
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
11214
                                                                                      (CONS '|TriplesSameSubject|
11215
                                                                                            (DELETE NIL
11216
                                                                                                    (LIST |Annotation|
11217
                                                                                                          |PropertyList|
11218
                                                                                                          |PropertyListNotEmpty|
11219
                                                                                                          |TriplesNode|
11220
                                                                                                          |VarOrTermOrGroup|)))
11221
                                                                                      '|TriplesSameSubject|))))
11222
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
11223
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
11224
                                 (|TriplesSameSubject/fail.3| (ATN-PARSER::INDEX)
11225
                                   (%ATN-NODE-BLOCK |TriplesSameSubject/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
11226
                                 (|TriplesSameSubject/start.1| (ATN-PARSER::INDEX)
11227
                                   (%ATN-NODE-BLOCK |TriplesSameSubject/start.1|
11228
                                                    (%ATN-EDGE-BLOCK OR
11229
                                                                     (PROGN
11230
                                                                      (%ATN-EDGE-BLOCK
11231
                                                                       (ATN-PARSER::JUMP
11232
                                                                        |TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.5|)
11233
                                                                       (|TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.5|
11234
                                                                        ATN-PARSER::INDEX))
11235
                                                                      (%ATN-EDGE-BLOCK
11236
                                                                       (ATN-PARSER::JUMP
11237
                                                                        |TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.7|)
11238
                                                                       (|TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.7|
11239
                                                                        ATN-PARSER::INDEX))
11240
                                                                      (|TriplesSameSubject/fail.3| ATN-PARSER::INDEX)))))
11241
                                 (|TriplesSameSubject/TriplesSameSubject.2.4| (ATN-PARSER::INDEX)
11242
                                   (%ATN-NODE-BLOCK |TriplesSameSubject/TriplesSameSubject.2.4|
11243
                                                    (%ATN-EDGE-BLOCK (PUSH |Annotation|)
11244
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11245
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Annotation| ATN-PARSER::INDEX)
11246
                                                                       (COND
11247
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Annotation|)
11248
                                                                         (LET ((|Annotation644| |Annotation|))
11249
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11250
                                                                             (DESTRUCTURING-BIND
11251
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11252
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11253
                                                                               (WHEN ATN-PARSER::RESULT
11254
                                                                                 (SETF |Annotation| ATN-PARSER::RESULT))
11255
                                                                               (|TriplesSameSubject.2| ATN-PARSER::RESULT-INDEX))
11256
                                                                             (SETF |Annotation| |Annotation644|))))
11257
                                                                        (T (SETF *ATN-TERM?* '|Annotation|)
11258
                                                                         (|TriplesSameSubject.2| ATN-PARSER::INDEX)))))))
11259
                                 (|TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.5| (ATN-PARSER::INDEX)
11260
                                   (%ATN-NODE-BLOCK |TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.5|
11261
                                                    (%ATN-EDGE-BLOCK (PUSH |VarOrTermOrGroup|)
11262
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11263
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarOrTermOrGroup|
11264
                                                                                                  ATN-PARSER::INDEX)
11265
                                                                       (COND
11266
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarOrTermOrGroup|)
11267
                                                                         (LET ((|VarOrTermOrGroup648| |VarOrTermOrGroup|))
11268
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11269
                                                                             (DESTRUCTURING-BIND
11270
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11271
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11272
                                                                               (WHEN ATN-PARSER::RESULT
11273
                                                                                 (SETF |VarOrTermOrGroup| ATN-PARSER::RESULT))
11274
                                                                               (|TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.6|
11275
                                                                                ATN-PARSER::RESULT-INDEX))
11276
                                                                             (SETF |VarOrTermOrGroup| |VarOrTermOrGroup648|))))
11277
                                                                        (T (SETF *ATN-TERM?* '|VarOrTermOrGroup|) NIL))))))
11278
                                 (|TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.6| (ATN-PARSER::INDEX)
11279
                                   (%ATN-NODE-BLOCK |TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.6|
11280
                                                    (%ATN-EDGE-BLOCK (PUSH |PropertyListNotEmpty|)
11281
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11282
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty|
11283
                                                                                                  ATN-PARSER::INDEX)
11284
                                                                       (COND
11285
                                                                        (ATN-PARSER::SUCCESS
11286
                                                                         (SETF *ATN-TERM* '|PropertyListNotEmpty|)
11287
                                                                         (LET ((|PropertyListNotEmpty647| |PropertyListNotEmpty|))
11288
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11289
                                                                             (DESTRUCTURING-BIND
11290
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11291
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11292
                                                                               (WHEN ATN-PARSER::RESULT
11293
                                                                                 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))
11294
                                                                               (|TriplesSameSubject/TriplesSameSubject.2.4|
11295
                                                                                ATN-PARSER::RESULT-INDEX))
11296
                                                                             (SETF |PropertyListNotEmpty|
11297
                                                                                     |PropertyListNotEmpty647|))))
11298
                                                                        (T (SETF *ATN-TERM?* '|PropertyListNotEmpty|) NIL))))))
11299
                                 (|TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.7| (ATN-PARSER::INDEX)
11300
                                   (%ATN-NODE-BLOCK |TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.7|
11301
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesNode|)
11302
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11303
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode| ATN-PARSER::INDEX)
11304
                                                                       (COND
11305
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesNode|)
11306
                                                                         (LET ((|TriplesNode646| |TriplesNode|))
11307
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11308
                                                                             (DESTRUCTURING-BIND
11309
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11310
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11311
                                                                               (WHEN ATN-PARSER::RESULT
11312
                                                                                 (SETF |TriplesNode| ATN-PARSER::RESULT))
11313
                                                                               (|TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.8|
11314
                                                                                ATN-PARSER::RESULT-INDEX))
11315
                                                                             (SETF |TriplesNode| |TriplesNode646|))))
11316
                                                                        (T (SETF *ATN-TERM?* '|TriplesNode|) NIL))))))
11317
                                 (|TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.8| (ATN-PARSER::INDEX)
11318
                                   (%ATN-NODE-BLOCK |TriplesSameSubject/TriplesSameSubject/TriplesSameSubject.2.4.8|
11319
                                                    (%ATN-EDGE-BLOCK (PUSH |PropertyList|)
11320
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11321
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PropertyList| ATN-PARSER::INDEX)
11322
                                                                       (COND
11323
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PropertyList|)
11324
                                                                         (LET ((|PropertyList645| |PropertyList|))
11325
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11326
                                                                             (DESTRUCTURING-BIND
11327
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11328
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11329
                                                                               (WHEN ATN-PARSER::RESULT
11330
                                                                                 (SETF |PropertyList| ATN-PARSER::RESULT))
11331
                                                                               (|TriplesSameSubject/TriplesSameSubject.2.4|
11332
                                                                                ATN-PARSER::RESULT-INDEX))
11333
                                                                             (SETF |PropertyList| |PropertyList645|))))
11334
                                                                        (T (SETF *ATN-TERM?* '|PropertyList|) NIL)))))))
11335
                          (|TriplesSameSubject/start.1| ATN-PARSER::INDEX)
11336
                          (SETF *ATN-NODE NIL)
11337
                          NIL
11338
                          (IF ATN-PARSER::ATN-STRUCTURE
11339
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
11340
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
11341
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesSameSubject| ATN-PARSER::INDEX *ATN-STACK))))
11342
 (PROGN
11343
  (DEFVAR |Annotation-INDEX|)
11344
  (DEFUN |Annotation| (ATN-PARSER::INDEX &AUX (|VerbObjectList| NIL))
11345
    "{71b} Annotation ::= '{' VerbObjectList '}'
11346
 (|VerbObjectList|)"
11347
    (DECLARE (SPECIAL |Annotation-INDEX|))
11348
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Annotation-INDEX| *ATN-LEVEL))
11349
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
11350
    (IF (< |Annotation-INDEX| ATN-PARSER::INDEX)
11351
        (LET ((|Annotation-INDEX| ATN-PARSER::INDEX)
11352
              (*ATN-LEVEL (1+ *ATN-LEVEL))
11353
              (*ATN-STACK (CONS '|Annotation| *ATN-STACK))
11354
              (ATN-PARSER::ATN-STRUCTURE NIL))
11355
          (DECLARE (SPECIAL |Annotation-INDEX|))
11356
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
11357
          (DECLARE (TYPE CONS *ATN-STACK))
11358
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
11359
            (%ATN-BLOCK |Annotation|
11360
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
11361
                                   (SETF *ATN-TERM* '|Annotation|)
11362
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
11363
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
11364
                                   ATN-PARSER::INDEX)
11365
                                 (|Annotation.2| (ATN-PARSER::INDEX)
11366
                                   (%ATN-NODE-BLOCK |Annotation.2|
11367
                                                    (%ATN-EDGE-BLOCK (POP |Annotation|)
11368
                                                                     (WHEN T
11369
                                                                       (SETF *ATN-TERM* '|Annotation|)
11370
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
11371
                                                                                   '|Annotation| ATN-PARSER::INDEX
11372
                                                                                   (LIST '|VerbObjectList| |VerbObjectList|))
11373
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
11374
                                                                              (IF (EQ *ATN-REDUCE* T)
11375
                                                                                  (IF (FBOUNDP '|Annotation-Constructor|)
11376
                                                                                      (ATN-REDUCE-STRUCTURE
11377
                                                                                       '|Annotation-Constructor| |VerbObjectList|)
11378
                                                                                      (CONS '|Annotation|
11379
                                                                                            (DELETE NIL (LIST |VerbObjectList|))))
11380
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
11381
                                                                                      (CONS '|Annotation|
11382
                                                                                            (DELETE NIL (LIST |VerbObjectList|)))
11383
                                                                                      '|Annotation|))))
11384
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
11385
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
11386
                                 (|Annotation/Annotation.2.4| (ATN-PARSER::INDEX)
11387
                                   (%ATN-NODE-BLOCK |Annotation/Annotation.2.4|
11388
                                                    (%ATN-EDGE-BLOCK (PUSH |VerbObjectList|)
11389
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11390
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList|
11391
                                                                                                  ATN-PARSER::INDEX)
11392
                                                                       (COND
11393
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VerbObjectList|)
11394
                                                                         (LET ((|VerbObjectList649| |VerbObjectList|))
11395
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11396
                                                                             (DESTRUCTURING-BIND
11397
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11398
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11399
                                                                               (WHEN ATN-PARSER::RESULT
11400
                                                                                 (SETF |VerbObjectList| ATN-PARSER::RESULT))
11401
                                                                               (|Annotation/Annotation.2.5|
11402
                                                                                ATN-PARSER::RESULT-INDEX))
11403
                                                                             (SETF |VerbObjectList| |VerbObjectList649|))))
11404
                                                                        (T (SETF *ATN-TERM?* '|VerbObjectList|)
11405
                                                                         (|Annotation/fail.3| ATN-PARSER::INDEX)))))))
11406
                                 (|Annotation/Annotation.2.5| (ATN-PARSER::INDEX)
11407
                                   (%ATN-NODE-BLOCK |Annotation/Annotation.2.5|
11408
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
11409
                                                                     (COND
11410
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
11411
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
11412
                                                                       (|Annotation.2| (1+ ATN-PARSER::INDEX)))
11413
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:})
11414
                                                                       (|Annotation/fail.3| ATN-PARSER::INDEX))))))
11415
                                 (|Annotation/fail.3| (ATN-PARSER::INDEX)
11416
                                   (%ATN-NODE-BLOCK |Annotation/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
11417
                                 (|Annotation/start.1| (ATN-PARSER::INDEX)
11418
                                   (%ATN-NODE-BLOCK |Annotation/start.1|
11419
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
11420
                                                                     (COND
11421
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
11422
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
11423
                                                                       (|Annotation/Annotation.2.4| (1+ ATN-PARSER::INDEX)))
11424
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{)
11425
                                                                       (|Annotation/fail.3| ATN-PARSER::INDEX)))))))
11426
                          (|Annotation/start.1| ATN-PARSER::INDEX)
11427
                          (SETF *ATN-NODE NIL)
11428
                          NIL
11429
                          (IF ATN-PARSER::ATN-STRUCTURE
11430
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
11431
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
11432
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Annotation| ATN-PARSER::INDEX *ATN-STACK))))
11433
 (PROGN
11434
  (DEFVAR |PropertyListNotEmpty-INDEX|)
11435
  (DEFUN |PropertyListNotEmpty| (ATN-PARSER::INDEX &AUX (|VerbObjectList| NIL))
11436
    "{72} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*
11437
 (|VerbObjectList|)"
11438
    (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))
11439
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyListNotEmpty-INDEX| *ATN-LEVEL))
11440
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
11441
    (IF (< |PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)
11442
        (LET ((|PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)
11443
              (*ATN-LEVEL (1+ *ATN-LEVEL))
11444
              (*ATN-STACK (CONS '|PropertyListNotEmpty| *ATN-STACK))
11445
              (ATN-PARSER::ATN-STRUCTURE NIL))
11446
          (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))
11447
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
11448
          (DECLARE (TYPE CONS *ATN-STACK))
11449
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
11450
            (%ATN-BLOCK |PropertyListNotEmpty|
11451
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
11452
                                   (SETF *ATN-TERM* '|PropertyListNotEmpty|)
11453
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
11454
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
11455
                                   ATN-PARSER::INDEX)
11456
                                 (|PropertyListNotEmpty.2| (ATN-PARSER::INDEX)
11457
                                   (%ATN-NODE-BLOCK |PropertyListNotEmpty.2|
11458
                                                    (%ATN-EDGE-BLOCK (POP |PropertyListNotEmpty|)
11459
                                                                     (WHEN T
11460
                                                                       (SETF *ATN-TERM* '|PropertyListNotEmpty|)
11461
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
11462
                                                                                   '|PropertyListNotEmpty| ATN-PARSER::INDEX
11463
                                                                                   (LIST '|VerbObjectList| |VerbObjectList|))
11464
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
11465
                                                                              (IF (EQ *ATN-REDUCE* T)
11466
                                                                                  (|PropertyListNotEmpty-Constructor|
11467
                                                                                   |VerbObjectList|)
11468
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
11469
                                                                                      (CONS '|PropertyListNotEmpty|
11470
                                                                                            (DELETE NIL (LIST |VerbObjectList|)))
11471
                                                                                      '|PropertyListNotEmpty|))))
11472
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
11473
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
11474
                                 (|PropertyListNotEmpty.5| (ATN-PARSER::INDEX)
11475
                                   (%ATN-NODE-BLOCK |PropertyListNotEmpty.5|
11476
                                                    (%ATN-EDGE-BLOCK
11477
                                                     (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)
11478
                                                     (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))
11479
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)
11480
                                                                     (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))
11481
                                 (|PropertyListNotEmpty/fail.3| (ATN-PARSER::INDEX)
11482
                                   (%ATN-NODE-BLOCK |PropertyListNotEmpty/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
11483
                                 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4| (ATN-PARSER::INDEX)
11484
                                   (%ATN-NODE-BLOCK |PropertyListNotEmpty/PropertyListNotEmpty.2.4|
11485
                                                    (%ATN-EDGE-BLOCK
11486
                                                     (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)
11487
                                                     (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))
11488
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)
11489
                                                                     (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))
11490
                                 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| (ATN-PARSER::INDEX)
11491
                                   (%ATN-NODE-BLOCK |PropertyListNotEmpty/PropertyListNotEmpty.5.6|
11492
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|;|)
11493
                                                                     (COND
11494
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|;|)
11495
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|;|)
11496
                                                                       (|PropertyListNotEmpty/PropertyListNotEmpty.5.7|
11497
                                                                        (1+ ATN-PARSER::INDEX)))
11498
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|;|) NIL)))))
11499
                                 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (ATN-PARSER::INDEX)
11500
                                   (%ATN-NODE-BLOCK |PropertyListNotEmpty/PropertyListNotEmpty.5.7|
11501
                                                    (%ATN-EDGE-BLOCK (PUSH |VerbObjectList|)
11502
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11503
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList|
11504
                                                                                                  ATN-PARSER::INDEX)
11505
                                                                       (COND
11506
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VerbObjectList|)
11507
                                                                         (LET ((|VerbObjectList650| |VerbObjectList|))
11508
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11509
                                                                             (DESTRUCTURING-BIND
11510
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11511
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11512
                                                                               (WHEN ATN-PARSER::RESULT
11513
                                                                                 (SETF |VerbObjectList|
11514
                                                                                         (CONS ATN-PARSER::RESULT
11515
                                                                                               |VerbObjectList|)))
11516
                                                                               (|PropertyListNotEmpty.5| ATN-PARSER::RESULT-INDEX))
11517
                                                                             (SETF |VerbObjectList| |VerbObjectList650|))))
11518
                                                                        (T (SETF *ATN-TERM?* '|VerbObjectList|)
11519
                                                                         (|PropertyListNotEmpty.5| ATN-PARSER::INDEX)))))))
11520
                                 (|PropertyListNotEmpty/start.1| (ATN-PARSER::INDEX)
11521
                                   (%ATN-NODE-BLOCK |PropertyListNotEmpty/start.1|
11522
                                                    (%ATN-EDGE-BLOCK (PUSH |VerbObjectList|)
11523
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11524
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList|
11525
                                                                                                  ATN-PARSER::INDEX)
11526
                                                                       (COND
11527
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VerbObjectList|)
11528
                                                                         (LET ((|VerbObjectList651| |VerbObjectList|))
11529
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11530
                                                                             (DESTRUCTURING-BIND
11531
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11532
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11533
                                                                               (WHEN ATN-PARSER::RESULT
11534
                                                                                 (SETF |VerbObjectList|
11535
                                                                                         (CONS ATN-PARSER::RESULT
11536
                                                                                               |VerbObjectList|)))
11537
                                                                               (|PropertyListNotEmpty/PropertyListNotEmpty.2.4|
11538
                                                                                ATN-PARSER::RESULT-INDEX))
11539
                                                                             (SETF |VerbObjectList| |VerbObjectList651|))))
11540
                                                                        (T (SETF *ATN-TERM?* '|VerbObjectList|)
11541
                                                                         (|PropertyListNotEmpty/fail.3| ATN-PARSER::INDEX))))))))
11542
                          (|PropertyListNotEmpty/start.1| ATN-PARSER::INDEX)
11543
                          (SETF *ATN-NODE NIL)
11544
                          NIL
11545
                          (IF ATN-PARSER::ATN-STRUCTURE
11546
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
11547
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
11548
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyListNotEmpty| ATN-PARSER::INDEX *ATN-STACK))))
11549
 (PROGN
11550
  (DEFVAR |VerbObjectList-INDEX|)
11551
  (DEFUN |VerbObjectList| (ATN-PARSER::INDEX &AUX (|ObjectList| NIL) (|Verb| NIL))
11552
    "{72a} VerbObjectList ::= Verb ObjectList
11553
 (|ObjectList| |Verb|)"
11554
    (DECLARE (SPECIAL |VerbObjectList-INDEX|))
11555
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VerbObjectList-INDEX| *ATN-LEVEL))
11556
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
11557
    (IF (< |VerbObjectList-INDEX| ATN-PARSER::INDEX)
11558
        (LET ((|VerbObjectList-INDEX| ATN-PARSER::INDEX)
11559
              (*ATN-LEVEL (1+ *ATN-LEVEL))
11560
              (*ATN-STACK (CONS '|VerbObjectList| *ATN-STACK))
11561
              (ATN-PARSER::ATN-STRUCTURE NIL))
11562
          (DECLARE (SPECIAL |VerbObjectList-INDEX|))
11563
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
11564
          (DECLARE (TYPE CONS *ATN-STACK))
11565
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
11566
            (%ATN-BLOCK |VerbObjectList|
11567
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
11568
                                   (SETF *ATN-TERM* '|VerbObjectList|)
11569
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
11570
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
11571
                                   ATN-PARSER::INDEX)
11572
                                 (|VerbObjectList.2| (ATN-PARSER::INDEX)
11573
                                   (%ATN-NODE-BLOCK |VerbObjectList.2|
11574
                                                    (%ATN-EDGE-BLOCK (POP |VerbObjectList|)
11575
                                                                     (WHEN T
11576
                                                                       (SETF *ATN-TERM* '|VerbObjectList|)
11577
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
11578
                                                                                   '|VerbObjectList| ATN-PARSER::INDEX
11579
                                                                                   (LIST '|ObjectList| |ObjectList| '|Verb| |Verb|))
11580
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
11581
                                                                              (IF (EQ *ATN-REDUCE* T)
11582
                                                                                  (|VerbObjectList-Constructor| |ObjectList| |Verb|)
11583
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
11584
                                                                                      (CONS '|VerbObjectList|
11585
                                                                                            (DELETE NIL (LIST |ObjectList| |Verb|)))
11586
                                                                                      '|VerbObjectList|))))
11587
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
11588
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
11589
                                 (|VerbObjectList/fail.3| (ATN-PARSER::INDEX)
11590
                                   (%ATN-NODE-BLOCK |VerbObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
11591
                                 (|VerbObjectList/start.1| (ATN-PARSER::INDEX)
11592
                                   (%ATN-NODE-BLOCK |VerbObjectList/start.1|
11593
                                                    (%ATN-EDGE-BLOCK (PUSH |Verb|)
11594
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11595
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Verb| ATN-PARSER::INDEX)
11596
                                                                       (COND
11597
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Verb|)
11598
                                                                         (LET ((|Verb653| |Verb|))
11599
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11600
                                                                             (DESTRUCTURING-BIND
11601
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11602
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11603
                                                                               (WHEN ATN-PARSER::RESULT
11604
                                                                                 (SETF |Verb| ATN-PARSER::RESULT))
11605
                                                                               (|VerbObjectList/VerbObjectList.2.4|
11606
                                                                                ATN-PARSER::RESULT-INDEX))
11607
                                                                             (SETF |Verb| |Verb653|))))
11608
                                                                        (T (SETF *ATN-TERM?* '|Verb|)
11609
                                                                         (|VerbObjectList/fail.3| ATN-PARSER::INDEX)))))))
11610
                                 (|VerbObjectList/VerbObjectList.2.4| (ATN-PARSER::INDEX)
11611
                                   (%ATN-NODE-BLOCK |VerbObjectList/VerbObjectList.2.4|
11612
                                                    (%ATN-EDGE-BLOCK (PUSH |ObjectList|)
11613
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11614
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ObjectList| ATN-PARSER::INDEX)
11615
                                                                       (COND
11616
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ObjectList|)
11617
                                                                         (LET ((|ObjectList652| |ObjectList|))
11618
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11619
                                                                             (DESTRUCTURING-BIND
11620
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11621
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11622
                                                                               (WHEN ATN-PARSER::RESULT
11623
                                                                                 (SETF |ObjectList| ATN-PARSER::RESULT))
11624
                                                                               (|VerbObjectList.2| ATN-PARSER::RESULT-INDEX))
11625
                                                                             (SETF |ObjectList| |ObjectList652|))))
11626
                                                                        (T (SETF *ATN-TERM?* '|ObjectList|)
11627
                                                                         (|VerbObjectList/fail.3| ATN-PARSER::INDEX))))))))
11628
                          (|VerbObjectList/start.1| ATN-PARSER::INDEX)
11629
                          (SETF *ATN-NODE NIL)
11630
                          NIL
11631
                          (IF ATN-PARSER::ATN-STRUCTURE
11632
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
11633
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
11634
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|VerbObjectList| ATN-PARSER::INDEX *ATN-STACK))))
11635
 (PROGN
11636
  (DEFVAR |PropertyList-INDEX|)
11637
  (DEFUN |PropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))
11638
    "{73} PropertyList ::= PropertyListNotEmpty?
11639
 (|PropertyListNotEmpty|)"
11640
    (DECLARE (SPECIAL |PropertyList-INDEX|))
11641
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyList-INDEX| *ATN-LEVEL))
11642
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
11643
    (IF (< |PropertyList-INDEX| ATN-PARSER::INDEX)
11644
        (LET ((|PropertyList-INDEX| ATN-PARSER::INDEX)
11645
              (*ATN-LEVEL (1+ *ATN-LEVEL))
11646
              (*ATN-STACK (CONS '|PropertyList| *ATN-STACK))
11647
              (ATN-PARSER::ATN-STRUCTURE NIL))
11648
          (DECLARE (SPECIAL |PropertyList-INDEX|))
11649
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
11650
          (DECLARE (TYPE CONS *ATN-STACK))
11651
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
11652
            (%ATN-BLOCK |PropertyList|
11653
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
11654
                                   (SETF *ATN-TERM* '|PropertyList|)
11655
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
11656
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
11657
                                   ATN-PARSER::INDEX)
11658
                                 (|PropertyList.2| (ATN-PARSER::INDEX)
11659
                                   (%ATN-NODE-BLOCK |PropertyList.2|
11660
                                                    (%ATN-EDGE-BLOCK (POP |PropertyList|)
11661
                                                                     (WHEN T
11662
                                                                       (SETF *ATN-TERM* '|PropertyList|)
11663
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
11664
                                                                                   '|PropertyList| ATN-PARSER::INDEX
11665
                                                                                   (LIST '|PropertyListNotEmpty|
11666
                                                                                         |PropertyListNotEmpty|))
11667
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
11668
                                                                              (IF (EQ *ATN-REDUCE* T)
11669
                                                                                  (|PropertyList-Constructor|
11670
                                                                                   |PropertyListNotEmpty|)
11671
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
11672
                                                                                      (CONS '|PropertyList|
11673
                                                                                            (DELETE NIL
11674
                                                                                                    (LIST |PropertyListNotEmpty|)))
11675
                                                                                      '|PropertyList|))))
11676
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
11677
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
11678
                                 (|PropertyList/fail.3| (ATN-PARSER::INDEX)
11679
                                   (%ATN-NODE-BLOCK |PropertyList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
11680
                                 (|PropertyList/start.1| (ATN-PARSER::INDEX)
11681
                                   (%ATN-NODE-BLOCK |PropertyList/start.1|
11682
                                                    (%ATN-EDGE-BLOCK (PUSH |PropertyListNotEmpty|)
11683
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11684
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty|
11685
                                                                                                  ATN-PARSER::INDEX)
11686
                                                                       (COND
11687
                                                                        (ATN-PARSER::SUCCESS
11688
                                                                         (SETF *ATN-TERM* '|PropertyListNotEmpty|)
11689
                                                                         (LET ((|PropertyListNotEmpty654| |PropertyListNotEmpty|))
11690
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11691
                                                                             (DESTRUCTURING-BIND
11692
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11693
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11694
                                                                               (WHEN ATN-PARSER::RESULT
11695
                                                                                 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))
11696
                                                                               (|PropertyList.2| ATN-PARSER::RESULT-INDEX))
11697
                                                                             (SETF |PropertyListNotEmpty|
11698
                                                                                     |PropertyListNotEmpty654|))))
11699
                                                                        (T (SETF *ATN-TERM?* '|PropertyListNotEmpty|)
11700
                                                                         (|PropertyList.2| ATN-PARSER::INDEX))))))))
11701
                          (|PropertyList/start.1| ATN-PARSER::INDEX)
11702
                          (SETF *ATN-NODE NIL)
11703
                          NIL
11704
                          (IF ATN-PARSER::ATN-STRUCTURE
11705
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
11706
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
11707
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyList| ATN-PARSER::INDEX *ATN-STACK))))
11708
 (PROGN
11709
  (DEFVAR |ObjectList-INDEX|)
11710
  (DEFUN |ObjectList| (ATN-PARSER::INDEX &AUX (|Object| NIL))
11711
    "{74} ObjectList ::= Object (',' Object)*
11712
 (|Object|)"
11713
    (DECLARE (SPECIAL |ObjectList-INDEX|))
11714
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ObjectList-INDEX| *ATN-LEVEL))
11715
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
11716
    (IF (< |ObjectList-INDEX| ATN-PARSER::INDEX)
11717
        (LET ((|ObjectList-INDEX| ATN-PARSER::INDEX)
11718
              (*ATN-LEVEL (1+ *ATN-LEVEL))
11719
              (*ATN-STACK (CONS '|ObjectList| *ATN-STACK))
11720
              (ATN-PARSER::ATN-STRUCTURE NIL))
11721
          (DECLARE (SPECIAL |ObjectList-INDEX|))
11722
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
11723
          (DECLARE (TYPE CONS *ATN-STACK))
11724
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
11725
            (%ATN-BLOCK |ObjectList|
11726
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
11727
                                   (SETF *ATN-TERM* '|ObjectList|)
11728
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
11729
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
11730
                                   ATN-PARSER::INDEX)
11731
                                 (|ObjectList.2| (ATN-PARSER::INDEX)
11732
                                   (%ATN-NODE-BLOCK |ObjectList.2|
11733
                                                    (%ATN-EDGE-BLOCK (POP |ObjectList|)
11734
                                                                     (WHEN T
11735
                                                                       (SETF *ATN-TERM* '|ObjectList|)
11736
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
11737
                                                                                   '|ObjectList| ATN-PARSER::INDEX
11738
                                                                                   (LIST '|Object| |Object|))
11739
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
11740
                                                                              (IF (EQ *ATN-REDUCE* T)
11741
                                                                                  (|ObjectList-Constructor| |Object|)
11742
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
11743
                                                                                      (CONS '|ObjectList|
11744
                                                                                            (DELETE NIL (LIST |Object|)))
11745
                                                                                      '|ObjectList|))))
11746
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
11747
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
11748
                                 (|ObjectList.5| (ATN-PARSER::INDEX)
11749
                                   (%ATN-NODE-BLOCK |ObjectList.5|
11750
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)
11751
                                                                     (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))
11752
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|)
11753
                                                                     (|ObjectList.2| ATN-PARSER::INDEX))))
11754
                                 (|ObjectList/fail.3| (ATN-PARSER::INDEX)
11755
                                   (%ATN-NODE-BLOCK |ObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
11756
                                 (|ObjectList/ObjectList.2.4| (ATN-PARSER::INDEX)
11757
                                   (%ATN-NODE-BLOCK |ObjectList/ObjectList.2.4|
11758
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)
11759
                                                                     (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))
11760
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|)
11761
                                                                     (|ObjectList.2| ATN-PARSER::INDEX))))
11762
                                 (|ObjectList/ObjectList.5.6| (ATN-PARSER::INDEX)
11763
                                   (%ATN-NODE-BLOCK |ObjectList/ObjectList.5.6|
11764
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
11765
                                                                     (COND
11766
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
11767
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
11768
                                                                       (|ObjectList/ObjectList.5.7| (1+ ATN-PARSER::INDEX)))
11769
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
11770
                                 (|ObjectList/ObjectList.5.7| (ATN-PARSER::INDEX)
11771
                                   (%ATN-NODE-BLOCK |ObjectList/ObjectList.5.7|
11772
                                                    (%ATN-EDGE-BLOCK (PUSH |Object|)
11773
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11774
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)
11775
                                                                       (COND
11776
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Object|)
11777
                                                                         (LET ((|Object655| |Object|))
11778
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11779
                                                                             (DESTRUCTURING-BIND
11780
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11781
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11782
                                                                               (WHEN ATN-PARSER::RESULT
11783
                                                                                 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))
11784
                                                                               (|ObjectList.5| ATN-PARSER::RESULT-INDEX))
11785
                                                                             (SETF |Object| |Object655|))))
11786
                                                                        (T (SETF *ATN-TERM?* '|Object|) NIL))))))
11787
                                 (|ObjectList/start.1| (ATN-PARSER::INDEX)
11788
                                   (%ATN-NODE-BLOCK |ObjectList/start.1|
11789
                                                    (%ATN-EDGE-BLOCK (PUSH |Object|)
11790
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11791
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)
11792
                                                                       (COND
11793
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Object|)
11794
                                                                         (LET ((|Object656| |Object|))
11795
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11796
                                                                             (DESTRUCTURING-BIND
11797
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11798
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11799
                                                                               (WHEN ATN-PARSER::RESULT
11800
                                                                                 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))
11801
                                                                               (|ObjectList/ObjectList.2.4|
11802
                                                                                ATN-PARSER::RESULT-INDEX))
11803
                                                                             (SETF |Object| |Object656|))))
11804
                                                                        (T (SETF *ATN-TERM?* '|Object|)
11805
                                                                         (|ObjectList/fail.3| ATN-PARSER::INDEX))))))))
11806
                          (|ObjectList/start.1| ATN-PARSER::INDEX)
11807
                          (SETF *ATN-NODE NIL)
11808
                          NIL
11809
                          (IF ATN-PARSER::ATN-STRUCTURE
11810
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
11811
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
11812
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ObjectList| ATN-PARSER::INDEX *ATN-STACK))))
11813
 (PROGN
11814
  (DEFVAR |Object-INDEX|)
11815
  (DEFUN |Object| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))
11816
    "{75} Object ::= GraphNode
11817
 (|GraphNode|)"
11818
    (DECLARE (SPECIAL |Object-INDEX|))
11819
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Object-INDEX| *ATN-LEVEL))
11820
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
11821
    (IF (< |Object-INDEX| ATN-PARSER::INDEX)
11822
        (LET ((|Object-INDEX| ATN-PARSER::INDEX)
11823
              (*ATN-LEVEL (1+ *ATN-LEVEL))
11824
              (*ATN-STACK (CONS '|Object| *ATN-STACK))
11825
              (ATN-PARSER::ATN-STRUCTURE NIL))
11826
          (DECLARE (SPECIAL |Object-INDEX|))
11827
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
11828
          (DECLARE (TYPE CONS *ATN-STACK))
11829
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
11830
            (%ATN-BLOCK |Object|
11831
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
11832
                                   (SETF *ATN-TERM* '|Object|)
11833
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
11834
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
11835
                                   ATN-PARSER::INDEX)
11836
                                 (|Object.2| (ATN-PARSER::INDEX)
11837
                                   (%ATN-NODE-BLOCK |Object.2|
11838
                                                    (%ATN-EDGE-BLOCK (POP |Object|)
11839
                                                                     (WHEN T
11840
                                                                       (SETF *ATN-TERM* '|Object|)
11841
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Object|
11842
                                                                                   ATN-PARSER::INDEX
11843
                                                                                   (LIST '|GraphNode| |GraphNode|))
11844
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
11845
                                                                              (IF (EQ *ATN-REDUCE* T)
11846
                                                                                  (|Object-Constructor| |GraphNode|)
11847
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
11848
                                                                                      (CONS '|Object|
11849
                                                                                            (DELETE NIL (LIST |GraphNode|)))
11850
                                                                                      '|Object|))))
11851
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
11852
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
11853
                                 (|Object/fail.3| (ATN-PARSER::INDEX)
11854
                                   (%ATN-NODE-BLOCK |Object/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
11855
                                 (|Object/start.1| (ATN-PARSER::INDEX)
11856
                                   (%ATN-NODE-BLOCK |Object/start.1|
11857
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphNode|)
11858
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11859
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)
11860
                                                                       (COND
11861
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphNode|)
11862
                                                                         (LET ((|GraphNode657| |GraphNode|))
11863
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
11864
                                                                             (DESTRUCTURING-BIND
11865
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11866
                                                                                 ATN-PARSER::RESULT-AND-INDEX
11867
                                                                               (WHEN ATN-PARSER::RESULT
11868
                                                                                 (SETF |GraphNode| ATN-PARSER::RESULT))
11869
                                                                               (|Object.2| ATN-PARSER::RESULT-INDEX))
11870
                                                                             (SETF |GraphNode| |GraphNode657|))))
11871
                                                                        (T (SETF *ATN-TERM?* '|GraphNode|)
11872
                                                                         (|Object/fail.3| ATN-PARSER::INDEX))))))))
11873
                          (|Object/start.1| ATN-PARSER::INDEX)
11874
                          (SETF *ATN-NODE NIL)
11875
                          NIL
11876
                          (IF ATN-PARSER::ATN-STRUCTURE
11877
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
11878
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
11879
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Object| ATN-PARSER::INDEX *ATN-STACK))))
11880
 (PROGN
11881
  (DEFVAR |Verb-INDEX|)
11882
  (DEFUN |Verb| (ATN-PARSER::INDEX &AUX (|ConstrainedBlankNode| NIL) (|Path| NIL) (|VarOrIRIref| NIL))
11883
    "{76} Verb ::= (VarOrIRIref | Path | 'a' | ConstrainedBlankNode)
11884
 (|ConstrainedBlankNode| |Path| |VarOrIRIref|)"
11885
    (DECLARE (SPECIAL |Verb-INDEX|))
11886
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Verb-INDEX| *ATN-LEVEL))
11887
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
11888
    (IF (< |Verb-INDEX| ATN-PARSER::INDEX)
11889
        (LET ((|Verb-INDEX| ATN-PARSER::INDEX)
11890
              (*ATN-LEVEL (1+ *ATN-LEVEL))
11891
              (*ATN-STACK (CONS '|Verb| *ATN-STACK))
11892
              (ATN-PARSER::ATN-STRUCTURE NIL))
11893
          (DECLARE (SPECIAL |Verb-INDEX|))
11894
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
11895
          (DECLARE (TYPE CONS *ATN-STACK))
11896
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
11897
            (%ATN-BLOCK |Verb|
11898
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
11899
                                   (SETF *ATN-TERM* '|Verb|)
11900
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
11901
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
11902
                                   ATN-PARSER::INDEX)
11903
                                 (|Verb.2| (ATN-PARSER::INDEX)
11904
                                   (%ATN-NODE-BLOCK |Verb.2|
11905
                                                    (%ATN-EDGE-BLOCK (POP |Verb|)
11906
                                                                     (WHEN T
11907
                                                                       (SETF *ATN-TERM* '|Verb|)
11908
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Verb|
11909
                                                                                   ATN-PARSER::INDEX
11910
                                                                                   (LIST '|ConstrainedBlankNode|
11911
                                                                                         |ConstrainedBlankNode| '|Path| |Path|
11912
                                                                                         '|VarOrIRIref| |VarOrIRIref|))
11913
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
11914
                                                                              (IF (EQ *ATN-REDUCE* T)
11915
                                                                                  (|Verb-Constructor| |ConstrainedBlankNode| |Path|
11916
                                                                                                      |VarOrIRIref|)
11917
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
11918
                                                                                      (CONS '|Verb|
11919
                                                                                            (DELETE NIL
11920
                                                                                                    (LIST |ConstrainedBlankNode|
11921
                                                                                                          |Path| |VarOrIRIref|)))
11922
                                                                                      '|Verb|))))
11923
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
11924
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
11925
                                 (|Verb/fail.3| (ATN-PARSER::INDEX)
11926
                                   (%ATN-NODE-BLOCK |Verb/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
11927
                                 (|Verb/start.1| (ATN-PARSER::INDEX)
11928
                                   (%ATN-NODE-BLOCK |Verb/start.1|
11929
                                                    (%ATN-EDGE-BLOCK OR
11930
                                                                     (PROGN
11931
                                                                      (%ATN-EDGE-BLOCK (PUSH |VarOrIRIref|)
11932
                                                                                       (MULTIPLE-VALUE-BIND
11933
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11934
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref|
11935
                                                                                                                    ATN-PARSER::INDEX)
11936
                                                                                         (COND
11937
                                                                                          (ATN-PARSER::SUCCESS
11938
                                                                                           (SETF *ATN-TERM* '|VarOrIRIref|)
11939
                                                                                           (LET ((|VarOrIRIref658| |VarOrIRIref|))
11940
                                                                                             (DOLIST
11941
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
11942
                                                                                                  ATN-PARSER::RESULT)
11943
                                                                                               (DESTRUCTURING-BIND
11944
                                                                                                   (
11945
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11946
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
11947
                                                                                                 (WHEN ATN-PARSER::RESULT
11948
                                                                                                   (SETF |VarOrIRIref|
11949
                                                                                                           ATN-PARSER::RESULT))
11950
                                                                                                 (|Verb.2|
11951
                                                                                                  ATN-PARSER::RESULT-INDEX))
11952
                                                                                               (SETF |VarOrIRIref|
11953
                                                                                                       |VarOrIRIref658|))))
11954
                                                                                          (T (SETF *ATN-TERM?* '|VarOrIRIref|)
11955
                                                                                           NIL))))
11956
                                                                      (%ATN-EDGE-BLOCK (PUSH |Path|)
11957
                                                                                       (MULTIPLE-VALUE-BIND
11958
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11959
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Path|
11960
                                                                                                                    ATN-PARSER::INDEX)
11961
                                                                                         (COND
11962
                                                                                          (ATN-PARSER::SUCCESS
11963
                                                                                           (SETF *ATN-TERM* '|Path|)
11964
                                                                                           (LET ((|Path659| |Path|))
11965
                                                                                             (DOLIST
11966
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
11967
                                                                                                  ATN-PARSER::RESULT)
11968
                                                                                               (DESTRUCTURING-BIND
11969
                                                                                                   (
11970
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
11971
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
11972
                                                                                                 (WHEN ATN-PARSER::RESULT
11973
                                                                                                   (SETF |Path| ATN-PARSER::RESULT))
11974
                                                                                                 (|Verb.2|
11975
                                                                                                  ATN-PARSER::RESULT-INDEX))
11976
                                                                                               (SETF |Path| |Path659|))))
11977
                                                                                          (T (SETF *ATN-TERM?* '|Path|) NIL))))
11978
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|a|)
11979
                                                                                       (COND
11980
                                                                                        ((EQ ATN-PARSER::|item| 'SPOCQ.S:|a|)
11981
                                                                                         (SETF *ATN-TERM* 'SPOCQ.S:|a|)
11982
                                                                                         (|Verb.2| (1+ ATN-PARSER::INDEX)))
11983
                                                                                        (T (SETF *ATN-TERM?* 'SPOCQ.S:|a|) NIL)))
11984
                                                                      (%ATN-EDGE-BLOCK (PUSH |ConstrainedBlankNode|)
11985
                                                                                       (MULTIPLE-VALUE-BIND
11986
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
11987
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
11988
                                                                                            '|ConstrainedBlankNode|
11989
                                                                                            ATN-PARSER::INDEX)
11990
                                                                                         (COND
11991
                                                                                          (ATN-PARSER::SUCCESS
11992
                                                                                           (SETF *ATN-TERM* '|ConstrainedBlankNode|)
11993
                                                                                           (LET ((|ConstrainedBlankNode660|
11994
                                                                                                  |ConstrainedBlankNode|))
11995
                                                                                             (DOLIST
11996
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
11997
                                                                                                  ATN-PARSER::RESULT)
11998
                                                                                               (DESTRUCTURING-BIND
11999
                                                                                                   (
12000
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12001
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
12002
                                                                                                 (WHEN ATN-PARSER::RESULT
12003
                                                                                                   (SETF |ConstrainedBlankNode|
12004
                                                                                                           ATN-PARSER::RESULT))
12005
                                                                                                 (|Verb.2|
12006
                                                                                                  ATN-PARSER::RESULT-INDEX))
12007
                                                                                               (SETF |ConstrainedBlankNode|
12008
                                                                                                       |ConstrainedBlankNode660|))))
12009
                                                                                          (T
12010
                                                                                           (SETF *ATN-TERM?*
12011
                                                                                                   '|ConstrainedBlankNode|)
12012
                                                                                           NIL))))
12013
                                                                      (|Verb/fail.3| ATN-PARSER::INDEX))))))
12014
                          (|Verb/start.1| ATN-PARSER::INDEX)
12015
                          (SETF *ATN-NODE NIL)
12016
                          NIL
12017
                          (IF ATN-PARSER::ATN-STRUCTURE
12018
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12019
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12020
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Verb| ATN-PARSER::INDEX *ATN-STACK))))
12021
 (PROGN
12022
  (DEFVAR |ConstrainedBlankNode-INDEX|)
12023
  (DEFUN |ConstrainedBlankNode| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL))
12024
    "{76a} ConstrainedBlankNode ::= BlankNode
12025
 (|BlankNode|)"
12026
    (DECLARE (SPECIAL |ConstrainedBlankNode-INDEX|))
12027
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstrainedBlankNode-INDEX| *ATN-LEVEL))
12028
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12029
    (IF (< |ConstrainedBlankNode-INDEX| ATN-PARSER::INDEX)
12030
        (LET ((|ConstrainedBlankNode-INDEX| ATN-PARSER::INDEX)
12031
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12032
              (*ATN-STACK (CONS '|ConstrainedBlankNode| *ATN-STACK))
12033
              (ATN-PARSER::ATN-STRUCTURE NIL))
12034
          (DECLARE (SPECIAL |ConstrainedBlankNode-INDEX|))
12035
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12036
          (DECLARE (TYPE CONS *ATN-STACK))
12037
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12038
            (%ATN-BLOCK |ConstrainedBlankNode|
12039
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12040
                                   (SETF *ATN-TERM* '|ConstrainedBlankNode|)
12041
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12042
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12043
                                   ATN-PARSER::INDEX)
12044
                                 (|ConstrainedBlankNode.2| (ATN-PARSER::INDEX)
12045
                                   (%ATN-NODE-BLOCK |ConstrainedBlankNode.2|
12046
                                                    (%ATN-EDGE-BLOCK (POP |ConstrainedBlankNode|)
12047
                                                                     (WHEN T
12048
                                                                       (SETF *ATN-TERM* '|ConstrainedBlankNode|)
12049
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
12050
                                                                                   '|ConstrainedBlankNode| ATN-PARSER::INDEX
12051
                                                                                   (LIST '|BlankNode| |BlankNode|))
12052
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12053
                                                                              (IF (EQ *ATN-REDUCE* T)
12054
                                                                                  (|ConstrainedBlankNode-Constructor| |BlankNode|)
12055
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12056
                                                                                      (CONS '|ConstrainedBlankNode|
12057
                                                                                            (DELETE NIL (LIST |BlankNode|)))
12058
                                                                                      '|ConstrainedBlankNode|))))
12059
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12060
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12061
                                 (|ConstrainedBlankNode/fail.3| (ATN-PARSER::INDEX)
12062
                                   (%ATN-NODE-BLOCK |ConstrainedBlankNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12063
                                 (|ConstrainedBlankNode/start.1| (ATN-PARSER::INDEX)
12064
                                   (%ATN-NODE-BLOCK |ConstrainedBlankNode/start.1|
12065
                                                    (%ATN-EDGE-BLOCK (PUSH |BlankNode|)
12066
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12067
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|BlankNode| ATN-PARSER::INDEX)
12068
                                                                       (COND
12069
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|BlankNode|)
12070
                                                                         (LET ((|BlankNode661| |BlankNode|))
12071
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12072
                                                                             (DESTRUCTURING-BIND
12073
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12074
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12075
                                                                               (WHEN ATN-PARSER::RESULT
12076
                                                                                 (SETF |BlankNode| ATN-PARSER::RESULT))
12077
                                                                               (|ConstrainedBlankNode.2| ATN-PARSER::RESULT-INDEX))
12078
                                                                             (SETF |BlankNode| |BlankNode661|))))
12079
                                                                        (T (SETF *ATN-TERM?* '|BlankNode|)
12080
                                                                         (|ConstrainedBlankNode/fail.3| ATN-PARSER::INDEX))))))))
12081
                          (|ConstrainedBlankNode/start.1| ATN-PARSER::INDEX)
12082
                          (SETF *ATN-NODE NIL)
12083
                          NIL
12084
                          (IF ATN-PARSER::ATN-STRUCTURE
12085
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12086
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12087
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstrainedBlankNode| ATN-PARSER::INDEX *ATN-STACK))))
12088
 (PROGN
12089
  (DEFVAR |Path-INDEX|)
12090
  (DEFUN |Path| (ATN-PARSER::INDEX &AUX (|PathAlternative| NIL))
12091
    "{82} Path ::= PathAlternative
12092
 (|PathAlternative|)"
12093
    (DECLARE (SPECIAL |Path-INDEX|))
12094
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Path-INDEX| *ATN-LEVEL))
12095
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12096
    (IF (< |Path-INDEX| ATN-PARSER::INDEX)
12097
        (LET ((|Path-INDEX| ATN-PARSER::INDEX)
12098
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12099
              (*ATN-STACK (CONS '|Path| *ATN-STACK))
12100
              (ATN-PARSER::ATN-STRUCTURE NIL))
12101
          (DECLARE (SPECIAL |Path-INDEX|))
12102
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12103
          (DECLARE (TYPE CONS *ATN-STACK))
12104
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12105
            (%ATN-BLOCK |Path|
12106
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12107
                                   (SETF *ATN-TERM* '|Path|)
12108
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12109
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12110
                                   ATN-PARSER::INDEX)
12111
                                 (|Path.2| (ATN-PARSER::INDEX)
12112
                                   (%ATN-NODE-BLOCK |Path.2|
12113
                                                    (%ATN-EDGE-BLOCK (POP |Path|)
12114
                                                                     (WHEN T
12115
                                                                       (SETF *ATN-TERM* '|Path|)
12116
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Path|
12117
                                                                                   ATN-PARSER::INDEX
12118
                                                                                   (LIST '|PathAlternative| |PathAlternative|))
12119
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12120
                                                                              (IF (EQ *ATN-REDUCE* T)
12121
                                                                                  (|Path-Constructor| |PathAlternative|)
12122
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12123
                                                                                      (CONS '|Path|
12124
                                                                                            (DELETE NIL (LIST |PathAlternative|)))
12125
                                                                                      '|Path|))))
12126
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12127
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12128
                                 (|Path/fail.3| (ATN-PARSER::INDEX)
12129
                                   (%ATN-NODE-BLOCK |Path/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12130
                                 (|Path/start.1| (ATN-PARSER::INDEX)
12131
                                   (%ATN-NODE-BLOCK |Path/start.1|
12132
                                                    (%ATN-EDGE-BLOCK (PUSH |PathAlternative|)
12133
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12134
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathAlternative|
12135
                                                                                                  ATN-PARSER::INDEX)
12136
                                                                       (COND
12137
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PathAlternative|)
12138
                                                                         (LET ((|PathAlternative662| |PathAlternative|))
12139
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12140
                                                                             (DESTRUCTURING-BIND
12141
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12142
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12143
                                                                               (WHEN ATN-PARSER::RESULT
12144
                                                                                 (SETF |PathAlternative| ATN-PARSER::RESULT))
12145
                                                                               (|Path.2| ATN-PARSER::RESULT-INDEX))
12146
                                                                             (SETF |PathAlternative| |PathAlternative662|))))
12147
                                                                        (T (SETF *ATN-TERM?* '|PathAlternative|)
12148
                                                                         (|Path/fail.3| ATN-PARSER::INDEX))))))))
12149
                          (|Path/start.1| ATN-PARSER::INDEX)
12150
                          (SETF *ATN-NODE NIL)
12151
                          NIL
12152
                          (IF ATN-PARSER::ATN-STRUCTURE
12153
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12154
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12155
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Path| ATN-PARSER::INDEX *ATN-STACK))))
12156
 (PROGN
12157
  (DEFVAR |PathAlternative-INDEX|)
12158
  (DEFUN |PathAlternative| (ATN-PARSER::INDEX &AUX (|PathSequence| NIL))
12159
    "{83} PathAlternative ::= PathSequence ('|' PathSequence)*
12160
 (|PathSequence|)"
12161
    (DECLARE (SPECIAL |PathAlternative-INDEX|))
12162
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathAlternative-INDEX| *ATN-LEVEL))
12163
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12164
    (IF (< |PathAlternative-INDEX| ATN-PARSER::INDEX)
12165
        (LET ((|PathAlternative-INDEX| ATN-PARSER::INDEX)
12166
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12167
              (*ATN-STACK (CONS '|PathAlternative| *ATN-STACK))
12168
              (ATN-PARSER::ATN-STRUCTURE NIL))
12169
          (DECLARE (SPECIAL |PathAlternative-INDEX|))
12170
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12171
          (DECLARE (TYPE CONS *ATN-STACK))
12172
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12173
            (%ATN-BLOCK |PathAlternative|
12174
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12175
                                   (SETF *ATN-TERM* '|PathAlternative|)
12176
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12177
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12178
                                   ATN-PARSER::INDEX)
12179
                                 (|PathAlternative.2| (ATN-PARSER::INDEX)
12180
                                   (%ATN-NODE-BLOCK |PathAlternative.2|
12181
                                                    (%ATN-EDGE-BLOCK (POP |PathAlternative|)
12182
                                                                     (WHEN T
12183
                                                                       (SETF *ATN-TERM* '|PathAlternative|)
12184
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
12185
                                                                                   '|PathAlternative| ATN-PARSER::INDEX
12186
                                                                                   (LIST '|PathSequence| |PathSequence|))
12187
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12188
                                                                              (IF (EQ *ATN-REDUCE* T)
12189
                                                                                  (|PathAlternative-Constructor| |PathSequence|)
12190
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12191
                                                                                      (CONS '|PathAlternative|
12192
                                                                                            (DELETE NIL (LIST |PathSequence|)))
12193
                                                                                      '|PathAlternative|))))
12194
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12195
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12196
                                 (|PathAlternative.5| (ATN-PARSER::INDEX)
12197
                                   (%ATN-NODE-BLOCK |PathAlternative.5|
12198
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PathAlternative/PathAlternative.5.6|)
12199
                                                                     (|PathAlternative/PathAlternative.5.6| ATN-PARSER::INDEX))
12200
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PathAlternative.2|)
12201
                                                                     (|PathAlternative.2| ATN-PARSER::INDEX))))
12202
                                 (|PathAlternative/fail.3| (ATN-PARSER::INDEX)
12203
                                   (%ATN-NODE-BLOCK |PathAlternative/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12204
                                 (|PathAlternative/PathAlternative.2.4| (ATN-PARSER::INDEX)
12205
                                   (%ATN-NODE-BLOCK |PathAlternative/PathAlternative.2.4|
12206
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PathAlternative/PathAlternative.5.6|)
12207
                                                                     (|PathAlternative/PathAlternative.5.6| ATN-PARSER::INDEX))
12208
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PathAlternative.2|)
12209
                                                                     (|PathAlternative.2| ATN-PARSER::INDEX))))
12210
                                 (|PathAlternative/PathAlternative.5.6| (ATN-PARSER::INDEX)
12211
                                   (%ATN-NODE-BLOCK |PathAlternative/PathAlternative.5.6|
12212
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|\||)
12213
                                                                     (COND
12214
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|\||)
12215
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|\||)
12216
                                                                       (|PathAlternative/PathAlternative.5.7|
12217
                                                                        (1+ ATN-PARSER::INDEX)))
12218
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|\||) NIL)))))
12219
                                 (|PathAlternative/PathAlternative.5.7| (ATN-PARSER::INDEX)
12220
                                   (%ATN-NODE-BLOCK |PathAlternative/PathAlternative.5.7|
12221
                                                    (%ATN-EDGE-BLOCK (PUSH |PathSequence|)
12222
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12223
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathSequence| ATN-PARSER::INDEX)
12224
                                                                       (COND
12225
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PathSequence|)
12226
                                                                         (LET ((|PathSequence663| |PathSequence|))
12227
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12228
                                                                             (DESTRUCTURING-BIND
12229
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12230
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12231
                                                                               (WHEN ATN-PARSER::RESULT
12232
                                                                                 (SETF |PathSequence|
12233
                                                                                         (CONS ATN-PARSER::RESULT |PathSequence|)))
12234
                                                                               (|PathAlternative.5| ATN-PARSER::RESULT-INDEX))
12235
                                                                             (SETF |PathSequence| |PathSequence663|))))
12236
                                                                        (T (SETF *ATN-TERM?* '|PathSequence|) NIL))))))
12237
                                 (|PathAlternative/start.1| (ATN-PARSER::INDEX)
12238
                                   (%ATN-NODE-BLOCK |PathAlternative/start.1|
12239
                                                    (%ATN-EDGE-BLOCK (PUSH |PathSequence|)
12240
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12241
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathSequence| ATN-PARSER::INDEX)
12242
                                                                       (COND
12243
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PathSequence|)
12244
                                                                         (LET ((|PathSequence664| |PathSequence|))
12245
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12246
                                                                             (DESTRUCTURING-BIND
12247
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12248
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12249
                                                                               (WHEN ATN-PARSER::RESULT
12250
                                                                                 (SETF |PathSequence|
12251
                                                                                         (CONS ATN-PARSER::RESULT |PathSequence|)))
12252
                                                                               (|PathAlternative/PathAlternative.2.4|
12253
                                                                                ATN-PARSER::RESULT-INDEX))
12254
                                                                             (SETF |PathSequence| |PathSequence664|))))
12255
                                                                        (T (SETF *ATN-TERM?* '|PathSequence|)
12256
                                                                         (|PathAlternative/fail.3| ATN-PARSER::INDEX))))))))
12257
                          (|PathAlternative/start.1| ATN-PARSER::INDEX)
12258
                          (SETF *ATN-NODE NIL)
12259
                          NIL
12260
                          (IF ATN-PARSER::ATN-STRUCTURE
12261
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12262
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12263
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathAlternative| ATN-PARSER::INDEX *ATN-STACK))))
12264
 (PROGN
12265
  (DEFVAR |PathSequence-INDEX|)
12266
  (DEFUN |PathSequence| (ATN-PARSER::INDEX &AUX (|PathEltOrInverse| NIL))
12267
    "{84} PathSequence ::= PathEltOrInverse ('/' PathEltOrInverse)*
12268
 (|PathEltOrInverse|)"
12269
    (DECLARE (SPECIAL |PathSequence-INDEX|))
12270
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathSequence-INDEX| *ATN-LEVEL))
12271
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12272
    (IF (< |PathSequence-INDEX| ATN-PARSER::INDEX)
12273
        (LET ((|PathSequence-INDEX| ATN-PARSER::INDEX)
12274
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12275
              (*ATN-STACK (CONS '|PathSequence| *ATN-STACK))
12276
              (ATN-PARSER::ATN-STRUCTURE NIL))
12277
          (DECLARE (SPECIAL |PathSequence-INDEX|))
12278
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12279
          (DECLARE (TYPE CONS *ATN-STACK))
12280
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12281
            (%ATN-BLOCK |PathSequence|
12282
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12283
                                   (SETF *ATN-TERM* '|PathSequence|)
12284
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12285
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12286
                                   ATN-PARSER::INDEX)
12287
                                 (|PathSequence.2| (ATN-PARSER::INDEX)
12288
                                   (%ATN-NODE-BLOCK |PathSequence.2|
12289
                                                    (%ATN-EDGE-BLOCK (POP |PathSequence|)
12290
                                                                     (WHEN T
12291
                                                                       (SETF *ATN-TERM* '|PathSequence|)
12292
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
12293
                                                                                   '|PathSequence| ATN-PARSER::INDEX
12294
                                                                                   (LIST '|PathEltOrInverse| |PathEltOrInverse|))
12295
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12296
                                                                              (IF (EQ *ATN-REDUCE* T)
12297
                                                                                  (|PathSequence-Constructor| |PathEltOrInverse|)
12298
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12299
                                                                                      (CONS '|PathSequence|
12300
                                                                                            (DELETE NIL (LIST |PathEltOrInverse|)))
12301
                                                                                      '|PathSequence|))))
12302
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12303
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12304
                                 (|PathSequence.5| (ATN-PARSER::INDEX)
12305
                                   (%ATN-NODE-BLOCK |PathSequence.5|
12306
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PathSequence/PathSequence.5.6|)
12307
                                                                     (|PathSequence/PathSequence.5.6| ATN-PARSER::INDEX))
12308
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PathSequence.2|)
12309
                                                                     (|PathSequence.2| ATN-PARSER::INDEX))))
12310
                                 (|PathSequence/fail.3| (ATN-PARSER::INDEX)
12311
                                   (%ATN-NODE-BLOCK |PathSequence/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12312
                                 (|PathSequence/PathSequence.2.4| (ATN-PARSER::INDEX)
12313
                                   (%ATN-NODE-BLOCK |PathSequence/PathSequence.2.4|
12314
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PathSequence/PathSequence.5.6|)
12315
                                                                     (|PathSequence/PathSequence.5.6| ATN-PARSER::INDEX))
12316
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |PathSequence.2|)
12317
                                                                     (|PathSequence.2| ATN-PARSER::INDEX))))
12318
                                 (|PathSequence/PathSequence.5.6| (ATN-PARSER::INDEX)
12319
                                   (%ATN-NODE-BLOCK |PathSequence/PathSequence.5.6|
12320
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:/)
12321
                                                                     (COND
12322
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:/)
12323
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:/)
12324
                                                                       (|PathSequence/PathSequence.5.7| (1+ ATN-PARSER::INDEX)))
12325
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:/) NIL)))))
12326
                                 (|PathSequence/PathSequence.5.7| (ATN-PARSER::INDEX)
12327
                                   (%ATN-NODE-BLOCK |PathSequence/PathSequence.5.7|
12328
                                                    (%ATN-EDGE-BLOCK (PUSH |PathEltOrInverse|)
12329
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12330
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathEltOrInverse|
12331
                                                                                                  ATN-PARSER::INDEX)
12332
                                                                       (COND
12333
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PathEltOrInverse|)
12334
                                                                         (LET ((|PathEltOrInverse665| |PathEltOrInverse|))
12335
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12336
                                                                             (DESTRUCTURING-BIND
12337
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12338
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12339
                                                                               (WHEN ATN-PARSER::RESULT
12340
                                                                                 (SETF |PathEltOrInverse|
12341
                                                                                         (CONS ATN-PARSER::RESULT
12342
                                                                                               |PathEltOrInverse|)))
12343
                                                                               (|PathSequence.5| ATN-PARSER::RESULT-INDEX))
12344
                                                                             (SETF |PathEltOrInverse| |PathEltOrInverse665|))))
12345
                                                                        (T (SETF *ATN-TERM?* '|PathEltOrInverse|) NIL))))))
12346
                                 (|PathSequence/start.1| (ATN-PARSER::INDEX)
12347
                                   (%ATN-NODE-BLOCK |PathSequence/start.1|
12348
                                                    (%ATN-EDGE-BLOCK (PUSH |PathEltOrInverse|)
12349
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12350
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathEltOrInverse|
12351
                                                                                                  ATN-PARSER::INDEX)
12352
                                                                       (COND
12353
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PathEltOrInverse|)
12354
                                                                         (LET ((|PathEltOrInverse666| |PathEltOrInverse|))
12355
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12356
                                                                             (DESTRUCTURING-BIND
12357
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12358
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12359
                                                                               (WHEN ATN-PARSER::RESULT
12360
                                                                                 (SETF |PathEltOrInverse|
12361
                                                                                         (CONS ATN-PARSER::RESULT
12362
                                                                                               |PathEltOrInverse|)))
12363
                                                                               (|PathSequence/PathSequence.2.4|
12364
                                                                                ATN-PARSER::RESULT-INDEX))
12365
                                                                             (SETF |PathEltOrInverse| |PathEltOrInverse666|))))
12366
                                                                        (T (SETF *ATN-TERM?* '|PathEltOrInverse|)
12367
                                                                         (|PathSequence/fail.3| ATN-PARSER::INDEX))))))))
12368
                          (|PathSequence/start.1| ATN-PARSER::INDEX)
12369
                          (SETF *ATN-NODE NIL)
12370
                          NIL
12371
                          (IF ATN-PARSER::ATN-STRUCTURE
12372
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12373
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12374
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathSequence| ATN-PARSER::INDEX *ATN-STACK))))
12375
 (PROGN
12376
  (DEFVAR |PathElt-INDEX|)
12377
  (DEFUN |PathElt| (ATN-PARSER::INDEX &AUX (|PathMod| NIL) (|PathPrimary| NIL))
12378
    "{85} PathElt ::= PathPrimary PathMod?
12379
 (|PathMod| |PathPrimary|)"
12380
    (DECLARE (SPECIAL |PathElt-INDEX|))
12381
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathElt-INDEX| *ATN-LEVEL))
12382
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12383
    (IF (< |PathElt-INDEX| ATN-PARSER::INDEX)
12384
        (LET ((|PathElt-INDEX| ATN-PARSER::INDEX)
12385
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12386
              (*ATN-STACK (CONS '|PathElt| *ATN-STACK))
12387
              (ATN-PARSER::ATN-STRUCTURE NIL))
12388
          (DECLARE (SPECIAL |PathElt-INDEX|))
12389
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12390
          (DECLARE (TYPE CONS *ATN-STACK))
12391
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12392
            (%ATN-BLOCK |PathElt|
12393
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12394
                                   (SETF *ATN-TERM* '|PathElt|)
12395
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12396
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12397
                                   ATN-PARSER::INDEX)
12398
                                 (|PathElt.2| (ATN-PARSER::INDEX)
12399
                                   (%ATN-NODE-BLOCK |PathElt.2|
12400
                                                    (%ATN-EDGE-BLOCK (POP |PathElt|)
12401
                                                                     (WHEN T
12402
                                                                       (SETF *ATN-TERM* '|PathElt|)
12403
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|PathElt|
12404
                                                                                   ATN-PARSER::INDEX
12405
                                                                                   (LIST '|PathMod| |PathMod| '|PathPrimary|
12406
                                                                                         |PathPrimary|))
12407
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12408
                                                                              (IF (EQ *ATN-REDUCE* T)
12409
                                                                                  (|PathElt-Constructor| |PathMod| |PathPrimary|)
12410
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12411
                                                                                      (CONS '|PathElt|
12412
                                                                                            (DELETE NIL
12413
                                                                                                    (LIST |PathMod| |PathPrimary|)))
12414
                                                                                      '|PathElt|))))
12415
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12416
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12417
                                 (|PathElt/fail.3| (ATN-PARSER::INDEX)
12418
                                   (%ATN-NODE-BLOCK |PathElt/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12419
                                 (|PathElt/PathElt.2.4| (ATN-PARSER::INDEX)
12420
                                   (%ATN-NODE-BLOCK |PathElt/PathElt.2.4|
12421
                                                    (%ATN-EDGE-BLOCK (PUSH |PathMod|)
12422
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12423
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathMod| ATN-PARSER::INDEX)
12424
                                                                       (COND
12425
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PathMod|)
12426
                                                                         (LET ((|PathMod667| |PathMod|))
12427
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12428
                                                                             (DESTRUCTURING-BIND
12429
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12430
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12431
                                                                               (WHEN ATN-PARSER::RESULT
12432
                                                                                 (SETF |PathMod| ATN-PARSER::RESULT))
12433
                                                                               (|PathElt.2| ATN-PARSER::RESULT-INDEX))
12434
                                                                             (SETF |PathMod| |PathMod667|))))
12435
                                                                        (T (SETF *ATN-TERM?* '|PathMod|)
12436
                                                                         (|PathElt.2| ATN-PARSER::INDEX)))))))
12437
                                 (|PathElt/start.1| (ATN-PARSER::INDEX)
12438
                                   (%ATN-NODE-BLOCK |PathElt/start.1|
12439
                                                    (%ATN-EDGE-BLOCK (PUSH |PathPrimary|)
12440
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12441
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathPrimary| ATN-PARSER::INDEX)
12442
                                                                       (COND
12443
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PathPrimary|)
12444
                                                                         (LET ((|PathPrimary668| |PathPrimary|))
12445
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12446
                                                                             (DESTRUCTURING-BIND
12447
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12448
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12449
                                                                               (WHEN ATN-PARSER::RESULT
12450
                                                                                 (SETF |PathPrimary| ATN-PARSER::RESULT))
12451
                                                                               (|PathElt/PathElt.2.4| ATN-PARSER::RESULT-INDEX))
12452
                                                                             (SETF |PathPrimary| |PathPrimary668|))))
12453
                                                                        (T (SETF *ATN-TERM?* '|PathPrimary|)
12454
                                                                         (|PathElt/fail.3| ATN-PARSER::INDEX))))))))
12455
                          (|PathElt/start.1| ATN-PARSER::INDEX)
12456
                          (SETF *ATN-NODE NIL)
12457
                          NIL
12458
                          (IF ATN-PARSER::ATN-STRUCTURE
12459
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12460
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12461
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathElt| ATN-PARSER::INDEX *ATN-STACK))))
12462
 (PROGN
12463
  (DEFVAR |PathEltOrInverse-INDEX|)
12464
  (DEFUN |PathEltOrInverse| (ATN-PARSER::INDEX &AUX (|InvertedPathElt| NIL) (|PathElt| NIL))
12465
    "{86} PathEltOrInverse ::= (PathElt | ('^' InvertedPathElt))
12466
 (|InvertedPathElt| |PathElt|)"
12467
    (DECLARE (SPECIAL |PathEltOrInverse-INDEX|))
12468
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathEltOrInverse-INDEX| *ATN-LEVEL))
12469
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12470
    (IF (< |PathEltOrInverse-INDEX| ATN-PARSER::INDEX)
12471
        (LET ((|PathEltOrInverse-INDEX| ATN-PARSER::INDEX)
12472
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12473
              (*ATN-STACK (CONS '|PathEltOrInverse| *ATN-STACK))
12474
              (ATN-PARSER::ATN-STRUCTURE NIL))
12475
          (DECLARE (SPECIAL |PathEltOrInverse-INDEX|))
12476
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12477
          (DECLARE (TYPE CONS *ATN-STACK))
12478
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12479
            (%ATN-BLOCK |PathEltOrInverse|
12480
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12481
                                   (SETF *ATN-TERM* '|PathEltOrInverse|)
12482
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12483
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12484
                                   ATN-PARSER::INDEX)
12485
                                 (|PathEltOrInverse.2| (ATN-PARSER::INDEX)
12486
                                   (%ATN-NODE-BLOCK |PathEltOrInverse.2|
12487
                                                    (%ATN-EDGE-BLOCK (POP |PathEltOrInverse|)
12488
                                                                     (WHEN T
12489
                                                                       (SETF *ATN-TERM* '|PathEltOrInverse|)
12490
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
12491
                                                                                   '|PathEltOrInverse| ATN-PARSER::INDEX
12492
                                                                                   (LIST '|InvertedPathElt| |InvertedPathElt|
12493
                                                                                         '|PathElt| |PathElt|))
12494
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12495
                                                                              (IF (EQ *ATN-REDUCE* T)
12496
                                                                                  (|PathEltOrInverse-Constructor| |InvertedPathElt|
12497
                                                                                                                  |PathElt|)
12498
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12499
                                                                                      (CONS '|PathEltOrInverse|
12500
                                                                                            (DELETE NIL
12501
                                                                                                    (LIST |InvertedPathElt|
12502
                                                                                                          |PathElt|)))
12503
                                                                                      '|PathEltOrInverse|))))
12504
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12505
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12506
                                 (|PathEltOrInverse/fail.3| (ATN-PARSER::INDEX)
12507
                                   (%ATN-NODE-BLOCK |PathEltOrInverse/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12508
                                 (|PathEltOrInverse/PathEltOrInverse.2.4| (ATN-PARSER::INDEX)
12509
                                   (%ATN-NODE-BLOCK |PathEltOrInverse/PathEltOrInverse.2.4|
12510
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:^)
12511
                                                                     (COND
12512
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:^)
12513
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:^)
12514
                                                                       (|PathEltOrInverse/PathEltOrInverse.2.5|
12515
                                                                        (1+ ATN-PARSER::INDEX)))
12516
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:^) NIL)))))
12517
                                 (|PathEltOrInverse/PathEltOrInverse.2.5| (ATN-PARSER::INDEX)
12518
                                   (%ATN-NODE-BLOCK |PathEltOrInverse/PathEltOrInverse.2.5|
12519
                                                    (%ATN-EDGE-BLOCK (PUSH |InvertedPathElt|)
12520
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12521
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|InvertedPathElt|
12522
                                                                                                  ATN-PARSER::INDEX)
12523
                                                                       (COND
12524
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|InvertedPathElt|)
12525
                                                                         (LET ((|InvertedPathElt670| |InvertedPathElt|))
12526
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12527
                                                                             (DESTRUCTURING-BIND
12528
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12529
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12530
                                                                               (WHEN ATN-PARSER::RESULT
12531
                                                                                 (SETF |InvertedPathElt| ATN-PARSER::RESULT))
12532
                                                                               (|PathEltOrInverse.2| ATN-PARSER::RESULT-INDEX))
12533
                                                                             (SETF |InvertedPathElt| |InvertedPathElt670|))))
12534
                                                                        (T (SETF *ATN-TERM?* '|InvertedPathElt|) NIL))))))
12535
                                 (|PathEltOrInverse/start.1| (ATN-PARSER::INDEX)
12536
                                   (%ATN-NODE-BLOCK |PathEltOrInverse/start.1|
12537
                                                    (%ATN-EDGE-BLOCK OR
12538
                                                                     (PROGN
12539
                                                                      (%ATN-EDGE-BLOCK (PUSH |PathElt|)
12540
                                                                                       (MULTIPLE-VALUE-BIND
12541
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12542
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|PathElt|
12543
                                                                                                                    ATN-PARSER::INDEX)
12544
                                                                                         (COND
12545
                                                                                          (ATN-PARSER::SUCCESS
12546
                                                                                           (SETF *ATN-TERM* '|PathElt|)
12547
                                                                                           (LET ((|PathElt669| |PathElt|))
12548
                                                                                             (DOLIST
12549
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
12550
                                                                                                  ATN-PARSER::RESULT)
12551
                                                                                               (DESTRUCTURING-BIND
12552
                                                                                                   (
12553
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12554
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
12555
                                                                                                 (WHEN ATN-PARSER::RESULT
12556
                                                                                                   (SETF |PathElt|
12557
                                                                                                           ATN-PARSER::RESULT))
12558
                                                                                                 (|PathEltOrInverse.2|
12559
                                                                                                  ATN-PARSER::RESULT-INDEX))
12560
                                                                                               (SETF |PathElt| |PathElt669|))))
12561
                                                                                          (T (SETF *ATN-TERM?* '|PathElt|) NIL))))
12562
                                                                      (%ATN-EDGE-BLOCK
12563
                                                                       (ATN-PARSER::JUMP |PathEltOrInverse/PathEltOrInverse.2.4|)
12564
                                                                       (|PathEltOrInverse/PathEltOrInverse.2.4| ATN-PARSER::INDEX))
12565
                                                                      (|PathEltOrInverse/fail.3| ATN-PARSER::INDEX))))))
12566
                          (|PathEltOrInverse/start.1| ATN-PARSER::INDEX)
12567
                          (SETF *ATN-NODE NIL)
12568
                          NIL
12569
                          (IF ATN-PARSER::ATN-STRUCTURE
12570
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12571
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12572
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathEltOrInverse| ATN-PARSER::INDEX *ATN-STACK))))
12573
 (PROGN
12574
  (DEFVAR |InvertedPathElt-INDEX|)
12575
  (DEFUN |InvertedPathElt| (ATN-PARSER::INDEX &AUX (|PathElt| NIL))
12576
    "{86a} InvertedPathElt ::= PathElt
12577
 (|PathElt|)"
12578
    (DECLARE (SPECIAL |InvertedPathElt-INDEX|))
12579
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |InvertedPathElt-INDEX| *ATN-LEVEL))
12580
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12581
    (IF (< |InvertedPathElt-INDEX| ATN-PARSER::INDEX)
12582
        (LET ((|InvertedPathElt-INDEX| ATN-PARSER::INDEX)
12583
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12584
              (*ATN-STACK (CONS '|InvertedPathElt| *ATN-STACK))
12585
              (ATN-PARSER::ATN-STRUCTURE NIL))
12586
          (DECLARE (SPECIAL |InvertedPathElt-INDEX|))
12587
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12588
          (DECLARE (TYPE CONS *ATN-STACK))
12589
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12590
            (%ATN-BLOCK |InvertedPathElt|
12591
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12592
                                   (SETF *ATN-TERM* '|InvertedPathElt|)
12593
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12594
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12595
                                   ATN-PARSER::INDEX)
12596
                                 (|InvertedPathElt.2| (ATN-PARSER::INDEX)
12597
                                   (%ATN-NODE-BLOCK |InvertedPathElt.2|
12598
                                                    (%ATN-EDGE-BLOCK (POP |InvertedPathElt|)
12599
                                                                     (WHEN T
12600
                                                                       (SETF *ATN-TERM* '|InvertedPathElt|)
12601
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
12602
                                                                                   '|InvertedPathElt| ATN-PARSER::INDEX
12603
                                                                                   (LIST '|PathElt| |PathElt|))
12604
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12605
                                                                              (IF (EQ *ATN-REDUCE* T)
12606
                                                                                  (|InvertedPathElt-Constructor| |PathElt|)
12607
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12608
                                                                                      (CONS '|InvertedPathElt|
12609
                                                                                            (DELETE NIL (LIST |PathElt|)))
12610
                                                                                      '|InvertedPathElt|))))
12611
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12612
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12613
                                 (|InvertedPathElt/fail.3| (ATN-PARSER::INDEX)
12614
                                   (%ATN-NODE-BLOCK |InvertedPathElt/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12615
                                 (|InvertedPathElt/start.1| (ATN-PARSER::INDEX)
12616
                                   (%ATN-NODE-BLOCK |InvertedPathElt/start.1|
12617
                                                    (%ATN-EDGE-BLOCK (PUSH |PathElt|)
12618
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12619
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathElt| ATN-PARSER::INDEX)
12620
                                                                       (COND
12621
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PathElt|)
12622
                                                                         (LET ((|PathElt671| |PathElt|))
12623
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
12624
                                                                             (DESTRUCTURING-BIND
12625
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12626
                                                                                 ATN-PARSER::RESULT-AND-INDEX
12627
                                                                               (WHEN ATN-PARSER::RESULT
12628
                                                                                 (SETF |PathElt| ATN-PARSER::RESULT))
12629
                                                                               (|InvertedPathElt.2| ATN-PARSER::RESULT-INDEX))
12630
                                                                             (SETF |PathElt| |PathElt671|))))
12631
                                                                        (T (SETF *ATN-TERM?* '|PathElt|)
12632
                                                                         (|InvertedPathElt/fail.3| ATN-PARSER::INDEX))))))))
12633
                          (|InvertedPathElt/start.1| ATN-PARSER::INDEX)
12634
                          (SETF *ATN-NODE NIL)
12635
                          NIL
12636
                          (IF ATN-PARSER::ATN-STRUCTURE
12637
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12638
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12639
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|InvertedPathElt| ATN-PARSER::INDEX *ATN-STACK))))
12640
 (PROGN
12641
  (DEFVAR |PathMod-INDEX|)
12642
  (DEFUN |PathMod| (ATN-PARSER::INDEX &AUX (|PathCardinality| NIL) (|PathRange| NIL))
12643
    "{87} PathMod ::= (PathCardinality | PathRange)
12644
 (|PathCardinality| |PathRange|)"
12645
    (DECLARE (SPECIAL |PathMod-INDEX|))
12646
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathMod-INDEX| *ATN-LEVEL))
12647
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12648
    (IF (< |PathMod-INDEX| ATN-PARSER::INDEX)
12649
        (LET ((|PathMod-INDEX| ATN-PARSER::INDEX)
12650
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12651
              (*ATN-STACK (CONS '|PathMod| *ATN-STACK))
12652
              (ATN-PARSER::ATN-STRUCTURE NIL))
12653
          (DECLARE (SPECIAL |PathMod-INDEX|))
12654
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12655
          (DECLARE (TYPE CONS *ATN-STACK))
12656
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12657
            (%ATN-BLOCK |PathMod|
12658
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12659
                                   (SETF *ATN-TERM* '|PathMod|)
12660
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12661
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12662
                                   ATN-PARSER::INDEX)
12663
                                 (|PathMod.2| (ATN-PARSER::INDEX)
12664
                                   (%ATN-NODE-BLOCK |PathMod.2|
12665
                                                    (%ATN-EDGE-BLOCK (POP |PathMod|)
12666
                                                                     (WHEN T
12667
                                                                       (SETF *ATN-TERM* '|PathMod|)
12668
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|PathMod|
12669
                                                                                   ATN-PARSER::INDEX
12670
                                                                                   (LIST '|PathCardinality| |PathCardinality|
12671
                                                                                         '|PathRange| |PathRange|))
12672
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12673
                                                                              (IF (EQ *ATN-REDUCE* T)
12674
                                                                                  (|PathMod-Constructor| |PathCardinality|
12675
                                                                                                         |PathRange|)
12676
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12677
                                                                                      (CONS '|PathMod|
12678
                                                                                            (DELETE NIL
12679
                                                                                                    (LIST |PathCardinality|
12680
                                                                                                          |PathRange|)))
12681
                                                                                      '|PathMod|))))
12682
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12683
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12684
                                 (|PathMod/fail.3| (ATN-PARSER::INDEX)
12685
                                   (%ATN-NODE-BLOCK |PathMod/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12686
                                 (|PathMod/start.1| (ATN-PARSER::INDEX)
12687
                                   (%ATN-NODE-BLOCK |PathMod/start.1|
12688
                                                    (%ATN-EDGE-BLOCK OR
12689
                                                                     (PROGN
12690
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |PathCardinality|)
12691
                                                                                       (COND
12692
                                                                                        ((|IS-PathCardinality| ATN-PARSER::|item|)
12693
                                                                                         (SETF *ATN-TERM* '|PathCardinality|)
12694
                                                                                         (SETF |PathCardinality|
12695
                                                                                                 (IF (EQ *ATN-REDUCE* T)
12696
                                                                                                     (ATN-REDUCE-ITEM
12697
                                                                                                      #'|PathCardinality-Constructor|
12698
                                                                                                      ATN-PARSER::|item|)
12699
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
12700
                                                                                                         (LIST '|PathCardinality|
12701
                                                                                                               ATN-PARSER::|item|)
12702
                                                                                                         '|PathCardinality|)))
12703
                                                                                         (|PathMod.2| (1+ ATN-PARSER::INDEX)))
12704
                                                                                        (T (SETF *ATN-TERM* '|PathCardinality|)
12705
                                                                                         NIL)))
12706
                                                                      (%ATN-EDGE-BLOCK (PUSH |PathRange|)
12707
                                                                                       (MULTIPLE-VALUE-BIND
12708
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12709
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|PathRange|
12710
                                                                                                                    ATN-PARSER::INDEX)
12711
                                                                                         (COND
12712
                                                                                          (ATN-PARSER::SUCCESS
12713
                                                                                           (SETF *ATN-TERM* '|PathRange|)
12714
                                                                                           (LET ((|PathRange672| |PathRange|))
12715
                                                                                             (DOLIST
12716
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
12717
                                                                                                  ATN-PARSER::RESULT)
12718
                                                                                               (DESTRUCTURING-BIND
12719
                                                                                                   (
12720
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
12721
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
12722
                                                                                                 (WHEN ATN-PARSER::RESULT
12723
                                                                                                   (SETF |PathRange|
12724
                                                                                                           ATN-PARSER::RESULT))
12725
                                                                                                 (|PathMod.2|
12726
                                                                                                  ATN-PARSER::RESULT-INDEX))
12727
                                                                                               (SETF |PathRange| |PathRange672|))))
12728
                                                                                          (T (SETF *ATN-TERM?* '|PathRange|) NIL))))
12729
                                                                      (|PathMod/fail.3| ATN-PARSER::INDEX))))))
12730
                          (|PathMod/start.1| ATN-PARSER::INDEX)
12731
                          (SETF *ATN-NODE NIL)
12732
                          NIL
12733
                          (IF ATN-PARSER::ATN-STRUCTURE
12734
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12735
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12736
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathMod| ATN-PARSER::INDEX *ATN-STACK))))
12737
 (PROGN
12738
  (DEFVAR |PathRange-INDEX|)
12739
  (DEFUN |PathRange| (ATN-PARSER::INDEX &AUX (|PathRangeCount| NIL) (|PathRangeEnd| NIL) (|PathRangeStart| NIL))
12740
    "{87b} PathRange ::= '{' (((PathRangeStart ',') | (PathRangeStart ','
12741
                                                   PathRangeEnd) | (','
12742
                                                                    PathRangeEnd) | PathRangeCount)) '}'
12743
 (|PathRangeCount| |PathRangeEnd| |PathRangeStart|)"
12744
    (DECLARE (SPECIAL |PathRange-INDEX|))
12745
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathRange-INDEX| *ATN-LEVEL))
12746
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12747
    (IF (< |PathRange-INDEX| ATN-PARSER::INDEX)
12748
        (LET ((|PathRange-INDEX| ATN-PARSER::INDEX)
12749
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12750
              (*ATN-STACK (CONS '|PathRange| *ATN-STACK))
12751
              (ATN-PARSER::ATN-STRUCTURE NIL))
12752
          (DECLARE (SPECIAL |PathRange-INDEX|))
12753
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12754
          (DECLARE (TYPE CONS *ATN-STACK))
12755
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12756
            (%ATN-BLOCK |PathRange|
12757
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12758
                                   (SETF *ATN-TERM* '|PathRange|)
12759
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12760
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12761
                                   ATN-PARSER::INDEX)
12762
                                 (|PathRange.2| (ATN-PARSER::INDEX)
12763
                                   (%ATN-NODE-BLOCK |PathRange.2|
12764
                                                    (%ATN-EDGE-BLOCK (POP |PathRange|)
12765
                                                                     (WHEN T
12766
                                                                       (SETF *ATN-TERM* '|PathRange|)
12767
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|PathRange|
12768
                                                                                   ATN-PARSER::INDEX
12769
                                                                                   (LIST '|PathRangeCount| |PathRangeCount|
12770
                                                                                         '|PathRangeEnd| |PathRangeEnd|
12771
                                                                                         '|PathRangeStart| |PathRangeStart|))
12772
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12773
                                                                              (IF (EQ *ATN-REDUCE* T)
12774
                                                                                  (|PathRange-Constructor| |PathRangeCount|
12775
                                                                                                           |PathRangeEnd|
12776
                                                                                                           |PathRangeStart|)
12777
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12778
                                                                                      (CONS '|PathRange|
12779
                                                                                            (DELETE NIL
12780
                                                                                                    (LIST |PathRangeCount|
12781
                                                                                                          |PathRangeEnd|
12782
                                                                                                          |PathRangeStart|)))
12783
                                                                                      '|PathRange|))))
12784
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12785
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12786
                                 (|PathRange/fail.3| (ATN-PARSER::INDEX)
12787
                                   (%ATN-NODE-BLOCK |PathRange/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12788
                                 (|PathRange/PathRange.2.4| (ATN-PARSER::INDEX)
12789
                                   (%ATN-NODE-BLOCK |PathRange/PathRange.2.4|
12790
                                                    (%ATN-EDGE-BLOCK OR
12791
                                                                     (PROGN
12792
                                                                      (%ATN-EDGE-BLOCK
12793
                                                                       (ATN-PARSER::JUMP |PathRange/PathRange/PathRange.2.5.6|)
12794
                                                                       (|PathRange/PathRange/PathRange.2.5.6| ATN-PARSER::INDEX))
12795
                                                                      (%ATN-EDGE-BLOCK
12796
                                                                       (ATN-PARSER::JUMP |PathRange/PathRange/PathRange.2.5.8|)
12797
                                                                       (|PathRange/PathRange/PathRange.2.5.8| ATN-PARSER::INDEX))
12798
                                                                      (%ATN-EDGE-BLOCK
12799
                                                                       (ATN-PARSER::JUMP |PathRange/PathRange/PathRange.2.5.11|)
12800
                                                                       (|PathRange/PathRange/PathRange.2.5.11| ATN-PARSER::INDEX))
12801
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |PathRangeCount|)
12802
                                                                                       (COND
12803
                                                                                        ((|IS-PathRangeCount| ATN-PARSER::|item|)
12804
                                                                                         (SETF *ATN-TERM* '|PathRangeCount|)
12805
                                                                                         (SETF |PathRangeCount|
12806
                                                                                                 (IF (EQ *ATN-REDUCE* T)
12807
                                                                                                     (ATN-REDUCE-ITEM
12808
                                                                                                      #'|PathRangeCount-Constructor|
12809
                                                                                                      ATN-PARSER::|item|)
12810
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
12811
                                                                                                         (LIST '|PathRangeCount|
12812
                                                                                                               ATN-PARSER::|item|)
12813
                                                                                                         '|PathRangeCount|)))
12814
                                                                                         (|PathRange/PathRange.2.5|
12815
                                                                                          (1+ ATN-PARSER::INDEX)))
12816
                                                                                        (T (SETF *ATN-TERM* '|PathRangeCount|)
12817
                                                                                         NIL)))
12818
                                                                      (|PathRange/fail.3| ATN-PARSER::INDEX)))))
12819
                                 (|PathRange/PathRange.2.5| (ATN-PARSER::INDEX)
12820
                                   (%ATN-NODE-BLOCK |PathRange/PathRange.2.5|
12821
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
12822
                                                                     (COND
12823
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
12824
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
12825
                                                                       (|PathRange.2| (1+ ATN-PARSER::INDEX)))
12826
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:})
12827
                                                                       (|PathRange/fail.3| ATN-PARSER::INDEX))))))
12828
                                 (|PathRange/PathRange/PathRange.2.5.10| (ATN-PARSER::INDEX)
12829
                                   (%ATN-NODE-BLOCK |PathRange/PathRange/PathRange.2.5.10|
12830
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |PathRangeEnd|)
12831
                                                                     (COND
12832
                                                                      ((|IS-PathRangeEnd| ATN-PARSER::|item|)
12833
                                                                       (SETF *ATN-TERM* '|PathRangeEnd|)
12834
                                                                       (SETF |PathRangeEnd|
12835
                                                                               (IF (EQ *ATN-REDUCE* T)
12836
                                                                                   (ATN-REDUCE-ITEM #'|PathRangeEnd-Constructor|
12837
                                                                                                    ATN-PARSER::|item|)
12838
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
12839
                                                                                       (LIST '|PathRangeEnd| ATN-PARSER::|item|)
12840
                                                                                       '|PathRangeEnd|)))
12841
                                                                       (|PathRange/PathRange.2.5| (1+ ATN-PARSER::INDEX)))
12842
                                                                      (T (SETF *ATN-TERM* '|PathRangeEnd|) NIL)))))
12843
                                 (|PathRange/PathRange/PathRange.2.5.11| (ATN-PARSER::INDEX)
12844
                                   (%ATN-NODE-BLOCK |PathRange/PathRange/PathRange.2.5.11|
12845
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
12846
                                                                     (COND
12847
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
12848
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
12849
                                                                       (|PathRange/PathRange/PathRange.2.5.12|
12850
                                                                        (1+ ATN-PARSER::INDEX)))
12851
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
12852
                                 (|PathRange/PathRange/PathRange.2.5.12| (ATN-PARSER::INDEX)
12853
                                   (%ATN-NODE-BLOCK |PathRange/PathRange/PathRange.2.5.12|
12854
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |PathRangeEnd|)
12855
                                                                     (COND
12856
                                                                      ((|IS-PathRangeEnd| ATN-PARSER::|item|)
12857
                                                                       (SETF *ATN-TERM* '|PathRangeEnd|)
12858
                                                                       (SETF |PathRangeEnd|
12859
                                                                               (IF (EQ *ATN-REDUCE* T)
12860
                                                                                   (ATN-REDUCE-ITEM #'|PathRangeEnd-Constructor|
12861
                                                                                                    ATN-PARSER::|item|)
12862
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
12863
                                                                                       (LIST '|PathRangeEnd| ATN-PARSER::|item|)
12864
                                                                                       '|PathRangeEnd|)))
12865
                                                                       (|PathRange/PathRange.2.5| (1+ ATN-PARSER::INDEX)))
12866
                                                                      (T (SETF *ATN-TERM* '|PathRangeEnd|) NIL)))))
12867
                                 (|PathRange/PathRange/PathRange.2.5.6| (ATN-PARSER::INDEX)
12868
                                   (%ATN-NODE-BLOCK |PathRange/PathRange/PathRange.2.5.6|
12869
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |PathRangeStart|)
12870
                                                                     (COND
12871
                                                                      ((|IS-PathRangeStart| ATN-PARSER::|item|)
12872
                                                                       (SETF *ATN-TERM* '|PathRangeStart|)
12873
                                                                       (SETF |PathRangeStart|
12874
                                                                               (IF (EQ *ATN-REDUCE* T)
12875
                                                                                   (ATN-REDUCE-ITEM #'|PathRangeStart-Constructor|
12876
                                                                                                    ATN-PARSER::|item|)
12877
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
12878
                                                                                       (LIST '|PathRangeStart| ATN-PARSER::|item|)
12879
                                                                                       '|PathRangeStart|)))
12880
                                                                       (|PathRange/PathRange/PathRange.2.5.7|
12881
                                                                        (1+ ATN-PARSER::INDEX)))
12882
                                                                      (T (SETF *ATN-TERM* '|PathRangeStart|) NIL)))))
12883
                                 (|PathRange/PathRange/PathRange.2.5.7| (ATN-PARSER::INDEX)
12884
                                   (%ATN-NODE-BLOCK |PathRange/PathRange/PathRange.2.5.7|
12885
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
12886
                                                                     (COND
12887
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
12888
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
12889
                                                                       (|PathRange/PathRange.2.5| (1+ ATN-PARSER::INDEX)))
12890
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
12891
                                 (|PathRange/PathRange/PathRange.2.5.8| (ATN-PARSER::INDEX)
12892
                                   (%ATN-NODE-BLOCK |PathRange/PathRange/PathRange.2.5.8|
12893
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |PathRangeStart|)
12894
                                                                     (COND
12895
                                                                      ((|IS-PathRangeStart| ATN-PARSER::|item|)
12896
                                                                       (SETF *ATN-TERM* '|PathRangeStart|)
12897
                                                                       (SETF |PathRangeStart|
12898
                                                                               (IF (EQ *ATN-REDUCE* T)
12899
                                                                                   (ATN-REDUCE-ITEM #'|PathRangeStart-Constructor|
12900
                                                                                                    ATN-PARSER::|item|)
12901
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
12902
                                                                                       (LIST '|PathRangeStart| ATN-PARSER::|item|)
12903
                                                                                       '|PathRangeStart|)))
12904
                                                                       (|PathRange/PathRange/PathRange.2.5.9|
12905
                                                                        (1+ ATN-PARSER::INDEX)))
12906
                                                                      (T (SETF *ATN-TERM* '|PathRangeStart|) NIL)))))
12907
                                 (|PathRange/PathRange/PathRange.2.5.9| (ATN-PARSER::INDEX)
12908
                                   (%ATN-NODE-BLOCK |PathRange/PathRange/PathRange.2.5.9|
12909
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
12910
                                                                     (COND
12911
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
12912
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
12913
                                                                       (|PathRange/PathRange/PathRange.2.5.10|
12914
                                                                        (1+ ATN-PARSER::INDEX)))
12915
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
12916
                                 (|PathRange/start.1| (ATN-PARSER::INDEX)
12917
                                   (%ATN-NODE-BLOCK |PathRange/start.1|
12918
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
12919
                                                                     (COND
12920
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
12921
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
12922
                                                                       (|PathRange/PathRange.2.4| (1+ ATN-PARSER::INDEX)))
12923
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{)
12924
                                                                       (|PathRange/fail.3| ATN-PARSER::INDEX)))))))
12925
                          (|PathRange/start.1| ATN-PARSER::INDEX)
12926
                          (SETF *ATN-NODE NIL)
12927
                          NIL
12928
                          (IF ATN-PARSER::ATN-STRUCTURE
12929
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
12930
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
12931
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathRange| ATN-PARSER::INDEX *ATN-STACK))))
12932
 (PROGN
12933
  (DEFVAR |PathPrimary-INDEX|)
12934
  (DEFUN |PathPrimary| (ATN-PARSER::INDEX &AUX (|Path| NIL) (|PathNegatedPropertySet| NIL) (|PathVerb| NIL))
12935
    "{88} PathPrimary ::= (PathVerb | ('!' PathNegatedPropertySet) | ('(' Path ')'))
12936
 (|Path| |PathNegatedPropertySet| |PathVerb|)"
12937
    (DECLARE (SPECIAL |PathPrimary-INDEX|))
12938
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathPrimary-INDEX| *ATN-LEVEL))
12939
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
12940
    (IF (< |PathPrimary-INDEX| ATN-PARSER::INDEX)
12941
        (LET ((|PathPrimary-INDEX| ATN-PARSER::INDEX)
12942
              (*ATN-LEVEL (1+ *ATN-LEVEL))
12943
              (*ATN-STACK (CONS '|PathPrimary| *ATN-STACK))
12944
              (ATN-PARSER::ATN-STRUCTURE NIL))
12945
          (DECLARE (SPECIAL |PathPrimary-INDEX|))
12946
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
12947
          (DECLARE (TYPE CONS *ATN-STACK))
12948
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
12949
            (%ATN-BLOCK |PathPrimary|
12950
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
12951
                                   (SETF *ATN-TERM* '|PathPrimary|)
12952
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
12953
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
12954
                                   ATN-PARSER::INDEX)
12955
                                 (|PathPrimary.2| (ATN-PARSER::INDEX)
12956
                                   (%ATN-NODE-BLOCK |PathPrimary.2|
12957
                                                    (%ATN-EDGE-BLOCK (POP |PathPrimary|)
12958
                                                                     (WHEN T
12959
                                                                       (SETF *ATN-TERM* '|PathPrimary|)
12960
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
12961
                                                                                   '|PathPrimary| ATN-PARSER::INDEX
12962
                                                                                   (LIST '|Path| |Path| '|PathNegatedPropertySet|
12963
                                                                                         |PathNegatedPropertySet| '|PathVerb|
12964
                                                                                         |PathVerb|))
12965
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
12966
                                                                              (IF (EQ *ATN-REDUCE* T)
12967
                                                                                  (|PathPrimary-Constructor| |Path|
12968
                                                                                                             |PathNegatedPropertySet|
12969
                                                                                                             |PathVerb|)
12970
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
12971
                                                                                      (CONS '|PathPrimary|
12972
                                                                                            (DELETE NIL
12973
                                                                                                    (LIST |Path|
12974
                                                                                                          |PathNegatedPropertySet|
12975
                                                                                                          |PathVerb|)))
12976
                                                                                      '|PathPrimary|))))
12977
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
12978
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
12979
                                 (|PathPrimary/fail.3| (ATN-PARSER::INDEX)
12980
                                   (%ATN-NODE-BLOCK |PathPrimary/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
12981
                                 (|PathPrimary/PathPrimary.2.4| (ATN-PARSER::INDEX)
12982
                                   (%ATN-NODE-BLOCK |PathPrimary/PathPrimary.2.4|
12983
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:!)
12984
                                                                     (COND
12985
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:!)
12986
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:!)
12987
                                                                       (|PathPrimary/PathPrimary.2.5| (1+ ATN-PARSER::INDEX)))
12988
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:!) NIL)))))
12989
                                 (|PathPrimary/PathPrimary.2.5| (ATN-PARSER::INDEX)
12990
                                   (%ATN-NODE-BLOCK |PathPrimary/PathPrimary.2.5|
12991
                                                    (%ATN-EDGE-BLOCK (PUSH |PathNegatedPropertySet|)
12992
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
12993
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathNegatedPropertySet|
12994
                                                                                                  ATN-PARSER::INDEX)
12995
                                                                       (COND
12996
                                                                        (ATN-PARSER::SUCCESS
12997
                                                                         (SETF *ATN-TERM* '|PathNegatedPropertySet|)
12998
                                                                         (LET ((|PathNegatedPropertySet675|
12999
                                                                                |PathNegatedPropertySet|))
13000
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13001
                                                                             (DESTRUCTURING-BIND
13002
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13003
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13004
                                                                               (WHEN ATN-PARSER::RESULT
13005
                                                                                 (SETF |PathNegatedPropertySet| ATN-PARSER::RESULT))
13006
                                                                               (|PathPrimary.2| ATN-PARSER::RESULT-INDEX))
13007
                                                                             (SETF |PathNegatedPropertySet|
13008
                                                                                     |PathNegatedPropertySet675|))))
13009
                                                                        (T (SETF *ATN-TERM?* '|PathNegatedPropertySet|) NIL))))))
13010
                                 (|PathPrimary/PathPrimary.2.6| (ATN-PARSER::INDEX)
13011
                                   (%ATN-NODE-BLOCK |PathPrimary/PathPrimary.2.6|
13012
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
13013
                                                                     (COND
13014
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
13015
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
13016
                                                                       (|PathPrimary/PathPrimary.2.7| (1+ ATN-PARSER::INDEX)))
13017
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|) NIL)))))
13018
                                 (|PathPrimary/PathPrimary.2.7| (ATN-PARSER::INDEX)
13019
                                   (%ATN-NODE-BLOCK |PathPrimary/PathPrimary.2.7|
13020
                                                    (%ATN-EDGE-BLOCK (PUSH |Path|)
13021
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13022
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Path| ATN-PARSER::INDEX)
13023
                                                                       (COND
13024
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Path|)
13025
                                                                         (LET ((|Path674| |Path|))
13026
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13027
                                                                             (DESTRUCTURING-BIND
13028
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13029
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13030
                                                                               (WHEN ATN-PARSER::RESULT
13031
                                                                                 (SETF |Path| ATN-PARSER::RESULT))
13032
                                                                               (|PathPrimary/PathPrimary.2.8|
13033
                                                                                ATN-PARSER::RESULT-INDEX))
13034
                                                                             (SETF |Path| |Path674|))))
13035
                                                                        (T (SETF *ATN-TERM?* '|Path|) NIL))))))
13036
                                 (|PathPrimary/PathPrimary.2.8| (ATN-PARSER::INDEX)
13037
                                   (%ATN-NODE-BLOCK |PathPrimary/PathPrimary.2.8|
13038
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
13039
                                                                     (COND
13040
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
13041
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
13042
                                                                       (|PathPrimary.2| (1+ ATN-PARSER::INDEX)))
13043
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|) NIL)))))
13044
                                 (|PathPrimary/start.1| (ATN-PARSER::INDEX)
13045
                                   (%ATN-NODE-BLOCK |PathPrimary/start.1|
13046
                                                    (%ATN-EDGE-BLOCK OR
13047
                                                                     (PROGN
13048
                                                                      (%ATN-EDGE-BLOCK (PUSH |PathVerb|)
13049
                                                                                       (MULTIPLE-VALUE-BIND
13050
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13051
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|PathVerb|
13052
                                                                                                                    ATN-PARSER::INDEX)
13053
                                                                                         (COND
13054
                                                                                          (ATN-PARSER::SUCCESS
13055
                                                                                           (SETF *ATN-TERM* '|PathVerb|)
13056
                                                                                           (LET ((|PathVerb673| |PathVerb|))
13057
                                                                                             (DOLIST
13058
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
13059
                                                                                                  ATN-PARSER::RESULT)
13060
                                                                                               (DESTRUCTURING-BIND
13061
                                                                                                   (
13062
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13063
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
13064
                                                                                                 (WHEN ATN-PARSER::RESULT
13065
                                                                                                   (SETF |PathVerb|
13066
                                                                                                           ATN-PARSER::RESULT))
13067
                                                                                                 (|PathPrimary.2|
13068
                                                                                                  ATN-PARSER::RESULT-INDEX))
13069
                                                                                               (SETF |PathVerb| |PathVerb673|))))
13070
                                                                                          (T (SETF *ATN-TERM?* '|PathVerb|) NIL))))
13071
                                                                      (%ATN-EDGE-BLOCK
13072
                                                                       (ATN-PARSER::JUMP |PathPrimary/PathPrimary.2.4|)
13073
                                                                       (|PathPrimary/PathPrimary.2.4| ATN-PARSER::INDEX))
13074
                                                                      (%ATN-EDGE-BLOCK
13075
                                                                       (ATN-PARSER::JUMP |PathPrimary/PathPrimary.2.6|)
13076
                                                                       (|PathPrimary/PathPrimary.2.6| ATN-PARSER::INDEX))
13077
                                                                      (|PathPrimary/fail.3| ATN-PARSER::INDEX))))))
13078
                          (|PathPrimary/start.1| ATN-PARSER::INDEX)
13079
                          (SETF *ATN-NODE NIL)
13080
                          NIL
13081
                          (IF ATN-PARSER::ATN-STRUCTURE
13082
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
13083
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
13084
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathPrimary| ATN-PARSER::INDEX *ATN-STACK))))
13085
 (PROGN
13086
  (DEFVAR |PathVerb-INDEX|)
13087
  (DEFUN |PathVerb| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))
13088
    "{88a} PathVerb ::= (IRIref | 'a')
13089
 (|IRIref|)"
13090
    (DECLARE (SPECIAL |PathVerb-INDEX|))
13091
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathVerb-INDEX| *ATN-LEVEL))
13092
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
13093
    (IF (< |PathVerb-INDEX| ATN-PARSER::INDEX)
13094
        (LET ((|PathVerb-INDEX| ATN-PARSER::INDEX)
13095
              (*ATN-LEVEL (1+ *ATN-LEVEL))
13096
              (*ATN-STACK (CONS '|PathVerb| *ATN-STACK))
13097
              (ATN-PARSER::ATN-STRUCTURE NIL))
13098
          (DECLARE (SPECIAL |PathVerb-INDEX|))
13099
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
13100
          (DECLARE (TYPE CONS *ATN-STACK))
13101
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
13102
            (%ATN-BLOCK |PathVerb|
13103
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
13104
                                   (SETF *ATN-TERM* '|PathVerb|)
13105
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
13106
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
13107
                                   ATN-PARSER::INDEX)
13108
                                 (|PathVerb.2| (ATN-PARSER::INDEX)
13109
                                   (%ATN-NODE-BLOCK |PathVerb.2|
13110
                                                    (%ATN-EDGE-BLOCK (POP |PathVerb|)
13111
                                                                     (WHEN T
13112
                                                                       (SETF *ATN-TERM* '|PathVerb|)
13113
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|PathVerb|
13114
                                                                                   ATN-PARSER::INDEX (LIST '|IRIref| |IRIref|))
13115
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
13116
                                                                              (IF (EQ *ATN-REDUCE* T)
13117
                                                                                  (|PathVerb-Constructor| |IRIref|)
13118
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
13119
                                                                                      (CONS '|PathVerb|
13120
                                                                                            (DELETE NIL (LIST |IRIref|)))
13121
                                                                                      '|PathVerb|))))
13122
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
13123
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
13124
                                 (|PathVerb/fail.3| (ATN-PARSER::INDEX)
13125
                                   (%ATN-NODE-BLOCK |PathVerb/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
13126
                                 (|PathVerb/start.1| (ATN-PARSER::INDEX)
13127
                                   (%ATN-NODE-BLOCK |PathVerb/start.1|
13128
                                                    (%ATN-EDGE-BLOCK OR
13129
                                                                     (PROGN
13130
                                                                      (%ATN-EDGE-BLOCK (PUSH |IRIref|)
13131
                                                                                       (MULTIPLE-VALUE-BIND
13132
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13133
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|IRIref|
13134
                                                                                                                    ATN-PARSER::INDEX)
13135
                                                                                         (COND
13136
                                                                                          (ATN-PARSER::SUCCESS
13137
                                                                                           (SETF *ATN-TERM* '|IRIref|)
13138
                                                                                           (LET ((|IRIref676| |IRIref|))
13139
                                                                                             (DOLIST
13140
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
13141
                                                                                                  ATN-PARSER::RESULT)
13142
                                                                                               (DESTRUCTURING-BIND
13143
                                                                                                   (
13144
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13145
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
13146
                                                                                                 (WHEN ATN-PARSER::RESULT
13147
                                                                                                   (SETF |IRIref|
13148
                                                                                                           ATN-PARSER::RESULT))
13149
                                                                                                 (|PathVerb.2|
13150
                                                                                                  ATN-PARSER::RESULT-INDEX))
13151
                                                                                               (SETF |IRIref| |IRIref676|))))
13152
                                                                                          (T (SETF *ATN-TERM?* '|IRIref|) NIL))))
13153
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|a|)
13154
                                                                                       (COND
13155
                                                                                        ((EQ ATN-PARSER::|item| 'SPOCQ.S:|a|)
13156
                                                                                         (SETF *ATN-TERM* 'SPOCQ.S:|a|)
13157
                                                                                         (|PathVerb.2| (1+ ATN-PARSER::INDEX)))
13158
                                                                                        (T (SETF *ATN-TERM?* 'SPOCQ.S:|a|) NIL)))
13159
                                                                      (|PathVerb/fail.3| ATN-PARSER::INDEX))))))
13160
                          (|PathVerb/start.1| ATN-PARSER::INDEX)
13161
                          (SETF *ATN-NODE NIL)
13162
                          NIL
13163
                          (IF ATN-PARSER::ATN-STRUCTURE
13164
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
13165
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
13166
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathVerb| ATN-PARSER::INDEX *ATN-STACK))))
13167
 (PROGN
13168
  (DEFVAR |PathNegatedPropertySet-INDEX|)
13169
  (DEFUN |PathNegatedPropertySet| (ATN-PARSER::INDEX &AUX (|PathOneInPropertySet| NIL))
13170
    "{89} PathNegatedPropertySet ::= (PathOneInPropertySet | ('('
13171
                                                          (PathOneInPropertySet
13172
                                                           ('|'
13173
                                                            PathOneInPropertySet)*)?
13174
                                                          ')'))
13175
 (|PathOneInPropertySet|)"
13176
    (DECLARE (SPECIAL |PathNegatedPropertySet-INDEX|))
13177
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathNegatedPropertySet-INDEX| *ATN-LEVEL))
13178
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
13179
    (IF (< |PathNegatedPropertySet-INDEX| ATN-PARSER::INDEX)
13180
        (LET ((|PathNegatedPropertySet-INDEX| ATN-PARSER::INDEX)
13181
              (*ATN-LEVEL (1+ *ATN-LEVEL))
13182
              (*ATN-STACK (CONS '|PathNegatedPropertySet| *ATN-STACK))
13183
              (ATN-PARSER::ATN-STRUCTURE NIL))
13184
          (DECLARE (SPECIAL |PathNegatedPropertySet-INDEX|))
13185
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
13186
          (DECLARE (TYPE CONS *ATN-STACK))
13187
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
13188
            (%ATN-BLOCK |PathNegatedPropertySet|
13189
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
13190
                                   (SETF *ATN-TERM* '|PathNegatedPropertySet|)
13191
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
13192
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
13193
                                   ATN-PARSER::INDEX)
13194
                                 (|PathNegatedPropertySet.2| (ATN-PARSER::INDEX)
13195
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet.2|
13196
                                                    (%ATN-EDGE-BLOCK (POP |PathNegatedPropertySet|)
13197
                                                                     (WHEN T
13198
                                                                       (SETF *ATN-TERM* '|PathNegatedPropertySet|)
13199
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
13200
                                                                                   '|PathNegatedPropertySet| ATN-PARSER::INDEX
13201
                                                                                   (LIST '|PathOneInPropertySet|
13202
                                                                                         |PathOneInPropertySet|))
13203
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
13204
                                                                              (IF (EQ *ATN-REDUCE* T)
13205
                                                                                  (|PathNegatedPropertySet-Constructor|
13206
                                                                                   |PathOneInPropertySet|)
13207
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
13208
                                                                                      (CONS '|PathNegatedPropertySet|
13209
                                                                                            (DELETE NIL
13210
                                                                                                    (LIST |PathOneInPropertySet|)))
13211
                                                                                      '|PathNegatedPropertySet|))))
13212
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
13213
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
13214
                                 (|PathNegatedPropertySet.9| (ATN-PARSER::INDEX)
13215
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet.9|
13216
                                                    (%ATN-EDGE-BLOCK
13217
                                                     (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.9.10|)
13218
                                                     (|PathNegatedPropertySet/PathNegatedPropertySet.9.10| ATN-PARSER::INDEX))
13219
                                                    (%ATN-EDGE-BLOCK
13220
                                                     (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.2.6|)
13221
                                                     (|PathNegatedPropertySet/PathNegatedPropertySet.2.6| ATN-PARSER::INDEX))))
13222
                                 (|PathNegatedPropertySet/fail.3| (ATN-PARSER::INDEX)
13223
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
13224
                                 (|PathNegatedPropertySet/PathNegatedPropertySet.2.4| (ATN-PARSER::INDEX)
13225
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet/PathNegatedPropertySet.2.4|
13226
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
13227
                                                                     (COND
13228
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
13229
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
13230
                                                                       (|PathNegatedPropertySet/PathNegatedPropertySet.2.5|
13231
                                                                        (1+ ATN-PARSER::INDEX)))
13232
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|) NIL)))))
13233
                                 (|PathNegatedPropertySet/PathNegatedPropertySet.2.5| (ATN-PARSER::INDEX)
13234
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet/PathNegatedPropertySet.2.5|
13235
                                                    (%ATN-EDGE-BLOCK
13236
                                                     (ATN-PARSER::JUMP
13237
                                                      |PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.7|)
13238
                                                     (|PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.7|
13239
                                                      ATN-PARSER::INDEX))
13240
                                                    (%ATN-EDGE-BLOCK
13241
                                                     (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.2.6|)
13242
                                                     (|PathNegatedPropertySet/PathNegatedPropertySet.2.6| ATN-PARSER::INDEX))))
13243
                                 (|PathNegatedPropertySet/PathNegatedPropertySet.2.6| (ATN-PARSER::INDEX)
13244
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet/PathNegatedPropertySet.2.6|
13245
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
13246
                                                                     (COND
13247
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
13248
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
13249
                                                                       (|PathNegatedPropertySet.2| (1+ ATN-PARSER::INDEX)))
13250
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|) NIL)))))
13251
                                 (|PathNegatedPropertySet/PathNegatedPropertySet.9.10| (ATN-PARSER::INDEX)
13252
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet/PathNegatedPropertySet.9.10|
13253
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|\||)
13254
                                                                     (COND
13255
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|\||)
13256
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|\||)
13257
                                                                       (|PathNegatedPropertySet/PathNegatedPropertySet.9.11|
13258
                                                                        (1+ ATN-PARSER::INDEX)))
13259
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|\||) NIL)))))
13260
                                 (|PathNegatedPropertySet/PathNegatedPropertySet.9.11| (ATN-PARSER::INDEX)
13261
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet/PathNegatedPropertySet.9.11|
13262
                                                    (%ATN-EDGE-BLOCK (PUSH |PathOneInPropertySet|)
13263
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13264
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathOneInPropertySet|
13265
                                                                                                  ATN-PARSER::INDEX)
13266
                                                                       (COND
13267
                                                                        (ATN-PARSER::SUCCESS
13268
                                                                         (SETF *ATN-TERM* '|PathOneInPropertySet|)
13269
                                                                         (LET ((|PathOneInPropertySet678| |PathOneInPropertySet|))
13270
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13271
                                                                             (DESTRUCTURING-BIND
13272
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13273
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13274
                                                                               (WHEN ATN-PARSER::RESULT
13275
                                                                                 (SETF |PathOneInPropertySet|
13276
                                                                                         (CONS ATN-PARSER::RESULT
13277
                                                                                               |PathOneInPropertySet|)))
13278
                                                                               (|PathNegatedPropertySet.9|
13279
                                                                                ATN-PARSER::RESULT-INDEX))
13280
                                                                             (SETF |PathOneInPropertySet|
13281
                                                                                     |PathOneInPropertySet678|))))
13282
                                                                        (T (SETF *ATN-TERM?* '|PathOneInPropertySet|) NIL))))))
13283
                                 (|PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.7| (ATN-PARSER::INDEX)
13284
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.7|
13285
                                                    (%ATN-EDGE-BLOCK (PUSH |PathOneInPropertySet|)
13286
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13287
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathOneInPropertySet|
13288
                                                                                                  ATN-PARSER::INDEX)
13289
                                                                       (COND
13290
                                                                        (ATN-PARSER::SUCCESS
13291
                                                                         (SETF *ATN-TERM* '|PathOneInPropertySet|)
13292
                                                                         (LET ((|PathOneInPropertySet679| |PathOneInPropertySet|))
13293
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13294
                                                                             (DESTRUCTURING-BIND
13295
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13296
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13297
                                                                               (WHEN ATN-PARSER::RESULT
13298
                                                                                 (SETF |PathOneInPropertySet|
13299
                                                                                         (CONS ATN-PARSER::RESULT
13300
                                                                                               |PathOneInPropertySet|)))
13301
                                                                               (|PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.8|
13302
                                                                                ATN-PARSER::RESULT-INDEX))
13303
                                                                             (SETF |PathOneInPropertySet|
13304
                                                                                     |PathOneInPropertySet679|))))
13305
                                                                        (T (SETF *ATN-TERM?* '|PathOneInPropertySet|) NIL))))))
13306
                                 (|PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.8| (ATN-PARSER::INDEX)
13307
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.8|
13308
                                                    (%ATN-EDGE-BLOCK
13309
                                                     (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.9.10|)
13310
                                                     (|PathNegatedPropertySet/PathNegatedPropertySet.9.10| ATN-PARSER::INDEX))
13311
                                                    (%ATN-EDGE-BLOCK
13312
                                                     (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.2.6|)
13313
                                                     (|PathNegatedPropertySet/PathNegatedPropertySet.2.6| ATN-PARSER::INDEX))))
13314
                                 (|PathNegatedPropertySet/start.1| (ATN-PARSER::INDEX)
13315
                                   (%ATN-NODE-BLOCK |PathNegatedPropertySet/start.1|
13316
                                                    (%ATN-EDGE-BLOCK OR
13317
                                                                     (PROGN
13318
                                                                      (%ATN-EDGE-BLOCK (PUSH |PathOneInPropertySet|)
13319
                                                                                       (MULTIPLE-VALUE-BIND
13320
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13321
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
13322
                                                                                            '|PathOneInPropertySet|
13323
                                                                                            ATN-PARSER::INDEX)
13324
                                                                                         (COND
13325
                                                                                          (ATN-PARSER::SUCCESS
13326
                                                                                           (SETF *ATN-TERM* '|PathOneInPropertySet|)
13327
                                                                                           (LET ((|PathOneInPropertySet677|
13328
                                                                                                  |PathOneInPropertySet|))
13329
                                                                                             (DOLIST
13330
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
13331
                                                                                                  ATN-PARSER::RESULT)
13332
                                                                                               (DESTRUCTURING-BIND
13333
                                                                                                   (
13334
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13335
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
13336
                                                                                                 (WHEN ATN-PARSER::RESULT
13337
                                                                                                   (SETF |PathOneInPropertySet|
13338
                                                                                                           (CONS ATN-PARSER::RESULT
13339
                                                                                                                 |PathOneInPropertySet|)))
13340
                                                                                                 (|PathNegatedPropertySet.2|
13341
                                                                                                  ATN-PARSER::RESULT-INDEX))
13342
                                                                                               (SETF |PathOneInPropertySet|
13343
                                                                                                       |PathOneInPropertySet677|))))
13344
                                                                                          (T
13345
                                                                                           (SETF *ATN-TERM?*
13346
                                                                                                   '|PathOneInPropertySet|)
13347
                                                                                           NIL))))
13348
                                                                      (%ATN-EDGE-BLOCK
13349
                                                                       (ATN-PARSER::JUMP
13350
                                                                        |PathNegatedPropertySet/PathNegatedPropertySet.2.4|)
13351
                                                                       (|PathNegatedPropertySet/PathNegatedPropertySet.2.4|
13352
                                                                        ATN-PARSER::INDEX))
13353
                                                                      (|PathNegatedPropertySet/fail.3| ATN-PARSER::INDEX))))))
13354
                          (|PathNegatedPropertySet/start.1| ATN-PARSER::INDEX)
13355
                          (SETF *ATN-NODE NIL)
13356
                          NIL
13357
                          (IF ATN-PARSER::ATN-STRUCTURE
13358
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
13359
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
13360
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathNegatedPropertySet| ATN-PARSER::INDEX *ATN-STACK))))
13361
 (PROGN
13362
  (DEFVAR |PathOneInPropertySet-INDEX|)
13363
  (DEFUN |PathOneInPropertySet| (ATN-PARSER::INDEX &AUX (|PathInvertOp| NIL) (|PathVerb| NIL))
13364
    "{90} PathOneInPropertySet ::= (PathVerb | (PathInvertOp PathVerb))
13365
 (|PathInvertOp| |PathVerb|)"
13366
    (DECLARE (SPECIAL |PathOneInPropertySet-INDEX|))
13367
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathOneInPropertySet-INDEX| *ATN-LEVEL))
13368
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
13369
    (IF (< |PathOneInPropertySet-INDEX| ATN-PARSER::INDEX)
13370
        (LET ((|PathOneInPropertySet-INDEX| ATN-PARSER::INDEX)
13371
              (*ATN-LEVEL (1+ *ATN-LEVEL))
13372
              (*ATN-STACK (CONS '|PathOneInPropertySet| *ATN-STACK))
13373
              (ATN-PARSER::ATN-STRUCTURE NIL))
13374
          (DECLARE (SPECIAL |PathOneInPropertySet-INDEX|))
13375
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
13376
          (DECLARE (TYPE CONS *ATN-STACK))
13377
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
13378
            (%ATN-BLOCK |PathOneInPropertySet|
13379
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
13380
                                   (SETF *ATN-TERM* '|PathOneInPropertySet|)
13381
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
13382
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
13383
                                   ATN-PARSER::INDEX)
13384
                                 (|PathOneInPropertySet.2| (ATN-PARSER::INDEX)
13385
                                   (%ATN-NODE-BLOCK |PathOneInPropertySet.2|
13386
                                                    (%ATN-EDGE-BLOCK (POP |PathOneInPropertySet|)
13387
                                                                     (WHEN T
13388
                                                                       (SETF *ATN-TERM* '|PathOneInPropertySet|)
13389
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
13390
                                                                                   '|PathOneInPropertySet| ATN-PARSER::INDEX
13391
                                                                                   (LIST '|PathInvertOp| |PathInvertOp| '|PathVerb|
13392
                                                                                         |PathVerb|))
13393
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
13394
                                                                              (IF (EQ *ATN-REDUCE* T)
13395
                                                                                  (|PathOneInPropertySet-Constructor| |PathInvertOp|
13396
                                                                                                                      |PathVerb|)
13397
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
13398
                                                                                      (CONS '|PathOneInPropertySet|
13399
                                                                                            (DELETE NIL
13400
                                                                                                    (LIST |PathInvertOp|
13401
                                                                                                          |PathVerb|)))
13402
                                                                                      '|PathOneInPropertySet|))))
13403
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
13404
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
13405
                                 (|PathOneInPropertySet/fail.3| (ATN-PARSER::INDEX)
13406
                                   (%ATN-NODE-BLOCK |PathOneInPropertySet/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
13407
                                 (|PathOneInPropertySet/PathOneInPropertySet.2.4| (ATN-PARSER::INDEX)
13408
                                   (%ATN-NODE-BLOCK |PathOneInPropertySet/PathOneInPropertySet.2.4|
13409
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |PathInvertOp|)
13410
                                                                     (COND
13411
                                                                      ((|IS-PathInvertOp| ATN-PARSER::|item|)
13412
                                                                       (SETF *ATN-TERM* '|PathInvertOp|)
13413
                                                                       (SETF |PathInvertOp|
13414
                                                                               (IF (EQ *ATN-REDUCE* T)
13415
                                                                                   (ATN-REDUCE-ITEM #'|PathInvertOp-Constructor|
13416
                                                                                                    ATN-PARSER::|item|)
13417
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
13418
                                                                                       (LIST '|PathInvertOp| ATN-PARSER::|item|)
13419
                                                                                       '|PathInvertOp|)))
13420
                                                                       (|PathOneInPropertySet/PathOneInPropertySet.2.5|
13421
                                                                        (1+ ATN-PARSER::INDEX)))
13422
                                                                      (T (SETF *ATN-TERM* '|PathInvertOp|) NIL)))))
13423
                                 (|PathOneInPropertySet/PathOneInPropertySet.2.5| (ATN-PARSER::INDEX)
13424
                                   (%ATN-NODE-BLOCK |PathOneInPropertySet/PathOneInPropertySet.2.5|
13425
                                                    (%ATN-EDGE-BLOCK (PUSH |PathVerb|)
13426
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13427
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PathVerb| ATN-PARSER::INDEX)
13428
                                                                       (COND
13429
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PathVerb|)
13430
                                                                         (LET ((|PathVerb681| |PathVerb|))
13431
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13432
                                                                             (DESTRUCTURING-BIND
13433
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13434
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13435
                                                                               (WHEN ATN-PARSER::RESULT
13436
                                                                                 (SETF |PathVerb| ATN-PARSER::RESULT))
13437
                                                                               (|PathOneInPropertySet.2| ATN-PARSER::RESULT-INDEX))
13438
                                                                             (SETF |PathVerb| |PathVerb681|))))
13439
                                                                        (T (SETF *ATN-TERM?* '|PathVerb|) NIL))))))
13440
                                 (|PathOneInPropertySet/start.1| (ATN-PARSER::INDEX)
13441
                                   (%ATN-NODE-BLOCK |PathOneInPropertySet/start.1|
13442
                                                    (%ATN-EDGE-BLOCK OR
13443
                                                                     (PROGN
13444
                                                                      (%ATN-EDGE-BLOCK (PUSH |PathVerb|)
13445
                                                                                       (MULTIPLE-VALUE-BIND
13446
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13447
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|PathVerb|
13448
                                                                                                                    ATN-PARSER::INDEX)
13449
                                                                                         (COND
13450
                                                                                          (ATN-PARSER::SUCCESS
13451
                                                                                           (SETF *ATN-TERM* '|PathVerb|)
13452
                                                                                           (LET ((|PathVerb680| |PathVerb|))
13453
                                                                                             (DOLIST
13454
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
13455
                                                                                                  ATN-PARSER::RESULT)
13456
                                                                                               (DESTRUCTURING-BIND
13457
                                                                                                   (
13458
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13459
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
13460
                                                                                                 (WHEN ATN-PARSER::RESULT
13461
                                                                                                   (SETF |PathVerb|
13462
                                                                                                           ATN-PARSER::RESULT))
13463
                                                                                                 (|PathOneInPropertySet.2|
13464
                                                                                                  ATN-PARSER::RESULT-INDEX))
13465
                                                                                               (SETF |PathVerb| |PathVerb680|))))
13466
                                                                                          (T (SETF *ATN-TERM?* '|PathVerb|) NIL))))
13467
                                                                      (%ATN-EDGE-BLOCK
13468
                                                                       (ATN-PARSER::JUMP
13469
                                                                        |PathOneInPropertySet/PathOneInPropertySet.2.4|)
13470
                                                                       (|PathOneInPropertySet/PathOneInPropertySet.2.4|
13471
                                                                        ATN-PARSER::INDEX))
13472
                                                                      (|PathOneInPropertySet/fail.3| ATN-PARSER::INDEX))))))
13473
                          (|PathOneInPropertySet/start.1| ATN-PARSER::INDEX)
13474
                          (SETF *ATN-NODE NIL)
13475
                          NIL
13476
                          (IF ATN-PARSER::ATN-STRUCTURE
13477
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
13478
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
13479
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathOneInPropertySet| ATN-PARSER::INDEX *ATN-STACK))))
13480
 (PROGN
13481
  (DEFVAR |TriplesNode-INDEX|)
13482
  (DEFUN |TriplesNode| (ATN-PARSER::INDEX &AUX (|BlankNodePropertyList| NIL) (|Collection| NIL))
13483
    "{92} TriplesNode ::= (Collection | BlankNodePropertyList)
13484
 (|BlankNodePropertyList| |Collection|)"
13485
    (DECLARE (SPECIAL |TriplesNode-INDEX|))
13486
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesNode-INDEX| *ATN-LEVEL))
13487
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
13488
    (IF (< |TriplesNode-INDEX| ATN-PARSER::INDEX)
13489
        (LET ((|TriplesNode-INDEX| ATN-PARSER::INDEX)
13490
              (*ATN-LEVEL (1+ *ATN-LEVEL))
13491
              (*ATN-STACK (CONS '|TriplesNode| *ATN-STACK))
13492
              (ATN-PARSER::ATN-STRUCTURE NIL))
13493
          (DECLARE (SPECIAL |TriplesNode-INDEX|))
13494
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
13495
          (DECLARE (TYPE CONS *ATN-STACK))
13496
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
13497
            (%ATN-BLOCK |TriplesNode|
13498
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
13499
                                   (SETF *ATN-TERM* '|TriplesNode|)
13500
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
13501
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
13502
                                   ATN-PARSER::INDEX)
13503
                                 (|TriplesNode.2| (ATN-PARSER::INDEX)
13504
                                   (%ATN-NODE-BLOCK |TriplesNode.2|
13505
                                                    (%ATN-EDGE-BLOCK (POP |TriplesNode|)
13506
                                                                     (WHEN T
13507
                                                                       (SETF *ATN-TERM* '|TriplesNode|)
13508
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
13509
                                                                                   '|TriplesNode| ATN-PARSER::INDEX
13510
                                                                                   (LIST '|BlankNodePropertyList|
13511
                                                                                         |BlankNodePropertyList| '|Collection|
13512
                                                                                         |Collection|))
13513
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
13514
                                                                              (IF (EQ *ATN-REDUCE* T)
13515
                                                                                  (|TriplesNode-Constructor| |BlankNodePropertyList|
13516
                                                                                                             |Collection|)
13517
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
13518
                                                                                      (CONS '|TriplesNode|
13519
                                                                                            (DELETE NIL
13520
                                                                                                    (LIST |BlankNodePropertyList|
13521
                                                                                                          |Collection|)))
13522
                                                                                      '|TriplesNode|))))
13523
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
13524
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
13525
                                 (|TriplesNode/fail.3| (ATN-PARSER::INDEX)
13526
                                   (%ATN-NODE-BLOCK |TriplesNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
13527
                                 (|TriplesNode/start.1| (ATN-PARSER::INDEX)
13528
                                   (%ATN-NODE-BLOCK |TriplesNode/start.1|
13529
                                                    (%ATN-EDGE-BLOCK OR
13530
                                                                     (PROGN
13531
                                                                      (%ATN-EDGE-BLOCK (PUSH |Collection|)
13532
                                                                                       (MULTIPLE-VALUE-BIND
13533
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13534
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Collection|
13535
                                                                                                                    ATN-PARSER::INDEX)
13536
                                                                                         (COND
13537
                                                                                          (ATN-PARSER::SUCCESS
13538
                                                                                           (SETF *ATN-TERM* '|Collection|)
13539
                                                                                           (LET ((|Collection682| |Collection|))
13540
                                                                                             (DOLIST
13541
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
13542
                                                                                                  ATN-PARSER::RESULT)
13543
                                                                                               (DESTRUCTURING-BIND
13544
                                                                                                   (
13545
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13546
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
13547
                                                                                                 (WHEN ATN-PARSER::RESULT
13548
                                                                                                   (SETF |Collection|
13549
                                                                                                           ATN-PARSER::RESULT))
13550
                                                                                                 (|TriplesNode.2|
13551
                                                                                                  ATN-PARSER::RESULT-INDEX))
13552
                                                                                               (SETF |Collection|
13553
                                                                                                       |Collection682|))))
13554
                                                                                          (T (SETF *ATN-TERM?* '|Collection|)
13555
                                                                                           NIL))))
13556
                                                                      (%ATN-EDGE-BLOCK (PUSH |BlankNodePropertyList|)
13557
                                                                                       (MULTIPLE-VALUE-BIND
13558
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13559
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
13560
                                                                                            '|BlankNodePropertyList|
13561
                                                                                            ATN-PARSER::INDEX)
13562
                                                                                         (COND
13563
                                                                                          (ATN-PARSER::SUCCESS
13564
                                                                                           (SETF *ATN-TERM*
13565
                                                                                                   '|BlankNodePropertyList|)
13566
                                                                                           (LET ((|BlankNodePropertyList683|
13567
                                                                                                  |BlankNodePropertyList|))
13568
                                                                                             (DOLIST
13569
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
13570
                                                                                                  ATN-PARSER::RESULT)
13571
                                                                                               (DESTRUCTURING-BIND
13572
                                                                                                   (
13573
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13574
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
13575
                                                                                                 (WHEN ATN-PARSER::RESULT
13576
                                                                                                   (SETF |BlankNodePropertyList|
13577
                                                                                                           ATN-PARSER::RESULT))
13578
                                                                                                 (|TriplesNode.2|
13579
                                                                                                  ATN-PARSER::RESULT-INDEX))
13580
                                                                                               (SETF |BlankNodePropertyList|
13581
                                                                                                       |BlankNodePropertyList683|))))
13582
                                                                                          (T
13583
                                                                                           (SETF *ATN-TERM?*
13584
                                                                                                   '|BlankNodePropertyList|)
13585
                                                                                           NIL))))
13586
                                                                      (|TriplesNode/fail.3| ATN-PARSER::INDEX))))))
13587
                          (|TriplesNode/start.1| ATN-PARSER::INDEX)
13588
                          (SETF *ATN-NODE NIL)
13589
                          NIL
13590
                          (IF ATN-PARSER::ATN-STRUCTURE
13591
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
13592
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
13593
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesNode| ATN-PARSER::INDEX *ATN-STACK))))
13594
 (PROGN
13595
  (DEFVAR |BlankNodePropertyList-INDEX|)
13596
  (DEFUN |BlankNodePropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))
13597
    "{93} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'
13598
 (|PropertyListNotEmpty|)"
13599
    (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))
13600
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNodePropertyList-INDEX| *ATN-LEVEL))
13601
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
13602
    (IF (< |BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)
13603
        (LET ((|BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)
13604
              (*ATN-LEVEL (1+ *ATN-LEVEL))
13605
              (*ATN-STACK (CONS '|BlankNodePropertyList| *ATN-STACK))
13606
              (ATN-PARSER::ATN-STRUCTURE NIL))
13607
          (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))
13608
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
13609
          (DECLARE (TYPE CONS *ATN-STACK))
13610
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
13611
            (%ATN-BLOCK |BlankNodePropertyList|
13612
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
13613
                                   (SETF *ATN-TERM* '|BlankNodePropertyList|)
13614
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
13615
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
13616
                                   ATN-PARSER::INDEX)
13617
                                 (|BlankNodePropertyList.2| (ATN-PARSER::INDEX)
13618
                                   (%ATN-NODE-BLOCK |BlankNodePropertyList.2|
13619
                                                    (%ATN-EDGE-BLOCK (POP |BlankNodePropertyList|)
13620
                                                                     (WHEN T
13621
                                                                       (SETF *ATN-TERM* '|BlankNodePropertyList|)
13622
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
13623
                                                                                   '|BlankNodePropertyList| ATN-PARSER::INDEX
13624
                                                                                   (LIST '|PropertyListNotEmpty|
13625
                                                                                         |PropertyListNotEmpty|))
13626
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
13627
                                                                              (IF (EQ *ATN-REDUCE* T)
13628
                                                                                  (|BlankNodePropertyList-Constructor|
13629
                                                                                   |PropertyListNotEmpty|)
13630
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
13631
                                                                                      (CONS '|BlankNodePropertyList|
13632
                                                                                            (DELETE NIL
13633
                                                                                                    (LIST |PropertyListNotEmpty|)))
13634
                                                                                      '|BlankNodePropertyList|))))
13635
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
13636
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
13637
                                 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (ATN-PARSER::INDEX)
13638
                                   (%ATN-NODE-BLOCK |BlankNodePropertyList/BlankNodePropertyList.2.4|
13639
                                                    (%ATN-EDGE-BLOCK (PUSH |PropertyListNotEmpty|)
13640
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13641
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty|
13642
                                                                                                  ATN-PARSER::INDEX)
13643
                                                                       (COND
13644
                                                                        (ATN-PARSER::SUCCESS
13645
                                                                         (SETF *ATN-TERM* '|PropertyListNotEmpty|)
13646
                                                                         (LET ((|PropertyListNotEmpty684| |PropertyListNotEmpty|))
13647
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13648
                                                                             (DESTRUCTURING-BIND
13649
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13650
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13651
                                                                               (WHEN ATN-PARSER::RESULT
13652
                                                                                 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))
13653
                                                                               (|BlankNodePropertyList/BlankNodePropertyList.2.5|
13654
                                                                                ATN-PARSER::RESULT-INDEX))
13655
                                                                             (SETF |PropertyListNotEmpty|
13656
                                                                                     |PropertyListNotEmpty684|))))
13657
                                                                        (T (SETF *ATN-TERM?* '|PropertyListNotEmpty|)
13658
                                                                         (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))
13659
                                 (|BlankNodePropertyList/BlankNodePropertyList.2.5| (ATN-PARSER::INDEX)
13660
                                   (%ATN-NODE-BLOCK |BlankNodePropertyList/BlankNodePropertyList.2.5|
13661
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:])
13662
                                                                     (COND
13663
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:])
13664
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:])
13665
                                                                       (|BlankNodePropertyList.2| (1+ ATN-PARSER::INDEX)))
13666
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:])
13667
                                                                       (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX))))))
13668
                                 (|BlankNodePropertyList/fail.3| (ATN-PARSER::INDEX)
13669
                                   (%ATN-NODE-BLOCK |BlankNodePropertyList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
13670
                                 (|BlankNodePropertyList/start.1| (ATN-PARSER::INDEX)
13671
                                   (%ATN-NODE-BLOCK |BlankNodePropertyList/start.1|
13672
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:[)
13673
                                                                     (COND
13674
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)
13675
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:[)
13676
                                                                       (|BlankNodePropertyList/BlankNodePropertyList.2.4|
13677
                                                                        (1+ ATN-PARSER::INDEX)))
13678
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:[)
13679
                                                                       (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))
13680
                          (|BlankNodePropertyList/start.1| ATN-PARSER::INDEX)
13681
                          (SETF *ATN-NODE NIL)
13682
                          NIL
13683
                          (IF ATN-PARSER::ATN-STRUCTURE
13684
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
13685
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
13686
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNodePropertyList| ATN-PARSER::INDEX *ATN-STACK))))
13687
 (PROGN
13688
  (DEFVAR |Collection-INDEX|)
13689
  (DEFUN |Collection| (ATN-PARSER::INDEX &AUX (|DottedNode| NIL) (|GraphNode| NIL))
13690
    "{94} Collection ::= '(' GraphNode+ ('.' DottedNode)? ')'
13691
 (|DottedNode| |GraphNode|)"
13692
    (DECLARE (SPECIAL |Collection-INDEX|))
13693
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Collection-INDEX| *ATN-LEVEL))
13694
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
13695
    (IF (< |Collection-INDEX| ATN-PARSER::INDEX)
13696
        (LET ((|Collection-INDEX| ATN-PARSER::INDEX)
13697
              (*ATN-LEVEL (1+ *ATN-LEVEL))
13698
              (*ATN-STACK (CONS '|Collection| *ATN-STACK))
13699
              (ATN-PARSER::ATN-STRUCTURE NIL))
13700
          (DECLARE (SPECIAL |Collection-INDEX|))
13701
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
13702
          (DECLARE (TYPE CONS *ATN-STACK))
13703
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
13704
            (%ATN-BLOCK |Collection|
13705
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
13706
                                   (SETF *ATN-TERM* '|Collection|)
13707
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
13708
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
13709
                                   ATN-PARSER::INDEX)
13710
                                 (|Collection.2| (ATN-PARSER::INDEX)
13711
                                   (%ATN-NODE-BLOCK |Collection.2|
13712
                                                    (%ATN-EDGE-BLOCK (POP |Collection|)
13713
                                                                     (WHEN T
13714
                                                                       (SETF *ATN-TERM* '|Collection|)
13715
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
13716
                                                                                   '|Collection| ATN-PARSER::INDEX
13717
                                                                                   (LIST '|DottedNode| |DottedNode| '|GraphNode|
13718
                                                                                         |GraphNode|))
13719
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
13720
                                                                              (IF (EQ *ATN-REDUCE* T)
13721
                                                                                  (|Collection-Constructor| |DottedNode|
13722
                                                                                                            |GraphNode|)
13723
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
13724
                                                                                      (CONS '|Collection|
13725
                                                                                            (DELETE NIL
13726
                                                                                                    (LIST |DottedNode|
13727
                                                                                                          |GraphNode|)))
13728
                                                                                      '|Collection|))))
13729
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
13730
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
13731
                                 (|Collection.7| (ATN-PARSER::INDEX)
13732
                                   (%ATN-NODE-BLOCK |Collection.7|
13733
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphNode|)
13734
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13735
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)
13736
                                                                       (COND
13737
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphNode|)
13738
                                                                         (LET ((|GraphNode687| |GraphNode|))
13739
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13740
                                                                             (DESTRUCTURING-BIND
13741
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13742
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13743
                                                                               (WHEN ATN-PARSER::RESULT
13744
                                                                                 (SETF |GraphNode|
13745
                                                                                         (CONS ATN-PARSER::RESULT |GraphNode|)))
13746
                                                                               (|Collection.7| ATN-PARSER::RESULT-INDEX))
13747
                                                                             (SETF |GraphNode| |GraphNode687|))))
13748
                                                                        (T (SETF *ATN-TERM?* '|GraphNode|)
13749
                                                                         (|Collection/Collection.2.5| ATN-PARSER::INDEX)))))))
13750
                                 (|Collection/Collection.2.4| (ATN-PARSER::INDEX)
13751
                                   (%ATN-NODE-BLOCK |Collection/Collection.2.4|
13752
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphNode|)
13753
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13754
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)
13755
                                                                       (COND
13756
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphNode|)
13757
                                                                         (LET ((|GraphNode686| |GraphNode|))
13758
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13759
                                                                             (DESTRUCTURING-BIND
13760
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13761
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13762
                                                                               (WHEN ATN-PARSER::RESULT
13763
                                                                                 (SETF |GraphNode|
13764
                                                                                         (CONS ATN-PARSER::RESULT |GraphNode|)))
13765
                                                                               (|Collection.7| ATN-PARSER::RESULT-INDEX))
13766
                                                                             (SETF |GraphNode| |GraphNode686|))))
13767
                                                                        (T (SETF *ATN-TERM?* '|GraphNode|)
13768
                                                                         (|Collection/fail.3| ATN-PARSER::INDEX)))))))
13769
                                 (|Collection/Collection.2.5| (ATN-PARSER::INDEX)
13770
                                   (%ATN-NODE-BLOCK |Collection/Collection.2.5|
13771
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Collection/Collection/Collection.2.6.8|)
13772
                                                                     (|Collection/Collection/Collection.2.6.8| ATN-PARSER::INDEX))
13773
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |Collection/Collection.2.6|)
13774
                                                                     (|Collection/Collection.2.6| ATN-PARSER::INDEX))))
13775
                                 (|Collection/Collection.2.6| (ATN-PARSER::INDEX)
13776
                                   (%ATN-NODE-BLOCK |Collection/Collection.2.6|
13777
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
13778
                                                                     (COND
13779
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
13780
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
13781
                                                                       (|Collection.2| (1+ ATN-PARSER::INDEX)))
13782
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
13783
                                                                       (|Collection/fail.3| ATN-PARSER::INDEX))))))
13784
                                 (|Collection/Collection/Collection.2.6.8| (ATN-PARSER::INDEX)
13785
                                   (%ATN-NODE-BLOCK |Collection/Collection/Collection.2.6.8|
13786
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)
13787
                                                                     (COND
13788
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)
13789
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|.|)
13790
                                                                       (|Collection/Collection/Collection.2.6.9|
13791
                                                                        (1+ ATN-PARSER::INDEX)))
13792
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))
13793
                                 (|Collection/Collection/Collection.2.6.9| (ATN-PARSER::INDEX)
13794
                                   (%ATN-NODE-BLOCK |Collection/Collection/Collection.2.6.9|
13795
                                                    (%ATN-EDGE-BLOCK (PUSH |DottedNode|)
13796
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13797
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|DottedNode| ATN-PARSER::INDEX)
13798
                                                                       (COND
13799
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|DottedNode|)
13800
                                                                         (LET ((|DottedNode685| |DottedNode|))
13801
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13802
                                                                             (DESTRUCTURING-BIND
13803
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13804
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13805
                                                                               (WHEN ATN-PARSER::RESULT
13806
                                                                                 (SETF |DottedNode| ATN-PARSER::RESULT))
13807
                                                                               (|Collection/Collection.2.6|
13808
                                                                                ATN-PARSER::RESULT-INDEX))
13809
                                                                             (SETF |DottedNode| |DottedNode685|))))
13810
                                                                        (T (SETF *ATN-TERM?* '|DottedNode|) NIL))))))
13811
                                 (|Collection/fail.3| (ATN-PARSER::INDEX)
13812
                                   (%ATN-NODE-BLOCK |Collection/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
13813
                                 (|Collection/start.1| (ATN-PARSER::INDEX)
13814
                                   (%ATN-NODE-BLOCK |Collection/start.1|
13815
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
13816
                                                                     (COND
13817
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
13818
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
13819
                                                                       (|Collection/Collection.2.4| (1+ ATN-PARSER::INDEX)))
13820
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
13821
                                                                       (|Collection/fail.3| ATN-PARSER::INDEX)))))))
13822
                          (|Collection/start.1| ATN-PARSER::INDEX)
13823
                          (SETF *ATN-NODE NIL)
13824
                          NIL
13825
                          (IF ATN-PARSER::ATN-STRUCTURE
13826
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
13827
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
13828
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Collection| ATN-PARSER::INDEX *ATN-STACK))))
13829
 (PROGN
13830
  (DEFVAR |GraphNode-INDEX|)
13831
  (DEFUN |GraphNode| (ATN-PARSER::INDEX &AUX (|TriplesNode| NIL) (|VarOrTermOrGroup| NIL))
13832
    "{95} GraphNode ::= (VarOrTermOrGroup | TriplesNode)
13833
 (|TriplesNode| |VarOrTermOrGroup|)"
13834
    (DECLARE (SPECIAL |GraphNode-INDEX|))
13835
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphNode-INDEX| *ATN-LEVEL))
13836
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
13837
    (IF (< |GraphNode-INDEX| ATN-PARSER::INDEX)
13838
        (LET ((|GraphNode-INDEX| ATN-PARSER::INDEX)
13839
              (*ATN-LEVEL (1+ *ATN-LEVEL))
13840
              (*ATN-STACK (CONS '|GraphNode| *ATN-STACK))
13841
              (ATN-PARSER::ATN-STRUCTURE NIL))
13842
          (DECLARE (SPECIAL |GraphNode-INDEX|))
13843
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
13844
          (DECLARE (TYPE CONS *ATN-STACK))
13845
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
13846
            (%ATN-BLOCK |GraphNode|
13847
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
13848
                                   (SETF *ATN-TERM* '|GraphNode|)
13849
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
13850
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
13851
                                   ATN-PARSER::INDEX)
13852
                                 (|GraphNode.2| (ATN-PARSER::INDEX)
13853
                                   (%ATN-NODE-BLOCK |GraphNode.2|
13854
                                                    (%ATN-EDGE-BLOCK (POP |GraphNode|)
13855
                                                                     (WHEN T
13856
                                                                       (SETF *ATN-TERM* '|GraphNode|)
13857
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|GraphNode|
13858
                                                                                   ATN-PARSER::INDEX
13859
                                                                                   (LIST '|TriplesNode| |TriplesNode|
13860
                                                                                         '|VarOrTermOrGroup| |VarOrTermOrGroup|))
13861
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
13862
                                                                              (IF (EQ *ATN-REDUCE* T)
13863
                                                                                  (|GraphNode-Constructor| |TriplesNode|
13864
                                                                                                           |VarOrTermOrGroup|)
13865
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
13866
                                                                                      (CONS '|GraphNode|
13867
                                                                                            (DELETE NIL
13868
                                                                                                    (LIST |TriplesNode|
13869
                                                                                                          |VarOrTermOrGroup|)))
13870
                                                                                      '|GraphNode|))))
13871
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
13872
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
13873
                                 (|GraphNode/fail.3| (ATN-PARSER::INDEX)
13874
                                   (%ATN-NODE-BLOCK |GraphNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
13875
                                 (|GraphNode/start.1| (ATN-PARSER::INDEX)
13876
                                   (%ATN-NODE-BLOCK |GraphNode/start.1|
13877
                                                    (%ATN-EDGE-BLOCK OR
13878
                                                                     (PROGN
13879
                                                                      (%ATN-EDGE-BLOCK (PUSH |VarOrTermOrGroup|)
13880
                                                                                       (MULTIPLE-VALUE-BIND
13881
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13882
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
13883
                                                                                            '|VarOrTermOrGroup| ATN-PARSER::INDEX)
13884
                                                                                         (COND
13885
                                                                                          (ATN-PARSER::SUCCESS
13886
                                                                                           (SETF *ATN-TERM* '|VarOrTermOrGroup|)
13887
                                                                                           (LET ((|VarOrTermOrGroup688|
13888
                                                                                                  |VarOrTermOrGroup|))
13889
                                                                                             (DOLIST
13890
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
13891
                                                                                                  ATN-PARSER::RESULT)
13892
                                                                                               (DESTRUCTURING-BIND
13893
                                                                                                   (
13894
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13895
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
13896
                                                                                                 (WHEN ATN-PARSER::RESULT
13897
                                                                                                   (SETF |VarOrTermOrGroup|
13898
                                                                                                           ATN-PARSER::RESULT))
13899
                                                                                                 (|GraphNode.2|
13900
                                                                                                  ATN-PARSER::RESULT-INDEX))
13901
                                                                                               (SETF |VarOrTermOrGroup|
13902
                                                                                                       |VarOrTermOrGroup688|))))
13903
                                                                                          (T (SETF *ATN-TERM?* '|VarOrTermOrGroup|)
13904
                                                                                           NIL))))
13905
                                                                      (%ATN-EDGE-BLOCK (PUSH |TriplesNode|)
13906
                                                                                       (MULTIPLE-VALUE-BIND
13907
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13908
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode|
13909
                                                                                                                    ATN-PARSER::INDEX)
13910
                                                                                         (COND
13911
                                                                                          (ATN-PARSER::SUCCESS
13912
                                                                                           (SETF *ATN-TERM* '|TriplesNode|)
13913
                                                                                           (LET ((|TriplesNode689| |TriplesNode|))
13914
                                                                                             (DOLIST
13915
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
13916
                                                                                                  ATN-PARSER::RESULT)
13917
                                                                                               (DESTRUCTURING-BIND
13918
                                                                                                   (
13919
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13920
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
13921
                                                                                                 (WHEN ATN-PARSER::RESULT
13922
                                                                                                   (SETF |TriplesNode|
13923
                                                                                                           ATN-PARSER::RESULT))
13924
                                                                                                 (|GraphNode.2|
13925
                                                                                                  ATN-PARSER::RESULT-INDEX))
13926
                                                                                               (SETF |TriplesNode|
13927
                                                                                                       |TriplesNode689|))))
13928
                                                                                          (T (SETF *ATN-TERM?* '|TriplesNode|)
13929
                                                                                           NIL))))
13930
                                                                      (|GraphNode/fail.3| ATN-PARSER::INDEX))))))
13931
                          (|GraphNode/start.1| ATN-PARSER::INDEX)
13932
                          (SETF *ATN-NODE NIL)
13933
                          NIL
13934
                          (IF ATN-PARSER::ATN-STRUCTURE
13935
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
13936
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
13937
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphNode| ATN-PARSER::INDEX *ATN-STACK))))
13938
 (PROGN
13939
  (DEFVAR |DottedNode-INDEX|)
13940
  (DEFUN |DottedNode| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))
13941
    "{95a} DottedNode ::= GraphNode
13942
 (|GraphNode|)"
13943
    (DECLARE (SPECIAL |DottedNode-INDEX|))
13944
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DottedNode-INDEX| *ATN-LEVEL))
13945
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
13946
    (IF (< |DottedNode-INDEX| ATN-PARSER::INDEX)
13947
        (LET ((|DottedNode-INDEX| ATN-PARSER::INDEX)
13948
              (*ATN-LEVEL (1+ *ATN-LEVEL))
13949
              (*ATN-STACK (CONS '|DottedNode| *ATN-STACK))
13950
              (ATN-PARSER::ATN-STRUCTURE NIL))
13951
          (DECLARE (SPECIAL |DottedNode-INDEX|))
13952
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
13953
          (DECLARE (TYPE CONS *ATN-STACK))
13954
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
13955
            (%ATN-BLOCK |DottedNode|
13956
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
13957
                                   (SETF *ATN-TERM* '|DottedNode|)
13958
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
13959
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
13960
                                   ATN-PARSER::INDEX)
13961
                                 (|DottedNode.2| (ATN-PARSER::INDEX)
13962
                                   (%ATN-NODE-BLOCK |DottedNode.2|
13963
                                                    (%ATN-EDGE-BLOCK (POP |DottedNode|)
13964
                                                                     (WHEN T
13965
                                                                       (SETF *ATN-TERM* '|DottedNode|)
13966
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
13967
                                                                                   '|DottedNode| ATN-PARSER::INDEX
13968
                                                                                   (LIST '|GraphNode| |GraphNode|))
13969
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
13970
                                                                              (IF (EQ *ATN-REDUCE* T)
13971
                                                                                  (|DottedNode-Constructor| |GraphNode|)
13972
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
13973
                                                                                      (CONS '|DottedNode|
13974
                                                                                            (DELETE NIL (LIST |GraphNode|)))
13975
                                                                                      '|DottedNode|))))
13976
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
13977
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
13978
                                 (|DottedNode/fail.3| (ATN-PARSER::INDEX)
13979
                                   (%ATN-NODE-BLOCK |DottedNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
13980
                                 (|DottedNode/start.1| (ATN-PARSER::INDEX)
13981
                                   (%ATN-NODE-BLOCK |DottedNode/start.1|
13982
                                                    (%ATN-EDGE-BLOCK (PUSH |GraphNode|)
13983
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
13984
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)
13985
                                                                       (COND
13986
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GraphNode|)
13987
                                                                         (LET ((|GraphNode690| |GraphNode|))
13988
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
13989
                                                                             (DESTRUCTURING-BIND
13990
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
13991
                                                                                 ATN-PARSER::RESULT-AND-INDEX
13992
                                                                               (WHEN ATN-PARSER::RESULT
13993
                                                                                 (SETF |GraphNode| ATN-PARSER::RESULT))
13994
                                                                               (|DottedNode.2| ATN-PARSER::RESULT-INDEX))
13995
                                                                             (SETF |GraphNode| |GraphNode690|))))
13996
                                                                        (T (SETF *ATN-TERM?* '|GraphNode|)
13997
                                                                         (|DottedNode/fail.3| ATN-PARSER::INDEX))))))))
13998
                          (|DottedNode/start.1| ATN-PARSER::INDEX)
13999
                          (SETF *ATN-NODE NIL)
14000
                          NIL
14001
                          (IF ATN-PARSER::ATN-STRUCTURE
14002
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
14003
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
14004
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|DottedNode| ATN-PARSER::INDEX *ATN-STACK))))
14005
 (PROGN
14006
  (DEFVAR |VarOrTerm-INDEX|)
14007
  (DEFUN |VarOrTerm| (ATN-PARSER::INDEX &AUX (|GraphTerm| NIL) (|Var| NIL))
14008
    "{96} VarOrTerm ::= (Var | GraphTerm)
14009
 (|GraphTerm| |Var|)"
14010
    (DECLARE (SPECIAL |VarOrTerm-INDEX|))
14011
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrTerm-INDEX| *ATN-LEVEL))
14012
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
14013
    (IF (< |VarOrTerm-INDEX| ATN-PARSER::INDEX)
14014
        (LET ((|VarOrTerm-INDEX| ATN-PARSER::INDEX)
14015
              (*ATN-LEVEL (1+ *ATN-LEVEL))
14016
              (*ATN-STACK (CONS '|VarOrTerm| *ATN-STACK))
14017
              (ATN-PARSER::ATN-STRUCTURE NIL))
14018
          (DECLARE (SPECIAL |VarOrTerm-INDEX|))
14019
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
14020
          (DECLARE (TYPE CONS *ATN-STACK))
14021
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
14022
            (%ATN-BLOCK |VarOrTerm|
14023
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
14024
                                   (SETF *ATN-TERM* '|VarOrTerm|)
14025
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
14026
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
14027
                                   ATN-PARSER::INDEX)
14028
                                 (|VarOrTerm.2| (ATN-PARSER::INDEX)
14029
                                   (%ATN-NODE-BLOCK |VarOrTerm.2|
14030
                                                    (%ATN-EDGE-BLOCK (POP |VarOrTerm|)
14031
                                                                     (WHEN T
14032
                                                                       (SETF *ATN-TERM* '|VarOrTerm|)
14033
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|VarOrTerm|
14034
                                                                                   ATN-PARSER::INDEX
14035
                                                                                   (LIST '|GraphTerm| |GraphTerm| '|Var| |Var|))
14036
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
14037
                                                                              (IF (EQ *ATN-REDUCE* T)
14038
                                                                                  (|VarOrTerm-Constructor| |GraphTerm| |Var|)
14039
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
14040
                                                                                      (CONS '|VarOrTerm|
14041
                                                                                            (DELETE NIL (LIST |GraphTerm| |Var|)))
14042
                                                                                      '|VarOrTerm|))))
14043
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
14044
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
14045
                                 (|VarOrTerm/fail.3| (ATN-PARSER::INDEX)
14046
                                   (%ATN-NODE-BLOCK |VarOrTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
14047
                                 (|VarOrTerm/start.1| (ATN-PARSER::INDEX)
14048
                                   (%ATN-NODE-BLOCK |VarOrTerm/start.1|
14049
                                                    (%ATN-EDGE-BLOCK OR
14050
                                                                     (PROGN
14051
                                                                      (%ATN-EDGE-BLOCK (TEST |Var|)
14052
                                                                                       (COND
14053
                                                                                        ((|IS-Var| ATN-PARSER::|item|)
14054
                                                                                         (SETF *ATN-TERM* '|Var|)
14055
                                                                                         (SETF |Var|
14056
                                                                                                 (IF (EQ *ATN-REDUCE* T)
14057
                                                                                                     (ATN-REDUCE-ITEM
14058
                                                                                                      #'|Var-Constructor|
14059
                                                                                                      ATN-PARSER::|item|)
14060
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
14061
                                                                                                         (LIST '|Var|
14062
                                                                                                               ATN-PARSER::|item|)
14063
                                                                                                         '|Var|)))
14064
                                                                                         (|VarOrTerm.2| (1+ ATN-PARSER::INDEX)))
14065
                                                                                        (T (SETF *ATN-TERM?* '|Var|) NIL)))
14066
                                                                      (%ATN-EDGE-BLOCK (PUSH |GraphTerm|)
14067
                                                                                       (MULTIPLE-VALUE-BIND
14068
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14069
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|GraphTerm|
14070
                                                                                                                    ATN-PARSER::INDEX)
14071
                                                                                         (COND
14072
                                                                                          (ATN-PARSER::SUCCESS
14073
                                                                                           (SETF *ATN-TERM* '|GraphTerm|)
14074
                                                                                           (LET ((|GraphTerm691| |GraphTerm|))
14075
                                                                                             (DOLIST
14076
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
14077
                                                                                                  ATN-PARSER::RESULT)
14078
                                                                                               (DESTRUCTURING-BIND
14079
                                                                                                   (
14080
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14081
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
14082
                                                                                                 (WHEN ATN-PARSER::RESULT
14083
                                                                                                   (SETF |GraphTerm|
14084
                                                                                                           ATN-PARSER::RESULT))
14085
                                                                                                 (|VarOrTerm.2|
14086
                                                                                                  ATN-PARSER::RESULT-INDEX))
14087
                                                                                               (SETF |GraphTerm| |GraphTerm691|))))
14088
                                                                                          (T (SETF *ATN-TERM?* '|GraphTerm|) NIL))))
14089
                                                                      (|VarOrTerm/fail.3| ATN-PARSER::INDEX))))))
14090
                          (|VarOrTerm/start.1| ATN-PARSER::INDEX)
14091
                          (SETF *ATN-NODE NIL)
14092
                          NIL
14093
                          (IF ATN-PARSER::ATN-STRUCTURE
14094
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
14095
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
14096
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrTerm| ATN-PARSER::INDEX *ATN-STACK))))
14097
 (PROGN
14098
  (DEFVAR |VarOrTermOrGroup-INDEX|)
14099
  (DEFUN |VarOrTermOrGroup| (ATN-PARSER::INDEX &AUX (|GraphTerm| NIL) (|GroupTemplate| NIL) (|Var| NIL))
14100
    "{96a} VarOrTermOrGroup ::= (Var | GraphTerm | GroupTemplate)
14101
 (|GraphTerm| |GroupTemplate| |Var|)"
14102
    (DECLARE (SPECIAL |VarOrTermOrGroup-INDEX|))
14103
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrTermOrGroup-INDEX| *ATN-LEVEL))
14104
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
14105
    (IF (< |VarOrTermOrGroup-INDEX| ATN-PARSER::INDEX)
14106
        (LET ((|VarOrTermOrGroup-INDEX| ATN-PARSER::INDEX)
14107
              (*ATN-LEVEL (1+ *ATN-LEVEL))
14108
              (*ATN-STACK (CONS '|VarOrTermOrGroup| *ATN-STACK))
14109
              (ATN-PARSER::ATN-STRUCTURE NIL))
14110
          (DECLARE (SPECIAL |VarOrTermOrGroup-INDEX|))
14111
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
14112
          (DECLARE (TYPE CONS *ATN-STACK))
14113
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
14114
            (%ATN-BLOCK |VarOrTermOrGroup|
14115
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
14116
                                   (SETF *ATN-TERM* '|VarOrTermOrGroup|)
14117
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
14118
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
14119
                                   ATN-PARSER::INDEX)
14120
                                 (|VarOrTermOrGroup.2| (ATN-PARSER::INDEX)
14121
                                   (%ATN-NODE-BLOCK |VarOrTermOrGroup.2|
14122
                                                    (%ATN-EDGE-BLOCK (POP |VarOrTermOrGroup|)
14123
                                                                     (WHEN T
14124
                                                                       (SETF *ATN-TERM* '|VarOrTermOrGroup|)
14125
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
14126
                                                                                   '|VarOrTermOrGroup| ATN-PARSER::INDEX
14127
                                                                                   (LIST '|GraphTerm| |GraphTerm| '|GroupTemplate|
14128
                                                                                         |GroupTemplate| '|Var| |Var|))
14129
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
14130
                                                                              (IF (EQ *ATN-REDUCE* T)
14131
                                                                                  (|VarOrTermOrGroup-Constructor| |GraphTerm|
14132
                                                                                                                  |GroupTemplate|
14133
                                                                                                                  |Var|)
14134
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
14135
                                                                                      (CONS '|VarOrTermOrGroup|
14136
                                                                                            (DELETE NIL
14137
                                                                                                    (LIST |GraphTerm|
14138
                                                                                                          |GroupTemplate| |Var|)))
14139
                                                                                      '|VarOrTermOrGroup|))))
14140
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
14141
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
14142
                                 (|VarOrTermOrGroup/fail.3| (ATN-PARSER::INDEX)
14143
                                   (%ATN-NODE-BLOCK |VarOrTermOrGroup/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
14144
                                 (|VarOrTermOrGroup/start.1| (ATN-PARSER::INDEX)
14145
                                   (%ATN-NODE-BLOCK |VarOrTermOrGroup/start.1|
14146
                                                    (%ATN-EDGE-BLOCK OR
14147
                                                                     (PROGN
14148
                                                                      (%ATN-EDGE-BLOCK (TEST |Var|)
14149
                                                                                       (COND
14150
                                                                                        ((|IS-Var| ATN-PARSER::|item|)
14151
                                                                                         (SETF *ATN-TERM* '|Var|)
14152
                                                                                         (SETF |Var|
14153
                                                                                                 (IF (EQ *ATN-REDUCE* T)
14154
                                                                                                     (ATN-REDUCE-ITEM
14155
                                                                                                      #'|Var-Constructor|
14156
                                                                                                      ATN-PARSER::|item|)
14157
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
14158
                                                                                                         (LIST '|Var|
14159
                                                                                                               ATN-PARSER::|item|)
14160
                                                                                                         '|Var|)))
14161
                                                                                         (|VarOrTermOrGroup.2|
14162
                                                                                          (1+ ATN-PARSER::INDEX)))
14163
                                                                                        (T (SETF *ATN-TERM?* '|Var|) NIL)))
14164
                                                                      (%ATN-EDGE-BLOCK (PUSH |GraphTerm|)
14165
                                                                                       (MULTIPLE-VALUE-BIND
14166
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14167
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|GraphTerm|
14168
                                                                                                                    ATN-PARSER::INDEX)
14169
                                                                                         (COND
14170
                                                                                          (ATN-PARSER::SUCCESS
14171
                                                                                           (SETF *ATN-TERM* '|GraphTerm|)
14172
                                                                                           (LET ((|GraphTerm692| |GraphTerm|))
14173
                                                                                             (DOLIST
14174
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
14175
                                                                                                  ATN-PARSER::RESULT)
14176
                                                                                               (DESTRUCTURING-BIND
14177
                                                                                                   (
14178
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14179
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
14180
                                                                                                 (WHEN ATN-PARSER::RESULT
14181
                                                                                                   (SETF |GraphTerm|
14182
                                                                                                           ATN-PARSER::RESULT))
14183
                                                                                                 (|VarOrTermOrGroup.2|
14184
                                                                                                  ATN-PARSER::RESULT-INDEX))
14185
                                                                                               (SETF |GraphTerm| |GraphTerm692|))))
14186
                                                                                          (T (SETF *ATN-TERM?* '|GraphTerm|) NIL))))
14187
                                                                      (%ATN-EDGE-BLOCK (PUSH |GroupTemplate|)
14188
                                                                                       (MULTIPLE-VALUE-BIND
14189
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14190
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|GroupTemplate|
14191
                                                                                                                    ATN-PARSER::INDEX)
14192
                                                                                         (COND
14193
                                                                                          (ATN-PARSER::SUCCESS
14194
                                                                                           (SETF *ATN-TERM* '|GroupTemplate|)
14195
                                                                                           (LET ((|GroupTemplate693|
14196
                                                                                                  |GroupTemplate|))
14197
                                                                                             (DOLIST
14198
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
14199
                                                                                                  ATN-PARSER::RESULT)
14200
                                                                                               (DESTRUCTURING-BIND
14201
                                                                                                   (
14202
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14203
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
14204
                                                                                                 (WHEN ATN-PARSER::RESULT
14205
                                                                                                   (SETF |GroupTemplate|
14206
                                                                                                           ATN-PARSER::RESULT))
14207
                                                                                                 (|VarOrTermOrGroup.2|
14208
                                                                                                  ATN-PARSER::RESULT-INDEX))
14209
                                                                                               (SETF |GroupTemplate|
14210
                                                                                                       |GroupTemplate693|))))
14211
                                                                                          (T (SETF *ATN-TERM?* '|GroupTemplate|)
14212
                                                                                           NIL))))
14213
                                                                      (|VarOrTermOrGroup/fail.3| ATN-PARSER::INDEX))))))
14214
                          (|VarOrTermOrGroup/start.1| ATN-PARSER::INDEX)
14215
                          (SETF *ATN-NODE NIL)
14216
                          NIL
14217
                          (IF ATN-PARSER::ATN-STRUCTURE
14218
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
14219
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
14220
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrTermOrGroup| ATN-PARSER::INDEX *ATN-STACK))))
14221
 (PROGN
14222
  (DEFVAR |GroupTemplate-INDEX|)
14223
  (DEFUN |GroupTemplate|
14224
         (ATN-PARSER::INDEX
14225
          &AUX (|ObjectVarOrTermOrGroup| NIL) (|SubjectVarOrTermOrGroup| NIL) (|TriplesTemplate| NIL) (|Verb| NIL))
14226
    "{96b} GroupTemplate ::= (('{' TriplesTemplate? '}') | ('<<'
14227
                                                        SubjectVarOrTermOrGroup
14228
                                                        Verb
14229
                                                        ObjectVarOrTermOrGroup
14230
                                                        '>>'))
14231
 (|ObjectVarOrTermOrGroup| |SubjectVarOrTermOrGroup| |TriplesTemplate| |Verb|)"
14232
    (DECLARE (SPECIAL |GroupTemplate-INDEX|))
14233
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupTemplate-INDEX| *ATN-LEVEL))
14234
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
14235
    (IF (< |GroupTemplate-INDEX| ATN-PARSER::INDEX)
14236
        (LET ((|GroupTemplate-INDEX| ATN-PARSER::INDEX)
14237
              (*ATN-LEVEL (1+ *ATN-LEVEL))
14238
              (*ATN-STACK (CONS '|GroupTemplate| *ATN-STACK))
14239
              (ATN-PARSER::ATN-STRUCTURE NIL))
14240
          (DECLARE (SPECIAL |GroupTemplate-INDEX|))
14241
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
14242
          (DECLARE (TYPE CONS *ATN-STACK))
14243
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
14244
            (%ATN-BLOCK |GroupTemplate|
14245
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
14246
                                   (SETF *ATN-TERM* '|GroupTemplate|)
14247
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
14248
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
14249
                                   ATN-PARSER::INDEX)
14250
                                 (|GroupTemplate.2| (ATN-PARSER::INDEX)
14251
                                   (%ATN-NODE-BLOCK |GroupTemplate.2|
14252
                                                    (%ATN-EDGE-BLOCK (POP |GroupTemplate|)
14253
                                                                     (WHEN T
14254
                                                                       (SETF *ATN-TERM* '|GroupTemplate|)
14255
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
14256
                                                                                   '|GroupTemplate| ATN-PARSER::INDEX
14257
                                                                                   (LIST '|ObjectVarOrTermOrGroup|
14258
                                                                                         |ObjectVarOrTermOrGroup|
14259
                                                                                         '|SubjectVarOrTermOrGroup|
14260
                                                                                         |SubjectVarOrTermOrGroup|
14261
                                                                                         '|TriplesTemplate| |TriplesTemplate|
14262
                                                                                         '|Verb| |Verb|))
14263
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
14264
                                                                              (IF (EQ *ATN-REDUCE* T)
14265
                                                                                  (|GroupTemplate-Constructor|
14266
                                                                                   |ObjectVarOrTermOrGroup|
14267
                                                                                   |SubjectVarOrTermOrGroup| |TriplesTemplate|
14268
                                                                                   |Verb|)
14269
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
14270
                                                                                      (CONS '|GroupTemplate|
14271
                                                                                            (DELETE NIL
14272
                                                                                                    (LIST |ObjectVarOrTermOrGroup|
14273
                                                                                                          |SubjectVarOrTermOrGroup|
14274
                                                                                                          |TriplesTemplate|
14275
                                                                                                          |Verb|)))
14276
                                                                                      '|GroupTemplate|))))
14277
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
14278
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
14279
                                 (|GroupTemplate/fail.3| (ATN-PARSER::INDEX)
14280
                                   (%ATN-NODE-BLOCK |GroupTemplate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
14281
                                 (|GroupTemplate/GroupTemplate.2.10| (ATN-PARSER::INDEX)
14282
                                   (%ATN-NODE-BLOCK |GroupTemplate/GroupTemplate.2.10|
14283
                                                    (%ATN-EDGE-BLOCK (PUSH |ObjectVarOrTermOrGroup|)
14284
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14285
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ObjectVarOrTermOrGroup|
14286
                                                                                                  ATN-PARSER::INDEX)
14287
                                                                       (COND
14288
                                                                        (ATN-PARSER::SUCCESS
14289
                                                                         (SETF *ATN-TERM* '|ObjectVarOrTermOrGroup|)
14290
                                                                         (LET ((|ObjectVarOrTermOrGroup694|
14291
                                                                                |ObjectVarOrTermOrGroup|))
14292
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
14293
                                                                             (DESTRUCTURING-BIND
14294
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14295
                                                                                 ATN-PARSER::RESULT-AND-INDEX
14296
                                                                               (WHEN ATN-PARSER::RESULT
14297
                                                                                 (SETF |ObjectVarOrTermOrGroup| ATN-PARSER::RESULT))
14298
                                                                               (|GroupTemplate/GroupTemplate.2.11|
14299
                                                                                ATN-PARSER::RESULT-INDEX))
14300
                                                                             (SETF |ObjectVarOrTermOrGroup|
14301
                                                                                     |ObjectVarOrTermOrGroup694|))))
14302
                                                                        (T (SETF *ATN-TERM?* '|ObjectVarOrTermOrGroup|) NIL))))))
14303
                                 (|GroupTemplate/GroupTemplate.2.11| (ATN-PARSER::INDEX)
14304
                                   (%ATN-NODE-BLOCK |GroupTemplate/GroupTemplate.2.11|
14305
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:>>)
14306
                                                                     (COND
14307
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:>>)
14308
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:>>)
14309
                                                                       (|GroupTemplate.2| (1+ ATN-PARSER::INDEX)))
14310
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:>>) NIL)))))
14311
                                 (|GroupTemplate/GroupTemplate.2.4| (ATN-PARSER::INDEX)
14312
                                   (%ATN-NODE-BLOCK |GroupTemplate/GroupTemplate.2.4|
14313
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)
14314
                                                                     (COND
14315
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)
14316
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:{)
14317
                                                                       (|GroupTemplate/GroupTemplate.2.5| (1+ ATN-PARSER::INDEX)))
14318
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:{) NIL)))))
14319
                                 (|GroupTemplate/GroupTemplate.2.5| (ATN-PARSER::INDEX)
14320
                                   (%ATN-NODE-BLOCK |GroupTemplate/GroupTemplate.2.5|
14321
                                                    (%ATN-EDGE-BLOCK (PUSH |TriplesTemplate|)
14322
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14323
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|TriplesTemplate|
14324
                                                                                                  ATN-PARSER::INDEX)
14325
                                                                       (COND
14326
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|TriplesTemplate|)
14327
                                                                         (LET ((|TriplesTemplate697| |TriplesTemplate|))
14328
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
14329
                                                                             (DESTRUCTURING-BIND
14330
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14331
                                                                                 ATN-PARSER::RESULT-AND-INDEX
14332
                                                                               (WHEN ATN-PARSER::RESULT
14333
                                                                                 (SETF |TriplesTemplate| ATN-PARSER::RESULT))
14334
                                                                               (|GroupTemplate/GroupTemplate.2.6|
14335
                                                                                ATN-PARSER::RESULT-INDEX))
14336
                                                                             (SETF |TriplesTemplate| |TriplesTemplate697|))))
14337
                                                                        (T (SETF *ATN-TERM?* '|TriplesTemplate|)
14338
                                                                         (|GroupTemplate/GroupTemplate.2.6| ATN-PARSER::INDEX)))))))
14339
                                 (|GroupTemplate/GroupTemplate.2.6| (ATN-PARSER::INDEX)
14340
                                   (%ATN-NODE-BLOCK |GroupTemplate/GroupTemplate.2.6|
14341
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})
14342
                                                                     (COND
14343
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:})
14344
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:})
14345
                                                                       (|GroupTemplate.2| (1+ ATN-PARSER::INDEX)))
14346
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:}) NIL)))))
14347
                                 (|GroupTemplate/GroupTemplate.2.7| (ATN-PARSER::INDEX)
14348
                                   (%ATN-NODE-BLOCK |GroupTemplate/GroupTemplate.2.7|
14349
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:<<)
14350
                                                                     (COND
14351
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:<<)
14352
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:<<)
14353
                                                                       (|GroupTemplate/GroupTemplate.2.8| (1+ ATN-PARSER::INDEX)))
14354
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:<<) NIL)))))
14355
                                 (|GroupTemplate/GroupTemplate.2.8| (ATN-PARSER::INDEX)
14356
                                   (%ATN-NODE-BLOCK |GroupTemplate/GroupTemplate.2.8|
14357
                                                    (%ATN-EDGE-BLOCK (PUSH |SubjectVarOrTermOrGroup|)
14358
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14359
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|SubjectVarOrTermOrGroup|
14360
                                                                                                  ATN-PARSER::INDEX)
14361
                                                                       (COND
14362
                                                                        (ATN-PARSER::SUCCESS
14363
                                                                         (SETF *ATN-TERM* '|SubjectVarOrTermOrGroup|)
14364
                                                                         (LET ((|SubjectVarOrTermOrGroup696|
14365
                                                                                |SubjectVarOrTermOrGroup|))
14366
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
14367
                                                                             (DESTRUCTURING-BIND
14368
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14369
                                                                                 ATN-PARSER::RESULT-AND-INDEX
14370
                                                                               (WHEN ATN-PARSER::RESULT
14371
                                                                                 (SETF |SubjectVarOrTermOrGroup|
14372
                                                                                         ATN-PARSER::RESULT))
14373
                                                                               (|GroupTemplate/GroupTemplate.2.9|
14374
                                                                                ATN-PARSER::RESULT-INDEX))
14375
                                                                             (SETF |SubjectVarOrTermOrGroup|
14376
                                                                                     |SubjectVarOrTermOrGroup696|))))
14377
                                                                        (T (SETF *ATN-TERM?* '|SubjectVarOrTermOrGroup|) NIL))))))
14378
                                 (|GroupTemplate/GroupTemplate.2.9| (ATN-PARSER::INDEX)
14379
                                   (%ATN-NODE-BLOCK |GroupTemplate/GroupTemplate.2.9|
14380
                                                    (%ATN-EDGE-BLOCK (PUSH |Verb|)
14381
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14382
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Verb| ATN-PARSER::INDEX)
14383
                                                                       (COND
14384
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Verb|)
14385
                                                                         (LET ((|Verb695| |Verb|))
14386
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
14387
                                                                             (DESTRUCTURING-BIND
14388
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14389
                                                                                 ATN-PARSER::RESULT-AND-INDEX
14390
                                                                               (WHEN ATN-PARSER::RESULT
14391
                                                                                 (SETF |Verb| ATN-PARSER::RESULT))
14392
                                                                               (|GroupTemplate/GroupTemplate.2.10|
14393
                                                                                ATN-PARSER::RESULT-INDEX))
14394
                                                                             (SETF |Verb| |Verb695|))))
14395
                                                                        (T (SETF *ATN-TERM?* '|Verb|) NIL))))))
14396
                                 (|GroupTemplate/start.1| (ATN-PARSER::INDEX)
14397
                                   (%ATN-NODE-BLOCK |GroupTemplate/start.1|
14398
                                                    (%ATN-EDGE-BLOCK OR
14399
                                                                     (PROGN
14400
                                                                      (%ATN-EDGE-BLOCK
14401
                                                                       (ATN-PARSER::JUMP |GroupTemplate/GroupTemplate.2.4|)
14402
                                                                       (|GroupTemplate/GroupTemplate.2.4| ATN-PARSER::INDEX))
14403
                                                                      (%ATN-EDGE-BLOCK
14404
                                                                       (ATN-PARSER::JUMP |GroupTemplate/GroupTemplate.2.7|)
14405
                                                                       (|GroupTemplate/GroupTemplate.2.7| ATN-PARSER::INDEX))
14406
                                                                      (|GroupTemplate/fail.3| ATN-PARSER::INDEX))))))
14407
                          (|GroupTemplate/start.1| ATN-PARSER::INDEX)
14408
                          (SETF *ATN-NODE NIL)
14409
                          NIL
14410
                          (IF ATN-PARSER::ATN-STRUCTURE
14411
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
14412
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
14413
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupTemplate| ATN-PARSER::INDEX *ATN-STACK))))
14414
 (PROGN
14415
  (DEFVAR |SubjectVarOrTermOrGroup-INDEX|)
14416
  (DEFUN |SubjectVarOrTermOrGroup| (ATN-PARSER::INDEX &AUX (|VarOrTermOrGroup| NIL))
14417
    "{96c} SubjectVarOrTermOrGroup ::= VarOrTermOrGroup
14418
 (|VarOrTermOrGroup|)"
14419
    (DECLARE (SPECIAL |SubjectVarOrTermOrGroup-INDEX|))
14420
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SubjectVarOrTermOrGroup-INDEX| *ATN-LEVEL))
14421
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
14422
    (IF (< |SubjectVarOrTermOrGroup-INDEX| ATN-PARSER::INDEX)
14423
        (LET ((|SubjectVarOrTermOrGroup-INDEX| ATN-PARSER::INDEX)
14424
              (*ATN-LEVEL (1+ *ATN-LEVEL))
14425
              (*ATN-STACK (CONS '|SubjectVarOrTermOrGroup| *ATN-STACK))
14426
              (ATN-PARSER::ATN-STRUCTURE NIL))
14427
          (DECLARE (SPECIAL |SubjectVarOrTermOrGroup-INDEX|))
14428
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
14429
          (DECLARE (TYPE CONS *ATN-STACK))
14430
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
14431
            (%ATN-BLOCK |SubjectVarOrTermOrGroup|
14432
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
14433
                                   (SETF *ATN-TERM* '|SubjectVarOrTermOrGroup|)
14434
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
14435
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
14436
                                   ATN-PARSER::INDEX)
14437
                                 (|SubjectVarOrTermOrGroup.2| (ATN-PARSER::INDEX)
14438
                                   (%ATN-NODE-BLOCK |SubjectVarOrTermOrGroup.2|
14439
                                                    (%ATN-EDGE-BLOCK (POP |SubjectVarOrTermOrGroup|)
14440
                                                                     (WHEN T
14441
                                                                       (SETF *ATN-TERM* '|SubjectVarOrTermOrGroup|)
14442
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
14443
                                                                                   '|SubjectVarOrTermOrGroup| ATN-PARSER::INDEX
14444
                                                                                   (LIST '|VarOrTermOrGroup| |VarOrTermOrGroup|))
14445
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
14446
                                                                              (IF (EQ *ATN-REDUCE* T)
14447
                                                                                  (|SubjectVarOrTermOrGroup-Constructor|
14448
                                                                                   |VarOrTermOrGroup|)
14449
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
14450
                                                                                      (CONS '|SubjectVarOrTermOrGroup|
14451
                                                                                            (DELETE NIL (LIST |VarOrTermOrGroup|)))
14452
                                                                                      '|SubjectVarOrTermOrGroup|))))
14453
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
14454
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
14455
                                 (|SubjectVarOrTermOrGroup/fail.3| (ATN-PARSER::INDEX)
14456
                                   (%ATN-NODE-BLOCK |SubjectVarOrTermOrGroup/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
14457
                                 (|SubjectVarOrTermOrGroup/start.1| (ATN-PARSER::INDEX)
14458
                                   (%ATN-NODE-BLOCK |SubjectVarOrTermOrGroup/start.1|
14459
                                                    (%ATN-EDGE-BLOCK (PUSH |VarOrTermOrGroup|)
14460
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14461
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarOrTermOrGroup|
14462
                                                                                                  ATN-PARSER::INDEX)
14463
                                                                       (COND
14464
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarOrTermOrGroup|)
14465
                                                                         (LET ((|VarOrTermOrGroup698| |VarOrTermOrGroup|))
14466
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
14467
                                                                             (DESTRUCTURING-BIND
14468
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14469
                                                                                 ATN-PARSER::RESULT-AND-INDEX
14470
                                                                               (WHEN ATN-PARSER::RESULT
14471
                                                                                 (SETF |VarOrTermOrGroup| ATN-PARSER::RESULT))
14472
                                                                               (|SubjectVarOrTermOrGroup.2|
14473
                                                                                ATN-PARSER::RESULT-INDEX))
14474
                                                                             (SETF |VarOrTermOrGroup| |VarOrTermOrGroup698|))))
14475
                                                                        (T (SETF *ATN-TERM?* '|VarOrTermOrGroup|)
14476
                                                                         (|SubjectVarOrTermOrGroup/fail.3| ATN-PARSER::INDEX))))))))
14477
                          (|SubjectVarOrTermOrGroup/start.1| ATN-PARSER::INDEX)
14478
                          (SETF *ATN-NODE NIL)
14479
                          NIL
14480
                          (IF ATN-PARSER::ATN-STRUCTURE
14481
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
14482
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
14483
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|SubjectVarOrTermOrGroup| ATN-PARSER::INDEX *ATN-STACK))))
14484
 (PROGN
14485
  (DEFVAR |ObjectVarOrTermOrGroup-INDEX|)
14486
  (DEFUN |ObjectVarOrTermOrGroup| (ATN-PARSER::INDEX &AUX (|VarOrTermOrGroup| NIL))
14487
    "{96d} ObjectVarOrTermOrGroup ::= VarOrTermOrGroup
14488
 (|VarOrTermOrGroup|)"
14489
    (DECLARE (SPECIAL |ObjectVarOrTermOrGroup-INDEX|))
14490
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ObjectVarOrTermOrGroup-INDEX| *ATN-LEVEL))
14491
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
14492
    (IF (< |ObjectVarOrTermOrGroup-INDEX| ATN-PARSER::INDEX)
14493
        (LET ((|ObjectVarOrTermOrGroup-INDEX| ATN-PARSER::INDEX)
14494
              (*ATN-LEVEL (1+ *ATN-LEVEL))
14495
              (*ATN-STACK (CONS '|ObjectVarOrTermOrGroup| *ATN-STACK))
14496
              (ATN-PARSER::ATN-STRUCTURE NIL))
14497
          (DECLARE (SPECIAL |ObjectVarOrTermOrGroup-INDEX|))
14498
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
14499
          (DECLARE (TYPE CONS *ATN-STACK))
14500
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
14501
            (%ATN-BLOCK |ObjectVarOrTermOrGroup|
14502
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
14503
                                   (SETF *ATN-TERM* '|ObjectVarOrTermOrGroup|)
14504
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
14505
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
14506
                                   ATN-PARSER::INDEX)
14507
                                 (|ObjectVarOrTermOrGroup.2| (ATN-PARSER::INDEX)
14508
                                   (%ATN-NODE-BLOCK |ObjectVarOrTermOrGroup.2|
14509
                                                    (%ATN-EDGE-BLOCK (POP |ObjectVarOrTermOrGroup|)
14510
                                                                     (WHEN T
14511
                                                                       (SETF *ATN-TERM* '|ObjectVarOrTermOrGroup|)
14512
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
14513
                                                                                   '|ObjectVarOrTermOrGroup| ATN-PARSER::INDEX
14514
                                                                                   (LIST '|VarOrTermOrGroup| |VarOrTermOrGroup|))
14515
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
14516
                                                                              (IF (EQ *ATN-REDUCE* T)
14517
                                                                                  (|ObjectVarOrTermOrGroup-Constructor|
14518
                                                                                   |VarOrTermOrGroup|)
14519
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
14520
                                                                                      (CONS '|ObjectVarOrTermOrGroup|
14521
                                                                                            (DELETE NIL (LIST |VarOrTermOrGroup|)))
14522
                                                                                      '|ObjectVarOrTermOrGroup|))))
14523
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
14524
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
14525
                                 (|ObjectVarOrTermOrGroup/fail.3| (ATN-PARSER::INDEX)
14526
                                   (%ATN-NODE-BLOCK |ObjectVarOrTermOrGroup/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
14527
                                 (|ObjectVarOrTermOrGroup/start.1| (ATN-PARSER::INDEX)
14528
                                   (%ATN-NODE-BLOCK |ObjectVarOrTermOrGroup/start.1|
14529
                                                    (%ATN-EDGE-BLOCK (PUSH |VarOrTermOrGroup|)
14530
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14531
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|VarOrTermOrGroup|
14532
                                                                                                  ATN-PARSER::INDEX)
14533
                                                                       (COND
14534
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|VarOrTermOrGroup|)
14535
                                                                         (LET ((|VarOrTermOrGroup699| |VarOrTermOrGroup|))
14536
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
14537
                                                                             (DESTRUCTURING-BIND
14538
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14539
                                                                                 ATN-PARSER::RESULT-AND-INDEX
14540
                                                                               (WHEN ATN-PARSER::RESULT
14541
                                                                                 (SETF |VarOrTermOrGroup| ATN-PARSER::RESULT))
14542
                                                                               (|ObjectVarOrTermOrGroup.2|
14543
                                                                                ATN-PARSER::RESULT-INDEX))
14544
                                                                             (SETF |VarOrTermOrGroup| |VarOrTermOrGroup699|))))
14545
                                                                        (T (SETF *ATN-TERM?* '|VarOrTermOrGroup|)
14546
                                                                         (|ObjectVarOrTermOrGroup/fail.3| ATN-PARSER::INDEX))))))))
14547
                          (|ObjectVarOrTermOrGroup/start.1| ATN-PARSER::INDEX)
14548
                          (SETF *ATN-NODE NIL)
14549
                          NIL
14550
                          (IF ATN-PARSER::ATN-STRUCTURE
14551
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
14552
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
14553
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ObjectVarOrTermOrGroup| ATN-PARSER::INDEX *ATN-STACK))))
14554
 (PROGN
14555
  (DEFVAR |VarOrIRIref-INDEX|)
14556
  (DEFUN |VarOrIRIref| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (|Var| NIL))
14557
    "{97} VarOrIRIref ::= (Var | IRIref)
14558
 (|IRIref| |Var|)"
14559
    (DECLARE (SPECIAL |VarOrIRIref-INDEX|))
14560
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrIRIref-INDEX| *ATN-LEVEL))
14561
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
14562
    (IF (< |VarOrIRIref-INDEX| ATN-PARSER::INDEX)
14563
        (LET ((|VarOrIRIref-INDEX| ATN-PARSER::INDEX)
14564
              (*ATN-LEVEL (1+ *ATN-LEVEL))
14565
              (*ATN-STACK (CONS '|VarOrIRIref| *ATN-STACK))
14566
              (ATN-PARSER::ATN-STRUCTURE NIL))
14567
          (DECLARE (SPECIAL |VarOrIRIref-INDEX|))
14568
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
14569
          (DECLARE (TYPE CONS *ATN-STACK))
14570
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
14571
            (%ATN-BLOCK |VarOrIRIref|
14572
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
14573
                                   (SETF *ATN-TERM* '|VarOrIRIref|)
14574
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
14575
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
14576
                                   ATN-PARSER::INDEX)
14577
                                 (|VarOrIRIref.2| (ATN-PARSER::INDEX)
14578
                                   (%ATN-NODE-BLOCK |VarOrIRIref.2|
14579
                                                    (%ATN-EDGE-BLOCK (POP |VarOrIRIref|)
14580
                                                                     (WHEN T
14581
                                                                       (SETF *ATN-TERM* '|VarOrIRIref|)
14582
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
14583
                                                                                   '|VarOrIRIref| ATN-PARSER::INDEX
14584
                                                                                   (LIST '|IRIref| |IRIref| '|Var| |Var|))
14585
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
14586
                                                                              (IF (EQ *ATN-REDUCE* T)
14587
                                                                                  (|VarOrIRIref-Constructor| |IRIref| |Var|)
14588
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
14589
                                                                                      (CONS '|VarOrIRIref|
14590
                                                                                            (DELETE NIL (LIST |IRIref| |Var|)))
14591
                                                                                      '|VarOrIRIref|))))
14592
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
14593
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
14594
                                 (|VarOrIRIref/fail.3| (ATN-PARSER::INDEX)
14595
                                   (%ATN-NODE-BLOCK |VarOrIRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
14596
                                 (|VarOrIRIref/start.1| (ATN-PARSER::INDEX)
14597
                                   (%ATN-NODE-BLOCK |VarOrIRIref/start.1|
14598
                                                    (%ATN-EDGE-BLOCK OR
14599
                                                                     (PROGN
14600
                                                                      (%ATN-EDGE-BLOCK (TEST |Var|)
14601
                                                                                       (COND
14602
                                                                                        ((|IS-Var| ATN-PARSER::|item|)
14603
                                                                                         (SETF *ATN-TERM* '|Var|)
14604
                                                                                         (SETF |Var|
14605
                                                                                                 (IF (EQ *ATN-REDUCE* T)
14606
                                                                                                     (ATN-REDUCE-ITEM
14607
                                                                                                      #'|Var-Constructor|
14608
                                                                                                      ATN-PARSER::|item|)
14609
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
14610
                                                                                                         (LIST '|Var|
14611
                                                                                                               ATN-PARSER::|item|)
14612
                                                                                                         '|Var|)))
14613
                                                                                         (|VarOrIRIref.2| (1+ ATN-PARSER::INDEX)))
14614
                                                                                        (T (SETF *ATN-TERM?* '|Var|) NIL)))
14615
                                                                      (%ATN-EDGE-BLOCK (PUSH |IRIref|)
14616
                                                                                       (MULTIPLE-VALUE-BIND
14617
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14618
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|IRIref|
14619
                                                                                                                    ATN-PARSER::INDEX)
14620
                                                                                         (COND
14621
                                                                                          (ATN-PARSER::SUCCESS
14622
                                                                                           (SETF *ATN-TERM* '|IRIref|)
14623
                                                                                           (LET ((|IRIref700| |IRIref|))
14624
                                                                                             (DOLIST
14625
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
14626
                                                                                                  ATN-PARSER::RESULT)
14627
                                                                                               (DESTRUCTURING-BIND
14628
                                                                                                   (
14629
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14630
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
14631
                                                                                                 (WHEN ATN-PARSER::RESULT
14632
                                                                                                   (SETF |IRIref|
14633
                                                                                                           ATN-PARSER::RESULT))
14634
                                                                                                 (|VarOrIRIref.2|
14635
                                                                                                  ATN-PARSER::RESULT-INDEX))
14636
                                                                                               (SETF |IRIref| |IRIref700|))))
14637
                                                                                          (T (SETF *ATN-TERM?* '|IRIref|) NIL))))
14638
                                                                      (|VarOrIRIref/fail.3| ATN-PARSER::INDEX))))))
14639
                          (|VarOrIRIref/start.1| ATN-PARSER::INDEX)
14640
                          (SETF *ATN-NODE NIL)
14641
                          NIL
14642
                          (IF ATN-PARSER::ATN-STRUCTURE
14643
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
14644
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
14645
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrIRIref| ATN-PARSER::INDEX *ATN-STACK))))
14646
 (PROGN
14647
  (DEFVAR |GraphTerm-INDEX|)
14648
  (DEFUN |GraphTerm|
14649
         (ATN-PARSER::INDEX
14650
          &AUX (|BlankNode| NIL) (|BooleanLiteral| NIL) (|IRIref| NIL) (NILLIST NIL) (|NumericLiteral| NIL) (|RDFLiteral| NIL))
14651
    "{99} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)
14652
 (|BlankNode| |BooleanLiteral| |IRIref| NILLIST |NumericLiteral| |RDFLiteral|)"
14653
    (DECLARE (SPECIAL |GraphTerm-INDEX|))
14654
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphTerm-INDEX| *ATN-LEVEL))
14655
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
14656
    (IF (< |GraphTerm-INDEX| ATN-PARSER::INDEX)
14657
        (LET ((|GraphTerm-INDEX| ATN-PARSER::INDEX)
14658
              (*ATN-LEVEL (1+ *ATN-LEVEL))
14659
              (*ATN-STACK (CONS '|GraphTerm| *ATN-STACK))
14660
              (ATN-PARSER::ATN-STRUCTURE NIL))
14661
          (DECLARE (SPECIAL |GraphTerm-INDEX|))
14662
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
14663
          (DECLARE (TYPE CONS *ATN-STACK))
14664
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
14665
            (%ATN-BLOCK |GraphTerm|
14666
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
14667
                                   (SETF *ATN-TERM* '|GraphTerm|)
14668
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
14669
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
14670
                                   ATN-PARSER::INDEX)
14671
                                 (|GraphTerm.2| (ATN-PARSER::INDEX)
14672
                                   (%ATN-NODE-BLOCK |GraphTerm.2|
14673
                                                    (%ATN-EDGE-BLOCK (POP |GraphTerm|)
14674
                                                                     (WHEN T
14675
                                                                       (SETF *ATN-TERM* '|GraphTerm|)
14676
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|GraphTerm|
14677
                                                                                   ATN-PARSER::INDEX
14678
                                                                                   (LIST '|BlankNode| |BlankNode| '|BooleanLiteral|
14679
                                                                                         |BooleanLiteral| '|IRIref| |IRIref|
14680
                                                                                         'NILLIST NILLIST '|NumericLiteral|
14681
                                                                                         |NumericLiteral| '|RDFLiteral|
14682
                                                                                         |RDFLiteral|))
14683
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
14684
                                                                              (IF (EQ *ATN-REDUCE* T)
14685
                                                                                  (|GraphTerm-Constructor| |BlankNode|
14686
                                                                                                           |BooleanLiteral| |IRIref|
14687
                                                                                                           NILLIST |NumericLiteral|
14688
                                                                                                           |RDFLiteral|)
14689
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
14690
                                                                                      (CONS '|GraphTerm|
14691
                                                                                            (DELETE NIL
14692
                                                                                                    (LIST |BlankNode|
14693
                                                                                                          |BooleanLiteral| |IRIref|
14694
                                                                                                          NILLIST |NumericLiteral|
14695
                                                                                                          |RDFLiteral|)))
14696
                                                                                      '|GraphTerm|))))
14697
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
14698
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
14699
                                 (|GraphTerm/fail.3| (ATN-PARSER::INDEX)
14700
                                   (%ATN-NODE-BLOCK |GraphTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
14701
                                 (|GraphTerm/start.1| (ATN-PARSER::INDEX)
14702
                                   (%ATN-NODE-BLOCK |GraphTerm/start.1|
14703
                                                    (%ATN-EDGE-BLOCK OR
14704
                                                                     (PROGN
14705
                                                                      (%ATN-EDGE-BLOCK (PUSH |IRIref|)
14706
                                                                                       (MULTIPLE-VALUE-BIND
14707
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14708
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|IRIref|
14709
                                                                                                                    ATN-PARSER::INDEX)
14710
                                                                                         (COND
14711
                                                                                          (ATN-PARSER::SUCCESS
14712
                                                                                           (SETF *ATN-TERM* '|IRIref|)
14713
                                                                                           (LET ((|IRIref701| |IRIref|))
14714
                                                                                             (DOLIST
14715
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
14716
                                                                                                  ATN-PARSER::RESULT)
14717
                                                                                               (DESTRUCTURING-BIND
14718
                                                                                                   (
14719
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14720
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
14721
                                                                                                 (WHEN ATN-PARSER::RESULT
14722
                                                                                                   (SETF |IRIref|
14723
                                                                                                           ATN-PARSER::RESULT))
14724
                                                                                                 (|GraphTerm.2|
14725
                                                                                                  ATN-PARSER::RESULT-INDEX))
14726
                                                                                               (SETF |IRIref| |IRIref701|))))
14727
                                                                                          (T (SETF *ATN-TERM?* '|IRIref|) NIL))))
14728
                                                                      (%ATN-EDGE-BLOCK (PUSH |RDFLiteral|)
14729
                                                                                       (MULTIPLE-VALUE-BIND
14730
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14731
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral|
14732
                                                                                                                    ATN-PARSER::INDEX)
14733
                                                                                         (COND
14734
                                                                                          (ATN-PARSER::SUCCESS
14735
                                                                                           (SETF *ATN-TERM* '|RDFLiteral|)
14736
                                                                                           (LET ((|RDFLiteral702| |RDFLiteral|))
14737
                                                                                             (DOLIST
14738
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
14739
                                                                                                  ATN-PARSER::RESULT)
14740
                                                                                               (DESTRUCTURING-BIND
14741
                                                                                                   (
14742
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14743
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
14744
                                                                                                 (WHEN ATN-PARSER::RESULT
14745
                                                                                                   (SETF |RDFLiteral|
14746
                                                                                                           ATN-PARSER::RESULT))
14747
                                                                                                 (|GraphTerm.2|
14748
                                                                                                  ATN-PARSER::RESULT-INDEX))
14749
                                                                                               (SETF |RDFLiteral|
14750
                                                                                                       |RDFLiteral702|))))
14751
                                                                                          (T (SETF *ATN-TERM?* '|RDFLiteral|)
14752
                                                                                           NIL))))
14753
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |NumericLiteral|)
14754
                                                                                       (COND
14755
                                                                                        ((|IS-NumericLiteral| ATN-PARSER::|item|)
14756
                                                                                         (SETF *ATN-TERM* '|NumericLiteral|)
14757
                                                                                         (SETF |NumericLiteral|
14758
                                                                                                 (IF (EQ *ATN-REDUCE* T)
14759
                                                                                                     (ATN-REDUCE-ITEM
14760
                                                                                                      #'|NumericLiteral-Constructor|
14761
                                                                                                      ATN-PARSER::|item|)
14762
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
14763
                                                                                                         (LIST '|NumericLiteral|
14764
                                                                                                               ATN-PARSER::|item|)
14765
                                                                                                         '|NumericLiteral|)))
14766
                                                                                         (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))
14767
                                                                                        (T (SETF *ATN-TERM* '|NumericLiteral|)
14768
                                                                                         NIL)))
14769
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |BooleanLiteral|)
14770
                                                                                       (COND
14771
                                                                                        ((|IS-BooleanLiteral| ATN-PARSER::|item|)
14772
                                                                                         (SETF *ATN-TERM* '|BooleanLiteral|)
14773
                                                                                         (SETF |BooleanLiteral|
14774
                                                                                                 (IF (EQ *ATN-REDUCE* T)
14775
                                                                                                     (ATN-REDUCE-ITEM
14776
                                                                                                      #'|BooleanLiteral-Constructor|
14777
                                                                                                      ATN-PARSER::|item|)
14778
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
14779
                                                                                                         (LIST '|BooleanLiteral|
14780
                                                                                                               ATN-PARSER::|item|)
14781
                                                                                                         '|BooleanLiteral|)))
14782
                                                                                         (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))
14783
                                                                                        (T (SETF *ATN-TERM* '|BooleanLiteral|)
14784
                                                                                         NIL)))
14785
                                                                      (%ATN-EDGE-BLOCK (PUSH |BlankNode|)
14786
                                                                                       (MULTIPLE-VALUE-BIND
14787
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14788
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|BlankNode|
14789
                                                                                                                    ATN-PARSER::INDEX)
14790
                                                                                         (COND
14791
                                                                                          (ATN-PARSER::SUCCESS
14792
                                                                                           (SETF *ATN-TERM* '|BlankNode|)
14793
                                                                                           (LET ((|BlankNode703| |BlankNode|))
14794
                                                                                             (DOLIST
14795
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
14796
                                                                                                  ATN-PARSER::RESULT)
14797
                                                                                               (DESTRUCTURING-BIND
14798
                                                                                                   (
14799
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14800
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
14801
                                                                                                 (WHEN ATN-PARSER::RESULT
14802
                                                                                                   (SETF |BlankNode|
14803
                                                                                                           ATN-PARSER::RESULT))
14804
                                                                                                 (|GraphTerm.2|
14805
                                                                                                  ATN-PARSER::RESULT-INDEX))
14806
                                                                                               (SETF |BlankNode| |BlankNode703|))))
14807
                                                                                          (T (SETF *ATN-TERM?* '|BlankNode|) NIL))))
14808
                                                                      (%ATN-EDGE-BLOCK (PUSH NILLIST)
14809
                                                                                       (MULTIPLE-VALUE-BIND
14810
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14811
                                                                                           (ATN-PARSE-SUBSTRUCTURE* 'NILLIST
14812
                                                                                                                    ATN-PARSER::INDEX)
14813
                                                                                         (COND
14814
                                                                                          (ATN-PARSER::SUCCESS
14815
                                                                                           (SETF *ATN-TERM* 'NILLIST)
14816
                                                                                           (LET ((NILLIST704 NILLIST))
14817
                                                                                             (DOLIST
14818
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
14819
                                                                                                  ATN-PARSER::RESULT)
14820
                                                                                               (DESTRUCTURING-BIND
14821
                                                                                                   (
14822
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14823
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
14824
                                                                                                 (WHEN ATN-PARSER::RESULT
14825
                                                                                                   (SETF NILLIST
14826
                                                                                                           ATN-PARSER::RESULT))
14827
                                                                                                 (|GraphTerm.2|
14828
                                                                                                  ATN-PARSER::RESULT-INDEX))
14829
                                                                                               (SETF NILLIST NILLIST704))))
14830
                                                                                          (T (SETF *ATN-TERM?* 'NILLIST) NIL))))
14831
                                                                      (|GraphTerm/fail.3| ATN-PARSER::INDEX))))))
14832
                          (|GraphTerm/start.1| ATN-PARSER::INDEX)
14833
                          (SETF *ATN-NODE NIL)
14834
                          NIL
14835
                          (IF ATN-PARSER::ATN-STRUCTURE
14836
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
14837
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
14838
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphTerm| ATN-PARSER::INDEX *ATN-STACK))))
14839
 (PROGN
14840
  (DEFVAR |Expression-INDEX|)
14841
  (DEFUN |Expression| (ATN-PARSER::INDEX &AUX (|ConditionalOrExpression| NIL))
14842
    "{100} Expression ::= ConditionalOrExpression
14843
 (|ConditionalOrExpression|)"
14844
    (DECLARE (SPECIAL |Expression-INDEX|))
14845
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Expression-INDEX| *ATN-LEVEL))
14846
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
14847
    (IF (< |Expression-INDEX| ATN-PARSER::INDEX)
14848
        (LET ((|Expression-INDEX| ATN-PARSER::INDEX)
14849
              (*ATN-LEVEL (1+ *ATN-LEVEL))
14850
              (*ATN-STACK (CONS '|Expression| *ATN-STACK))
14851
              (ATN-PARSER::ATN-STRUCTURE NIL))
14852
          (DECLARE (SPECIAL |Expression-INDEX|))
14853
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
14854
          (DECLARE (TYPE CONS *ATN-STACK))
14855
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
14856
            (%ATN-BLOCK |Expression|
14857
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
14858
                                   (SETF *ATN-TERM* '|Expression|)
14859
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
14860
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
14861
                                   ATN-PARSER::INDEX)
14862
                                 (|Expression.2| (ATN-PARSER::INDEX)
14863
                                   (%ATN-NODE-BLOCK |Expression.2|
14864
                                                    (%ATN-EDGE-BLOCK (POP |Expression|)
14865
                                                                     (WHEN T
14866
                                                                       (SETF *ATN-TERM* '|Expression|)
14867
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
14868
                                                                                   '|Expression| ATN-PARSER::INDEX
14869
                                                                                   (LIST '|ConditionalOrExpression|
14870
                                                                                         |ConditionalOrExpression|))
14871
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
14872
                                                                              (IF (EQ *ATN-REDUCE* T)
14873
                                                                                  (|Expression-Constructor|
14874
                                                                                   |ConditionalOrExpression|)
14875
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
14876
                                                                                      (CONS '|Expression|
14877
                                                                                            (DELETE NIL
14878
                                                                                                    (LIST
14879
                                                                                                     |ConditionalOrExpression|)))
14880
                                                                                      '|Expression|))))
14881
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
14882
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
14883
                                 (|Expression/fail.3| (ATN-PARSER::INDEX)
14884
                                   (%ATN-NODE-BLOCK |Expression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
14885
                                 (|Expression/start.1| (ATN-PARSER::INDEX)
14886
                                   (%ATN-NODE-BLOCK |Expression/start.1|
14887
                                                    (%ATN-EDGE-BLOCK (PUSH |ConditionalOrExpression|)
14888
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14889
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ConditionalOrExpression|
14890
                                                                                                  ATN-PARSER::INDEX)
14891
                                                                       (COND
14892
                                                                        (ATN-PARSER::SUCCESS
14893
                                                                         (SETF *ATN-TERM* '|ConditionalOrExpression|)
14894
                                                                         (LET ((|ConditionalOrExpression705|
14895
                                                                                |ConditionalOrExpression|))
14896
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
14897
                                                                             (DESTRUCTURING-BIND
14898
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14899
                                                                                 ATN-PARSER::RESULT-AND-INDEX
14900
                                                                               (WHEN ATN-PARSER::RESULT
14901
                                                                                 (SETF |ConditionalOrExpression|
14902
                                                                                         ATN-PARSER::RESULT))
14903
                                                                               (|Expression.2| ATN-PARSER::RESULT-INDEX))
14904
                                                                             (SETF |ConditionalOrExpression|
14905
                                                                                     |ConditionalOrExpression705|))))
14906
                                                                        (T (SETF *ATN-TERM?* '|ConditionalOrExpression|)
14907
                                                                         (|Expression/fail.3| ATN-PARSER::INDEX))))))))
14908
                          (|Expression/start.1| ATN-PARSER::INDEX)
14909
                          (SETF *ATN-NODE NIL)
14910
                          NIL
14911
                          (IF ATN-PARSER::ATN-STRUCTURE
14912
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
14913
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
14914
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Expression| ATN-PARSER::INDEX *ATN-STACK))))
14915
 (PROGN
14916
  (DEFVAR |ConditionalOrExpression-INDEX|)
14917
  (DEFUN |ConditionalOrExpression| (ATN-PARSER::INDEX &AUX (|ConditionalAndExpression| NIL))
14918
    "{101} ConditionalOrExpression ::= ConditionalAndExpression ('||'
14919
                                                             ConditionalAndExpression)*
14920
 (|ConditionalAndExpression|)"
14921
    (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))
14922
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalOrExpression-INDEX| *ATN-LEVEL))
14923
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
14924
    (IF (< |ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)
14925
        (LET ((|ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)
14926
              (*ATN-LEVEL (1+ *ATN-LEVEL))
14927
              (*ATN-STACK (CONS '|ConditionalOrExpression| *ATN-STACK))
14928
              (ATN-PARSER::ATN-STRUCTURE NIL))
14929
          (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))
14930
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
14931
          (DECLARE (TYPE CONS *ATN-STACK))
14932
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
14933
            (%ATN-BLOCK |ConditionalOrExpression|
14934
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
14935
                                   (SETF *ATN-TERM* '|ConditionalOrExpression|)
14936
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
14937
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
14938
                                   ATN-PARSER::INDEX)
14939
                                 (|ConditionalOrExpression.2| (ATN-PARSER::INDEX)
14940
                                   (%ATN-NODE-BLOCK |ConditionalOrExpression.2|
14941
                                                    (%ATN-EDGE-BLOCK (POP |ConditionalOrExpression|)
14942
                                                                     (WHEN T
14943
                                                                       (SETF *ATN-TERM* '|ConditionalOrExpression|)
14944
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
14945
                                                                                   '|ConditionalOrExpression| ATN-PARSER::INDEX
14946
                                                                                   (LIST '|ConditionalAndExpression|
14947
                                                                                         |ConditionalAndExpression|))
14948
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
14949
                                                                              (IF (EQ *ATN-REDUCE* T)
14950
                                                                                  (|ConditionalOrExpression-Constructor|
14951
                                                                                   |ConditionalAndExpression|)
14952
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
14953
                                                                                      (CONS '|ConditionalOrExpression|
14954
                                                                                            (DELETE NIL
14955
                                                                                                    (LIST
14956
                                                                                                     |ConditionalAndExpression|)))
14957
                                                                                      '|ConditionalOrExpression|))))
14958
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
14959
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
14960
                                 (|ConditionalOrExpression.5| (ATN-PARSER::INDEX)
14961
                                   (%ATN-NODE-BLOCK |ConditionalOrExpression.5|
14962
                                                    (%ATN-EDGE-BLOCK
14963
                                                     (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)
14964
                                                     (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))
14965
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ConditionalOrExpression.2|)
14966
                                                                     (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))
14967
                                 (|ConditionalOrExpression/ConditionalOrExpression.2.4| (ATN-PARSER::INDEX)
14968
                                   (%ATN-NODE-BLOCK |ConditionalOrExpression/ConditionalOrExpression.2.4|
14969
                                                    (%ATN-EDGE-BLOCK
14970
                                                     (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)
14971
                                                     (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))
14972
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ConditionalOrExpression.2|)
14973
                                                                     (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))
14974
                                 (|ConditionalOrExpression/ConditionalOrExpression.5.6| (ATN-PARSER::INDEX)
14975
                                   (%ATN-NODE-BLOCK |ConditionalOrExpression/ConditionalOrExpression.5.6|
14976
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|\|\||)
14977
                                                                     (COND
14978
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|\|\||)
14979
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|\|\||)
14980
                                                                       (|ConditionalOrExpression/ConditionalOrExpression.5.7|
14981
                                                                        (1+ ATN-PARSER::INDEX)))
14982
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|\|\||) NIL)))))
14983
                                 (|ConditionalOrExpression/ConditionalOrExpression.5.7| (ATN-PARSER::INDEX)
14984
                                   (%ATN-NODE-BLOCK |ConditionalOrExpression/ConditionalOrExpression.5.7|
14985
                                                    (%ATN-EDGE-BLOCK (PUSH |ConditionalAndExpression|)
14986
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
14987
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression|
14988
                                                                                                  ATN-PARSER::INDEX)
14989
                                                                       (COND
14990
                                                                        (ATN-PARSER::SUCCESS
14991
                                                                         (SETF *ATN-TERM* '|ConditionalAndExpression|)
14992
                                                                         (LET ((|ConditionalAndExpression706|
14993
                                                                                |ConditionalAndExpression|))
14994
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
14995
                                                                             (DESTRUCTURING-BIND
14996
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
14997
                                                                                 ATN-PARSER::RESULT-AND-INDEX
14998
                                                                               (WHEN ATN-PARSER::RESULT
14999
                                                                                 (SETF |ConditionalAndExpression|
15000
                                                                                         (CONS ATN-PARSER::RESULT
15001
                                                                                               |ConditionalAndExpression|)))
15002
                                                                               (|ConditionalOrExpression.5|
15003
                                                                                ATN-PARSER::RESULT-INDEX))
15004
                                                                             (SETF |ConditionalAndExpression|
15005
                                                                                     |ConditionalAndExpression706|))))
15006
                                                                        (T (SETF *ATN-TERM?* '|ConditionalAndExpression|) NIL))))))
15007
                                 (|ConditionalOrExpression/fail.3| (ATN-PARSER::INDEX)
15008
                                   (%ATN-NODE-BLOCK |ConditionalOrExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15009
                                 (|ConditionalOrExpression/start.1| (ATN-PARSER::INDEX)
15010
                                   (%ATN-NODE-BLOCK |ConditionalOrExpression/start.1|
15011
                                                    (%ATN-EDGE-BLOCK (PUSH |ConditionalAndExpression|)
15012
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15013
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression|
15014
                                                                                                  ATN-PARSER::INDEX)
15015
                                                                       (COND
15016
                                                                        (ATN-PARSER::SUCCESS
15017
                                                                         (SETF *ATN-TERM* '|ConditionalAndExpression|)
15018
                                                                         (LET ((|ConditionalAndExpression707|
15019
                                                                                |ConditionalAndExpression|))
15020
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15021
                                                                             (DESTRUCTURING-BIND
15022
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15023
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15024
                                                                               (WHEN ATN-PARSER::RESULT
15025
                                                                                 (SETF |ConditionalAndExpression|
15026
                                                                                         (CONS ATN-PARSER::RESULT
15027
                                                                                               |ConditionalAndExpression|)))
15028
                                                                               (|ConditionalOrExpression/ConditionalOrExpression.2.4|
15029
                                                                                ATN-PARSER::RESULT-INDEX))
15030
                                                                             (SETF |ConditionalAndExpression|
15031
                                                                                     |ConditionalAndExpression707|))))
15032
                                                                        (T (SETF *ATN-TERM?* '|ConditionalAndExpression|)
15033
                                                                         (|ConditionalOrExpression/fail.3| ATN-PARSER::INDEX))))))))
15034
                          (|ConditionalOrExpression/start.1| ATN-PARSER::INDEX)
15035
                          (SETF *ATN-NODE NIL)
15036
                          NIL
15037
                          (IF ATN-PARSER::ATN-STRUCTURE
15038
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15039
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15040
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalOrExpression| ATN-PARSER::INDEX *ATN-STACK))))
15041
 (PROGN
15042
  (DEFVAR |ConditionalAndExpression-INDEX|)
15043
  (DEFUN |ConditionalAndExpression| (ATN-PARSER::INDEX &AUX (|ValueLogical| NIL))
15044
    "{102} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*
15045
 (|ValueLogical|)"
15046
    (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))
15047
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalAndExpression-INDEX| *ATN-LEVEL))
15048
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15049
    (IF (< |ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)
15050
        (LET ((|ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)
15051
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15052
              (*ATN-STACK (CONS '|ConditionalAndExpression| *ATN-STACK))
15053
              (ATN-PARSER::ATN-STRUCTURE NIL))
15054
          (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))
15055
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15056
          (DECLARE (TYPE CONS *ATN-STACK))
15057
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15058
            (%ATN-BLOCK |ConditionalAndExpression|
15059
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15060
                                   (SETF *ATN-TERM* '|ConditionalAndExpression|)
15061
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15062
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15063
                                   ATN-PARSER::INDEX)
15064
                                 (|ConditionalAndExpression.2| (ATN-PARSER::INDEX)
15065
                                   (%ATN-NODE-BLOCK |ConditionalAndExpression.2|
15066
                                                    (%ATN-EDGE-BLOCK (POP |ConditionalAndExpression|)
15067
                                                                     (WHEN T
15068
                                                                       (SETF *ATN-TERM* '|ConditionalAndExpression|)
15069
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
15070
                                                                                   '|ConditionalAndExpression| ATN-PARSER::INDEX
15071
                                                                                   (LIST '|ValueLogical| |ValueLogical|))
15072
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15073
                                                                              (IF (EQ *ATN-REDUCE* T)
15074
                                                                                  (|ConditionalAndExpression-Constructor|
15075
                                                                                   |ValueLogical|)
15076
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15077
                                                                                      (CONS '|ConditionalAndExpression|
15078
                                                                                            (DELETE NIL (LIST |ValueLogical|)))
15079
                                                                                      '|ConditionalAndExpression|))))
15080
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
15081
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
15082
                                 (|ConditionalAndExpression.5| (ATN-PARSER::INDEX)
15083
                                   (%ATN-NODE-BLOCK |ConditionalAndExpression.5|
15084
                                                    (%ATN-EDGE-BLOCK
15085
                                                     (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)
15086
                                                     (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))
15087
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ConditionalAndExpression.2|)
15088
                                                                     (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))
15089
                                 (|ConditionalAndExpression/ConditionalAndExpression.2.4| (ATN-PARSER::INDEX)
15090
                                   (%ATN-NODE-BLOCK |ConditionalAndExpression/ConditionalAndExpression.2.4|
15091
                                                    (%ATN-EDGE-BLOCK
15092
                                                     (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)
15093
                                                     (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))
15094
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ConditionalAndExpression.2|)
15095
                                                                     (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))
15096
                                 (|ConditionalAndExpression/ConditionalAndExpression.5.6| (ATN-PARSER::INDEX)
15097
                                   (%ATN-NODE-BLOCK |ConditionalAndExpression/ConditionalAndExpression.5.6|
15098
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:&&)
15099
                                                                     (COND
15100
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:&&)
15101
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:&&)
15102
                                                                       (|ConditionalAndExpression/ConditionalAndExpression.5.7|
15103
                                                                        (1+ ATN-PARSER::INDEX)))
15104
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:&&) NIL)))))
15105
                                 (|ConditionalAndExpression/ConditionalAndExpression.5.7| (ATN-PARSER::INDEX)
15106
                                   (%ATN-NODE-BLOCK |ConditionalAndExpression/ConditionalAndExpression.5.7|
15107
                                                    (%ATN-EDGE-BLOCK (PUSH |ValueLogical|)
15108
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15109
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)
15110
                                                                       (COND
15111
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ValueLogical|)
15112
                                                                         (LET ((|ValueLogical708| |ValueLogical|))
15113
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15114
                                                                             (DESTRUCTURING-BIND
15115
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15116
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15117
                                                                               (WHEN ATN-PARSER::RESULT
15118
                                                                                 (SETF |ValueLogical|
15119
                                                                                         (CONS ATN-PARSER::RESULT |ValueLogical|)))
15120
                                                                               (|ConditionalAndExpression.5|
15121
                                                                                ATN-PARSER::RESULT-INDEX))
15122
                                                                             (SETF |ValueLogical| |ValueLogical708|))))
15123
                                                                        (T (SETF *ATN-TERM?* '|ValueLogical|) NIL))))))
15124
                                 (|ConditionalAndExpression/fail.3| (ATN-PARSER::INDEX)
15125
                                   (%ATN-NODE-BLOCK |ConditionalAndExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15126
                                 (|ConditionalAndExpression/start.1| (ATN-PARSER::INDEX)
15127
                                   (%ATN-NODE-BLOCK |ConditionalAndExpression/start.1|
15128
                                                    (%ATN-EDGE-BLOCK (PUSH |ValueLogical|)
15129
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15130
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)
15131
                                                                       (COND
15132
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ValueLogical|)
15133
                                                                         (LET ((|ValueLogical709| |ValueLogical|))
15134
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15135
                                                                             (DESTRUCTURING-BIND
15136
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15137
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15138
                                                                               (WHEN ATN-PARSER::RESULT
15139
                                                                                 (SETF |ValueLogical|
15140
                                                                                         (CONS ATN-PARSER::RESULT |ValueLogical|)))
15141
                                                                               (|ConditionalAndExpression/ConditionalAndExpression.2.4|
15142
                                                                                ATN-PARSER::RESULT-INDEX))
15143
                                                                             (SETF |ValueLogical| |ValueLogical709|))))
15144
                                                                        (T (SETF *ATN-TERM?* '|ValueLogical|)
15145
                                                                         (|ConditionalAndExpression/fail.3| ATN-PARSER::INDEX))))))))
15146
                          (|ConditionalAndExpression/start.1| ATN-PARSER::INDEX)
15147
                          (SETF *ATN-NODE NIL)
15148
                          NIL
15149
                          (IF ATN-PARSER::ATN-STRUCTURE
15150
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15151
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15152
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalAndExpression| ATN-PARSER::INDEX *ATN-STACK))))
15153
 (PROGN
15154
  (DEFVAR |ValueLogical-INDEX|)
15155
  (DEFUN |ValueLogical| (ATN-PARSER::INDEX &AUX (|RelationalExpression| NIL))
15156
    "{103} ValueLogical ::= RelationalExpression
15157
 (|RelationalExpression|)"
15158
    (DECLARE (SPECIAL |ValueLogical-INDEX|))
15159
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ValueLogical-INDEX| *ATN-LEVEL))
15160
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15161
    (IF (< |ValueLogical-INDEX| ATN-PARSER::INDEX)
15162
        (LET ((|ValueLogical-INDEX| ATN-PARSER::INDEX)
15163
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15164
              (*ATN-STACK (CONS '|ValueLogical| *ATN-STACK))
15165
              (ATN-PARSER::ATN-STRUCTURE NIL))
15166
          (DECLARE (SPECIAL |ValueLogical-INDEX|))
15167
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15168
          (DECLARE (TYPE CONS *ATN-STACK))
15169
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15170
            (%ATN-BLOCK |ValueLogical|
15171
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15172
                                   (SETF *ATN-TERM* '|ValueLogical|)
15173
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15174
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15175
                                   ATN-PARSER::INDEX)
15176
                                 (|ValueLogical.2| (ATN-PARSER::INDEX)
15177
                                   (%ATN-NODE-BLOCK |ValueLogical.2|
15178
                                                    (%ATN-EDGE-BLOCK (POP |ValueLogical|)
15179
                                                                     (WHEN T
15180
                                                                       (SETF *ATN-TERM* '|ValueLogical|)
15181
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
15182
                                                                                   '|ValueLogical| ATN-PARSER::INDEX
15183
                                                                                   (LIST '|RelationalExpression|
15184
                                                                                         |RelationalExpression|))
15185
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15186
                                                                              (IF (EQ *ATN-REDUCE* T)
15187
                                                                                  (|ValueLogical-Constructor|
15188
                                                                                   |RelationalExpression|)
15189
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15190
                                                                                      (CONS '|ValueLogical|
15191
                                                                                            (DELETE NIL
15192
                                                                                                    (LIST |RelationalExpression|)))
15193
                                                                                      '|ValueLogical|))))
15194
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
15195
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
15196
                                 (|ValueLogical/fail.3| (ATN-PARSER::INDEX)
15197
                                   (%ATN-NODE-BLOCK |ValueLogical/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15198
                                 (|ValueLogical/start.1| (ATN-PARSER::INDEX)
15199
                                   (%ATN-NODE-BLOCK |ValueLogical/start.1|
15200
                                                    (%ATN-EDGE-BLOCK (PUSH |RelationalExpression|)
15201
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15202
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|RelationalExpression|
15203
                                                                                                  ATN-PARSER::INDEX)
15204
                                                                       (COND
15205
                                                                        (ATN-PARSER::SUCCESS
15206
                                                                         (SETF *ATN-TERM* '|RelationalExpression|)
15207
                                                                         (LET ((|RelationalExpression710| |RelationalExpression|))
15208
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15209
                                                                             (DESTRUCTURING-BIND
15210
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15211
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15212
                                                                               (WHEN ATN-PARSER::RESULT
15213
                                                                                 (SETF |RelationalExpression| ATN-PARSER::RESULT))
15214
                                                                               (|ValueLogical.2| ATN-PARSER::RESULT-INDEX))
15215
                                                                             (SETF |RelationalExpression|
15216
                                                                                     |RelationalExpression710|))))
15217
                                                                        (T (SETF *ATN-TERM?* '|RelationalExpression|)
15218
                                                                         (|ValueLogical/fail.3| ATN-PARSER::INDEX))))))))
15219
                          (|ValueLogical/start.1| ATN-PARSER::INDEX)
15220
                          (SETF *ATN-NODE NIL)
15221
                          NIL
15222
                          (IF ATN-PARSER::ATN-STRUCTURE
15223
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15224
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15225
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ValueLogical| ATN-PARSER::INDEX *ATN-STACK))))
15226
 (PROGN
15227
  (DEFVAR |RelationalExpression-INDEX|)
15228
  (DEFUN |RelationalExpression| (ATN-PARSER::INDEX &AUX (|NumericExpression| NIL) (|RelatedNumeric| NIL))
15229
    "{104} RelationalExpression ::= NumericExpression RelatedNumeric?
15230
 (|NumericExpression| |RelatedNumeric|)"
15231
    (DECLARE (SPECIAL |RelationalExpression-INDEX|))
15232
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelationalExpression-INDEX| *ATN-LEVEL))
15233
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15234
    (IF (< |RelationalExpression-INDEX| ATN-PARSER::INDEX)
15235
        (LET ((|RelationalExpression-INDEX| ATN-PARSER::INDEX)
15236
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15237
              (*ATN-STACK (CONS '|RelationalExpression| *ATN-STACK))
15238
              (ATN-PARSER::ATN-STRUCTURE NIL))
15239
          (DECLARE (SPECIAL |RelationalExpression-INDEX|))
15240
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15241
          (DECLARE (TYPE CONS *ATN-STACK))
15242
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15243
            (%ATN-BLOCK |RelationalExpression|
15244
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15245
                                   (SETF *ATN-TERM* '|RelationalExpression|)
15246
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15247
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15248
                                   ATN-PARSER::INDEX)
15249
                                 (|RelationalExpression.2| (ATN-PARSER::INDEX)
15250
                                   (%ATN-NODE-BLOCK |RelationalExpression.2|
15251
                                                    (%ATN-EDGE-BLOCK (POP |RelationalExpression|)
15252
                                                                     (WHEN T
15253
                                                                       (SETF *ATN-TERM* '|RelationalExpression|)
15254
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
15255
                                                                                   '|RelationalExpression| ATN-PARSER::INDEX
15256
                                                                                   (LIST '|NumericExpression| |NumericExpression|
15257
                                                                                         '|RelatedNumeric| |RelatedNumeric|))
15258
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15259
                                                                              (IF (EQ *ATN-REDUCE* T)
15260
                                                                                  (|RelationalExpression-Constructor|
15261
                                                                                   |NumericExpression| |RelatedNumeric|)
15262
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15263
                                                                                      (CONS '|RelationalExpression|
15264
                                                                                            (DELETE NIL
15265
                                                                                                    (LIST |NumericExpression|
15266
                                                                                                          |RelatedNumeric|)))
15267
                                                                                      '|RelationalExpression|))))
15268
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
15269
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
15270
                                 (|RelationalExpression/fail.3| (ATN-PARSER::INDEX)
15271
                                   (%ATN-NODE-BLOCK |RelationalExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15272
                                 (|RelationalExpression/RelationalExpression.2.4| (ATN-PARSER::INDEX)
15273
                                   (%ATN-NODE-BLOCK |RelationalExpression/RelationalExpression.2.4|
15274
                                                    (%ATN-EDGE-BLOCK (PUSH |RelatedNumeric|)
15275
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15276
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|RelatedNumeric|
15277
                                                                                                  ATN-PARSER::INDEX)
15278
                                                                       (COND
15279
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|RelatedNumeric|)
15280
                                                                         (LET ((|RelatedNumeric711| |RelatedNumeric|))
15281
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15282
                                                                             (DESTRUCTURING-BIND
15283
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15284
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15285
                                                                               (WHEN ATN-PARSER::RESULT
15286
                                                                                 (SETF |RelatedNumeric| ATN-PARSER::RESULT))
15287
                                                                               (|RelationalExpression.2| ATN-PARSER::RESULT-INDEX))
15288
                                                                             (SETF |RelatedNumeric| |RelatedNumeric711|))))
15289
                                                                        (T (SETF *ATN-TERM?* '|RelatedNumeric|)
15290
                                                                         (|RelationalExpression.2| ATN-PARSER::INDEX)))))))
15291
                                 (|RelationalExpression/start.1| (ATN-PARSER::INDEX)
15292
                                   (%ATN-NODE-BLOCK |RelationalExpression/start.1|
15293
                                                    (%ATN-EDGE-BLOCK (PUSH |NumericExpression|)
15294
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15295
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression|
15296
                                                                                                  ATN-PARSER::INDEX)
15297
                                                                       (COND
15298
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|NumericExpression|)
15299
                                                                         (LET ((|NumericExpression712| |NumericExpression|))
15300
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15301
                                                                             (DESTRUCTURING-BIND
15302
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15303
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15304
                                                                               (WHEN ATN-PARSER::RESULT
15305
                                                                                 (SETF |NumericExpression| ATN-PARSER::RESULT))
15306
                                                                               (|RelationalExpression/RelationalExpression.2.4|
15307
                                                                                ATN-PARSER::RESULT-INDEX))
15308
                                                                             (SETF |NumericExpression| |NumericExpression712|))))
15309
                                                                        (T (SETF *ATN-TERM?* '|NumericExpression|)
15310
                                                                         (|RelationalExpression/fail.3| ATN-PARSER::INDEX))))))))
15311
                          (|RelationalExpression/start.1| ATN-PARSER::INDEX)
15312
                          (SETF *ATN-NODE NIL)
15313
                          NIL
15314
                          (IF ATN-PARSER::ATN-STRUCTURE
15315
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15316
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15317
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelationalExpression| ATN-PARSER::INDEX *ATN-STACK))))
15318
 (PROGN
15319
  (DEFVAR |RelatedNumeric-INDEX|)
15320
  (DEFUN |RelatedNumeric|
15321
         (ATN-PARSER::INDEX &AUX (|ExpressionList| NIL) (|MemberOperator| NIL) (|NumericExpression| NIL) (|RelationalOperator| NIL))
15322
    "{104b} RelatedNumeric ::= ((RelationalOperator NumericExpression) | (MemberOperator
15323
                                                                      ExpressionList))
15324
 (|ExpressionList| |MemberOperator| |NumericExpression| |RelationalOperator|)"
15325
    (DECLARE (SPECIAL |RelatedNumeric-INDEX|))
15326
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelatedNumeric-INDEX| *ATN-LEVEL))
15327
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15328
    (IF (< |RelatedNumeric-INDEX| ATN-PARSER::INDEX)
15329
        (LET ((|RelatedNumeric-INDEX| ATN-PARSER::INDEX)
15330
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15331
              (*ATN-STACK (CONS '|RelatedNumeric| *ATN-STACK))
15332
              (ATN-PARSER::ATN-STRUCTURE NIL))
15333
          (DECLARE (SPECIAL |RelatedNumeric-INDEX|))
15334
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15335
          (DECLARE (TYPE CONS *ATN-STACK))
15336
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15337
            (%ATN-BLOCK |RelatedNumeric|
15338
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15339
                                   (SETF *ATN-TERM* '|RelatedNumeric|)
15340
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15341
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15342
                                   ATN-PARSER::INDEX)
15343
                                 (|RelatedNumeric.2| (ATN-PARSER::INDEX)
15344
                                   (%ATN-NODE-BLOCK |RelatedNumeric.2|
15345
                                                    (%ATN-EDGE-BLOCK (POP |RelatedNumeric|)
15346
                                                                     (WHEN T
15347
                                                                       (SETF *ATN-TERM* '|RelatedNumeric|)
15348
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
15349
                                                                                   '|RelatedNumeric| ATN-PARSER::INDEX
15350
                                                                                   (LIST '|ExpressionList| |ExpressionList|
15351
                                                                                         '|MemberOperator| |MemberOperator|
15352
                                                                                         '|NumericExpression| |NumericExpression|
15353
                                                                                         '|RelationalOperator|
15354
                                                                                         |RelationalOperator|))
15355
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15356
                                                                              (IF (EQ *ATN-REDUCE* T)
15357
                                                                                  (|RelatedNumeric-Constructor| |ExpressionList|
15358
                                                                                                                |MemberOperator|
15359
                                                                                                                |NumericExpression|
15360
                                                                                                                |RelationalOperator|)
15361
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15362
                                                                                      (CONS '|RelatedNumeric|
15363
                                                                                            (DELETE NIL
15364
                                                                                                    (LIST |ExpressionList|
15365
                                                                                                          |MemberOperator|
15366
                                                                                                          |NumericExpression|
15367
                                                                                                          |RelationalOperator|)))
15368
                                                                                      '|RelatedNumeric|))))
15369
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
15370
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
15371
                                 (|RelatedNumeric/fail.3| (ATN-PARSER::INDEX)
15372
                                   (%ATN-NODE-BLOCK |RelatedNumeric/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15373
                                 (|RelatedNumeric/RelatedNumeric.2.4| (ATN-PARSER::INDEX)
15374
                                   (%ATN-NODE-BLOCK |RelatedNumeric/RelatedNumeric.2.4|
15375
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |RelationalOperator|)
15376
                                                                     (COND
15377
                                                                      ((|IS-RelationalOperator| ATN-PARSER::|item|)
15378
                                                                       (SETF *ATN-TERM* '|RelationalOperator|)
15379
                                                                       (SETF |RelationalOperator|
15380
                                                                               (IF (EQ *ATN-REDUCE* T)
15381
                                                                                   (ATN-REDUCE-ITEM
15382
                                                                                    #'|RelationalOperator-Constructor|
15383
                                                                                    ATN-PARSER::|item|)
15384
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
15385
                                                                                       (LIST '|RelationalOperator|
15386
                                                                                             ATN-PARSER::|item|)
15387
                                                                                       '|RelationalOperator|)))
15388
                                                                       (|RelatedNumeric/RelatedNumeric.2.5| (1+ ATN-PARSER::INDEX)))
15389
                                                                      (T (SETF *ATN-TERM* '|RelationalOperator|) NIL)))))
15390
                                 (|RelatedNumeric/RelatedNumeric.2.5| (ATN-PARSER::INDEX)
15391
                                   (%ATN-NODE-BLOCK |RelatedNumeric/RelatedNumeric.2.5|
15392
                                                    (%ATN-EDGE-BLOCK (PUSH |NumericExpression|)
15393
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15394
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression|
15395
                                                                                                  ATN-PARSER::INDEX)
15396
                                                                       (COND
15397
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|NumericExpression|)
15398
                                                                         (LET ((|NumericExpression715| |NumericExpression|))
15399
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15400
                                                                             (DESTRUCTURING-BIND
15401
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15402
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15403
                                                                               (WHEN ATN-PARSER::RESULT
15404
                                                                                 (SETF |NumericExpression| ATN-PARSER::RESULT))
15405
                                                                               (|RelatedNumeric.2| ATN-PARSER::RESULT-INDEX))
15406
                                                                             (SETF |NumericExpression| |NumericExpression715|))))
15407
                                                                        (T (SETF *ATN-TERM?* '|NumericExpression|) NIL))))))
15408
                                 (|RelatedNumeric/RelatedNumeric.2.6| (ATN-PARSER::INDEX)
15409
                                   (%ATN-NODE-BLOCK |RelatedNumeric/RelatedNumeric.2.6|
15410
                                                    (%ATN-EDGE-BLOCK (PUSH |MemberOperator|)
15411
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15412
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|MemberOperator|
15413
                                                                                                  ATN-PARSER::INDEX)
15414
                                                                       (COND
15415
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|MemberOperator|)
15416
                                                                         (LET ((|MemberOperator714| |MemberOperator|))
15417
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15418
                                                                             (DESTRUCTURING-BIND
15419
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15420
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15421
                                                                               (WHEN ATN-PARSER::RESULT
15422
                                                                                 (SETF |MemberOperator| ATN-PARSER::RESULT))
15423
                                                                               (|RelatedNumeric/RelatedNumeric.2.7|
15424
                                                                                ATN-PARSER::RESULT-INDEX))
15425
                                                                             (SETF |MemberOperator| |MemberOperator714|))))
15426
                                                                        (T (SETF *ATN-TERM?* '|MemberOperator|) NIL))))))
15427
                                 (|RelatedNumeric/RelatedNumeric.2.7| (ATN-PARSER::INDEX)
15428
                                   (%ATN-NODE-BLOCK |RelatedNumeric/RelatedNumeric.2.7|
15429
                                                    (%ATN-EDGE-BLOCK (PUSH |ExpressionList|)
15430
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15431
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ExpressionList|
15432
                                                                                                  ATN-PARSER::INDEX)
15433
                                                                       (COND
15434
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ExpressionList|)
15435
                                                                         (LET ((|ExpressionList713| |ExpressionList|))
15436
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15437
                                                                             (DESTRUCTURING-BIND
15438
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15439
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15440
                                                                               (WHEN ATN-PARSER::RESULT
15441
                                                                                 (SETF |ExpressionList| ATN-PARSER::RESULT))
15442
                                                                               (|RelatedNumeric.2| ATN-PARSER::RESULT-INDEX))
15443
                                                                             (SETF |ExpressionList| |ExpressionList713|))))
15444
                                                                        (T (SETF *ATN-TERM?* '|ExpressionList|) NIL))))))
15445
                                 (|RelatedNumeric/start.1| (ATN-PARSER::INDEX)
15446
                                   (%ATN-NODE-BLOCK |RelatedNumeric/start.1|
15447
                                                    (%ATN-EDGE-BLOCK OR
15448
                                                                     (PROGN
15449
                                                                      (%ATN-EDGE-BLOCK
15450
                                                                       (ATN-PARSER::JUMP |RelatedNumeric/RelatedNumeric.2.4|)
15451
                                                                       (|RelatedNumeric/RelatedNumeric.2.4| ATN-PARSER::INDEX))
15452
                                                                      (%ATN-EDGE-BLOCK
15453
                                                                       (ATN-PARSER::JUMP |RelatedNumeric/RelatedNumeric.2.6|)
15454
                                                                       (|RelatedNumeric/RelatedNumeric.2.6| ATN-PARSER::INDEX))
15455
                                                                      (|RelatedNumeric/fail.3| ATN-PARSER::INDEX))))))
15456
                          (|RelatedNumeric/start.1| ATN-PARSER::INDEX)
15457
                          (SETF *ATN-NODE NIL)
15458
                          NIL
15459
                          (IF ATN-PARSER::ATN-STRUCTURE
15460
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15461
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15462
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelatedNumeric| ATN-PARSER::INDEX *ATN-STACK))))
15463
 (PROGN
15464
  (DEFVAR |MemberOperator-INDEX|)
15465
  (DEFUN |MemberOperator| (ATN-PARSER::INDEX &AUX (|NotIn| NIL))
15466
    "{104c} MemberOperator ::= ('IN' | NotIn)
15467
 (|NotIn|)"
15468
    (DECLARE (SPECIAL |MemberOperator-INDEX|))
15469
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MemberOperator-INDEX| *ATN-LEVEL))
15470
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15471
    (IF (< |MemberOperator-INDEX| ATN-PARSER::INDEX)
15472
        (LET ((|MemberOperator-INDEX| ATN-PARSER::INDEX)
15473
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15474
              (*ATN-STACK (CONS '|MemberOperator| *ATN-STACK))
15475
              (ATN-PARSER::ATN-STRUCTURE NIL))
15476
          (DECLARE (SPECIAL |MemberOperator-INDEX|))
15477
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15478
          (DECLARE (TYPE CONS *ATN-STACK))
15479
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15480
            (%ATN-BLOCK |MemberOperator|
15481
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15482
                                   (SETF *ATN-TERM* '|MemberOperator|)
15483
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15484
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15485
                                   ATN-PARSER::INDEX)
15486
                                 (|MemberOperator.2| (ATN-PARSER::INDEX)
15487
                                   (%ATN-NODE-BLOCK |MemberOperator.2|
15488
                                                    (%ATN-EDGE-BLOCK (POP |MemberOperator|)
15489
                                                                     (WHEN T
15490
                                                                       (SETF *ATN-TERM* '|MemberOperator|)
15491
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
15492
                                                                                   '|MemberOperator| ATN-PARSER::INDEX
15493
                                                                                   (LIST '|NotIn| |NotIn|))
15494
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15495
                                                                              (IF (EQ *ATN-REDUCE* T)
15496
                                                                                  (|MemberOperator-Constructor| |NotIn|)
15497
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15498
                                                                                      (CONS '|MemberOperator|
15499
                                                                                            (DELETE NIL (LIST |NotIn|)))
15500
                                                                                      '|MemberOperator|))))
15501
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
15502
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
15503
                                 (|MemberOperator/fail.3| (ATN-PARSER::INDEX)
15504
                                   (%ATN-NODE-BLOCK |MemberOperator/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15505
                                 (|MemberOperator/start.1| (ATN-PARSER::INDEX)
15506
                                   (%ATN-NODE-BLOCK |MemberOperator/start.1|
15507
                                                    (%ATN-EDGE-BLOCK OR
15508
                                                                     (PROGN
15509
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:IN)
15510
                                                                                       (COND
15511
                                                                                        ((EQ ATN-PARSER::|item| 'SPOCQ.S:IN)
15512
                                                                                         (SETF *ATN-TERM* 'SPOCQ.S:IN)
15513
                                                                                         (|MemberOperator.2|
15514
                                                                                          (1+ ATN-PARSER::INDEX)))
15515
                                                                                        (T (SETF *ATN-TERM?* 'SPOCQ.S:IN) NIL)))
15516
                                                                      (%ATN-EDGE-BLOCK (PUSH |NotIn|)
15517
                                                                                       (MULTIPLE-VALUE-BIND
15518
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15519
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|NotIn|
15520
                                                                                                                    ATN-PARSER::INDEX)
15521
                                                                                         (COND
15522
                                                                                          (ATN-PARSER::SUCCESS
15523
                                                                                           (SETF *ATN-TERM* '|NotIn|)
15524
                                                                                           (LET ((|NotIn716| |NotIn|))
15525
                                                                                             (DOLIST
15526
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
15527
                                                                                                  ATN-PARSER::RESULT)
15528
                                                                                               (DESTRUCTURING-BIND
15529
                                                                                                   (
15530
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15531
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
15532
                                                                                                 (WHEN ATN-PARSER::RESULT
15533
                                                                                                   (SETF |NotIn|
15534
                                                                                                           ATN-PARSER::RESULT))
15535
                                                                                                 (|MemberOperator.2|
15536
                                                                                                  ATN-PARSER::RESULT-INDEX))
15537
                                                                                               (SETF |NotIn| |NotIn716|))))
15538
                                                                                          (T (SETF *ATN-TERM?* '|NotIn|) NIL))))
15539
                                                                      (|MemberOperator/fail.3| ATN-PARSER::INDEX))))))
15540
                          (|MemberOperator/start.1| ATN-PARSER::INDEX)
15541
                          (SETF *ATN-NODE NIL)
15542
                          NIL
15543
                          (IF ATN-PARSER::ATN-STRUCTURE
15544
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15545
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15546
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|MemberOperator| ATN-PARSER::INDEX *ATN-STACK))))
15547
 (PROGN
15548
  (DEFVAR |NotIn-INDEX|)
15549
  (DEFUN |NotIn| (ATN-PARSER::INDEX &AUX)
15550
    "{104d} NotIn ::= 'NOT' 'IN'
15551
 NIL"
15552
    (DECLARE (SPECIAL |NotIn-INDEX|))
15553
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NotIn-INDEX| *ATN-LEVEL))
15554
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15555
    (IF (< |NotIn-INDEX| ATN-PARSER::INDEX)
15556
        (LET ((|NotIn-INDEX| ATN-PARSER::INDEX)
15557
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15558
              (*ATN-STACK (CONS '|NotIn| *ATN-STACK))
15559
              (ATN-PARSER::ATN-STRUCTURE NIL))
15560
          (DECLARE (SPECIAL |NotIn-INDEX|))
15561
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15562
          (DECLARE (TYPE CONS *ATN-STACK))
15563
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15564
            (%ATN-BLOCK |NotIn|
15565
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15566
                                   (SETF *ATN-TERM* '|NotIn|)
15567
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15568
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15569
                                   ATN-PARSER::INDEX)
15570
                                 (|NotIn.2| (ATN-PARSER::INDEX)
15571
                                   (%ATN-NODE-BLOCK |NotIn.2|
15572
                                                    (%ATN-EDGE-BLOCK (POP |NotIn|)
15573
                                                                     (WHEN T
15574
                                                                       (SETF *ATN-TERM* '|NotIn|)
15575
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|NotIn|
15576
                                                                                   ATN-PARSER::INDEX (LIST))
15577
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15578
                                                                              (IF (EQ *ATN-REDUCE* T)
15579
                                                                                  (|NotIn-Constructor|)
15580
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15581
                                                                                      (CONS '|NotIn| (DELETE NIL (LIST)))
15582
                                                                                      '|NotIn|))))
15583
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
15584
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
15585
                                 (|NotIn/fail.3| (ATN-PARSER::INDEX)
15586
                                   (%ATN-NODE-BLOCK |NotIn/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15587
                                 (|NotIn/NotIn.2.4| (ATN-PARSER::INDEX)
15588
                                   (%ATN-NODE-BLOCK |NotIn/NotIn.2.4|
15589
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:IN)
15590
                                                                     (COND
15591
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:IN)
15592
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:IN)
15593
                                                                       (|NotIn.2| (1+ ATN-PARSER::INDEX)))
15594
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:IN)
15595
                                                                       (|NotIn/fail.3| ATN-PARSER::INDEX))))))
15596
                                 (|NotIn/start.1| (ATN-PARSER::INDEX)
15597
                                   (%ATN-NODE-BLOCK |NotIn/start.1|
15598
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:NOT)
15599
                                                                     (COND
15600
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:NOT)
15601
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:NOT)
15602
                                                                       (|NotIn/NotIn.2.4| (1+ ATN-PARSER::INDEX)))
15603
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:NOT)
15604
                                                                       (|NotIn/fail.3| ATN-PARSER::INDEX)))))))
15605
                          (|NotIn/start.1| ATN-PARSER::INDEX)
15606
                          (SETF *ATN-NODE NIL)
15607
                          NIL
15608
                          (IF ATN-PARSER::ATN-STRUCTURE
15609
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15610
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15611
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|NotIn| ATN-PARSER::INDEX *ATN-STACK))))
15612
 (PROGN
15613
  (DEFVAR |NumericExpression-INDEX|)
15614
  (DEFUN |NumericExpression| (ATN-PARSER::INDEX &AUX (|AdditiveExpression| NIL))
15615
    "{105} NumericExpression ::= AdditiveExpression
15616
 (|AdditiveExpression|)"
15617
    (DECLARE (SPECIAL |NumericExpression-INDEX|))
15618
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NumericExpression-INDEX| *ATN-LEVEL))
15619
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15620
    (IF (< |NumericExpression-INDEX| ATN-PARSER::INDEX)
15621
        (LET ((|NumericExpression-INDEX| ATN-PARSER::INDEX)
15622
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15623
              (*ATN-STACK (CONS '|NumericExpression| *ATN-STACK))
15624
              (ATN-PARSER::ATN-STRUCTURE NIL))
15625
          (DECLARE (SPECIAL |NumericExpression-INDEX|))
15626
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15627
          (DECLARE (TYPE CONS *ATN-STACK))
15628
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15629
            (%ATN-BLOCK |NumericExpression|
15630
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15631
                                   (SETF *ATN-TERM* '|NumericExpression|)
15632
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15633
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15634
                                   ATN-PARSER::INDEX)
15635
                                 (|NumericExpression.2| (ATN-PARSER::INDEX)
15636
                                   (%ATN-NODE-BLOCK |NumericExpression.2|
15637
                                                    (%ATN-EDGE-BLOCK (POP |NumericExpression|)
15638
                                                                     (WHEN T
15639
                                                                       (SETF *ATN-TERM* '|NumericExpression|)
15640
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
15641
                                                                                   '|NumericExpression| ATN-PARSER::INDEX
15642
                                                                                   (LIST '|AdditiveExpression|
15643
                                                                                         |AdditiveExpression|))
15644
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15645
                                                                              (IF (EQ *ATN-REDUCE* T)
15646
                                                                                  (|NumericExpression-Constructor|
15647
                                                                                   |AdditiveExpression|)
15648
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15649
                                                                                      (CONS '|NumericExpression|
15650
                                                                                            (DELETE NIL
15651
                                                                                                    (LIST |AdditiveExpression|)))
15652
                                                                                      '|NumericExpression|))))
15653
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
15654
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
15655
                                 (|NumericExpression/fail.3| (ATN-PARSER::INDEX)
15656
                                   (%ATN-NODE-BLOCK |NumericExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15657
                                 (|NumericExpression/start.1| (ATN-PARSER::INDEX)
15658
                                   (%ATN-NODE-BLOCK |NumericExpression/start.1|
15659
                                                    (%ATN-EDGE-BLOCK (PUSH |AdditiveExpression|)
15660
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15661
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|AdditiveExpression|
15662
                                                                                                  ATN-PARSER::INDEX)
15663
                                                                       (COND
15664
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|AdditiveExpression|)
15665
                                                                         (LET ((|AdditiveExpression717| |AdditiveExpression|))
15666
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15667
                                                                             (DESTRUCTURING-BIND
15668
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15669
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15670
                                                                               (WHEN ATN-PARSER::RESULT
15671
                                                                                 (SETF |AdditiveExpression| ATN-PARSER::RESULT))
15672
                                                                               (|NumericExpression.2| ATN-PARSER::RESULT-INDEX))
15673
                                                                             (SETF |AdditiveExpression| |AdditiveExpression717|))))
15674
                                                                        (T (SETF *ATN-TERM?* '|AdditiveExpression|)
15675
                                                                         (|NumericExpression/fail.3| ATN-PARSER::INDEX))))))))
15676
                          (|NumericExpression/start.1| ATN-PARSER::INDEX)
15677
                          (SETF *ATN-NODE NIL)
15678
                          NIL
15679
                          (IF ATN-PARSER::ATN-STRUCTURE
15680
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15681
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15682
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|NumericExpression| ATN-PARSER::INDEX *ATN-STACK))))
15683
 (PROGN
15684
  (DEFVAR |AdditiveExpression-INDEX|)
15685
  (DEFUN |AdditiveExpression| (ATN-PARSER::INDEX &AUX (|AddedMultiplicative| NIL) (|MultiplicativeExpression| NIL))
15686
    "{106} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*
15687
 (|AddedMultiplicative| |MultiplicativeExpression|)"
15688
    (DECLARE (SPECIAL |AdditiveExpression-INDEX|))
15689
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AdditiveExpression-INDEX| *ATN-LEVEL))
15690
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15691
    (IF (< |AdditiveExpression-INDEX| ATN-PARSER::INDEX)
15692
        (LET ((|AdditiveExpression-INDEX| ATN-PARSER::INDEX)
15693
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15694
              (*ATN-STACK (CONS '|AdditiveExpression| *ATN-STACK))
15695
              (ATN-PARSER::ATN-STRUCTURE NIL))
15696
          (DECLARE (SPECIAL |AdditiveExpression-INDEX|))
15697
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15698
          (DECLARE (TYPE CONS *ATN-STACK))
15699
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15700
            (%ATN-BLOCK |AdditiveExpression|
15701
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15702
                                   (SETF *ATN-TERM* '|AdditiveExpression|)
15703
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15704
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15705
                                   ATN-PARSER::INDEX)
15706
                                 (|AdditiveExpression.2| (ATN-PARSER::INDEX)
15707
                                   (%ATN-NODE-BLOCK |AdditiveExpression.2|
15708
                                                    (%ATN-EDGE-BLOCK (POP |AdditiveExpression|)
15709
                                                                     (WHEN T
15710
                                                                       (SETF *ATN-TERM* '|AdditiveExpression|)
15711
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
15712
                                                                                   '|AdditiveExpression| ATN-PARSER::INDEX
15713
                                                                                   (LIST '|AddedMultiplicative|
15714
                                                                                         |AddedMultiplicative|
15715
                                                                                         '|MultiplicativeExpression|
15716
                                                                                         |MultiplicativeExpression|))
15717
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15718
                                                                              (IF (EQ *ATN-REDUCE* T)
15719
                                                                                  (|AdditiveExpression-Constructor|
15720
                                                                                   |AddedMultiplicative| |MultiplicativeExpression|)
15721
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15722
                                                                                      (CONS '|AdditiveExpression|
15723
                                                                                            (DELETE NIL
15724
                                                                                                    (LIST |AddedMultiplicative|
15725
                                                                                                          |MultiplicativeExpression|)))
15726
                                                                                      '|AdditiveExpression|))))
15727
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
15728
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
15729
                                 (|AdditiveExpression.5| (ATN-PARSER::INDEX)
15730
                                   (%ATN-NODE-BLOCK |AdditiveExpression.5|
15731
                                                    (%ATN-EDGE-BLOCK (PUSH |AddedMultiplicative|)
15732
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15733
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative|
15734
                                                                                                  ATN-PARSER::INDEX)
15735
                                                                       (COND
15736
                                                                        (ATN-PARSER::SUCCESS
15737
                                                                         (SETF *ATN-TERM* '|AddedMultiplicative|)
15738
                                                                         (LET ((|AddedMultiplicative719| |AddedMultiplicative|))
15739
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15740
                                                                             (DESTRUCTURING-BIND
15741
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15742
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15743
                                                                               (WHEN ATN-PARSER::RESULT
15744
                                                                                 (SETF |AddedMultiplicative|
15745
                                                                                         (CONS ATN-PARSER::RESULT
15746
                                                                                               |AddedMultiplicative|)))
15747
                                                                               (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))
15748
                                                                             (SETF |AddedMultiplicative|
15749
                                                                                     |AddedMultiplicative719|))))
15750
                                                                        (T (SETF *ATN-TERM?* '|AddedMultiplicative|)
15751
                                                                         (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))
15752
                                 (|AdditiveExpression/AdditiveExpression.2.4| (ATN-PARSER::INDEX)
15753
                                   (%ATN-NODE-BLOCK |AdditiveExpression/AdditiveExpression.2.4|
15754
                                                    (%ATN-EDGE-BLOCK (PUSH |AddedMultiplicative|)
15755
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15756
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative|
15757
                                                                                                  ATN-PARSER::INDEX)
15758
                                                                       (COND
15759
                                                                        (ATN-PARSER::SUCCESS
15760
                                                                         (SETF *ATN-TERM* '|AddedMultiplicative|)
15761
                                                                         (LET ((|AddedMultiplicative718| |AddedMultiplicative|))
15762
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15763
                                                                             (DESTRUCTURING-BIND
15764
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15765
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15766
                                                                               (WHEN ATN-PARSER::RESULT
15767
                                                                                 (SETF |AddedMultiplicative|
15768
                                                                                         (CONS ATN-PARSER::RESULT
15769
                                                                                               |AddedMultiplicative|)))
15770
                                                                               (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))
15771
                                                                             (SETF |AddedMultiplicative|
15772
                                                                                     |AddedMultiplicative718|))))
15773
                                                                        (T (SETF *ATN-TERM?* '|AddedMultiplicative|)
15774
                                                                         (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))
15775
                                 (|AdditiveExpression/fail.3| (ATN-PARSER::INDEX)
15776
                                   (%ATN-NODE-BLOCK |AdditiveExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15777
                                 (|AdditiveExpression/start.1| (ATN-PARSER::INDEX)
15778
                                   (%ATN-NODE-BLOCK |AdditiveExpression/start.1|
15779
                                                    (%ATN-EDGE-BLOCK (PUSH |MultiplicativeExpression|)
15780
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15781
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression|
15782
                                                                                                  ATN-PARSER::INDEX)
15783
                                                                       (COND
15784
                                                                        (ATN-PARSER::SUCCESS
15785
                                                                         (SETF *ATN-TERM* '|MultiplicativeExpression|)
15786
                                                                         (LET ((|MultiplicativeExpression720|
15787
                                                                                |MultiplicativeExpression|))
15788
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15789
                                                                             (DESTRUCTURING-BIND
15790
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15791
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15792
                                                                               (WHEN ATN-PARSER::RESULT
15793
                                                                                 (SETF |MultiplicativeExpression|
15794
                                                                                         ATN-PARSER::RESULT))
15795
                                                                               (|AdditiveExpression/AdditiveExpression.2.4|
15796
                                                                                ATN-PARSER::RESULT-INDEX))
15797
                                                                             (SETF |MultiplicativeExpression|
15798
                                                                                     |MultiplicativeExpression720|))))
15799
                                                                        (T (SETF *ATN-TERM?* '|MultiplicativeExpression|)
15800
                                                                         (|AdditiveExpression/fail.3| ATN-PARSER::INDEX))))))))
15801
                          (|AdditiveExpression/start.1| ATN-PARSER::INDEX)
15802
                          (SETF *ATN-NODE NIL)
15803
                          NIL
15804
                          (IF ATN-PARSER::ATN-STRUCTURE
15805
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15806
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15807
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|AdditiveExpression| ATN-PARSER::INDEX *ATN-STACK))))
15808
 (PROGN
15809
  (DEFVAR |AddedMultiplicative-INDEX|)
15810
  (DEFUN |AddedMultiplicative|
15811
         (ATN-PARSER::INDEX
15812
          &AUX (|AdditiveOperator| NIL) (|MultiplicativeExpression| NIL) (|NumericLiteralNegative| NIL)
15813
          (|NumericLiteralPositive| NIL))
15814
    "{106b} AddedMultiplicative ::= ((AdditiveOperator MultiplicativeExpression) | NumericLiteralPositive | NumericLiteralNegative)
15815
 (|AdditiveOperator| |MultiplicativeExpression| |NumericLiteralNegative|
15816
  |NumericLiteralPositive|)"
15817
    (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))
15818
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AddedMultiplicative-INDEX| *ATN-LEVEL))
15819
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15820
    (IF (< |AddedMultiplicative-INDEX| ATN-PARSER::INDEX)
15821
        (LET ((|AddedMultiplicative-INDEX| ATN-PARSER::INDEX)
15822
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15823
              (*ATN-STACK (CONS '|AddedMultiplicative| *ATN-STACK))
15824
              (ATN-PARSER::ATN-STRUCTURE NIL))
15825
          (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))
15826
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15827
          (DECLARE (TYPE CONS *ATN-STACK))
15828
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15829
            (%ATN-BLOCK |AddedMultiplicative|
15830
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15831
                                   (SETF *ATN-TERM* '|AddedMultiplicative|)
15832
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15833
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15834
                                   ATN-PARSER::INDEX)
15835
                                 (|AddedMultiplicative.2| (ATN-PARSER::INDEX)
15836
                                   (%ATN-NODE-BLOCK |AddedMultiplicative.2|
15837
                                                    (%ATN-EDGE-BLOCK (POP |AddedMultiplicative|)
15838
                                                                     (WHEN T
15839
                                                                       (SETF *ATN-TERM* '|AddedMultiplicative|)
15840
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
15841
                                                                                   '|AddedMultiplicative| ATN-PARSER::INDEX
15842
                                                                                   (LIST '|AdditiveOperator| |AdditiveOperator|
15843
                                                                                         '|MultiplicativeExpression|
15844
                                                                                         |MultiplicativeExpression|
15845
                                                                                         '|NumericLiteralNegative|
15846
                                                                                         |NumericLiteralNegative|
15847
                                                                                         '|NumericLiteralPositive|
15848
                                                                                         |NumericLiteralPositive|))
15849
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15850
                                                                              (IF (EQ *ATN-REDUCE* T)
15851
                                                                                  (|AddedMultiplicative-Constructor|
15852
                                                                                   |AdditiveOperator| |MultiplicativeExpression|
15853
                                                                                   |NumericLiteralNegative|
15854
                                                                                   |NumericLiteralPositive|)
15855
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15856
                                                                                      (CONS '|AddedMultiplicative|
15857
                                                                                            (DELETE NIL
15858
                                                                                                    (LIST |AdditiveOperator|
15859
                                                                                                          |MultiplicativeExpression|
15860
                                                                                                          |NumericLiteralNegative|
15861
                                                                                                          |NumericLiteralPositive|)))
15862
                                                                                      '|AddedMultiplicative|))))
15863
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
15864
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
15865
                                 (|AddedMultiplicative/AddedMultiplicative.2.4| (ATN-PARSER::INDEX)
15866
                                   (%ATN-NODE-BLOCK |AddedMultiplicative/AddedMultiplicative.2.4|
15867
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |AdditiveOperator|)
15868
                                                                     (COND
15869
                                                                      ((|IS-AdditiveOperator| ATN-PARSER::|item|)
15870
                                                                       (SETF *ATN-TERM* '|AdditiveOperator|)
15871
                                                                       (SETF |AdditiveOperator|
15872
                                                                               (IF (EQ *ATN-REDUCE* T)
15873
                                                                                   (ATN-REDUCE-ITEM #'|AdditiveOperator-Constructor|
15874
                                                                                                    ATN-PARSER::|item|)
15875
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
15876
                                                                                       (LIST '|AdditiveOperator| ATN-PARSER::|item|)
15877
                                                                                       '|AdditiveOperator|)))
15878
                                                                       (|AddedMultiplicative/AddedMultiplicative.2.5|
15879
                                                                        (1+ ATN-PARSER::INDEX)))
15880
                                                                      (T (SETF *ATN-TERM* '|AdditiveOperator|) NIL)))))
15881
                                 (|AddedMultiplicative/AddedMultiplicative.2.5| (ATN-PARSER::INDEX)
15882
                                   (%ATN-NODE-BLOCK |AddedMultiplicative/AddedMultiplicative.2.5|
15883
                                                    (%ATN-EDGE-BLOCK (PUSH |MultiplicativeExpression|)
15884
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
15885
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression|
15886
                                                                                                  ATN-PARSER::INDEX)
15887
                                                                       (COND
15888
                                                                        (ATN-PARSER::SUCCESS
15889
                                                                         (SETF *ATN-TERM* '|MultiplicativeExpression|)
15890
                                                                         (LET ((|MultiplicativeExpression721|
15891
                                                                                |MultiplicativeExpression|))
15892
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
15893
                                                                             (DESTRUCTURING-BIND
15894
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
15895
                                                                                 ATN-PARSER::RESULT-AND-INDEX
15896
                                                                               (WHEN ATN-PARSER::RESULT
15897
                                                                                 (SETF |MultiplicativeExpression|
15898
                                                                                         ATN-PARSER::RESULT))
15899
                                                                               (|AddedMultiplicative.2| ATN-PARSER::RESULT-INDEX))
15900
                                                                             (SETF |MultiplicativeExpression|
15901
                                                                                     |MultiplicativeExpression721|))))
15902
                                                                        (T (SETF *ATN-TERM?* '|MultiplicativeExpression|) NIL))))))
15903
                                 (|AddedMultiplicative/fail.3| (ATN-PARSER::INDEX)
15904
                                   (%ATN-NODE-BLOCK |AddedMultiplicative/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
15905
                                 (|AddedMultiplicative/start.1| (ATN-PARSER::INDEX)
15906
                                   (%ATN-NODE-BLOCK |AddedMultiplicative/start.1|
15907
                                                    (%ATN-EDGE-BLOCK OR
15908
                                                                     (PROGN
15909
                                                                      (%ATN-EDGE-BLOCK
15910
                                                                       (ATN-PARSER::JUMP
15911
                                                                        |AddedMultiplicative/AddedMultiplicative.2.4|)
15912
                                                                       (|AddedMultiplicative/AddedMultiplicative.2.4|
15913
                                                                        ATN-PARSER::INDEX))
15914
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |NumericLiteralPositive|)
15915
                                                                                       (COND
15916
                                                                                        ((|IS-NumericLiteralPositive|
15917
                                                                                          ATN-PARSER::|item|)
15918
                                                                                         (SETF *ATN-TERM* '|NumericLiteralPositive|)
15919
                                                                                         (SETF |NumericLiteralPositive|
15920
                                                                                                 (IF (EQ *ATN-REDUCE* T)
15921
                                                                                                     (ATN-REDUCE-ITEM
15922
                                                                                                      #'|NumericLiteralPositive-Constructor|
15923
                                                                                                      ATN-PARSER::|item|)
15924
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
15925
                                                                                                         (LIST
15926
                                                                                                          '|NumericLiteralPositive|
15927
                                                                                                          ATN-PARSER::|item|)
15928
                                                                                                         '|NumericLiteralPositive|)))
15929
                                                                                         (|AddedMultiplicative.2|
15930
                                                                                          (1+ ATN-PARSER::INDEX)))
15931
                                                                                        (T
15932
                                                                                         (SETF *ATN-TERM* '|NumericLiteralPositive|)
15933
                                                                                         NIL)))
15934
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |NumericLiteralNegative|)
15935
                                                                                       (COND
15936
                                                                                        ((|IS-NumericLiteralNegative|
15937
                                                                                          ATN-PARSER::|item|)
15938
                                                                                         (SETF *ATN-TERM* '|NumericLiteralNegative|)
15939
                                                                                         (SETF |NumericLiteralNegative|
15940
                                                                                                 (IF (EQ *ATN-REDUCE* T)
15941
                                                                                                     (ATN-REDUCE-ITEM
15942
                                                                                                      #'|NumericLiteralNegative-Constructor|
15943
                                                                                                      ATN-PARSER::|item|)
15944
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
15945
                                                                                                         (LIST
15946
                                                                                                          '|NumericLiteralNegative|
15947
                                                                                                          ATN-PARSER::|item|)
15948
                                                                                                         '|NumericLiteralNegative|)))
15949
                                                                                         (|AddedMultiplicative.2|
15950
                                                                                          (1+ ATN-PARSER::INDEX)))
15951
                                                                                        (T
15952
                                                                                         (SETF *ATN-TERM* '|NumericLiteralNegative|)
15953
                                                                                         NIL)))
15954
                                                                      (|AddedMultiplicative/fail.3| ATN-PARSER::INDEX))))))
15955
                          (|AddedMultiplicative/start.1| ATN-PARSER::INDEX)
15956
                          (SETF *ATN-NODE NIL)
15957
                          NIL
15958
                          (IF ATN-PARSER::ATN-STRUCTURE
15959
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
15960
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
15961
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|AddedMultiplicative| ATN-PARSER::INDEX *ATN-STACK))))
15962
 (PROGN
15963
  (DEFVAR |MultiplicativeExpression-INDEX|)
15964
  (DEFUN |MultiplicativeExpression| (ATN-PARSER::INDEX &AUX (|MultipliedUnary| NIL) (|UnaryExpression| NIL))
15965
    "{107} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*
15966
 (|MultipliedUnary| |UnaryExpression|)"
15967
    (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))
15968
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultiplicativeExpression-INDEX| *ATN-LEVEL))
15969
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
15970
    (IF (< |MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)
15971
        (LET ((|MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)
15972
              (*ATN-LEVEL (1+ *ATN-LEVEL))
15973
              (*ATN-STACK (CONS '|MultiplicativeExpression| *ATN-STACK))
15974
              (ATN-PARSER::ATN-STRUCTURE NIL))
15975
          (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))
15976
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
15977
          (DECLARE (TYPE CONS *ATN-STACK))
15978
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
15979
            (%ATN-BLOCK |MultiplicativeExpression|
15980
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
15981
                                   (SETF *ATN-TERM* '|MultiplicativeExpression|)
15982
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
15983
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
15984
                                   ATN-PARSER::INDEX)
15985
                                 (|MultiplicativeExpression.2| (ATN-PARSER::INDEX)
15986
                                   (%ATN-NODE-BLOCK |MultiplicativeExpression.2|
15987
                                                    (%ATN-EDGE-BLOCK (POP |MultiplicativeExpression|)
15988
                                                                     (WHEN T
15989
                                                                       (SETF *ATN-TERM* '|MultiplicativeExpression|)
15990
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
15991
                                                                                   '|MultiplicativeExpression| ATN-PARSER::INDEX
15992
                                                                                   (LIST '|MultipliedUnary| |MultipliedUnary|
15993
                                                                                         '|UnaryExpression| |UnaryExpression|))
15994
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
15995
                                                                              (IF (EQ *ATN-REDUCE* T)
15996
                                                                                  (|MultiplicativeExpression-Constructor|
15997
                                                                                   |MultipliedUnary| |UnaryExpression|)
15998
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
15999
                                                                                      (CONS '|MultiplicativeExpression|
16000
                                                                                            (DELETE NIL
16001
                                                                                                    (LIST |MultipliedUnary|
16002
                                                                                                          |UnaryExpression|)))
16003
                                                                                      '|MultiplicativeExpression|))))
16004
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
16005
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
16006
                                 (|MultiplicativeExpression.5| (ATN-PARSER::INDEX)
16007
                                   (%ATN-NODE-BLOCK |MultiplicativeExpression.5|
16008
                                                    (%ATN-EDGE-BLOCK (PUSH |MultipliedUnary|)
16009
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16010
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary|
16011
                                                                                                  ATN-PARSER::INDEX)
16012
                                                                       (COND
16013
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|MultipliedUnary|)
16014
                                                                         (LET ((|MultipliedUnary723| |MultipliedUnary|))
16015
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
16016
                                                                             (DESTRUCTURING-BIND
16017
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16018
                                                                                 ATN-PARSER::RESULT-AND-INDEX
16019
                                                                               (WHEN ATN-PARSER::RESULT
16020
                                                                                 (SETF |MultipliedUnary|
16021
                                                                                         (CONS ATN-PARSER::RESULT
16022
                                                                                               |MultipliedUnary|)))
16023
                                                                               (|MultiplicativeExpression.5|
16024
                                                                                ATN-PARSER::RESULT-INDEX))
16025
                                                                             (SETF |MultipliedUnary| |MultipliedUnary723|))))
16026
                                                                        (T (SETF *ATN-TERM?* '|MultipliedUnary|)
16027
                                                                         (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))
16028
                                 (|MultiplicativeExpression/fail.3| (ATN-PARSER::INDEX)
16029
                                   (%ATN-NODE-BLOCK |MultiplicativeExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
16030
                                 (|MultiplicativeExpression/MultiplicativeExpression.2.4| (ATN-PARSER::INDEX)
16031
                                   (%ATN-NODE-BLOCK |MultiplicativeExpression/MultiplicativeExpression.2.4|
16032
                                                    (%ATN-EDGE-BLOCK (PUSH |MultipliedUnary|)
16033
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16034
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary|
16035
                                                                                                  ATN-PARSER::INDEX)
16036
                                                                       (COND
16037
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|MultipliedUnary|)
16038
                                                                         (LET ((|MultipliedUnary722| |MultipliedUnary|))
16039
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
16040
                                                                             (DESTRUCTURING-BIND
16041
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16042
                                                                                 ATN-PARSER::RESULT-AND-INDEX
16043
                                                                               (WHEN ATN-PARSER::RESULT
16044
                                                                                 (SETF |MultipliedUnary|
16045
                                                                                         (CONS ATN-PARSER::RESULT
16046
                                                                                               |MultipliedUnary|)))
16047
                                                                               (|MultiplicativeExpression.5|
16048
                                                                                ATN-PARSER::RESULT-INDEX))
16049
                                                                             (SETF |MultipliedUnary| |MultipliedUnary722|))))
16050
                                                                        (T (SETF *ATN-TERM?* '|MultipliedUnary|)
16051
                                                                         (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))
16052
                                 (|MultiplicativeExpression/start.1| (ATN-PARSER::INDEX)
16053
                                   (%ATN-NODE-BLOCK |MultiplicativeExpression/start.1|
16054
                                                    (%ATN-EDGE-BLOCK (PUSH |UnaryExpression|)
16055
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16056
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression|
16057
                                                                                                  ATN-PARSER::INDEX)
16058
                                                                       (COND
16059
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|UnaryExpression|)
16060
                                                                         (LET ((|UnaryExpression724| |UnaryExpression|))
16061
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
16062
                                                                             (DESTRUCTURING-BIND
16063
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16064
                                                                                 ATN-PARSER::RESULT-AND-INDEX
16065
                                                                               (WHEN ATN-PARSER::RESULT
16066
                                                                                 (SETF |UnaryExpression| ATN-PARSER::RESULT))
16067
                                                                               (|MultiplicativeExpression/MultiplicativeExpression.2.4|
16068
                                                                                ATN-PARSER::RESULT-INDEX))
16069
                                                                             (SETF |UnaryExpression| |UnaryExpression724|))))
16070
                                                                        (T (SETF *ATN-TERM?* '|UnaryExpression|)
16071
                                                                         (|MultiplicativeExpression/fail.3| ATN-PARSER::INDEX))))))))
16072
                          (|MultiplicativeExpression/start.1| ATN-PARSER::INDEX)
16073
                          (SETF *ATN-NODE NIL)
16074
                          NIL
16075
                          (IF ATN-PARSER::ATN-STRUCTURE
16076
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
16077
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
16078
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultiplicativeExpression| ATN-PARSER::INDEX *ATN-STACK))))
16079
 (PROGN
16080
  (DEFVAR |MultipliedUnary-INDEX|)
16081
  (DEFUN |MultipliedUnary| (ATN-PARSER::INDEX &AUX (|MultiplicativeOperator| NIL) (|UnaryExpression| NIL))
16082
    "{107b} MultipliedUnary ::= MultiplicativeOperator UnaryExpression
16083
 (|MultiplicativeOperator| |UnaryExpression|)"
16084
    (DECLARE (SPECIAL |MultipliedUnary-INDEX|))
16085
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultipliedUnary-INDEX| *ATN-LEVEL))
16086
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
16087
    (IF (< |MultipliedUnary-INDEX| ATN-PARSER::INDEX)
16088
        (LET ((|MultipliedUnary-INDEX| ATN-PARSER::INDEX)
16089
              (*ATN-LEVEL (1+ *ATN-LEVEL))
16090
              (*ATN-STACK (CONS '|MultipliedUnary| *ATN-STACK))
16091
              (ATN-PARSER::ATN-STRUCTURE NIL))
16092
          (DECLARE (SPECIAL |MultipliedUnary-INDEX|))
16093
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
16094
          (DECLARE (TYPE CONS *ATN-STACK))
16095
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
16096
            (%ATN-BLOCK |MultipliedUnary|
16097
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
16098
                                   (SETF *ATN-TERM* '|MultipliedUnary|)
16099
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
16100
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
16101
                                   ATN-PARSER::INDEX)
16102
                                 (|MultipliedUnary.2| (ATN-PARSER::INDEX)
16103
                                   (%ATN-NODE-BLOCK |MultipliedUnary.2|
16104
                                                    (%ATN-EDGE-BLOCK (POP |MultipliedUnary|)
16105
                                                                     (WHEN T
16106
                                                                       (SETF *ATN-TERM* '|MultipliedUnary|)
16107
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
16108
                                                                                   '|MultipliedUnary| ATN-PARSER::INDEX
16109
                                                                                   (LIST '|MultiplicativeOperator|
16110
                                                                                         |MultiplicativeOperator| '|UnaryExpression|
16111
                                                                                         |UnaryExpression|))
16112
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
16113
                                                                              (IF (EQ *ATN-REDUCE* T)
16114
                                                                                  (|MultipliedUnary-Constructor|
16115
                                                                                   |MultiplicativeOperator| |UnaryExpression|)
16116
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
16117
                                                                                      (CONS '|MultipliedUnary|
16118
                                                                                            (DELETE NIL
16119
                                                                                                    (LIST |MultiplicativeOperator|
16120
                                                                                                          |UnaryExpression|)))
16121
                                                                                      '|MultipliedUnary|))))
16122
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
16123
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
16124
                                 (|MultipliedUnary/fail.3| (ATN-PARSER::INDEX)
16125
                                   (%ATN-NODE-BLOCK |MultipliedUnary/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
16126
                                 (|MultipliedUnary/MultipliedUnary.2.4| (ATN-PARSER::INDEX)
16127
                                   (%ATN-NODE-BLOCK |MultipliedUnary/MultipliedUnary.2.4|
16128
                                                    (%ATN-EDGE-BLOCK (PUSH |UnaryExpression|)
16129
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16130
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression|
16131
                                                                                                  ATN-PARSER::INDEX)
16132
                                                                       (COND
16133
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|UnaryExpression|)
16134
                                                                         (LET ((|UnaryExpression725| |UnaryExpression|))
16135
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
16136
                                                                             (DESTRUCTURING-BIND
16137
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16138
                                                                                 ATN-PARSER::RESULT-AND-INDEX
16139
                                                                               (WHEN ATN-PARSER::RESULT
16140
                                                                                 (SETF |UnaryExpression| ATN-PARSER::RESULT))
16141
                                                                               (|MultipliedUnary.2| ATN-PARSER::RESULT-INDEX))
16142
                                                                             (SETF |UnaryExpression| |UnaryExpression725|))))
16143
                                                                        (T (SETF *ATN-TERM?* '|UnaryExpression|)
16144
                                                                         (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))
16145
                                 (|MultipliedUnary/start.1| (ATN-PARSER::INDEX)
16146
                                   (%ATN-NODE-BLOCK |MultipliedUnary/start.1|
16147
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |MultiplicativeOperator|)
16148
                                                                     (COND
16149
                                                                      ((|IS-MultiplicativeOperator| ATN-PARSER::|item|)
16150
                                                                       (SETF *ATN-TERM* '|MultiplicativeOperator|)
16151
                                                                       (SETF |MultiplicativeOperator|
16152
                                                                               (IF (EQ *ATN-REDUCE* T)
16153
                                                                                   (ATN-REDUCE-ITEM
16154
                                                                                    #'|MultiplicativeOperator-Constructor|
16155
                                                                                    ATN-PARSER::|item|)
16156
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
16157
                                                                                       (LIST '|MultiplicativeOperator|
16158
                                                                                             ATN-PARSER::|item|)
16159
                                                                                       '|MultiplicativeOperator|)))
16160
                                                                       (|MultipliedUnary/MultipliedUnary.2.4|
16161
                                                                        (1+ ATN-PARSER::INDEX)))
16162
                                                                      (T (SETF *ATN-TERM* '|MultiplicativeOperator|)
16163
                                                                       (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))
16164
                          (|MultipliedUnary/start.1| ATN-PARSER::INDEX)
16165
                          (SETF *ATN-NODE NIL)
16166
                          NIL
16167
                          (IF ATN-PARSER::ATN-STRUCTURE
16168
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
16169
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
16170
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultipliedUnary| ATN-PARSER::INDEX *ATN-STACK))))
16171
 (PROGN
16172
  (DEFVAR |UnaryExpression-INDEX|)
16173
  (DEFUN |UnaryExpression| (ATN-PARSER::INDEX &AUX (|PrimaryExpression| NIL) (|UnaryOperator| NIL))
16174
    "{108} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)
16175
 (|PrimaryExpression| |UnaryOperator|)"
16176
    (DECLARE (SPECIAL |UnaryExpression-INDEX|))
16177
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |UnaryExpression-INDEX| *ATN-LEVEL))
16178
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
16179
    (IF (< |UnaryExpression-INDEX| ATN-PARSER::INDEX)
16180
        (LET ((|UnaryExpression-INDEX| ATN-PARSER::INDEX)
16181
              (*ATN-LEVEL (1+ *ATN-LEVEL))
16182
              (*ATN-STACK (CONS '|UnaryExpression| *ATN-STACK))
16183
              (ATN-PARSER::ATN-STRUCTURE NIL))
16184
          (DECLARE (SPECIAL |UnaryExpression-INDEX|))
16185
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
16186
          (DECLARE (TYPE CONS *ATN-STACK))
16187
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
16188
            (%ATN-BLOCK |UnaryExpression|
16189
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
16190
                                   (SETF *ATN-TERM* '|UnaryExpression|)
16191
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
16192
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
16193
                                   ATN-PARSER::INDEX)
16194
                                 (|UnaryExpression.2| (ATN-PARSER::INDEX)
16195
                                   (%ATN-NODE-BLOCK |UnaryExpression.2|
16196
                                                    (%ATN-EDGE-BLOCK (POP |UnaryExpression|)
16197
                                                                     (WHEN T
16198
                                                                       (SETF *ATN-TERM* '|UnaryExpression|)
16199
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
16200
                                                                                   '|UnaryExpression| ATN-PARSER::INDEX
16201
                                                                                   (LIST '|PrimaryExpression| |PrimaryExpression|
16202
                                                                                         '|UnaryOperator| |UnaryOperator|))
16203
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
16204
                                                                              (IF (EQ *ATN-REDUCE* T)
16205
                                                                                  (|UnaryExpression-Constructor| |PrimaryExpression|
16206
                                                                                                                 |UnaryOperator|)
16207
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
16208
                                                                                      (CONS '|UnaryExpression|
16209
                                                                                            (DELETE NIL
16210
                                                                                                    (LIST |PrimaryExpression|
16211
                                                                                                          |UnaryOperator|)))
16212
                                                                                      '|UnaryExpression|))))
16213
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
16214
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
16215
                                 (|UnaryExpression/fail.3| (ATN-PARSER::INDEX)
16216
                                   (%ATN-NODE-BLOCK |UnaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
16217
                                 (|UnaryExpression/start.1| (ATN-PARSER::INDEX)
16218
                                   (%ATN-NODE-BLOCK |UnaryExpression/start.1|
16219
                                                    (%ATN-EDGE-BLOCK OR
16220
                                                                     (PROGN
16221
                                                                      (%ATN-EDGE-BLOCK
16222
                                                                       (ATN-PARSER::JUMP |UnaryExpression/UnaryExpression.2.4|)
16223
                                                                       (|UnaryExpression/UnaryExpression.2.4| ATN-PARSER::INDEX))
16224
                                                                      (%ATN-EDGE-BLOCK (PUSH |PrimaryExpression|)
16225
                                                                                       (MULTIPLE-VALUE-BIND
16226
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16227
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16228
                                                                                            '|PrimaryExpression| ATN-PARSER::INDEX)
16229
                                                                                         (COND
16230
                                                                                          (ATN-PARSER::SUCCESS
16231
                                                                                           (SETF *ATN-TERM* '|PrimaryExpression|)
16232
                                                                                           (LET ((|PrimaryExpression726|
16233
                                                                                                  |PrimaryExpression|))
16234
                                                                                             (DOLIST
16235
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16236
                                                                                                  ATN-PARSER::RESULT)
16237
                                                                                               (DESTRUCTURING-BIND
16238
                                                                                                   (
16239
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16240
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16241
                                                                                                 (WHEN ATN-PARSER::RESULT
16242
                                                                                                   (SETF |PrimaryExpression|
16243
                                                                                                           ATN-PARSER::RESULT))
16244
                                                                                                 (|UnaryExpression.2|
16245
                                                                                                  ATN-PARSER::RESULT-INDEX))
16246
                                                                                               (SETF |PrimaryExpression|
16247
                                                                                                       |PrimaryExpression726|))))
16248
                                                                                          (T (SETF *ATN-TERM?* '|PrimaryExpression|)
16249
                                                                                           NIL))))
16250
                                                                      (|UnaryExpression/fail.3| ATN-PARSER::INDEX)))))
16251
                                 (|UnaryExpression/UnaryExpression.2.4| (ATN-PARSER::INDEX)
16252
                                   (%ATN-NODE-BLOCK |UnaryExpression/UnaryExpression.2.4|
16253
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |UnaryOperator|)
16254
                                                                     (COND
16255
                                                                      ((|IS-UnaryOperator| ATN-PARSER::|item|)
16256
                                                                       (SETF *ATN-TERM* '|UnaryOperator|)
16257
                                                                       (SETF |UnaryOperator|
16258
                                                                               (IF (EQ *ATN-REDUCE* T)
16259
                                                                                   (ATN-REDUCE-ITEM #'|UnaryOperator-Constructor|
16260
                                                                                                    ATN-PARSER::|item|)
16261
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
16262
                                                                                       (LIST '|UnaryOperator| ATN-PARSER::|item|)
16263
                                                                                       '|UnaryOperator|)))
16264
                                                                       (|UnaryExpression/UnaryExpression.2.5|
16265
                                                                        (1+ ATN-PARSER::INDEX)))
16266
                                                                      (T (SETF *ATN-TERM* '|UnaryOperator|) NIL)))))
16267
                                 (|UnaryExpression/UnaryExpression.2.5| (ATN-PARSER::INDEX)
16268
                                   (%ATN-NODE-BLOCK |UnaryExpression/UnaryExpression.2.5|
16269
                                                    (%ATN-EDGE-BLOCK (PUSH |PrimaryExpression|)
16270
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16271
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|PrimaryExpression|
16272
                                                                                                  ATN-PARSER::INDEX)
16273
                                                                       (COND
16274
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|PrimaryExpression|)
16275
                                                                         (LET ((|PrimaryExpression727| |PrimaryExpression|))
16276
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
16277
                                                                             (DESTRUCTURING-BIND
16278
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16279
                                                                                 ATN-PARSER::RESULT-AND-INDEX
16280
                                                                               (WHEN ATN-PARSER::RESULT
16281
                                                                                 (SETF |PrimaryExpression| ATN-PARSER::RESULT))
16282
                                                                               (|UnaryExpression.2| ATN-PARSER::RESULT-INDEX))
16283
                                                                             (SETF |PrimaryExpression| |PrimaryExpression727|))))
16284
                                                                        (T (SETF *ATN-TERM?* '|PrimaryExpression|) NIL)))))))
16285
                          (|UnaryExpression/start.1| ATN-PARSER::INDEX)
16286
                          (SETF *ATN-NODE NIL)
16287
                          NIL
16288
                          (IF ATN-PARSER::ATN-STRUCTURE
16289
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
16290
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
16291
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|UnaryExpression| ATN-PARSER::INDEX *ATN-STACK))))
16292
 (PROGN
16293
  (DEFVAR |PrimaryExpression-INDEX|)
16294
  (DEFUN |PrimaryExpression|
16295
         (ATN-PARSER::INDEX
16296
          &AUX (|Aggregate| NIL) (|BooleanLiteral| NIL) (|BrackettedExpression| NIL) (|BuiltInCall| NIL) (|IRIrefOrFunction| NIL)
16297
          (|NumericLiteral| NIL) (|RDFLiteral| NIL) (|Var| NIL))
16298
    "{109} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate)
16299
 (|Aggregate| |BooleanLiteral| |BrackettedExpression| |BuiltInCall|
16300
              |IRIrefOrFunction| |NumericLiteral| |RDFLiteral| |Var|)"
16301
    (DECLARE (SPECIAL |PrimaryExpression-INDEX|))
16302
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrimaryExpression-INDEX| *ATN-LEVEL))
16303
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
16304
    (IF (< |PrimaryExpression-INDEX| ATN-PARSER::INDEX)
16305
        (LET ((|PrimaryExpression-INDEX| ATN-PARSER::INDEX)
16306
              (*ATN-LEVEL (1+ *ATN-LEVEL))
16307
              (*ATN-STACK (CONS '|PrimaryExpression| *ATN-STACK))
16308
              (ATN-PARSER::ATN-STRUCTURE NIL))
16309
          (DECLARE (SPECIAL |PrimaryExpression-INDEX|))
16310
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
16311
          (DECLARE (TYPE CONS *ATN-STACK))
16312
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
16313
            (%ATN-BLOCK |PrimaryExpression|
16314
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
16315
                                   (SETF *ATN-TERM* '|PrimaryExpression|)
16316
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
16317
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
16318
                                   ATN-PARSER::INDEX)
16319
                                 (|PrimaryExpression.2| (ATN-PARSER::INDEX)
16320
                                   (%ATN-NODE-BLOCK |PrimaryExpression.2|
16321
                                                    (%ATN-EDGE-BLOCK (POP |PrimaryExpression|)
16322
                                                                     (WHEN T
16323
                                                                       (SETF *ATN-TERM* '|PrimaryExpression|)
16324
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
16325
                                                                                   '|PrimaryExpression| ATN-PARSER::INDEX
16326
                                                                                   (LIST '|Aggregate| |Aggregate| '|BooleanLiteral|
16327
                                                                                         |BooleanLiteral| '|BrackettedExpression|
16328
                                                                                         |BrackettedExpression| '|BuiltInCall|
16329
                                                                                         |BuiltInCall| '|IRIrefOrFunction|
16330
                                                                                         |IRIrefOrFunction| '|NumericLiteral|
16331
                                                                                         |NumericLiteral| '|RDFLiteral| |RDFLiteral|
16332
                                                                                         '|Var| |Var|))
16333
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
16334
                                                                              (IF (EQ *ATN-REDUCE* T)
16335
                                                                                  (|PrimaryExpression-Constructor| |Aggregate|
16336
                                                                                                                   |BooleanLiteral|
16337
                                                                                                                   |BrackettedExpression|
16338
                                                                                                                   |BuiltInCall|
16339
                                                                                                                   |IRIrefOrFunction|
16340
                                                                                                                   |NumericLiteral|
16341
                                                                                                                   |RDFLiteral|
16342
                                                                                                                   |Var|)
16343
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
16344
                                                                                      (CONS '|PrimaryExpression|
16345
                                                                                            (DELETE NIL
16346
                                                                                                    (LIST |Aggregate|
16347
                                                                                                          |BooleanLiteral|
16348
                                                                                                          |BrackettedExpression|
16349
                                                                                                          |BuiltInCall|
16350
                                                                                                          |IRIrefOrFunction|
16351
                                                                                                          |NumericLiteral|
16352
                                                                                                          |RDFLiteral| |Var|)))
16353
                                                                                      '|PrimaryExpression|))))
16354
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
16355
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
16356
                                 (|PrimaryExpression/fail.3| (ATN-PARSER::INDEX)
16357
                                   (%ATN-NODE-BLOCK |PrimaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
16358
                                 (|PrimaryExpression/start.1| (ATN-PARSER::INDEX)
16359
                                   (%ATN-NODE-BLOCK |PrimaryExpression/start.1|
16360
                                                    (%ATN-EDGE-BLOCK OR
16361
                                                                     (PROGN
16362
                                                                      (%ATN-EDGE-BLOCK (PUSH |BrackettedExpression|)
16363
                                                                                       (MULTIPLE-VALUE-BIND
16364
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16365
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16366
                                                                                            '|BrackettedExpression|
16367
                                                                                            ATN-PARSER::INDEX)
16368
                                                                                         (COND
16369
                                                                                          (ATN-PARSER::SUCCESS
16370
                                                                                           (SETF *ATN-TERM* '|BrackettedExpression|)
16371
                                                                                           (LET ((|BrackettedExpression728|
16372
                                                                                                  |BrackettedExpression|))
16373
                                                                                             (DOLIST
16374
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16375
                                                                                                  ATN-PARSER::RESULT)
16376
                                                                                               (DESTRUCTURING-BIND
16377
                                                                                                   (
16378
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16379
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16380
                                                                                                 (WHEN ATN-PARSER::RESULT
16381
                                                                                                   (SETF |BrackettedExpression|
16382
                                                                                                           ATN-PARSER::RESULT))
16383
                                                                                                 (|PrimaryExpression.2|
16384
                                                                                                  ATN-PARSER::RESULT-INDEX))
16385
                                                                                               (SETF |BrackettedExpression|
16386
                                                                                                       |BrackettedExpression728|))))
16387
                                                                                          (T
16388
                                                                                           (SETF *ATN-TERM?*
16389
                                                                                                   '|BrackettedExpression|)
16390
                                                                                           NIL))))
16391
                                                                      (%ATN-EDGE-BLOCK (PUSH |BuiltInCall|)
16392
                                                                                       (MULTIPLE-VALUE-BIND
16393
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16394
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall|
16395
                                                                                                                    ATN-PARSER::INDEX)
16396
                                                                                         (COND
16397
                                                                                          (ATN-PARSER::SUCCESS
16398
                                                                                           (SETF *ATN-TERM* '|BuiltInCall|)
16399
                                                                                           (LET ((|BuiltInCall729| |BuiltInCall|))
16400
                                                                                             (DOLIST
16401
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16402
                                                                                                  ATN-PARSER::RESULT)
16403
                                                                                               (DESTRUCTURING-BIND
16404
                                                                                                   (
16405
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16406
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16407
                                                                                                 (WHEN ATN-PARSER::RESULT
16408
                                                                                                   (SETF |BuiltInCall|
16409
                                                                                                           ATN-PARSER::RESULT))
16410
                                                                                                 (|PrimaryExpression.2|
16411
                                                                                                  ATN-PARSER::RESULT-INDEX))
16412
                                                                                               (SETF |BuiltInCall|
16413
                                                                                                       |BuiltInCall729|))))
16414
                                                                                          (T (SETF *ATN-TERM?* '|BuiltInCall|)
16415
                                                                                           NIL))))
16416
                                                                      (%ATN-EDGE-BLOCK (PUSH |IRIrefOrFunction|)
16417
                                                                                       (MULTIPLE-VALUE-BIND
16418
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16419
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16420
                                                                                            '|IRIrefOrFunction| ATN-PARSER::INDEX)
16421
                                                                                         (COND
16422
                                                                                          (ATN-PARSER::SUCCESS
16423
                                                                                           (SETF *ATN-TERM* '|IRIrefOrFunction|)
16424
                                                                                           (LET ((|IRIrefOrFunction730|
16425
                                                                                                  |IRIrefOrFunction|))
16426
                                                                                             (DOLIST
16427
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16428
                                                                                                  ATN-PARSER::RESULT)
16429
                                                                                               (DESTRUCTURING-BIND
16430
                                                                                                   (
16431
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16432
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16433
                                                                                                 (WHEN ATN-PARSER::RESULT
16434
                                                                                                   (SETF |IRIrefOrFunction|
16435
                                                                                                           ATN-PARSER::RESULT))
16436
                                                                                                 (|PrimaryExpression.2|
16437
                                                                                                  ATN-PARSER::RESULT-INDEX))
16438
                                                                                               (SETF |IRIrefOrFunction|
16439
                                                                                                       |IRIrefOrFunction730|))))
16440
                                                                                          (T (SETF *ATN-TERM?* '|IRIrefOrFunction|)
16441
                                                                                           NIL))))
16442
                                                                      (%ATN-EDGE-BLOCK (PUSH |RDFLiteral|)
16443
                                                                                       (MULTIPLE-VALUE-BIND
16444
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16445
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral|
16446
                                                                                                                    ATN-PARSER::INDEX)
16447
                                                                                         (COND
16448
                                                                                          (ATN-PARSER::SUCCESS
16449
                                                                                           (SETF *ATN-TERM* '|RDFLiteral|)
16450
                                                                                           (LET ((|RDFLiteral731| |RDFLiteral|))
16451
                                                                                             (DOLIST
16452
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16453
                                                                                                  ATN-PARSER::RESULT)
16454
                                                                                               (DESTRUCTURING-BIND
16455
                                                                                                   (
16456
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16457
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16458
                                                                                                 (WHEN ATN-PARSER::RESULT
16459
                                                                                                   (SETF |RDFLiteral|
16460
                                                                                                           ATN-PARSER::RESULT))
16461
                                                                                                 (|PrimaryExpression.2|
16462
                                                                                                  ATN-PARSER::RESULT-INDEX))
16463
                                                                                               (SETF |RDFLiteral|
16464
                                                                                                       |RDFLiteral731|))))
16465
                                                                                          (T (SETF *ATN-TERM?* '|RDFLiteral|)
16466
                                                                                           NIL))))
16467
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |NumericLiteral|)
16468
                                                                                       (COND
16469
                                                                                        ((|IS-NumericLiteral| ATN-PARSER::|item|)
16470
                                                                                         (SETF *ATN-TERM* '|NumericLiteral|)
16471
                                                                                         (SETF |NumericLiteral|
16472
                                                                                                 (IF (EQ *ATN-REDUCE* T)
16473
                                                                                                     (ATN-REDUCE-ITEM
16474
                                                                                                      #'|NumericLiteral-Constructor|
16475
                                                                                                      ATN-PARSER::|item|)
16476
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
16477
                                                                                                         (LIST '|NumericLiteral|
16478
                                                                                                               ATN-PARSER::|item|)
16479
                                                                                                         '|NumericLiteral|)))
16480
                                                                                         (|PrimaryExpression.2|
16481
                                                                                          (1+ ATN-PARSER::INDEX)))
16482
                                                                                        (T (SETF *ATN-TERM* '|NumericLiteral|)
16483
                                                                                         NIL)))
16484
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |BooleanLiteral|)
16485
                                                                                       (COND
16486
                                                                                        ((|IS-BooleanLiteral| ATN-PARSER::|item|)
16487
                                                                                         (SETF *ATN-TERM* '|BooleanLiteral|)
16488
                                                                                         (SETF |BooleanLiteral|
16489
                                                                                                 (IF (EQ *ATN-REDUCE* T)
16490
                                                                                                     (ATN-REDUCE-ITEM
16491
                                                                                                      #'|BooleanLiteral-Constructor|
16492
                                                                                                      ATN-PARSER::|item|)
16493
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
16494
                                                                                                         (LIST '|BooleanLiteral|
16495
                                                                                                               ATN-PARSER::|item|)
16496
                                                                                                         '|BooleanLiteral|)))
16497
                                                                                         (|PrimaryExpression.2|
16498
                                                                                          (1+ ATN-PARSER::INDEX)))
16499
                                                                                        (T (SETF *ATN-TERM* '|BooleanLiteral|)
16500
                                                                                         NIL)))
16501
                                                                      (%ATN-EDGE-BLOCK (TEST |Var|)
16502
                                                                                       (COND
16503
                                                                                        ((|IS-Var| ATN-PARSER::|item|)
16504
                                                                                         (SETF *ATN-TERM* '|Var|)
16505
                                                                                         (SETF |Var|
16506
                                                                                                 (IF (EQ *ATN-REDUCE* T)
16507
                                                                                                     (ATN-REDUCE-ITEM
16508
                                                                                                      #'|Var-Constructor|
16509
                                                                                                      ATN-PARSER::|item|)
16510
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
16511
                                                                                                         (LIST '|Var|
16512
                                                                                                               ATN-PARSER::|item|)
16513
                                                                                                         '|Var|)))
16514
                                                                                         (|PrimaryExpression.2|
16515
                                                                                          (1+ ATN-PARSER::INDEX)))
16516
                                                                                        (T (SETF *ATN-TERM?* '|Var|) NIL)))
16517
                                                                      (%ATN-EDGE-BLOCK (PUSH |Aggregate|)
16518
                                                                                       (MULTIPLE-VALUE-BIND
16519
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16520
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Aggregate|
16521
                                                                                                                    ATN-PARSER::INDEX)
16522
                                                                                         (COND
16523
                                                                                          (ATN-PARSER::SUCCESS
16524
                                                                                           (SETF *ATN-TERM* '|Aggregate|)
16525
                                                                                           (LET ((|Aggregate732| |Aggregate|))
16526
                                                                                             (DOLIST
16527
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16528
                                                                                                  ATN-PARSER::RESULT)
16529
                                                                                               (DESTRUCTURING-BIND
16530
                                                                                                   (
16531
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16532
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16533
                                                                                                 (WHEN ATN-PARSER::RESULT
16534
                                                                                                   (SETF |Aggregate|
16535
                                                                                                           ATN-PARSER::RESULT))
16536
                                                                                                 (|PrimaryExpression.2|
16537
                                                                                                  ATN-PARSER::RESULT-INDEX))
16538
                                                                                               (SETF |Aggregate| |Aggregate732|))))
16539
                                                                                          (T (SETF *ATN-TERM?* '|Aggregate|) NIL))))
16540
                                                                      (|PrimaryExpression/fail.3| ATN-PARSER::INDEX))))))
16541
                          (|PrimaryExpression/start.1| ATN-PARSER::INDEX)
16542
                          (SETF *ATN-NODE NIL)
16543
                          NIL
16544
                          (IF ATN-PARSER::ATN-STRUCTURE
16545
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
16546
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
16547
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrimaryExpression| ATN-PARSER::INDEX *ATN-STACK))))
16548
 (PROGN
16549
  (DEFVAR |BrackettedExpression-INDEX|)
16550
  (DEFUN |BrackettedExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))
16551
    "{110} BrackettedExpression ::= '(' Expression ')'
16552
 (|Expression|)"
16553
    (DECLARE (SPECIAL |BrackettedExpression-INDEX|))
16554
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BrackettedExpression-INDEX| *ATN-LEVEL))
16555
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
16556
    (IF (< |BrackettedExpression-INDEX| ATN-PARSER::INDEX)
16557
        (LET ((|BrackettedExpression-INDEX| ATN-PARSER::INDEX)
16558
              (*ATN-LEVEL (1+ *ATN-LEVEL))
16559
              (*ATN-STACK (CONS '|BrackettedExpression| *ATN-STACK))
16560
              (ATN-PARSER::ATN-STRUCTURE NIL))
16561
          (DECLARE (SPECIAL |BrackettedExpression-INDEX|))
16562
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
16563
          (DECLARE (TYPE CONS *ATN-STACK))
16564
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
16565
            (%ATN-BLOCK |BrackettedExpression|
16566
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
16567
                                   (SETF *ATN-TERM* '|BrackettedExpression|)
16568
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
16569
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
16570
                                   ATN-PARSER::INDEX)
16571
                                 (|BrackettedExpression.2| (ATN-PARSER::INDEX)
16572
                                   (%ATN-NODE-BLOCK |BrackettedExpression.2|
16573
                                                    (%ATN-EDGE-BLOCK (POP |BrackettedExpression|)
16574
                                                                     (WHEN T
16575
                                                                       (SETF *ATN-TERM* '|BrackettedExpression|)
16576
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
16577
                                                                                   '|BrackettedExpression| ATN-PARSER::INDEX
16578
                                                                                   (LIST '|Expression| |Expression|))
16579
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
16580
                                                                              (IF (EQ *ATN-REDUCE* T)
16581
                                                                                  (|BrackettedExpression-Constructor| |Expression|)
16582
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
16583
                                                                                      (CONS '|BrackettedExpression|
16584
                                                                                            (DELETE NIL (LIST |Expression|)))
16585
                                                                                      '|BrackettedExpression|))))
16586
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
16587
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
16588
                                 (|BrackettedExpression/BrackettedExpression.2.4| (ATN-PARSER::INDEX)
16589
                                   (%ATN-NODE-BLOCK |BrackettedExpression/BrackettedExpression.2.4|
16590
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
16591
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16592
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
16593
                                                                       (COND
16594
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
16595
                                                                         (LET ((|Expression733| |Expression|))
16596
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
16597
                                                                             (DESTRUCTURING-BIND
16598
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16599
                                                                                 ATN-PARSER::RESULT-AND-INDEX
16600
                                                                               (WHEN ATN-PARSER::RESULT
16601
                                                                                 (SETF |Expression| ATN-PARSER::RESULT))
16602
                                                                               (|BrackettedExpression/BrackettedExpression.2.5|
16603
                                                                                ATN-PARSER::RESULT-INDEX))
16604
                                                                             (SETF |Expression| |Expression733|))))
16605
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
16606
                                                                         (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))
16607
                                 (|BrackettedExpression/BrackettedExpression.2.5| (ATN-PARSER::INDEX)
16608
                                   (%ATN-NODE-BLOCK |BrackettedExpression/BrackettedExpression.2.5|
16609
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
16610
                                                                     (COND
16611
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
16612
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
16613
                                                                       (|BrackettedExpression.2| (1+ ATN-PARSER::INDEX)))
16614
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
16615
                                                                       (|BrackettedExpression/fail.3| ATN-PARSER::INDEX))))))
16616
                                 (|BrackettedExpression/fail.3| (ATN-PARSER::INDEX)
16617
                                   (%ATN-NODE-BLOCK |BrackettedExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
16618
                                 (|BrackettedExpression/start.1| (ATN-PARSER::INDEX)
16619
                                   (%ATN-NODE-BLOCK |BrackettedExpression/start.1|
16620
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
16621
                                                                     (COND
16622
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
16623
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
16624
                                                                       (|BrackettedExpression/BrackettedExpression.2.4|
16625
                                                                        (1+ ATN-PARSER::INDEX)))
16626
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
16627
                                                                       (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))
16628
                          (|BrackettedExpression/start.1| ATN-PARSER::INDEX)
16629
                          (SETF *ATN-NODE NIL)
16630
                          NIL
16631
                          (IF ATN-PARSER::ATN-STRUCTURE
16632
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
16633
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
16634
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BrackettedExpression| ATN-PARSER::INDEX *ATN-STACK))))
16635
 (PROGN
16636
  (DEFVAR |BuiltInCall-INDEX|)
16637
  (DEFUN |BuiltInCall|
16638
         (ATN-PARSER::INDEX
16639
          &AUX (|BuiltinBinaryCall| NIL) (|BuiltinListCall| NIL) (|BuiltinNullCall| NIL) (|BuiltinNullOrUnaryCall| NIL)
16640
          (|BuiltinUnaryCall| NIL) (|ExistsFunc| NIL) (|IfExpression| NIL) (|NotExistsFunc| NIL) (|RegexExpression| NIL)
16641
          (|ReplaceExpression| NIL) (|SubstringExpression| NIL))
16642
    "{111} BuiltInCall ::= (BuiltinNullCall | BuiltinNullOrUnaryCall | BuiltinBinaryCall | BuiltinUnaryCall | BuiltinListCall | RegexExpression | ReplaceExpression | IfExpression | SubstringExpression | ExistsFunc | NotExistsFunc)
16643
 (|BuiltinBinaryCall| |BuiltinListCall| |BuiltinNullCall|
16644
                      |BuiltinNullOrUnaryCall| |BuiltinUnaryCall| |ExistsFunc|
16645
                      |IfExpression| |NotExistsFunc| |RegexExpression|
16646
                      |ReplaceExpression| |SubstringExpression|)"
16647
    (DECLARE (SPECIAL |BuiltInCall-INDEX|))
16648
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltInCall-INDEX| *ATN-LEVEL))
16649
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
16650
    (IF (< |BuiltInCall-INDEX| ATN-PARSER::INDEX)
16651
        (LET ((|BuiltInCall-INDEX| ATN-PARSER::INDEX)
16652
              (*ATN-LEVEL (1+ *ATN-LEVEL))
16653
              (*ATN-STACK (CONS '|BuiltInCall| *ATN-STACK))
16654
              (ATN-PARSER::ATN-STRUCTURE NIL))
16655
          (DECLARE (SPECIAL |BuiltInCall-INDEX|))
16656
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
16657
          (DECLARE (TYPE CONS *ATN-STACK))
16658
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
16659
            (%ATN-BLOCK |BuiltInCall|
16660
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
16661
                                   (SETF *ATN-TERM* '|BuiltInCall|)
16662
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
16663
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
16664
                                   ATN-PARSER::INDEX)
16665
                                 (|BuiltInCall.2| (ATN-PARSER::INDEX)
16666
                                   (%ATN-NODE-BLOCK |BuiltInCall.2|
16667
                                                    (%ATN-EDGE-BLOCK (POP |BuiltInCall|)
16668
                                                                     (WHEN T
16669
                                                                       (SETF *ATN-TERM* '|BuiltInCall|)
16670
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
16671
                                                                                   '|BuiltInCall| ATN-PARSER::INDEX
16672
                                                                                   (LIST '|BuiltinBinaryCall| |BuiltinBinaryCall|
16673
                                                                                         '|BuiltinListCall| |BuiltinListCall|
16674
                                                                                         '|BuiltinNullCall| |BuiltinNullCall|
16675
                                                                                         '|BuiltinNullOrUnaryCall|
16676
                                                                                         |BuiltinNullOrUnaryCall|
16677
                                                                                         '|BuiltinUnaryCall| |BuiltinUnaryCall|
16678
                                                                                         '|ExistsFunc| |ExistsFunc| '|IfExpression|
16679
                                                                                         |IfExpression| '|NotExistsFunc|
16680
                                                                                         |NotExistsFunc| '|RegexExpression|
16681
                                                                                         |RegexExpression| '|ReplaceExpression|
16682
                                                                                         |ReplaceExpression| '|SubstringExpression|
16683
                                                                                         |SubstringExpression|))
16684
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
16685
                                                                              (IF (EQ *ATN-REDUCE* T)
16686
                                                                                  (|BuiltInCall-Constructor| |BuiltinBinaryCall|
16687
                                                                                                             |BuiltinListCall|
16688
                                                                                                             |BuiltinNullCall|
16689
                                                                                                             |BuiltinNullOrUnaryCall|
16690
                                                                                                             |BuiltinUnaryCall|
16691
                                                                                                             |ExistsFunc|
16692
                                                                                                             |IfExpression|
16693
                                                                                                             |NotExistsFunc|
16694
                                                                                                             |RegexExpression|
16695
                                                                                                             |ReplaceExpression|
16696
                                                                                                             |SubstringExpression|)
16697
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
16698
                                                                                      (CONS '|BuiltInCall|
16699
                                                                                            (DELETE NIL
16700
                                                                                                    (LIST |BuiltinBinaryCall|
16701
                                                                                                          |BuiltinListCall|
16702
                                                                                                          |BuiltinNullCall|
16703
                                                                                                          |BuiltinNullOrUnaryCall|
16704
                                                                                                          |BuiltinUnaryCall|
16705
                                                                                                          |ExistsFunc|
16706
                                                                                                          |IfExpression|
16707
                                                                                                          |NotExistsFunc|
16708
                                                                                                          |RegexExpression|
16709
                                                                                                          |ReplaceExpression|
16710
                                                                                                          |SubstringExpression|)))
16711
                                                                                      '|BuiltInCall|))))
16712
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
16713
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
16714
                                 (|BuiltInCall/fail.3| (ATN-PARSER::INDEX)
16715
                                   (%ATN-NODE-BLOCK |BuiltInCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
16716
                                 (|BuiltInCall/start.1| (ATN-PARSER::INDEX)
16717
                                   (%ATN-NODE-BLOCK |BuiltInCall/start.1|
16718
                                                    (%ATN-EDGE-BLOCK OR
16719
                                                                     (PROGN
16720
                                                                      (%ATN-EDGE-BLOCK (PUSH |BuiltinNullCall|)
16721
                                                                                       (MULTIPLE-VALUE-BIND
16722
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16723
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16724
                                                                                            '|BuiltinNullCall| ATN-PARSER::INDEX)
16725
                                                                                         (COND
16726
                                                                                          (ATN-PARSER::SUCCESS
16727
                                                                                           (SETF *ATN-TERM* '|BuiltinNullCall|)
16728
                                                                                           (LET ((|BuiltinNullCall734|
16729
                                                                                                  |BuiltinNullCall|))
16730
                                                                                             (DOLIST
16731
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16732
                                                                                                  ATN-PARSER::RESULT)
16733
                                                                                               (DESTRUCTURING-BIND
16734
                                                                                                   (
16735
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16736
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16737
                                                                                                 (WHEN ATN-PARSER::RESULT
16738
                                                                                                   (SETF |BuiltinNullCall|
16739
                                                                                                           ATN-PARSER::RESULT))
16740
                                                                                                 (|BuiltInCall.2|
16741
                                                                                                  ATN-PARSER::RESULT-INDEX))
16742
                                                                                               (SETF |BuiltinNullCall|
16743
                                                                                                       |BuiltinNullCall734|))))
16744
                                                                                          (T (SETF *ATN-TERM?* '|BuiltinNullCall|)
16745
                                                                                           NIL))))
16746
                                                                      (%ATN-EDGE-BLOCK (PUSH |BuiltinNullOrUnaryCall|)
16747
                                                                                       (MULTIPLE-VALUE-BIND
16748
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16749
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16750
                                                                                            '|BuiltinNullOrUnaryCall|
16751
                                                                                            ATN-PARSER::INDEX)
16752
                                                                                         (COND
16753
                                                                                          (ATN-PARSER::SUCCESS
16754
                                                                                           (SETF *ATN-TERM*
16755
                                                                                                   '|BuiltinNullOrUnaryCall|)
16756
                                                                                           (LET ((|BuiltinNullOrUnaryCall735|
16757
                                                                                                  |BuiltinNullOrUnaryCall|))
16758
                                                                                             (DOLIST
16759
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16760
                                                                                                  ATN-PARSER::RESULT)
16761
                                                                                               (DESTRUCTURING-BIND
16762
                                                                                                   (
16763
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16764
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16765
                                                                                                 (WHEN ATN-PARSER::RESULT
16766
                                                                                                   (SETF |BuiltinNullOrUnaryCall|
16767
                                                                                                           ATN-PARSER::RESULT))
16768
                                                                                                 (|BuiltInCall.2|
16769
                                                                                                  ATN-PARSER::RESULT-INDEX))
16770
                                                                                               (SETF |BuiltinNullOrUnaryCall|
16771
                                                                                                       |BuiltinNullOrUnaryCall735|))))
16772
                                                                                          (T
16773
                                                                                           (SETF *ATN-TERM?*
16774
                                                                                                   '|BuiltinNullOrUnaryCall|)
16775
                                                                                           NIL))))
16776
                                                                      (%ATN-EDGE-BLOCK (PUSH |BuiltinBinaryCall|)
16777
                                                                                       (MULTIPLE-VALUE-BIND
16778
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16779
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16780
                                                                                            '|BuiltinBinaryCall| ATN-PARSER::INDEX)
16781
                                                                                         (COND
16782
                                                                                          (ATN-PARSER::SUCCESS
16783
                                                                                           (SETF *ATN-TERM* '|BuiltinBinaryCall|)
16784
                                                                                           (LET ((|BuiltinBinaryCall736|
16785
                                                                                                  |BuiltinBinaryCall|))
16786
                                                                                             (DOLIST
16787
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16788
                                                                                                  ATN-PARSER::RESULT)
16789
                                                                                               (DESTRUCTURING-BIND
16790
                                                                                                   (
16791
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16792
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16793
                                                                                                 (WHEN ATN-PARSER::RESULT
16794
                                                                                                   (SETF |BuiltinBinaryCall|
16795
                                                                                                           ATN-PARSER::RESULT))
16796
                                                                                                 (|BuiltInCall.2|
16797
                                                                                                  ATN-PARSER::RESULT-INDEX))
16798
                                                                                               (SETF |BuiltinBinaryCall|
16799
                                                                                                       |BuiltinBinaryCall736|))))
16800
                                                                                          (T (SETF *ATN-TERM?* '|BuiltinBinaryCall|)
16801
                                                                                           NIL))))
16802
                                                                      (%ATN-EDGE-BLOCK (PUSH |BuiltinUnaryCall|)
16803
                                                                                       (MULTIPLE-VALUE-BIND
16804
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16805
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16806
                                                                                            '|BuiltinUnaryCall| ATN-PARSER::INDEX)
16807
                                                                                         (COND
16808
                                                                                          (ATN-PARSER::SUCCESS
16809
                                                                                           (SETF *ATN-TERM* '|BuiltinUnaryCall|)
16810
                                                                                           (LET ((|BuiltinUnaryCall737|
16811
                                                                                                  |BuiltinUnaryCall|))
16812
                                                                                             (DOLIST
16813
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16814
                                                                                                  ATN-PARSER::RESULT)
16815
                                                                                               (DESTRUCTURING-BIND
16816
                                                                                                   (
16817
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16818
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16819
                                                                                                 (WHEN ATN-PARSER::RESULT
16820
                                                                                                   (SETF |BuiltinUnaryCall|
16821
                                                                                                           ATN-PARSER::RESULT))
16822
                                                                                                 (|BuiltInCall.2|
16823
                                                                                                  ATN-PARSER::RESULT-INDEX))
16824
                                                                                               (SETF |BuiltinUnaryCall|
16825
                                                                                                       |BuiltinUnaryCall737|))))
16826
                                                                                          (T (SETF *ATN-TERM?* '|BuiltinUnaryCall|)
16827
                                                                                           NIL))))
16828
                                                                      (%ATN-EDGE-BLOCK (PUSH |BuiltinListCall|)
16829
                                                                                       (MULTIPLE-VALUE-BIND
16830
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16831
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16832
                                                                                            '|BuiltinListCall| ATN-PARSER::INDEX)
16833
                                                                                         (COND
16834
                                                                                          (ATN-PARSER::SUCCESS
16835
                                                                                           (SETF *ATN-TERM* '|BuiltinListCall|)
16836
                                                                                           (LET ((|BuiltinListCall738|
16837
                                                                                                  |BuiltinListCall|))
16838
                                                                                             (DOLIST
16839
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16840
                                                                                                  ATN-PARSER::RESULT)
16841
                                                                                               (DESTRUCTURING-BIND
16842
                                                                                                   (
16843
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16844
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16845
                                                                                                 (WHEN ATN-PARSER::RESULT
16846
                                                                                                   (SETF |BuiltinListCall|
16847
                                                                                                           ATN-PARSER::RESULT))
16848
                                                                                                 (|BuiltInCall.2|
16849
                                                                                                  ATN-PARSER::RESULT-INDEX))
16850
                                                                                               (SETF |BuiltinListCall|
16851
                                                                                                       |BuiltinListCall738|))))
16852
                                                                                          (T (SETF *ATN-TERM?* '|BuiltinListCall|)
16853
                                                                                           NIL))))
16854
                                                                      (%ATN-EDGE-BLOCK (PUSH |RegexExpression|)
16855
                                                                                       (MULTIPLE-VALUE-BIND
16856
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16857
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16858
                                                                                            '|RegexExpression| ATN-PARSER::INDEX)
16859
                                                                                         (COND
16860
                                                                                          (ATN-PARSER::SUCCESS
16861
                                                                                           (SETF *ATN-TERM* '|RegexExpression|)
16862
                                                                                           (LET ((|RegexExpression739|
16863
                                                                                                  |RegexExpression|))
16864
                                                                                             (DOLIST
16865
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16866
                                                                                                  ATN-PARSER::RESULT)
16867
                                                                                               (DESTRUCTURING-BIND
16868
                                                                                                   (
16869
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16870
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16871
                                                                                                 (WHEN ATN-PARSER::RESULT
16872
                                                                                                   (SETF |RegexExpression|
16873
                                                                                                           ATN-PARSER::RESULT))
16874
                                                                                                 (|BuiltInCall.2|
16875
                                                                                                  ATN-PARSER::RESULT-INDEX))
16876
                                                                                               (SETF |RegexExpression|
16877
                                                                                                       |RegexExpression739|))))
16878
                                                                                          (T (SETF *ATN-TERM?* '|RegexExpression|)
16879
                                                                                           NIL))))
16880
                                                                      (%ATN-EDGE-BLOCK (PUSH |ReplaceExpression|)
16881
                                                                                       (MULTIPLE-VALUE-BIND
16882
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16883
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16884
                                                                                            '|ReplaceExpression| ATN-PARSER::INDEX)
16885
                                                                                         (COND
16886
                                                                                          (ATN-PARSER::SUCCESS
16887
                                                                                           (SETF *ATN-TERM* '|ReplaceExpression|)
16888
                                                                                           (LET ((|ReplaceExpression740|
16889
                                                                                                  |ReplaceExpression|))
16890
                                                                                             (DOLIST
16891
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16892
                                                                                                  ATN-PARSER::RESULT)
16893
                                                                                               (DESTRUCTURING-BIND
16894
                                                                                                   (
16895
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16896
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16897
                                                                                                 (WHEN ATN-PARSER::RESULT
16898
                                                                                                   (SETF |ReplaceExpression|
16899
                                                                                                           ATN-PARSER::RESULT))
16900
                                                                                                 (|BuiltInCall.2|
16901
                                                                                                  ATN-PARSER::RESULT-INDEX))
16902
                                                                                               (SETF |ReplaceExpression|
16903
                                                                                                       |ReplaceExpression740|))))
16904
                                                                                          (T (SETF *ATN-TERM?* '|ReplaceExpression|)
16905
                                                                                           NIL))))
16906
                                                                      (%ATN-EDGE-BLOCK (PUSH |IfExpression|)
16907
                                                                                       (MULTIPLE-VALUE-BIND
16908
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16909
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|IfExpression|
16910
                                                                                                                    ATN-PARSER::INDEX)
16911
                                                                                         (COND
16912
                                                                                          (ATN-PARSER::SUCCESS
16913
                                                                                           (SETF *ATN-TERM* '|IfExpression|)
16914
                                                                                           (LET ((|IfExpression741| |IfExpression|))
16915
                                                                                             (DOLIST
16916
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16917
                                                                                                  ATN-PARSER::RESULT)
16918
                                                                                               (DESTRUCTURING-BIND
16919
                                                                                                   (
16920
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16921
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16922
                                                                                                 (WHEN ATN-PARSER::RESULT
16923
                                                                                                   (SETF |IfExpression|
16924
                                                                                                           ATN-PARSER::RESULT))
16925
                                                                                                 (|BuiltInCall.2|
16926
                                                                                                  ATN-PARSER::RESULT-INDEX))
16927
                                                                                               (SETF |IfExpression|
16928
                                                                                                       |IfExpression741|))))
16929
                                                                                          (T (SETF *ATN-TERM?* '|IfExpression|)
16930
                                                                                           NIL))))
16931
                                                                      (%ATN-EDGE-BLOCK (PUSH |SubstringExpression|)
16932
                                                                                       (MULTIPLE-VALUE-BIND
16933
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16934
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
16935
                                                                                            '|SubstringExpression|
16936
                                                                                            ATN-PARSER::INDEX)
16937
                                                                                         (COND
16938
                                                                                          (ATN-PARSER::SUCCESS
16939
                                                                                           (SETF *ATN-TERM* '|SubstringExpression|)
16940
                                                                                           (LET ((|SubstringExpression742|
16941
                                                                                                  |SubstringExpression|))
16942
                                                                                             (DOLIST
16943
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16944
                                                                                                  ATN-PARSER::RESULT)
16945
                                                                                               (DESTRUCTURING-BIND
16946
                                                                                                   (
16947
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16948
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16949
                                                                                                 (WHEN ATN-PARSER::RESULT
16950
                                                                                                   (SETF |SubstringExpression|
16951
                                                                                                           ATN-PARSER::RESULT))
16952
                                                                                                 (|BuiltInCall.2|
16953
                                                                                                  ATN-PARSER::RESULT-INDEX))
16954
                                                                                               (SETF |SubstringExpression|
16955
                                                                                                       |SubstringExpression742|))))
16956
                                                                                          (T
16957
                                                                                           (SETF *ATN-TERM?* '|SubstringExpression|)
16958
                                                                                           NIL))))
16959
                                                                      (%ATN-EDGE-BLOCK (PUSH |ExistsFunc|)
16960
                                                                                       (MULTIPLE-VALUE-BIND
16961
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16962
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|ExistsFunc|
16963
                                                                                                                    ATN-PARSER::INDEX)
16964
                                                                                         (COND
16965
                                                                                          (ATN-PARSER::SUCCESS
16966
                                                                                           (SETF *ATN-TERM* '|ExistsFunc|)
16967
                                                                                           (LET ((|ExistsFunc743| |ExistsFunc|))
16968
                                                                                             (DOLIST
16969
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16970
                                                                                                  ATN-PARSER::RESULT)
16971
                                                                                               (DESTRUCTURING-BIND
16972
                                                                                                   (
16973
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
16974
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
16975
                                                                                                 (WHEN ATN-PARSER::RESULT
16976
                                                                                                   (SETF |ExistsFunc|
16977
                                                                                                           ATN-PARSER::RESULT))
16978
                                                                                                 (|BuiltInCall.2|
16979
                                                                                                  ATN-PARSER::RESULT-INDEX))
16980
                                                                                               (SETF |ExistsFunc|
16981
                                                                                                       |ExistsFunc743|))))
16982
                                                                                          (T (SETF *ATN-TERM?* '|ExistsFunc|)
16983
                                                                                           NIL))))
16984
                                                                      (%ATN-EDGE-BLOCK (PUSH |NotExistsFunc|)
16985
                                                                                       (MULTIPLE-VALUE-BIND
16986
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
16987
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|NotExistsFunc|
16988
                                                                                                                    ATN-PARSER::INDEX)
16989
                                                                                         (COND
16990
                                                                                          (ATN-PARSER::SUCCESS
16991
                                                                                           (SETF *ATN-TERM* '|NotExistsFunc|)
16992
                                                                                           (LET ((|NotExistsFunc744|
16993
                                                                                                  |NotExistsFunc|))
16994
                                                                                             (DOLIST
16995
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
16996
                                                                                                  ATN-PARSER::RESULT)
16997
                                                                                               (DESTRUCTURING-BIND
16998
                                                                                                   (
16999
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17000
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
17001
                                                                                                 (WHEN ATN-PARSER::RESULT
17002
                                                                                                   (SETF |NotExistsFunc|
17003
                                                                                                           ATN-PARSER::RESULT))
17004
                                                                                                 (|BuiltInCall.2|
17005
                                                                                                  ATN-PARSER::RESULT-INDEX))
17006
                                                                                               (SETF |NotExistsFunc|
17007
                                                                                                       |NotExistsFunc744|))))
17008
                                                                                          (T (SETF *ATN-TERM?* '|NotExistsFunc|)
17009
                                                                                           NIL))))
17010
                                                                      (|BuiltInCall/fail.3| ATN-PARSER::INDEX))))))
17011
                          (|BuiltInCall/start.1| ATN-PARSER::INDEX)
17012
                          (SETF *ATN-NODE NIL)
17013
                          NIL
17014
                          (IF ATN-PARSER::ATN-STRUCTURE
17015
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
17016
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
17017
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltInCall| ATN-PARSER::INDEX *ATN-STACK))))
17018
 (PROGN
17019
  (DEFVAR |BuiltinNullCall-INDEX|)
17020
  (DEFUN |BuiltinNullCall| (ATN-PARSER::INDEX &AUX (|NullOperator| NIL))
17021
    "{111a} BuiltinNullCall ::= NullOperator '(' ')'
17022
 (|NullOperator|)"
17023
    (DECLARE (SPECIAL |BuiltinNullCall-INDEX|))
17024
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinNullCall-INDEX| *ATN-LEVEL))
17025
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
17026
    (IF (< |BuiltinNullCall-INDEX| ATN-PARSER::INDEX)
17027
        (LET ((|BuiltinNullCall-INDEX| ATN-PARSER::INDEX)
17028
              (*ATN-LEVEL (1+ *ATN-LEVEL))
17029
              (*ATN-STACK (CONS '|BuiltinNullCall| *ATN-STACK))
17030
              (ATN-PARSER::ATN-STRUCTURE NIL))
17031
          (DECLARE (SPECIAL |BuiltinNullCall-INDEX|))
17032
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
17033
          (DECLARE (TYPE CONS *ATN-STACK))
17034
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
17035
            (%ATN-BLOCK |BuiltinNullCall|
17036
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
17037
                                   (SETF *ATN-TERM* '|BuiltinNullCall|)
17038
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
17039
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
17040
                                   ATN-PARSER::INDEX)
17041
                                 (|BuiltinNullCall.2| (ATN-PARSER::INDEX)
17042
                                   (%ATN-NODE-BLOCK |BuiltinNullCall.2|
17043
                                                    (%ATN-EDGE-BLOCK (POP |BuiltinNullCall|)
17044
                                                                     (WHEN T
17045
                                                                       (SETF *ATN-TERM* '|BuiltinNullCall|)
17046
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
17047
                                                                                   '|BuiltinNullCall| ATN-PARSER::INDEX
17048
                                                                                   (LIST '|NullOperator| |NullOperator|))
17049
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
17050
                                                                              (IF (EQ *ATN-REDUCE* T)
17051
                                                                                  (|BuiltinNullCall-Constructor| |NullOperator|)
17052
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
17053
                                                                                      (CONS '|BuiltinNullCall|
17054
                                                                                            (DELETE NIL (LIST |NullOperator|)))
17055
                                                                                      '|BuiltinNullCall|))))
17056
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
17057
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
17058
                                 (|BuiltinNullCall/BuiltinNullCall.2.4| (ATN-PARSER::INDEX)
17059
                                   (%ATN-NODE-BLOCK |BuiltinNullCall/BuiltinNullCall.2.4|
17060
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
17061
                                                                     (COND
17062
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
17063
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
17064
                                                                       (|BuiltinNullCall/BuiltinNullCall.2.5|
17065
                                                                        (1+ ATN-PARSER::INDEX)))
17066
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
17067
                                                                       (|BuiltinNullCall/fail.3| ATN-PARSER::INDEX))))))
17068
                                 (|BuiltinNullCall/BuiltinNullCall.2.5| (ATN-PARSER::INDEX)
17069
                                   (%ATN-NODE-BLOCK |BuiltinNullCall/BuiltinNullCall.2.5|
17070
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
17071
                                                                     (COND
17072
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
17073
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
17074
                                                                       (|BuiltinNullCall.2| (1+ ATN-PARSER::INDEX)))
17075
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
17076
                                                                       (|BuiltinNullCall/fail.3| ATN-PARSER::INDEX))))))
17077
                                 (|BuiltinNullCall/fail.3| (ATN-PARSER::INDEX)
17078
                                   (%ATN-NODE-BLOCK |BuiltinNullCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
17079
                                 (|BuiltinNullCall/start.1| (ATN-PARSER::INDEX)
17080
                                   (%ATN-NODE-BLOCK |BuiltinNullCall/start.1|
17081
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |NullOperator|)
17082
                                                                     (COND
17083
                                                                      ((|IS-NullOperator| ATN-PARSER::|item|)
17084
                                                                       (SETF *ATN-TERM* '|NullOperator|)
17085
                                                                       (SETF |NullOperator|
17086
                                                                               (IF (EQ *ATN-REDUCE* T)
17087
                                                                                   (ATN-REDUCE-ITEM #'|NullOperator-Constructor|
17088
                                                                                                    ATN-PARSER::|item|)
17089
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
17090
                                                                                       (LIST '|NullOperator| ATN-PARSER::|item|)
17091
                                                                                       '|NullOperator|)))
17092
                                                                       (|BuiltinNullCall/BuiltinNullCall.2.4|
17093
                                                                        (1+ ATN-PARSER::INDEX)))
17094
                                                                      (T (SETF *ATN-TERM* '|NullOperator|)
17095
                                                                       (|BuiltinNullCall/fail.3| ATN-PARSER::INDEX)))))))
17096
                          (|BuiltinNullCall/start.1| ATN-PARSER::INDEX)
17097
                          (SETF *ATN-NODE NIL)
17098
                          NIL
17099
                          (IF ATN-PARSER::ATN-STRUCTURE
17100
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
17101
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
17102
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinNullCall| ATN-PARSER::INDEX *ATN-STACK))))
17103
 (PROGN
17104
  (DEFVAR |BuiltinNullOrUnaryCall-INDEX|)
17105
  (DEFUN |BuiltinNullOrUnaryCall| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|NullOrUnaryOperator| NIL))
17106
    "{111c} BuiltinNullOrUnaryCall ::= NullOrUnaryOperator '(' Expression? ')'
17107
 (|Expression| |NullOrUnaryOperator|)"
17108
    (DECLARE (SPECIAL |BuiltinNullOrUnaryCall-INDEX|))
17109
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinNullOrUnaryCall-INDEX| *ATN-LEVEL))
17110
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
17111
    (IF (< |BuiltinNullOrUnaryCall-INDEX| ATN-PARSER::INDEX)
17112
        (LET ((|BuiltinNullOrUnaryCall-INDEX| ATN-PARSER::INDEX)
17113
              (*ATN-LEVEL (1+ *ATN-LEVEL))
17114
              (*ATN-STACK (CONS '|BuiltinNullOrUnaryCall| *ATN-STACK))
17115
              (ATN-PARSER::ATN-STRUCTURE NIL))
17116
          (DECLARE (SPECIAL |BuiltinNullOrUnaryCall-INDEX|))
17117
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
17118
          (DECLARE (TYPE CONS *ATN-STACK))
17119
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
17120
            (%ATN-BLOCK |BuiltinNullOrUnaryCall|
17121
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
17122
                                   (SETF *ATN-TERM* '|BuiltinNullOrUnaryCall|)
17123
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
17124
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
17125
                                   ATN-PARSER::INDEX)
17126
                                 (|BuiltinNullOrUnaryCall.2| (ATN-PARSER::INDEX)
17127
                                   (%ATN-NODE-BLOCK |BuiltinNullOrUnaryCall.2|
17128
                                                    (%ATN-EDGE-BLOCK (POP |BuiltinNullOrUnaryCall|)
17129
                                                                     (WHEN T
17130
                                                                       (SETF *ATN-TERM* '|BuiltinNullOrUnaryCall|)
17131
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
17132
                                                                                   '|BuiltinNullOrUnaryCall| ATN-PARSER::INDEX
17133
                                                                                   (LIST '|Expression| |Expression|
17134
                                                                                         '|NullOrUnaryOperator|
17135
                                                                                         |NullOrUnaryOperator|))
17136
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
17137
                                                                              (IF (EQ *ATN-REDUCE* T)
17138
                                                                                  (|BuiltinNullOrUnaryCall-Constructor| |Expression|
17139
                                                                                                                        |NullOrUnaryOperator|)
17140
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
17141
                                                                                      (CONS '|BuiltinNullOrUnaryCall|
17142
                                                                                            (DELETE NIL
17143
                                                                                                    (LIST |Expression|
17144
                                                                                                          |NullOrUnaryOperator|)))
17145
                                                                                      '|BuiltinNullOrUnaryCall|))))
17146
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
17147
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
17148
                                 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.4| (ATN-PARSER::INDEX)
17149
                                   (%ATN-NODE-BLOCK |BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.4|
17150
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
17151
                                                                     (COND
17152
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
17153
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
17154
                                                                       (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.5|
17155
                                                                        (1+ ATN-PARSER::INDEX)))
17156
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
17157
                                                                       (|BuiltinNullOrUnaryCall/fail.3| ATN-PARSER::INDEX))))))
17158
                                 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.5| (ATN-PARSER::INDEX)
17159
                                   (%ATN-NODE-BLOCK |BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.5|
17160
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17161
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17162
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17163
                                                                       (COND
17164
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17165
                                                                         (LET ((|Expression745| |Expression|))
17166
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17167
                                                                             (DESTRUCTURING-BIND
17168
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17169
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17170
                                                                               (WHEN ATN-PARSER::RESULT
17171
                                                                                 (SETF |Expression| ATN-PARSER::RESULT))
17172
                                                                               (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6|
17173
                                                                                ATN-PARSER::RESULT-INDEX))
17174
                                                                             (SETF |Expression| |Expression745|))))
17175
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17176
                                                                         (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6|
17177
                                                                          ATN-PARSER::INDEX)))))))
17178
                                 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6| (ATN-PARSER::INDEX)
17179
                                   (%ATN-NODE-BLOCK |BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6|
17180
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
17181
                                                                     (COND
17182
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
17183
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
17184
                                                                       (|BuiltinNullOrUnaryCall.2| (1+ ATN-PARSER::INDEX)))
17185
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
17186
                                                                       (|BuiltinNullOrUnaryCall/fail.3| ATN-PARSER::INDEX))))))
17187
                                 (|BuiltinNullOrUnaryCall/fail.3| (ATN-PARSER::INDEX)
17188
                                   (%ATN-NODE-BLOCK |BuiltinNullOrUnaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
17189
                                 (|BuiltinNullOrUnaryCall/start.1| (ATN-PARSER::INDEX)
17190
                                   (%ATN-NODE-BLOCK |BuiltinNullOrUnaryCall/start.1|
17191
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |NullOrUnaryOperator|)
17192
                                                                     (COND
17193
                                                                      ((|IS-NullOrUnaryOperator| ATN-PARSER::|item|)
17194
                                                                       (SETF *ATN-TERM* '|NullOrUnaryOperator|)
17195
                                                                       (SETF |NullOrUnaryOperator|
17196
                                                                               (IF (EQ *ATN-REDUCE* T)
17197
                                                                                   (ATN-REDUCE-ITEM
17198
                                                                                    #'|NullOrUnaryOperator-Constructor|
17199
                                                                                    ATN-PARSER::|item|)
17200
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
17201
                                                                                       (LIST '|NullOrUnaryOperator|
17202
                                                                                             ATN-PARSER::|item|)
17203
                                                                                       '|NullOrUnaryOperator|)))
17204
                                                                       (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.4|
17205
                                                                        (1+ ATN-PARSER::INDEX)))
17206
                                                                      (T (SETF *ATN-TERM* '|NullOrUnaryOperator|)
17207
                                                                       (|BuiltinNullOrUnaryCall/fail.3| ATN-PARSER::INDEX)))))))
17208
                          (|BuiltinNullOrUnaryCall/start.1| ATN-PARSER::INDEX)
17209
                          (SETF *ATN-NODE NIL)
17210
                          NIL
17211
                          (IF ATN-PARSER::ATN-STRUCTURE
17212
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
17213
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
17214
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinNullOrUnaryCall| ATN-PARSER::INDEX *ATN-STACK))))
17215
 (PROGN
17216
  (DEFVAR |BuiltinUnaryCall-INDEX|)
17217
  (DEFUN |BuiltinUnaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinUnaryOperator| NIL) (|Expression| NIL))
17218
    "{111e} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'
17219
 (|BuiltinUnaryOperator| |Expression|)"
17220
    (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))
17221
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinUnaryCall-INDEX| *ATN-LEVEL))
17222
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
17223
    (IF (< |BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)
17224
        (LET ((|BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)
17225
              (*ATN-LEVEL (1+ *ATN-LEVEL))
17226
              (*ATN-STACK (CONS '|BuiltinUnaryCall| *ATN-STACK))
17227
              (ATN-PARSER::ATN-STRUCTURE NIL))
17228
          (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))
17229
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
17230
          (DECLARE (TYPE CONS *ATN-STACK))
17231
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
17232
            (%ATN-BLOCK |BuiltinUnaryCall|
17233
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
17234
                                   (SETF *ATN-TERM* '|BuiltinUnaryCall|)
17235
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
17236
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
17237
                                   ATN-PARSER::INDEX)
17238
                                 (|BuiltinUnaryCall.2| (ATN-PARSER::INDEX)
17239
                                   (%ATN-NODE-BLOCK |BuiltinUnaryCall.2|
17240
                                                    (%ATN-EDGE-BLOCK (POP |BuiltinUnaryCall|)
17241
                                                                     (WHEN T
17242
                                                                       (SETF *ATN-TERM* '|BuiltinUnaryCall|)
17243
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
17244
                                                                                   '|BuiltinUnaryCall| ATN-PARSER::INDEX
17245
                                                                                   (LIST '|BuiltinUnaryOperator|
17246
                                                                                         |BuiltinUnaryOperator| '|Expression|
17247
                                                                                         |Expression|))
17248
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
17249
                                                                              (IF (EQ *ATN-REDUCE* T)
17250
                                                                                  (|BuiltinUnaryCall-Constructor|
17251
                                                                                   |BuiltinUnaryOperator| |Expression|)
17252
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
17253
                                                                                      (CONS '|BuiltinUnaryCall|
17254
                                                                                            (DELETE NIL
17255
                                                                                                    (LIST |BuiltinUnaryOperator|
17256
                                                                                                          |Expression|)))
17257
                                                                                      '|BuiltinUnaryCall|))))
17258
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
17259
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
17260
                                 (|BuiltinUnaryCall/BuiltinUnaryCall.2.4| (ATN-PARSER::INDEX)
17261
                                   (%ATN-NODE-BLOCK |BuiltinUnaryCall/BuiltinUnaryCall.2.4|
17262
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
17263
                                                                     (COND
17264
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
17265
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
17266
                                                                       (|BuiltinUnaryCall/BuiltinUnaryCall.2.5|
17267
                                                                        (1+ ATN-PARSER::INDEX)))
17268
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
17269
                                                                       (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))
17270
                                 (|BuiltinUnaryCall/BuiltinUnaryCall.2.5| (ATN-PARSER::INDEX)
17271
                                   (%ATN-NODE-BLOCK |BuiltinUnaryCall/BuiltinUnaryCall.2.5|
17272
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17273
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17274
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17275
                                                                       (COND
17276
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17277
                                                                         (LET ((|Expression746| |Expression|))
17278
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17279
                                                                             (DESTRUCTURING-BIND
17280
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17281
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17282
                                                                               (WHEN ATN-PARSER::RESULT
17283
                                                                                 (SETF |Expression| ATN-PARSER::RESULT))
17284
                                                                               (|BuiltinUnaryCall/BuiltinUnaryCall.2.6|
17285
                                                                                ATN-PARSER::RESULT-INDEX))
17286
                                                                             (SETF |Expression| |Expression746|))))
17287
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17288
                                                                         (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))
17289
                                 (|BuiltinUnaryCall/BuiltinUnaryCall.2.6| (ATN-PARSER::INDEX)
17290
                                   (%ATN-NODE-BLOCK |BuiltinUnaryCall/BuiltinUnaryCall.2.6|
17291
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
17292
                                                                     (COND
17293
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
17294
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
17295
                                                                       (|BuiltinUnaryCall.2| (1+ ATN-PARSER::INDEX)))
17296
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
17297
                                                                       (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))
17298
                                 (|BuiltinUnaryCall/fail.3| (ATN-PARSER::INDEX)
17299
                                   (%ATN-NODE-BLOCK |BuiltinUnaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
17300
                                 (|BuiltinUnaryCall/start.1| (ATN-PARSER::INDEX)
17301
                                   (%ATN-NODE-BLOCK |BuiltinUnaryCall/start.1|
17302
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |BuiltinUnaryOperator|)
17303
                                                                     (COND
17304
                                                                      ((|IS-BuiltinUnaryOperator| ATN-PARSER::|item|)
17305
                                                                       (SETF *ATN-TERM* '|BuiltinUnaryOperator|)
17306
                                                                       (SETF |BuiltinUnaryOperator|
17307
                                                                               (IF (EQ *ATN-REDUCE* T)
17308
                                                                                   (ATN-REDUCE-ITEM
17309
                                                                                    #'|BuiltinUnaryOperator-Constructor|
17310
                                                                                    ATN-PARSER::|item|)
17311
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
17312
                                                                                       (LIST '|BuiltinUnaryOperator|
17313
                                                                                             ATN-PARSER::|item|)
17314
                                                                                       '|BuiltinUnaryOperator|)))
17315
                                                                       (|BuiltinUnaryCall/BuiltinUnaryCall.2.4|
17316
                                                                        (1+ ATN-PARSER::INDEX)))
17317
                                                                      (T (SETF *ATN-TERM* '|BuiltinUnaryOperator|)
17318
                                                                       (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))
17319
                          (|BuiltinUnaryCall/start.1| ATN-PARSER::INDEX)
17320
                          (SETF *ATN-NODE NIL)
17321
                          NIL
17322
                          (IF ATN-PARSER::ATN-STRUCTURE
17323
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
17324
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
17325
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinUnaryCall| ATN-PARSER::INDEX *ATN-STACK))))
17326
 (PROGN
17327
  (DEFVAR |BuiltinBinaryCall-INDEX|)
17328
  (DEFUN |BuiltinBinaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinBinaryOperator| NIL) (|Expression| NIL))
17329
    "{111g} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'
17330
 (|BuiltinBinaryOperator| |Expression|)"
17331
    (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))
17332
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinBinaryCall-INDEX| *ATN-LEVEL))
17333
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
17334
    (IF (< |BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)
17335
        (LET ((|BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)
17336
              (*ATN-LEVEL (1+ *ATN-LEVEL))
17337
              (*ATN-STACK (CONS '|BuiltinBinaryCall| *ATN-STACK))
17338
              (ATN-PARSER::ATN-STRUCTURE NIL))
17339
          (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))
17340
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
17341
          (DECLARE (TYPE CONS *ATN-STACK))
17342
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
17343
            (%ATN-BLOCK |BuiltinBinaryCall|
17344
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
17345
                                   (SETF *ATN-TERM* '|BuiltinBinaryCall|)
17346
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
17347
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
17348
                                   ATN-PARSER::INDEX)
17349
                                 (|BuiltinBinaryCall.2| (ATN-PARSER::INDEX)
17350
                                   (%ATN-NODE-BLOCK |BuiltinBinaryCall.2|
17351
                                                    (%ATN-EDGE-BLOCK (POP |BuiltinBinaryCall|)
17352
                                                                     (WHEN T
17353
                                                                       (SETF *ATN-TERM* '|BuiltinBinaryCall|)
17354
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
17355
                                                                                   '|BuiltinBinaryCall| ATN-PARSER::INDEX
17356
                                                                                   (LIST '|BuiltinBinaryOperator|
17357
                                                                                         |BuiltinBinaryOperator| '|Expression|
17358
                                                                                         |Expression|))
17359
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
17360
                                                                              (IF (EQ *ATN-REDUCE* T)
17361
                                                                                  (|BuiltinBinaryCall-Constructor|
17362
                                                                                   |BuiltinBinaryOperator| |Expression|)
17363
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
17364
                                                                                      (CONS '|BuiltinBinaryCall|
17365
                                                                                            (DELETE NIL
17366
                                                                                                    (LIST |BuiltinBinaryOperator|
17367
                                                                                                          |Expression|)))
17368
                                                                                      '|BuiltinBinaryCall|))))
17369
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
17370
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
17371
                                 (|BuiltinBinaryCall/BuiltinBinaryCall.2.4| (ATN-PARSER::INDEX)
17372
                                   (%ATN-NODE-BLOCK |BuiltinBinaryCall/BuiltinBinaryCall.2.4|
17373
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
17374
                                                                     (COND
17375
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
17376
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
17377
                                                                       (|BuiltinBinaryCall/BuiltinBinaryCall.2.5|
17378
                                                                        (1+ ATN-PARSER::INDEX)))
17379
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
17380
                                                                       (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))
17381
                                 (|BuiltinBinaryCall/BuiltinBinaryCall.2.5| (ATN-PARSER::INDEX)
17382
                                   (%ATN-NODE-BLOCK |BuiltinBinaryCall/BuiltinBinaryCall.2.5|
17383
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17384
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17385
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17386
                                                                       (COND
17387
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17388
                                                                         (LET ((|Expression748| |Expression|))
17389
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17390
                                                                             (DESTRUCTURING-BIND
17391
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17392
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17393
                                                                               (WHEN ATN-PARSER::RESULT
17394
                                                                                 (SETF |Expression|
17395
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17396
                                                                               (|BuiltinBinaryCall/BuiltinBinaryCall.2.6|
17397
                                                                                ATN-PARSER::RESULT-INDEX))
17398
                                                                             (SETF |Expression| |Expression748|))))
17399
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17400
                                                                         (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))
17401
                                 (|BuiltinBinaryCall/BuiltinBinaryCall.2.6| (ATN-PARSER::INDEX)
17402
                                   (%ATN-NODE-BLOCK |BuiltinBinaryCall/BuiltinBinaryCall.2.6|
17403
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
17404
                                                                     (COND
17405
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
17406
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
17407
                                                                       (|BuiltinBinaryCall/BuiltinBinaryCall.2.7|
17408
                                                                        (1+ ATN-PARSER::INDEX)))
17409
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|)
17410
                                                                       (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))
17411
                                 (|BuiltinBinaryCall/BuiltinBinaryCall.2.7| (ATN-PARSER::INDEX)
17412
                                   (%ATN-NODE-BLOCK |BuiltinBinaryCall/BuiltinBinaryCall.2.7|
17413
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17414
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17415
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17416
                                                                       (COND
17417
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17418
                                                                         (LET ((|Expression747| |Expression|))
17419
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17420
                                                                             (DESTRUCTURING-BIND
17421
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17422
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17423
                                                                               (WHEN ATN-PARSER::RESULT
17424
                                                                                 (SETF |Expression|
17425
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17426
                                                                               (|BuiltinBinaryCall/BuiltinBinaryCall.2.8|
17427
                                                                                ATN-PARSER::RESULT-INDEX))
17428
                                                                             (SETF |Expression| |Expression747|))))
17429
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17430
                                                                         (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))
17431
                                 (|BuiltinBinaryCall/BuiltinBinaryCall.2.8| (ATN-PARSER::INDEX)
17432
                                   (%ATN-NODE-BLOCK |BuiltinBinaryCall/BuiltinBinaryCall.2.8|
17433
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
17434
                                                                     (COND
17435
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
17436
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
17437
                                                                       (|BuiltinBinaryCall.2| (1+ ATN-PARSER::INDEX)))
17438
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
17439
                                                                       (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))
17440
                                 (|BuiltinBinaryCall/fail.3| (ATN-PARSER::INDEX)
17441
                                   (%ATN-NODE-BLOCK |BuiltinBinaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
17442
                                 (|BuiltinBinaryCall/start.1| (ATN-PARSER::INDEX)
17443
                                   (%ATN-NODE-BLOCK |BuiltinBinaryCall/start.1|
17444
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |BuiltinBinaryOperator|)
17445
                                                                     (COND
17446
                                                                      ((|IS-BuiltinBinaryOperator| ATN-PARSER::|item|)
17447
                                                                       (SETF *ATN-TERM* '|BuiltinBinaryOperator|)
17448
                                                                       (SETF |BuiltinBinaryOperator|
17449
                                                                               (IF (EQ *ATN-REDUCE* T)
17450
                                                                                   (ATN-REDUCE-ITEM
17451
                                                                                    #'|BuiltinBinaryOperator-Constructor|
17452
                                                                                    ATN-PARSER::|item|)
17453
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
17454
                                                                                       (LIST '|BuiltinBinaryOperator|
17455
                                                                                             ATN-PARSER::|item|)
17456
                                                                                       '|BuiltinBinaryOperator|)))
17457
                                                                       (|BuiltinBinaryCall/BuiltinBinaryCall.2.4|
17458
                                                                        (1+ ATN-PARSER::INDEX)))
17459
                                                                      (T (SETF *ATN-TERM* '|BuiltinBinaryOperator|)
17460
                                                                       (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))
17461
                          (|BuiltinBinaryCall/start.1| ATN-PARSER::INDEX)
17462
                          (SETF *ATN-NODE NIL)
17463
                          NIL
17464
                          (IF ATN-PARSER::ATN-STRUCTURE
17465
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
17466
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
17467
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinBinaryCall| ATN-PARSER::INDEX *ATN-STACK))))
17468
 (PROGN
17469
  (DEFVAR |IfExpression-INDEX|)
17470
  (DEFUN |IfExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))
17471
    "{111i} IfExpression ::= 'IF' '(' Expression ',' Expression ',' Expression ')'
17472
 (|Expression|)"
17473
    (DECLARE (SPECIAL |IfExpression-INDEX|))
17474
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IfExpression-INDEX| *ATN-LEVEL))
17475
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
17476
    (IF (< |IfExpression-INDEX| ATN-PARSER::INDEX)
17477
        (LET ((|IfExpression-INDEX| ATN-PARSER::INDEX)
17478
              (*ATN-LEVEL (1+ *ATN-LEVEL))
17479
              (*ATN-STACK (CONS '|IfExpression| *ATN-STACK))
17480
              (ATN-PARSER::ATN-STRUCTURE NIL))
17481
          (DECLARE (SPECIAL |IfExpression-INDEX|))
17482
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
17483
          (DECLARE (TYPE CONS *ATN-STACK))
17484
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
17485
            (%ATN-BLOCK |IfExpression|
17486
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
17487
                                   (SETF *ATN-TERM* '|IfExpression|)
17488
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
17489
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
17490
                                   ATN-PARSER::INDEX)
17491
                                 (|IfExpression.2| (ATN-PARSER::INDEX)
17492
                                   (%ATN-NODE-BLOCK |IfExpression.2|
17493
                                                    (%ATN-EDGE-BLOCK (POP |IfExpression|)
17494
                                                                     (WHEN T
17495
                                                                       (SETF *ATN-TERM* '|IfExpression|)
17496
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
17497
                                                                                   '|IfExpression| ATN-PARSER::INDEX
17498
                                                                                   (LIST '|Expression| |Expression|))
17499
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
17500
                                                                              (IF (EQ *ATN-REDUCE* T)
17501
                                                                                  (|IfExpression-Constructor| |Expression|)
17502
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
17503
                                                                                      (CONS '|IfExpression|
17504
                                                                                            (DELETE NIL (LIST |Expression|)))
17505
                                                                                      '|IfExpression|))))
17506
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
17507
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
17508
                                 (|IfExpression/fail.3| (ATN-PARSER::INDEX)
17509
                                   (%ATN-NODE-BLOCK |IfExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
17510
                                 (|IfExpression/IfExpression.2.10| (ATN-PARSER::INDEX)
17511
                                   (%ATN-NODE-BLOCK |IfExpression/IfExpression.2.10|
17512
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
17513
                                                                     (COND
17514
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
17515
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
17516
                                                                       (|IfExpression.2| (1+ ATN-PARSER::INDEX)))
17517
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
17518
                                                                       (|IfExpression/fail.3| ATN-PARSER::INDEX))))))
17519
                                 (|IfExpression/IfExpression.2.4| (ATN-PARSER::INDEX)
17520
                                   (%ATN-NODE-BLOCK |IfExpression/IfExpression.2.4|
17521
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
17522
                                                                     (COND
17523
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
17524
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
17525
                                                                       (|IfExpression/IfExpression.2.5| (1+ ATN-PARSER::INDEX)))
17526
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
17527
                                                                       (|IfExpression/fail.3| ATN-PARSER::INDEX))))))
17528
                                 (|IfExpression/IfExpression.2.5| (ATN-PARSER::INDEX)
17529
                                   (%ATN-NODE-BLOCK |IfExpression/IfExpression.2.5|
17530
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17531
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17532
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17533
                                                                       (COND
17534
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17535
                                                                         (LET ((|Expression751| |Expression|))
17536
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17537
                                                                             (DESTRUCTURING-BIND
17538
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17539
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17540
                                                                               (WHEN ATN-PARSER::RESULT
17541
                                                                                 (SETF |Expression|
17542
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17543
                                                                               (|IfExpression/IfExpression.2.6|
17544
                                                                                ATN-PARSER::RESULT-INDEX))
17545
                                                                             (SETF |Expression| |Expression751|))))
17546
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17547
                                                                         (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))
17548
                                 (|IfExpression/IfExpression.2.6| (ATN-PARSER::INDEX)
17549
                                   (%ATN-NODE-BLOCK |IfExpression/IfExpression.2.6|
17550
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
17551
                                                                     (COND
17552
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
17553
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
17554
                                                                       (|IfExpression/IfExpression.2.7| (1+ ATN-PARSER::INDEX)))
17555
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|)
17556
                                                                       (|IfExpression/fail.3| ATN-PARSER::INDEX))))))
17557
                                 (|IfExpression/IfExpression.2.7| (ATN-PARSER::INDEX)
17558
                                   (%ATN-NODE-BLOCK |IfExpression/IfExpression.2.7|
17559
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17560
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17561
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17562
                                                                       (COND
17563
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17564
                                                                         (LET ((|Expression750| |Expression|))
17565
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17566
                                                                             (DESTRUCTURING-BIND
17567
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17568
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17569
                                                                               (WHEN ATN-PARSER::RESULT
17570
                                                                                 (SETF |Expression|
17571
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17572
                                                                               (|IfExpression/IfExpression.2.8|
17573
                                                                                ATN-PARSER::RESULT-INDEX))
17574
                                                                             (SETF |Expression| |Expression750|))))
17575
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17576
                                                                         (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))
17577
                                 (|IfExpression/IfExpression.2.8| (ATN-PARSER::INDEX)
17578
                                   (%ATN-NODE-BLOCK |IfExpression/IfExpression.2.8|
17579
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
17580
                                                                     (COND
17581
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
17582
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
17583
                                                                       (|IfExpression/IfExpression.2.9| (1+ ATN-PARSER::INDEX)))
17584
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|)
17585
                                                                       (|IfExpression/fail.3| ATN-PARSER::INDEX))))))
17586
                                 (|IfExpression/IfExpression.2.9| (ATN-PARSER::INDEX)
17587
                                   (%ATN-NODE-BLOCK |IfExpression/IfExpression.2.9|
17588
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17589
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17590
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17591
                                                                       (COND
17592
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17593
                                                                         (LET ((|Expression749| |Expression|))
17594
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17595
                                                                             (DESTRUCTURING-BIND
17596
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17597
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17598
                                                                               (WHEN ATN-PARSER::RESULT
17599
                                                                                 (SETF |Expression|
17600
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17601
                                                                               (|IfExpression/IfExpression.2.10|
17602
                                                                                ATN-PARSER::RESULT-INDEX))
17603
                                                                             (SETF |Expression| |Expression749|))))
17604
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17605
                                                                         (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))
17606
                                 (|IfExpression/start.1| (ATN-PARSER::INDEX)
17607
                                   (%ATN-NODE-BLOCK |IfExpression/start.1|
17608
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:IF)
17609
                                                                     (COND
17610
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:IF)
17611
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:IF)
17612
                                                                       (|IfExpression/IfExpression.2.4| (1+ ATN-PARSER::INDEX)))
17613
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:IF)
17614
                                                                       (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))
17615
                          (|IfExpression/start.1| ATN-PARSER::INDEX)
17616
                          (SETF *ATN-NODE NIL)
17617
                          NIL
17618
                          (IF ATN-PARSER::ATN-STRUCTURE
17619
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
17620
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
17621
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|IfExpression| ATN-PARSER::INDEX *ATN-STACK))))
17622
 (PROGN
17623
  (DEFVAR |BuiltinListCall-INDEX|)
17624
  (DEFUN |BuiltinListCall| (ATN-PARSER::INDEX &AUX (|BuiltinListOperator| NIL) (|ExpressionList| NIL))
17625
    "{111j} BuiltinListCall ::= BuiltinListOperator ExpressionList
17626
 (|BuiltinListOperator| |ExpressionList|)"
17627
    (DECLARE (SPECIAL |BuiltinListCall-INDEX|))
17628
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinListCall-INDEX| *ATN-LEVEL))
17629
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
17630
    (IF (< |BuiltinListCall-INDEX| ATN-PARSER::INDEX)
17631
        (LET ((|BuiltinListCall-INDEX| ATN-PARSER::INDEX)
17632
              (*ATN-LEVEL (1+ *ATN-LEVEL))
17633
              (*ATN-STACK (CONS '|BuiltinListCall| *ATN-STACK))
17634
              (ATN-PARSER::ATN-STRUCTURE NIL))
17635
          (DECLARE (SPECIAL |BuiltinListCall-INDEX|))
17636
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
17637
          (DECLARE (TYPE CONS *ATN-STACK))
17638
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
17639
            (%ATN-BLOCK |BuiltinListCall|
17640
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
17641
                                   (SETF *ATN-TERM* '|BuiltinListCall|)
17642
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
17643
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
17644
                                   ATN-PARSER::INDEX)
17645
                                 (|BuiltinListCall.2| (ATN-PARSER::INDEX)
17646
                                   (%ATN-NODE-BLOCK |BuiltinListCall.2|
17647
                                                    (%ATN-EDGE-BLOCK (POP |BuiltinListCall|)
17648
                                                                     (WHEN T
17649
                                                                       (SETF *ATN-TERM* '|BuiltinListCall|)
17650
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
17651
                                                                                   '|BuiltinListCall| ATN-PARSER::INDEX
17652
                                                                                   (LIST '|BuiltinListOperator|
17653
                                                                                         |BuiltinListOperator| '|ExpressionList|
17654
                                                                                         |ExpressionList|))
17655
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
17656
                                                                              (IF (EQ *ATN-REDUCE* T)
17657
                                                                                  (|BuiltinListCall-Constructor|
17658
                                                                                   |BuiltinListOperator| |ExpressionList|)
17659
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
17660
                                                                                      (CONS '|BuiltinListCall|
17661
                                                                                            (DELETE NIL
17662
                                                                                                    (LIST |BuiltinListOperator|
17663
                                                                                                          |ExpressionList|)))
17664
                                                                                      '|BuiltinListCall|))))
17665
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
17666
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
17667
                                 (|BuiltinListCall/BuiltinListCall.2.4| (ATN-PARSER::INDEX)
17668
                                   (%ATN-NODE-BLOCK |BuiltinListCall/BuiltinListCall.2.4|
17669
                                                    (%ATN-EDGE-BLOCK (PUSH |ExpressionList|)
17670
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17671
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|ExpressionList|
17672
                                                                                                  ATN-PARSER::INDEX)
17673
                                                                       (COND
17674
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|ExpressionList|)
17675
                                                                         (LET ((|ExpressionList752| |ExpressionList|))
17676
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17677
                                                                             (DESTRUCTURING-BIND
17678
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17679
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17680
                                                                               (WHEN ATN-PARSER::RESULT
17681
                                                                                 (SETF |ExpressionList| ATN-PARSER::RESULT))
17682
                                                                               (|BuiltinListCall.2| ATN-PARSER::RESULT-INDEX))
17683
                                                                             (SETF |ExpressionList| |ExpressionList752|))))
17684
                                                                        (T (SETF *ATN-TERM?* '|ExpressionList|)
17685
                                                                         (|BuiltinListCall/fail.3| ATN-PARSER::INDEX)))))))
17686
                                 (|BuiltinListCall/fail.3| (ATN-PARSER::INDEX)
17687
                                   (%ATN-NODE-BLOCK |BuiltinListCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
17688
                                 (|BuiltinListCall/start.1| (ATN-PARSER::INDEX)
17689
                                   (%ATN-NODE-BLOCK |BuiltinListCall/start.1|
17690
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |BuiltinListOperator|)
17691
                                                                     (COND
17692
                                                                      ((|IS-BuiltinListOperator| ATN-PARSER::|item|)
17693
                                                                       (SETF *ATN-TERM* '|BuiltinListOperator|)
17694
                                                                       (SETF |BuiltinListOperator|
17695
                                                                               (IF (EQ *ATN-REDUCE* T)
17696
                                                                                   (ATN-REDUCE-ITEM
17697
                                                                                    #'|BuiltinListOperator-Constructor|
17698
                                                                                    ATN-PARSER::|item|)
17699
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
17700
                                                                                       (LIST '|BuiltinListOperator|
17701
                                                                                             ATN-PARSER::|item|)
17702
                                                                                       '|BuiltinListOperator|)))
17703
                                                                       (|BuiltinListCall/BuiltinListCall.2.4|
17704
                                                                        (1+ ATN-PARSER::INDEX)))
17705
                                                                      (T (SETF *ATN-TERM* '|BuiltinListOperator|)
17706
                                                                       (|BuiltinListCall/fail.3| ATN-PARSER::INDEX)))))))
17707
                          (|BuiltinListCall/start.1| ATN-PARSER::INDEX)
17708
                          (SETF *ATN-NODE NIL)
17709
                          NIL
17710
                          (IF ATN-PARSER::ATN-STRUCTURE
17711
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
17712
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
17713
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinListCall| ATN-PARSER::INDEX *ATN-STACK))))
17714
 (PROGN
17715
  (DEFVAR |RegexExpression-INDEX|)
17716
  (DEFUN |RegexExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))
17717
    "{112} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (',' Expression)? ')'
17718
 (|Expression|)"
17719
    (DECLARE (SPECIAL |RegexExpression-INDEX|))
17720
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RegexExpression-INDEX| *ATN-LEVEL))
17721
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
17722
    (IF (< |RegexExpression-INDEX| ATN-PARSER::INDEX)
17723
        (LET ((|RegexExpression-INDEX| ATN-PARSER::INDEX)
17724
              (*ATN-LEVEL (1+ *ATN-LEVEL))
17725
              (*ATN-STACK (CONS '|RegexExpression| *ATN-STACK))
17726
              (ATN-PARSER::ATN-STRUCTURE NIL))
17727
          (DECLARE (SPECIAL |RegexExpression-INDEX|))
17728
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
17729
          (DECLARE (TYPE CONS *ATN-STACK))
17730
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
17731
            (%ATN-BLOCK |RegexExpression|
17732
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
17733
                                   (SETF *ATN-TERM* '|RegexExpression|)
17734
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
17735
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
17736
                                   ATN-PARSER::INDEX)
17737
                                 (|RegexExpression.2| (ATN-PARSER::INDEX)
17738
                                   (%ATN-NODE-BLOCK |RegexExpression.2|
17739
                                                    (%ATN-EDGE-BLOCK (POP |RegexExpression|)
17740
                                                                     (WHEN T
17741
                                                                       (SETF *ATN-TERM* '|RegexExpression|)
17742
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
17743
                                                                                   '|RegexExpression| ATN-PARSER::INDEX
17744
                                                                                   (LIST '|Expression| |Expression|))
17745
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
17746
                                                                              (IF (EQ *ATN-REDUCE* T)
17747
                                                                                  (|RegexExpression-Constructor| |Expression|)
17748
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
17749
                                                                                      (CONS '|RegexExpression|
17750
                                                                                            (DELETE NIL (LIST |Expression|)))
17751
                                                                                      '|RegexExpression|))))
17752
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
17753
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
17754
                                 (|RegexExpression/fail.3| (ATN-PARSER::INDEX)
17755
                                   (%ATN-NODE-BLOCK |RegexExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
17756
                                 (|RegexExpression/RegexExpression.2.4| (ATN-PARSER::INDEX)
17757
                                   (%ATN-NODE-BLOCK |RegexExpression/RegexExpression.2.4|
17758
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
17759
                                                                     (COND
17760
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
17761
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
17762
                                                                       (|RegexExpression/RegexExpression.2.5|
17763
                                                                        (1+ ATN-PARSER::INDEX)))
17764
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
17765
                                                                       (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))
17766
                                 (|RegexExpression/RegexExpression.2.5| (ATN-PARSER::INDEX)
17767
                                   (%ATN-NODE-BLOCK |RegexExpression/RegexExpression.2.5|
17768
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17769
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17770
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17771
                                                                       (COND
17772
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17773
                                                                         (LET ((|Expression755| |Expression|))
17774
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17775
                                                                             (DESTRUCTURING-BIND
17776
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17777
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17778
                                                                               (WHEN ATN-PARSER::RESULT
17779
                                                                                 (SETF |Expression|
17780
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17781
                                                                               (|RegexExpression/RegexExpression.2.6|
17782
                                                                                ATN-PARSER::RESULT-INDEX))
17783
                                                                             (SETF |Expression| |Expression755|))))
17784
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17785
                                                                         (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))
17786
                                 (|RegexExpression/RegexExpression.2.6| (ATN-PARSER::INDEX)
17787
                                   (%ATN-NODE-BLOCK |RegexExpression/RegexExpression.2.6|
17788
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
17789
                                                                     (COND
17790
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
17791
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
17792
                                                                       (|RegexExpression/RegexExpression.2.7|
17793
                                                                        (1+ ATN-PARSER::INDEX)))
17794
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|)
17795
                                                                       (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))
17796
                                 (|RegexExpression/RegexExpression.2.7| (ATN-PARSER::INDEX)
17797
                                   (%ATN-NODE-BLOCK |RegexExpression/RegexExpression.2.7|
17798
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17799
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17800
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17801
                                                                       (COND
17802
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17803
                                                                         (LET ((|Expression754| |Expression|))
17804
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17805
                                                                             (DESTRUCTURING-BIND
17806
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17807
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17808
                                                                               (WHEN ATN-PARSER::RESULT
17809
                                                                                 (SETF |Expression|
17810
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17811
                                                                               (|RegexExpression/RegexExpression.2.8|
17812
                                                                                ATN-PARSER::RESULT-INDEX))
17813
                                                                             (SETF |Expression| |Expression754|))))
17814
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17815
                                                                         (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))
17816
                                 (|RegexExpression/RegexExpression.2.8| (ATN-PARSER::INDEX)
17817
                                   (%ATN-NODE-BLOCK |RegexExpression/RegexExpression.2.8|
17818
                                                    (%ATN-EDGE-BLOCK
17819
                                                     (ATN-PARSER::JUMP |RegexExpression/RegexExpression/RegexExpression.2.9.10|)
17820
                                                     (|RegexExpression/RegexExpression/RegexExpression.2.9.10| ATN-PARSER::INDEX))
17821
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |RegexExpression/RegexExpression.2.9|)
17822
                                                                     (|RegexExpression/RegexExpression.2.9| ATN-PARSER::INDEX))))
17823
                                 (|RegexExpression/RegexExpression.2.9| (ATN-PARSER::INDEX)
17824
                                   (%ATN-NODE-BLOCK |RegexExpression/RegexExpression.2.9|
17825
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
17826
                                                                     (COND
17827
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
17828
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
17829
                                                                       (|RegexExpression.2| (1+ ATN-PARSER::INDEX)))
17830
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
17831
                                                                       (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))
17832
                                 (|RegexExpression/RegexExpression/RegexExpression.2.9.10| (ATN-PARSER::INDEX)
17833
                                   (%ATN-NODE-BLOCK |RegexExpression/RegexExpression/RegexExpression.2.9.10|
17834
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
17835
                                                                     (COND
17836
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
17837
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
17838
                                                                       (|RegexExpression/RegexExpression/RegexExpression.2.9.11|
17839
                                                                        (1+ ATN-PARSER::INDEX)))
17840
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
17841
                                 (|RegexExpression/RegexExpression/RegexExpression.2.9.11| (ATN-PARSER::INDEX)
17842
                                   (%ATN-NODE-BLOCK |RegexExpression/RegexExpression/RegexExpression.2.9.11|
17843
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17844
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17845
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17846
                                                                       (COND
17847
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17848
                                                                         (LET ((|Expression753| |Expression|))
17849
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17850
                                                                             (DESTRUCTURING-BIND
17851
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17852
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17853
                                                                               (WHEN ATN-PARSER::RESULT
17854
                                                                                 (SETF |Expression|
17855
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17856
                                                                               (|RegexExpression/RegexExpression.2.9|
17857
                                                                                ATN-PARSER::RESULT-INDEX))
17858
                                                                             (SETF |Expression| |Expression753|))))
17859
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
17860
                                 (|RegexExpression/start.1| (ATN-PARSER::INDEX)
17861
                                   (%ATN-NODE-BLOCK |RegexExpression/start.1|
17862
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:REGEX)
17863
                                                                     (COND
17864
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:REGEX)
17865
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:REGEX)
17866
                                                                       (|RegexExpression/RegexExpression.2.4|
17867
                                                                        (1+ ATN-PARSER::INDEX)))
17868
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:REGEX)
17869
                                                                       (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))
17870
                          (|RegexExpression/start.1| ATN-PARSER::INDEX)
17871
                          (SETF *ATN-NODE NIL)
17872
                          NIL
17873
                          (IF ATN-PARSER::ATN-STRUCTURE
17874
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
17875
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
17876
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|RegexExpression| ATN-PARSER::INDEX *ATN-STACK))))
17877
 (PROGN
17878
  (DEFVAR |ReplaceExpression-INDEX|)
17879
  (DEFUN |ReplaceExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))
17880
    "{113} ReplaceExpression ::= 'REPLACE' '(' Expression ',' Expression ',' Expression (','
17881
                                                                                     Expression)? ')'
17882
 (|Expression|)"
17883
    (DECLARE (SPECIAL |ReplaceExpression-INDEX|))
17884
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ReplaceExpression-INDEX| *ATN-LEVEL))
17885
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
17886
    (IF (< |ReplaceExpression-INDEX| ATN-PARSER::INDEX)
17887
        (LET ((|ReplaceExpression-INDEX| ATN-PARSER::INDEX)
17888
              (*ATN-LEVEL (1+ *ATN-LEVEL))
17889
              (*ATN-STACK (CONS '|ReplaceExpression| *ATN-STACK))
17890
              (ATN-PARSER::ATN-STRUCTURE NIL))
17891
          (DECLARE (SPECIAL |ReplaceExpression-INDEX|))
17892
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
17893
          (DECLARE (TYPE CONS *ATN-STACK))
17894
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
17895
            (%ATN-BLOCK |ReplaceExpression|
17896
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
17897
                                   (SETF *ATN-TERM* '|ReplaceExpression|)
17898
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
17899
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
17900
                                   ATN-PARSER::INDEX)
17901
                                 (|ReplaceExpression.2| (ATN-PARSER::INDEX)
17902
                                   (%ATN-NODE-BLOCK |ReplaceExpression.2|
17903
                                                    (%ATN-EDGE-BLOCK (POP |ReplaceExpression|)
17904
                                                                     (WHEN T
17905
                                                                       (SETF *ATN-TERM* '|ReplaceExpression|)
17906
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
17907
                                                                                   '|ReplaceExpression| ATN-PARSER::INDEX
17908
                                                                                   (LIST '|Expression| |Expression|))
17909
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
17910
                                                                              (IF (EQ *ATN-REDUCE* T)
17911
                                                                                  (|ReplaceExpression-Constructor| |Expression|)
17912
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
17913
                                                                                      (CONS '|ReplaceExpression|
17914
                                                                                            (DELETE NIL (LIST |Expression|)))
17915
                                                                                      '|ReplaceExpression|))))
17916
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
17917
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
17918
                                 (|ReplaceExpression/fail.3| (ATN-PARSER::INDEX)
17919
                                   (%ATN-NODE-BLOCK |ReplaceExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
17920
                                 (|ReplaceExpression/ReplaceExpression.2.10| (ATN-PARSER::INDEX)
17921
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression.2.10|
17922
                                                    (%ATN-EDGE-BLOCK
17923
                                                     (ATN-PARSER::JUMP
17924
                                                      |ReplaceExpression/ReplaceExpression/ReplaceExpression.2.11.12|)
17925
                                                     (|ReplaceExpression/ReplaceExpression/ReplaceExpression.2.11.12|
17926
                                                      ATN-PARSER::INDEX))
17927
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ReplaceExpression/ReplaceExpression.2.11|)
17928
                                                                     (|ReplaceExpression/ReplaceExpression.2.11|
17929
                                                                      ATN-PARSER::INDEX))))
17930
                                 (|ReplaceExpression/ReplaceExpression.2.11| (ATN-PARSER::INDEX)
17931
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression.2.11|
17932
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
17933
                                                                     (COND
17934
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
17935
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
17936
                                                                       (|ReplaceExpression.2| (1+ ATN-PARSER::INDEX)))
17937
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
17938
                                                                       (|ReplaceExpression/fail.3| ATN-PARSER::INDEX))))))
17939
                                 (|ReplaceExpression/ReplaceExpression.2.4| (ATN-PARSER::INDEX)
17940
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression.2.4|
17941
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
17942
                                                                     (COND
17943
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
17944
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
17945
                                                                       (|ReplaceExpression/ReplaceExpression.2.5|
17946
                                                                        (1+ ATN-PARSER::INDEX)))
17947
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
17948
                                                                       (|ReplaceExpression/fail.3| ATN-PARSER::INDEX))))))
17949
                                 (|ReplaceExpression/ReplaceExpression.2.5| (ATN-PARSER::INDEX)
17950
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression.2.5|
17951
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17952
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17953
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17954
                                                                       (COND
17955
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17956
                                                                         (LET ((|Expression759| |Expression|))
17957
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17958
                                                                             (DESTRUCTURING-BIND
17959
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17960
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17961
                                                                               (WHEN ATN-PARSER::RESULT
17962
                                                                                 (SETF |Expression|
17963
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17964
                                                                               (|ReplaceExpression/ReplaceExpression.2.6|
17965
                                                                                ATN-PARSER::RESULT-INDEX))
17966
                                                                             (SETF |Expression| |Expression759|))))
17967
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17968
                                                                         (|ReplaceExpression/fail.3| ATN-PARSER::INDEX)))))))
17969
                                 (|ReplaceExpression/ReplaceExpression.2.6| (ATN-PARSER::INDEX)
17970
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression.2.6|
17971
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
17972
                                                                     (COND
17973
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
17974
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
17975
                                                                       (|ReplaceExpression/ReplaceExpression.2.7|
17976
                                                                        (1+ ATN-PARSER::INDEX)))
17977
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|)
17978
                                                                       (|ReplaceExpression/fail.3| ATN-PARSER::INDEX))))))
17979
                                 (|ReplaceExpression/ReplaceExpression.2.7| (ATN-PARSER::INDEX)
17980
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression.2.7|
17981
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
17982
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
17983
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
17984
                                                                       (COND
17985
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
17986
                                                                         (LET ((|Expression758| |Expression|))
17987
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
17988
                                                                             (DESTRUCTURING-BIND
17989
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
17990
                                                                                 ATN-PARSER::RESULT-AND-INDEX
17991
                                                                               (WHEN ATN-PARSER::RESULT
17992
                                                                                 (SETF |Expression|
17993
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
17994
                                                                               (|ReplaceExpression/ReplaceExpression.2.8|
17995
                                                                                ATN-PARSER::RESULT-INDEX))
17996
                                                                             (SETF |Expression| |Expression758|))))
17997
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
17998
                                                                         (|ReplaceExpression/fail.3| ATN-PARSER::INDEX)))))))
17999
                                 (|ReplaceExpression/ReplaceExpression.2.8| (ATN-PARSER::INDEX)
18000
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression.2.8|
18001
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
18002
                                                                     (COND
18003
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
18004
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
18005
                                                                       (|ReplaceExpression/ReplaceExpression.2.9|
18006
                                                                        (1+ ATN-PARSER::INDEX)))
18007
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|)
18008
                                                                       (|ReplaceExpression/fail.3| ATN-PARSER::INDEX))))))
18009
                                 (|ReplaceExpression/ReplaceExpression.2.9| (ATN-PARSER::INDEX)
18010
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression.2.9|
18011
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
18012
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18013
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
18014
                                                                       (COND
18015
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
18016
                                                                         (LET ((|Expression757| |Expression|))
18017
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18018
                                                                             (DESTRUCTURING-BIND
18019
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18020
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18021
                                                                               (WHEN ATN-PARSER::RESULT
18022
                                                                                 (SETF |Expression|
18023
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
18024
                                                                               (|ReplaceExpression/ReplaceExpression.2.10|
18025
                                                                                ATN-PARSER::RESULT-INDEX))
18026
                                                                             (SETF |Expression| |Expression757|))))
18027
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
18028
                                                                         (|ReplaceExpression/fail.3| ATN-PARSER::INDEX)))))))
18029
                                 (|ReplaceExpression/ReplaceExpression/ReplaceExpression.2.11.12| (ATN-PARSER::INDEX)
18030
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression/ReplaceExpression.2.11.12|
18031
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
18032
                                                                     (COND
18033
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
18034
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
18035
                                                                       (|ReplaceExpression/ReplaceExpression/ReplaceExpression.2.11.13|
18036
                                                                        (1+ ATN-PARSER::INDEX)))
18037
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
18038
                                 (|ReplaceExpression/ReplaceExpression/ReplaceExpression.2.11.13| (ATN-PARSER::INDEX)
18039
                                   (%ATN-NODE-BLOCK |ReplaceExpression/ReplaceExpression/ReplaceExpression.2.11.13|
18040
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
18041
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18042
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
18043
                                                                       (COND
18044
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
18045
                                                                         (LET ((|Expression756| |Expression|))
18046
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18047
                                                                             (DESTRUCTURING-BIND
18048
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18049
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18050
                                                                               (WHEN ATN-PARSER::RESULT
18051
                                                                                 (SETF |Expression|
18052
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
18053
                                                                               (|ReplaceExpression/ReplaceExpression.2.11|
18054
                                                                                ATN-PARSER::RESULT-INDEX))
18055
                                                                             (SETF |Expression| |Expression756|))))
18056
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
18057
                                 (|ReplaceExpression/start.1| (ATN-PARSER::INDEX)
18058
                                   (%ATN-NODE-BLOCK |ReplaceExpression/start.1|
18059
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:REPLACE)
18060
                                                                     (COND
18061
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:REPLACE)
18062
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:REPLACE)
18063
                                                                       (|ReplaceExpression/ReplaceExpression.2.4|
18064
                                                                        (1+ ATN-PARSER::INDEX)))
18065
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:REPLACE)
18066
                                                                       (|ReplaceExpression/fail.3| ATN-PARSER::INDEX)))))))
18067
                          (|ReplaceExpression/start.1| ATN-PARSER::INDEX)
18068
                          (SETF *ATN-NODE NIL)
18069
                          NIL
18070
                          (IF ATN-PARSER::ATN-STRUCTURE
18071
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
18072
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
18073
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ReplaceExpression| ATN-PARSER::INDEX *ATN-STACK))))
18074
 (PROGN
18075
  (DEFVAR |SubstringExpression-INDEX|)
18076
  (DEFUN |SubstringExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))
18077
    "{113} SubstringExpression ::= 'SUBSTR' '(' Expression ',' Expression (','
18078
                                                                       Expression)? ')'
18079
 (|Expression|)"
18080
    (DECLARE (SPECIAL |SubstringExpression-INDEX|))
18081
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SubstringExpression-INDEX| *ATN-LEVEL))
18082
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
18083
    (IF (< |SubstringExpression-INDEX| ATN-PARSER::INDEX)
18084
        (LET ((|SubstringExpression-INDEX| ATN-PARSER::INDEX)
18085
              (*ATN-LEVEL (1+ *ATN-LEVEL))
18086
              (*ATN-STACK (CONS '|SubstringExpression| *ATN-STACK))
18087
              (ATN-PARSER::ATN-STRUCTURE NIL))
18088
          (DECLARE (SPECIAL |SubstringExpression-INDEX|))
18089
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
18090
          (DECLARE (TYPE CONS *ATN-STACK))
18091
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
18092
            (%ATN-BLOCK |SubstringExpression|
18093
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
18094
                                   (SETF *ATN-TERM* '|SubstringExpression|)
18095
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
18096
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
18097
                                   ATN-PARSER::INDEX)
18098
                                 (|SubstringExpression.2| (ATN-PARSER::INDEX)
18099
                                   (%ATN-NODE-BLOCK |SubstringExpression.2|
18100
                                                    (%ATN-EDGE-BLOCK (POP |SubstringExpression|)
18101
                                                                     (WHEN T
18102
                                                                       (SETF *ATN-TERM* '|SubstringExpression|)
18103
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
18104
                                                                                   '|SubstringExpression| ATN-PARSER::INDEX
18105
                                                                                   (LIST '|Expression| |Expression|))
18106
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
18107
                                                                              (IF (EQ *ATN-REDUCE* T)
18108
                                                                                  (|SubstringExpression-Constructor| |Expression|)
18109
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
18110
                                                                                      (CONS '|SubstringExpression|
18111
                                                                                            (DELETE NIL (LIST |Expression|)))
18112
                                                                                      '|SubstringExpression|))))
18113
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
18114
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
18115
                                 (|SubstringExpression/fail.3| (ATN-PARSER::INDEX)
18116
                                   (%ATN-NODE-BLOCK |SubstringExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
18117
                                 (|SubstringExpression/start.1| (ATN-PARSER::INDEX)
18118
                                   (%ATN-NODE-BLOCK |SubstringExpression/start.1|
18119
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:SUBSTR)
18120
                                                                     (COND
18121
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:SUBSTR)
18122
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:SUBSTR)
18123
                                                                       (|SubstringExpression/SubstringExpression.2.4|
18124
                                                                        (1+ ATN-PARSER::INDEX)))
18125
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:SUBSTR)
18126
                                                                       (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))
18127
                                 (|SubstringExpression/SubstringExpression.2.4| (ATN-PARSER::INDEX)
18128
                                   (%ATN-NODE-BLOCK |SubstringExpression/SubstringExpression.2.4|
18129
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
18130
                                                                     (COND
18131
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
18132
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
18133
                                                                       (|SubstringExpression/SubstringExpression.2.5|
18134
                                                                        (1+ ATN-PARSER::INDEX)))
18135
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
18136
                                                                       (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))
18137
                                 (|SubstringExpression/SubstringExpression.2.5| (ATN-PARSER::INDEX)
18138
                                   (%ATN-NODE-BLOCK |SubstringExpression/SubstringExpression.2.5|
18139
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
18140
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18141
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
18142
                                                                       (COND
18143
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
18144
                                                                         (LET ((|Expression762| |Expression|))
18145
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18146
                                                                             (DESTRUCTURING-BIND
18147
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18148
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18149
                                                                               (WHEN ATN-PARSER::RESULT
18150
                                                                                 (SETF |Expression|
18151
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
18152
                                                                               (|SubstringExpression/SubstringExpression.2.6|
18153
                                                                                ATN-PARSER::RESULT-INDEX))
18154
                                                                             (SETF |Expression| |Expression762|))))
18155
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
18156
                                                                         (|SubstringExpression/fail.3| ATN-PARSER::INDEX)))))))
18157
                                 (|SubstringExpression/SubstringExpression.2.6| (ATN-PARSER::INDEX)
18158
                                   (%ATN-NODE-BLOCK |SubstringExpression/SubstringExpression.2.6|
18159
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
18160
                                                                     (COND
18161
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
18162
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
18163
                                                                       (|SubstringExpression/SubstringExpression.2.7|
18164
                                                                        (1+ ATN-PARSER::INDEX)))
18165
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|)
18166
                                                                       (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))
18167
                                 (|SubstringExpression/SubstringExpression.2.7| (ATN-PARSER::INDEX)
18168
                                   (%ATN-NODE-BLOCK |SubstringExpression/SubstringExpression.2.7|
18169
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
18170
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18171
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
18172
                                                                       (COND
18173
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
18174
                                                                         (LET ((|Expression761| |Expression|))
18175
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18176
                                                                             (DESTRUCTURING-BIND
18177
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18178
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18179
                                                                               (WHEN ATN-PARSER::RESULT
18180
                                                                                 (SETF |Expression|
18181
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
18182
                                                                               (|SubstringExpression/SubstringExpression.2.8|
18183
                                                                                ATN-PARSER::RESULT-INDEX))
18184
                                                                             (SETF |Expression| |Expression761|))))
18185
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
18186
                                                                         (|SubstringExpression/fail.3| ATN-PARSER::INDEX)))))))
18187
                                 (|SubstringExpression/SubstringExpression.2.8| (ATN-PARSER::INDEX)
18188
                                   (%ATN-NODE-BLOCK |SubstringExpression/SubstringExpression.2.8|
18189
                                                    (%ATN-EDGE-BLOCK
18190
                                                     (ATN-PARSER::JUMP
18191
                                                      |SubstringExpression/SubstringExpression/SubstringExpression.2.9.10|)
18192
                                                     (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.10|
18193
                                                      ATN-PARSER::INDEX))
18194
                                                    (%ATN-EDGE-BLOCK
18195
                                                     (ATN-PARSER::JUMP |SubstringExpression/SubstringExpression.2.9|)
18196
                                                     (|SubstringExpression/SubstringExpression.2.9| ATN-PARSER::INDEX))))
18197
                                 (|SubstringExpression/SubstringExpression.2.9| (ATN-PARSER::INDEX)
18198
                                   (%ATN-NODE-BLOCK |SubstringExpression/SubstringExpression.2.9|
18199
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
18200
                                                                     (COND
18201
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
18202
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
18203
                                                                       (|SubstringExpression.2| (1+ ATN-PARSER::INDEX)))
18204
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
18205
                                                                       (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))
18206
                                 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.10| (ATN-PARSER::INDEX)
18207
                                   (%ATN-NODE-BLOCK |SubstringExpression/SubstringExpression/SubstringExpression.2.9.10|
18208
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
18209
                                                                     (COND
18210
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
18211
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
18212
                                                                       (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.11|
18213
                                                                        (1+ ATN-PARSER::INDEX)))
18214
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
18215
                                 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.11| (ATN-PARSER::INDEX)
18216
                                   (%ATN-NODE-BLOCK |SubstringExpression/SubstringExpression/SubstringExpression.2.9.11|
18217
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
18218
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18219
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
18220
                                                                       (COND
18221
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
18222
                                                                         (LET ((|Expression760| |Expression|))
18223
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18224
                                                                             (DESTRUCTURING-BIND
18225
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18226
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18227
                                                                               (WHEN ATN-PARSER::RESULT
18228
                                                                                 (SETF |Expression|
18229
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
18230
                                                                               (|SubstringExpression/SubstringExpression.2.9|
18231
                                                                                ATN-PARSER::RESULT-INDEX))
18232
                                                                             (SETF |Expression| |Expression760|))))
18233
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL)))))))
18234
                          (|SubstringExpression/start.1| ATN-PARSER::INDEX)
18235
                          (SETF *ATN-NODE NIL)
18236
                          NIL
18237
                          (IF ATN-PARSER::ATN-STRUCTURE
18238
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
18239
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
18240
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|SubstringExpression| ATN-PARSER::INDEX *ATN-STACK))))
18241
 (PROGN
18242
  (DEFVAR |ExistsFunc-INDEX|)
18243
  (DEFUN |ExistsFunc| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))
18244
    "{114} ExistsFunc ::= 'EXISTS' GroupGraphPattern
18245
 (|GroupGraphPattern|)"
18246
    (DECLARE (SPECIAL |ExistsFunc-INDEX|))
18247
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ExistsFunc-INDEX| *ATN-LEVEL))
18248
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
18249
    (IF (< |ExistsFunc-INDEX| ATN-PARSER::INDEX)
18250
        (LET ((|ExistsFunc-INDEX| ATN-PARSER::INDEX)
18251
              (*ATN-LEVEL (1+ *ATN-LEVEL))
18252
              (*ATN-STACK (CONS '|ExistsFunc| *ATN-STACK))
18253
              (ATN-PARSER::ATN-STRUCTURE NIL))
18254
          (DECLARE (SPECIAL |ExistsFunc-INDEX|))
18255
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
18256
          (DECLARE (TYPE CONS *ATN-STACK))
18257
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
18258
            (%ATN-BLOCK |ExistsFunc|
18259
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
18260
                                   (SETF *ATN-TERM* '|ExistsFunc|)
18261
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
18262
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
18263
                                   ATN-PARSER::INDEX)
18264
                                 (|ExistsFunc.2| (ATN-PARSER::INDEX)
18265
                                   (%ATN-NODE-BLOCK |ExistsFunc.2|
18266
                                                    (%ATN-EDGE-BLOCK (POP |ExistsFunc|)
18267
                                                                     (WHEN T
18268
                                                                       (SETF *ATN-TERM* '|ExistsFunc|)
18269
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
18270
                                                                                   '|ExistsFunc| ATN-PARSER::INDEX
18271
                                                                                   (LIST '|GroupGraphPattern| |GroupGraphPattern|))
18272
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
18273
                                                                              (IF (EQ *ATN-REDUCE* T)
18274
                                                                                  (|ExistsFunc-Constructor| |GroupGraphPattern|)
18275
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
18276
                                                                                      (CONS '|ExistsFunc|
18277
                                                                                            (DELETE NIL (LIST |GroupGraphPattern|)))
18278
                                                                                      '|ExistsFunc|))))
18279
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
18280
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
18281
                                 (|ExistsFunc/ExistsFunc.2.4| (ATN-PARSER::INDEX)
18282
                                   (%ATN-NODE-BLOCK |ExistsFunc/ExistsFunc.2.4|
18283
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
18284
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18285
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
18286
                                                                                                  ATN-PARSER::INDEX)
18287
                                                                       (COND
18288
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
18289
                                                                         (LET ((|GroupGraphPattern763| |GroupGraphPattern|))
18290
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18291
                                                                             (DESTRUCTURING-BIND
18292
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18293
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18294
                                                                               (WHEN ATN-PARSER::RESULT
18295
                                                                                 (SETF |GroupGraphPattern| ATN-PARSER::RESULT))
18296
                                                                               (|ExistsFunc.2| ATN-PARSER::RESULT-INDEX))
18297
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern763|))))
18298
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
18299
                                                                         (|ExistsFunc/fail.3| ATN-PARSER::INDEX)))))))
18300
                                 (|ExistsFunc/fail.3| (ATN-PARSER::INDEX)
18301
                                   (%ATN-NODE-BLOCK |ExistsFunc/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
18302
                                 (|ExistsFunc/start.1| (ATN-PARSER::INDEX)
18303
                                   (%ATN-NODE-BLOCK |ExistsFunc/start.1|
18304
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:EXISTS)
18305
                                                                     (COND
18306
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:EXISTS)
18307
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:EXISTS)
18308
                                                                       (|ExistsFunc/ExistsFunc.2.4| (1+ ATN-PARSER::INDEX)))
18309
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:EXISTS)
18310
                                                                       (|ExistsFunc/fail.3| ATN-PARSER::INDEX)))))))
18311
                          (|ExistsFunc/start.1| ATN-PARSER::INDEX)
18312
                          (SETF *ATN-NODE NIL)
18313
                          NIL
18314
                          (IF ATN-PARSER::ATN-STRUCTURE
18315
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
18316
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
18317
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ExistsFunc| ATN-PARSER::INDEX *ATN-STACK))))
18318
 (PROGN
18319
  (DEFVAR |NotExistsFunc-INDEX|)
18320
  (DEFUN |NotExistsFunc| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))
18321
    "{115} NotExistsFunc ::= 'NOT' 'EXISTS' GroupGraphPattern
18322
 (|GroupGraphPattern|)"
18323
    (DECLARE (SPECIAL |NotExistsFunc-INDEX|))
18324
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NotExistsFunc-INDEX| *ATN-LEVEL))
18325
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
18326
    (IF (< |NotExistsFunc-INDEX| ATN-PARSER::INDEX)
18327
        (LET ((|NotExistsFunc-INDEX| ATN-PARSER::INDEX)
18328
              (*ATN-LEVEL (1+ *ATN-LEVEL))
18329
              (*ATN-STACK (CONS '|NotExistsFunc| *ATN-STACK))
18330
              (ATN-PARSER::ATN-STRUCTURE NIL))
18331
          (DECLARE (SPECIAL |NotExistsFunc-INDEX|))
18332
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
18333
          (DECLARE (TYPE CONS *ATN-STACK))
18334
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
18335
            (%ATN-BLOCK |NotExistsFunc|
18336
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
18337
                                   (SETF *ATN-TERM* '|NotExistsFunc|)
18338
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
18339
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
18340
                                   ATN-PARSER::INDEX)
18341
                                 (|NotExistsFunc.2| (ATN-PARSER::INDEX)
18342
                                   (%ATN-NODE-BLOCK |NotExistsFunc.2|
18343
                                                    (%ATN-EDGE-BLOCK (POP |NotExistsFunc|)
18344
                                                                     (WHEN T
18345
                                                                       (SETF *ATN-TERM* '|NotExistsFunc|)
18346
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
18347
                                                                                   '|NotExistsFunc| ATN-PARSER::INDEX
18348
                                                                                   (LIST '|GroupGraphPattern| |GroupGraphPattern|))
18349
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
18350
                                                                              (IF (EQ *ATN-REDUCE* T)
18351
                                                                                  (|NotExistsFunc-Constructor| |GroupGraphPattern|)
18352
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
18353
                                                                                      (CONS '|NotExistsFunc|
18354
                                                                                            (DELETE NIL (LIST |GroupGraphPattern|)))
18355
                                                                                      '|NotExistsFunc|))))
18356
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
18357
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
18358
                                 (|NotExistsFunc/fail.3| (ATN-PARSER::INDEX)
18359
                                   (%ATN-NODE-BLOCK |NotExistsFunc/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
18360
                                 (|NotExistsFunc/NotExistsFunc.2.4| (ATN-PARSER::INDEX)
18361
                                   (%ATN-NODE-BLOCK |NotExistsFunc/NotExistsFunc.2.4|
18362
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:EXISTS)
18363
                                                                     (COND
18364
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:EXISTS)
18365
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:EXISTS)
18366
                                                                       (|NotExistsFunc/NotExistsFunc.2.5| (1+ ATN-PARSER::INDEX)))
18367
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:EXISTS)
18368
                                                                       (|NotExistsFunc/fail.3| ATN-PARSER::INDEX))))))
18369
                                 (|NotExistsFunc/NotExistsFunc.2.5| (ATN-PARSER::INDEX)
18370
                                   (%ATN-NODE-BLOCK |NotExistsFunc/NotExistsFunc.2.5|
18371
                                                    (%ATN-EDGE-BLOCK (PUSH |GroupGraphPattern|)
18372
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18373
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern|
18374
                                                                                                  ATN-PARSER::INDEX)
18375
                                                                       (COND
18376
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|GroupGraphPattern|)
18377
                                                                         (LET ((|GroupGraphPattern764| |GroupGraphPattern|))
18378
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18379
                                                                             (DESTRUCTURING-BIND
18380
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18381
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18382
                                                                               (WHEN ATN-PARSER::RESULT
18383
                                                                                 (SETF |GroupGraphPattern| ATN-PARSER::RESULT))
18384
                                                                               (|NotExistsFunc.2| ATN-PARSER::RESULT-INDEX))
18385
                                                                             (SETF |GroupGraphPattern| |GroupGraphPattern764|))))
18386
                                                                        (T (SETF *ATN-TERM?* '|GroupGraphPattern|)
18387
                                                                         (|NotExistsFunc/fail.3| ATN-PARSER::INDEX)))))))
18388
                                 (|NotExistsFunc/start.1| (ATN-PARSER::INDEX)
18389
                                   (%ATN-NODE-BLOCK |NotExistsFunc/start.1|
18390
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:NOT)
18391
                                                                     (COND
18392
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:NOT)
18393
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:NOT)
18394
                                                                       (|NotExistsFunc/NotExistsFunc.2.4| (1+ ATN-PARSER::INDEX)))
18395
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:NOT)
18396
                                                                       (|NotExistsFunc/fail.3| ATN-PARSER::INDEX)))))))
18397
                          (|NotExistsFunc/start.1| ATN-PARSER::INDEX)
18398
                          (SETF *ATN-NODE NIL)
18399
                          NIL
18400
                          (IF ATN-PARSER::ATN-STRUCTURE
18401
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
18402
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
18403
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|NotExistsFunc| ATN-PARSER::INDEX *ATN-STACK))))
18404
 (PROGN
18405
  (DEFVAR |Aggregate-INDEX|)
18406
  (DEFUN |Aggregate| (ATN-PARSER::INDEX &AUX (|ArithmeticAggregate| NIL) (|ConcatAggregate| NIL) (|CountAggregate| NIL))
18407
    "{116} Aggregate ::= (CountAggregate | ArithmeticAggregate | ConcatAggregate)
18408
 (|ArithmeticAggregate| |ConcatAggregate| |CountAggregate|)"
18409
    (DECLARE (SPECIAL |Aggregate-INDEX|))
18410
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Aggregate-INDEX| *ATN-LEVEL))
18411
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
18412
    (IF (< |Aggregate-INDEX| ATN-PARSER::INDEX)
18413
        (LET ((|Aggregate-INDEX| ATN-PARSER::INDEX)
18414
              (*ATN-LEVEL (1+ *ATN-LEVEL))
18415
              (*ATN-STACK (CONS '|Aggregate| *ATN-STACK))
18416
              (ATN-PARSER::ATN-STRUCTURE NIL))
18417
          (DECLARE (SPECIAL |Aggregate-INDEX|))
18418
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
18419
          (DECLARE (TYPE CONS *ATN-STACK))
18420
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
18421
            (%ATN-BLOCK |Aggregate|
18422
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
18423
                                   (SETF *ATN-TERM* '|Aggregate|)
18424
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
18425
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
18426
                                   ATN-PARSER::INDEX)
18427
                                 (|Aggregate.2| (ATN-PARSER::INDEX)
18428
                                   (%ATN-NODE-BLOCK |Aggregate.2|
18429
                                                    (%ATN-EDGE-BLOCK (POP |Aggregate|)
18430
                                                                     (WHEN T
18431
                                                                       (SETF *ATN-TERM* '|Aggregate|)
18432
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|Aggregate|
18433
                                                                                   ATN-PARSER::INDEX
18434
                                                                                   (LIST '|ArithmeticAggregate|
18435
                                                                                         |ArithmeticAggregate| '|ConcatAggregate|
18436
                                                                                         |ConcatAggregate| '|CountAggregate|
18437
                                                                                         |CountAggregate|))
18438
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
18439
                                                                              (IF (EQ *ATN-REDUCE* T)
18440
                                                                                  (|Aggregate-Constructor| |ArithmeticAggregate|
18441
                                                                                                           |ConcatAggregate|
18442
                                                                                                           |CountAggregate|)
18443
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
18444
                                                                                      (CONS '|Aggregate|
18445
                                                                                            (DELETE NIL
18446
                                                                                                    (LIST |ArithmeticAggregate|
18447
                                                                                                          |ConcatAggregate|
18448
                                                                                                          |CountAggregate|)))
18449
                                                                                      '|Aggregate|))))
18450
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
18451
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
18452
                                 (|Aggregate/fail.3| (ATN-PARSER::INDEX)
18453
                                   (%ATN-NODE-BLOCK |Aggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
18454
                                 (|Aggregate/start.1| (ATN-PARSER::INDEX)
18455
                                   (%ATN-NODE-BLOCK |Aggregate/start.1|
18456
                                                    (%ATN-EDGE-BLOCK OR
18457
                                                                     (PROGN
18458
                                                                      (%ATN-EDGE-BLOCK (PUSH |CountAggregate|)
18459
                                                                                       (MULTIPLE-VALUE-BIND
18460
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18461
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
18462
                                                                                            '|CountAggregate| ATN-PARSER::INDEX)
18463
                                                                                         (COND
18464
                                                                                          (ATN-PARSER::SUCCESS
18465
                                                                                           (SETF *ATN-TERM* '|CountAggregate|)
18466
                                                                                           (LET ((|CountAggregate765|
18467
                                                                                                  |CountAggregate|))
18468
                                                                                             (DOLIST
18469
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
18470
                                                                                                  ATN-PARSER::RESULT)
18471
                                                                                               (DESTRUCTURING-BIND
18472
                                                                                                   (
18473
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18474
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
18475
                                                                                                 (WHEN ATN-PARSER::RESULT
18476
                                                                                                   (SETF |CountAggregate|
18477
                                                                                                           ATN-PARSER::RESULT))
18478
                                                                                                 (|Aggregate.2|
18479
                                                                                                  ATN-PARSER::RESULT-INDEX))
18480
                                                                                               (SETF |CountAggregate|
18481
                                                                                                       |CountAggregate765|))))
18482
                                                                                          (T (SETF *ATN-TERM?* '|CountAggregate|)
18483
                                                                                           NIL))))
18484
                                                                      (%ATN-EDGE-BLOCK (PUSH |ArithmeticAggregate|)
18485
                                                                                       (MULTIPLE-VALUE-BIND
18486
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18487
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
18488
                                                                                            '|ArithmeticAggregate|
18489
                                                                                            ATN-PARSER::INDEX)
18490
                                                                                         (COND
18491
                                                                                          (ATN-PARSER::SUCCESS
18492
                                                                                           (SETF *ATN-TERM* '|ArithmeticAggregate|)
18493
                                                                                           (LET ((|ArithmeticAggregate766|
18494
                                                                                                  |ArithmeticAggregate|))
18495
                                                                                             (DOLIST
18496
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
18497
                                                                                                  ATN-PARSER::RESULT)
18498
                                                                                               (DESTRUCTURING-BIND
18499
                                                                                                   (
18500
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18501
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
18502
                                                                                                 (WHEN ATN-PARSER::RESULT
18503
                                                                                                   (SETF |ArithmeticAggregate|
18504
                                                                                                           ATN-PARSER::RESULT))
18505
                                                                                                 (|Aggregate.2|
18506
                                                                                                  ATN-PARSER::RESULT-INDEX))
18507
                                                                                               (SETF |ArithmeticAggregate|
18508
                                                                                                       |ArithmeticAggregate766|))))
18509
                                                                                          (T
18510
                                                                                           (SETF *ATN-TERM?* '|ArithmeticAggregate|)
18511
                                                                                           NIL))))
18512
                                                                      (%ATN-EDGE-BLOCK (PUSH |ConcatAggregate|)
18513
                                                                                       (MULTIPLE-VALUE-BIND
18514
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18515
                                                                                           (ATN-PARSE-SUBSTRUCTURE*
18516
                                                                                            '|ConcatAggregate| ATN-PARSER::INDEX)
18517
                                                                                         (COND
18518
                                                                                          (ATN-PARSER::SUCCESS
18519
                                                                                           (SETF *ATN-TERM* '|ConcatAggregate|)
18520
                                                                                           (LET ((|ConcatAggregate767|
18521
                                                                                                  |ConcatAggregate|))
18522
                                                                                             (DOLIST
18523
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
18524
                                                                                                  ATN-PARSER::RESULT)
18525
                                                                                               (DESTRUCTURING-BIND
18526
                                                                                                   (
18527
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18528
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
18529
                                                                                                 (WHEN ATN-PARSER::RESULT
18530
                                                                                                   (SETF |ConcatAggregate|
18531
                                                                                                           ATN-PARSER::RESULT))
18532
                                                                                                 (|Aggregate.2|
18533
                                                                                                  ATN-PARSER::RESULT-INDEX))
18534
                                                                                               (SETF |ConcatAggregate|
18535
                                                                                                       |ConcatAggregate767|))))
18536
                                                                                          (T (SETF *ATN-TERM?* '|ConcatAggregate|)
18537
                                                                                           NIL))))
18538
                                                                      (|Aggregate/fail.3| ATN-PARSER::INDEX))))))
18539
                          (|Aggregate/start.1| ATN-PARSER::INDEX)
18540
                          (SETF *ATN-NODE NIL)
18541
                          NIL
18542
                          (IF ATN-PARSER::ATN-STRUCTURE
18543
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
18544
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
18545
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|Aggregate| ATN-PARSER::INDEX *ATN-STACK))))
18546
 (PROGN
18547
  (DEFVAR |CountAggregate-INDEX|)
18548
  (DEFUN |CountAggregate| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|Expression| NIL) (|Wild| NIL))
18549
    "{116a} CountAggregate ::= 'COUNT' '(' Distinctness? ((Wild | Expression)) ')'
18550
 (|Distinctness| |Expression| |Wild|)"
18551
    (DECLARE (SPECIAL |CountAggregate-INDEX|))
18552
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |CountAggregate-INDEX| *ATN-LEVEL))
18553
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
18554
    (IF (< |CountAggregate-INDEX| ATN-PARSER::INDEX)
18555
        (LET ((|CountAggregate-INDEX| ATN-PARSER::INDEX)
18556
              (*ATN-LEVEL (1+ *ATN-LEVEL))
18557
              (*ATN-STACK (CONS '|CountAggregate| *ATN-STACK))
18558
              (ATN-PARSER::ATN-STRUCTURE NIL))
18559
          (DECLARE (SPECIAL |CountAggregate-INDEX|))
18560
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
18561
          (DECLARE (TYPE CONS *ATN-STACK))
18562
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
18563
            (%ATN-BLOCK |CountAggregate|
18564
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
18565
                                   (SETF *ATN-TERM* '|CountAggregate|)
18566
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
18567
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
18568
                                   ATN-PARSER::INDEX)
18569
                                 (|CountAggregate.2| (ATN-PARSER::INDEX)
18570
                                   (%ATN-NODE-BLOCK |CountAggregate.2|
18571
                                                    (%ATN-EDGE-BLOCK (POP |CountAggregate|)
18572
                                                                     (WHEN T
18573
                                                                       (SETF *ATN-TERM* '|CountAggregate|)
18574
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
18575
                                                                                   '|CountAggregate| ATN-PARSER::INDEX
18576
                                                                                   (LIST '|Distinctness| |Distinctness|
18577
                                                                                         '|Expression| |Expression| '|Wild| |Wild|))
18578
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
18579
                                                                              (IF (EQ *ATN-REDUCE* T)
18580
                                                                                  (|CountAggregate-Constructor| |Distinctness|
18581
                                                                                                                |Expression| |Wild|)
18582
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
18583
                                                                                      (CONS '|CountAggregate|
18584
                                                                                            (DELETE NIL
18585
                                                                                                    (LIST |Distinctness|
18586
                                                                                                          |Expression| |Wild|)))
18587
                                                                                      '|CountAggregate|))))
18588
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
18589
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
18590
                                 (|CountAggregate/CountAggregate.2.4| (ATN-PARSER::INDEX)
18591
                                   (%ATN-NODE-BLOCK |CountAggregate/CountAggregate.2.4|
18592
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
18593
                                                                     (COND
18594
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
18595
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
18596
                                                                       (|CountAggregate/CountAggregate.2.5| (1+ ATN-PARSER::INDEX)))
18597
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
18598
                                                                       (|CountAggregate/fail.3| ATN-PARSER::INDEX))))))
18599
                                 (|CountAggregate/CountAggregate.2.5| (ATN-PARSER::INDEX)
18600
                                   (%ATN-NODE-BLOCK |CountAggregate/CountAggregate.2.5|
18601
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Distinctness|)
18602
                                                                     (COND
18603
                                                                      ((|IS-Distinctness| ATN-PARSER::|item|)
18604
                                                                       (SETF *ATN-TERM* '|Distinctness|)
18605
                                                                       (SETF |Distinctness|
18606
                                                                               (IF (EQ *ATN-REDUCE* T)
18607
                                                                                   (ATN-REDUCE-ITEM #'|Distinctness-Constructor|
18608
                                                                                                    ATN-PARSER::|item|)
18609
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
18610
                                                                                       (LIST '|Distinctness| ATN-PARSER::|item|)
18611
                                                                                       '|Distinctness|)))
18612
                                                                       (|CountAggregate/CountAggregate.2.6| (1+ ATN-PARSER::INDEX)))
18613
                                                                      (T (SETF *ATN-TERM* '|Distinctness|)
18614
                                                                       (|CountAggregate/CountAggregate.2.6| ATN-PARSER::INDEX))))))
18615
                                 (|CountAggregate/CountAggregate.2.6| (ATN-PARSER::INDEX)
18616
                                   (%ATN-NODE-BLOCK |CountAggregate/CountAggregate.2.6|
18617
                                                    (%ATN-EDGE-BLOCK OR
18618
                                                                     (PROGN
18619
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Wild|)
18620
                                                                                       (COND
18621
                                                                                        ((|IS-Wild| ATN-PARSER::|item|)
18622
                                                                                         (SETF *ATN-TERM* '|Wild|)
18623
                                                                                         (SETF |Wild|
18624
                                                                                                 (IF (EQ *ATN-REDUCE* T)
18625
                                                                                                     (ATN-REDUCE-ITEM
18626
                                                                                                      #'|Wild-Constructor|
18627
                                                                                                      ATN-PARSER::|item|)
18628
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
18629
                                                                                                         (LIST '|Wild|
18630
                                                                                                               ATN-PARSER::|item|)
18631
                                                                                                         '|Wild|)))
18632
                                                                                         (|CountAggregate/CountAggregate.2.7|
18633
                                                                                          (1+ ATN-PARSER::INDEX)))
18634
                                                                                        (T (SETF *ATN-TERM* '|Wild|) NIL)))
18635
                                                                      (%ATN-EDGE-BLOCK (PUSH |Expression|)
18636
                                                                                       (MULTIPLE-VALUE-BIND
18637
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18638
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|Expression|
18639
                                                                                                                    ATN-PARSER::INDEX)
18640
                                                                                         (COND
18641
                                                                                          (ATN-PARSER::SUCCESS
18642
                                                                                           (SETF *ATN-TERM* '|Expression|)
18643
                                                                                           (LET ((|Expression768| |Expression|))
18644
                                                                                             (DOLIST
18645
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
18646
                                                                                                  ATN-PARSER::RESULT)
18647
                                                                                               (DESTRUCTURING-BIND
18648
                                                                                                   (
18649
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18650
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
18651
                                                                                                 (WHEN ATN-PARSER::RESULT
18652
                                                                                                   (SETF |Expression|
18653
                                                                                                           ATN-PARSER::RESULT))
18654
                                                                                                 (|CountAggregate/CountAggregate.2.7|
18655
                                                                                                  ATN-PARSER::RESULT-INDEX))
18656
                                                                                               (SETF |Expression|
18657
                                                                                                       |Expression768|))))
18658
                                                                                          (T (SETF *ATN-TERM?* '|Expression|)
18659
                                                                                           NIL))))
18660
                                                                      (|CountAggregate/fail.3| ATN-PARSER::INDEX)))))
18661
                                 (|CountAggregate/CountAggregate.2.7| (ATN-PARSER::INDEX)
18662
                                   (%ATN-NODE-BLOCK |CountAggregate/CountAggregate.2.7|
18663
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
18664
                                                                     (COND
18665
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
18666
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
18667
                                                                       (|CountAggregate.2| (1+ ATN-PARSER::INDEX)))
18668
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
18669
                                                                       (|CountAggregate/fail.3| ATN-PARSER::INDEX))))))
18670
                                 (|CountAggregate/fail.3| (ATN-PARSER::INDEX)
18671
                                   (%ATN-NODE-BLOCK |CountAggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
18672
                                 (|CountAggregate/start.1| (ATN-PARSER::INDEX)
18673
                                   (%ATN-NODE-BLOCK |CountAggregate/start.1|
18674
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:COUNT)
18675
                                                                     (COND
18676
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:COUNT)
18677
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:COUNT)
18678
                                                                       (|CountAggregate/CountAggregate.2.4| (1+ ATN-PARSER::INDEX)))
18679
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:COUNT)
18680
                                                                       (|CountAggregate/fail.3| ATN-PARSER::INDEX)))))))
18681
                          (|CountAggregate/start.1| ATN-PARSER::INDEX)
18682
                          (SETF *ATN-NODE NIL)
18683
                          NIL
18684
                          (IF ATN-PARSER::ATN-STRUCTURE
18685
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
18686
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
18687
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|CountAggregate| ATN-PARSER::INDEX *ATN-STACK))))
18688
 (PROGN
18689
  (DEFVAR |ArithmeticAggregate-INDEX|)
18690
  (DEFUN |ArithmeticAggregate| (ATN-PARSER::INDEX &AUX (|ArithmeticAggregateOperator| NIL) (|Distinctness| NIL) (|Expression| NIL))
18691
    "{116b} ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression (','
18692
                                                                                          Expression)* ')'
18693
 (|ArithmeticAggregateOperator| |Distinctness| |Expression|)"
18694
    (DECLARE (SPECIAL |ArithmeticAggregate-INDEX|))
18695
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ArithmeticAggregate-INDEX| *ATN-LEVEL))
18696
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
18697
    (IF (< |ArithmeticAggregate-INDEX| ATN-PARSER::INDEX)
18698
        (LET ((|ArithmeticAggregate-INDEX| ATN-PARSER::INDEX)
18699
              (*ATN-LEVEL (1+ *ATN-LEVEL))
18700
              (*ATN-STACK (CONS '|ArithmeticAggregate| *ATN-STACK))
18701
              (ATN-PARSER::ATN-STRUCTURE NIL))
18702
          (DECLARE (SPECIAL |ArithmeticAggregate-INDEX|))
18703
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
18704
          (DECLARE (TYPE CONS *ATN-STACK))
18705
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
18706
            (%ATN-BLOCK |ArithmeticAggregate|
18707
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
18708
                                   (SETF *ATN-TERM* '|ArithmeticAggregate|)
18709
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
18710
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
18711
                                   ATN-PARSER::INDEX)
18712
                                 (|ArithmeticAggregate.2| (ATN-PARSER::INDEX)
18713
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate.2|
18714
                                                    (%ATN-EDGE-BLOCK (POP |ArithmeticAggregate|)
18715
                                                                     (WHEN T
18716
                                                                       (SETF *ATN-TERM* '|ArithmeticAggregate|)
18717
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
18718
                                                                                   '|ArithmeticAggregate| ATN-PARSER::INDEX
18719
                                                                                   (LIST '|ArithmeticAggregateOperator|
18720
                                                                                         |ArithmeticAggregateOperator|
18721
                                                                                         '|Distinctness| |Distinctness|
18722
                                                                                         '|Expression| |Expression|))
18723
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
18724
                                                                              (IF (EQ *ATN-REDUCE* T)
18725
                                                                                  (|ArithmeticAggregate-Constructor|
18726
                                                                                   |ArithmeticAggregateOperator| |Distinctness|
18727
                                                                                   |Expression|)
18728
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
18729
                                                                                      (CONS '|ArithmeticAggregate|
18730
                                                                                            (DELETE NIL
18731
                                                                                                    (LIST
18732
                                                                                                     |ArithmeticAggregateOperator|
18733
                                                                                                     |Distinctness| |Expression|)))
18734
                                                                                      '|ArithmeticAggregate|))))
18735
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
18736
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
18737
                                 (|ArithmeticAggregate.9| (ATN-PARSER::INDEX)
18738
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate.9|
18739
                                                    (%ATN-EDGE-BLOCK
18740
                                                     (ATN-PARSER::JUMP |ArithmeticAggregate/ArithmeticAggregate.9.10|)
18741
                                                     (|ArithmeticAggregate/ArithmeticAggregate.9.10| ATN-PARSER::INDEX))
18742
                                                    (%ATN-EDGE-BLOCK
18743
                                                     (ATN-PARSER::JUMP |ArithmeticAggregate/ArithmeticAggregate.2.8|)
18744
                                                     (|ArithmeticAggregate/ArithmeticAggregate.2.8| ATN-PARSER::INDEX))))
18745
                                 (|ArithmeticAggregate/ArithmeticAggregate.2.4| (ATN-PARSER::INDEX)
18746
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate/ArithmeticAggregate.2.4|
18747
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
18748
                                                                     (COND
18749
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
18750
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
18751
                                                                       (|ArithmeticAggregate/ArithmeticAggregate.2.5|
18752
                                                                        (1+ ATN-PARSER::INDEX)))
18753
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
18754
                                                                       (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX))))))
18755
                                 (|ArithmeticAggregate/ArithmeticAggregate.2.5| (ATN-PARSER::INDEX)
18756
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate/ArithmeticAggregate.2.5|
18757
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Distinctness|)
18758
                                                                     (COND
18759
                                                                      ((|IS-Distinctness| ATN-PARSER::|item|)
18760
                                                                       (SETF *ATN-TERM* '|Distinctness|)
18761
                                                                       (SETF |Distinctness|
18762
                                                                               (IF (EQ *ATN-REDUCE* T)
18763
                                                                                   (ATN-REDUCE-ITEM #'|Distinctness-Constructor|
18764
                                                                                                    ATN-PARSER::|item|)
18765
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
18766
                                                                                       (LIST '|Distinctness| ATN-PARSER::|item|)
18767
                                                                                       '|Distinctness|)))
18768
                                                                       (|ArithmeticAggregate/ArithmeticAggregate.2.6|
18769
                                                                        (1+ ATN-PARSER::INDEX)))
18770
                                                                      (T (SETF *ATN-TERM* '|Distinctness|)
18771
                                                                       (|ArithmeticAggregate/ArithmeticAggregate.2.6|
18772
                                                                        ATN-PARSER::INDEX))))))
18773
                                 (|ArithmeticAggregate/ArithmeticAggregate.2.6| (ATN-PARSER::INDEX)
18774
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate/ArithmeticAggregate.2.6|
18775
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
18776
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18777
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
18778
                                                                       (COND
18779
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
18780
                                                                         (LET ((|Expression770| |Expression|))
18781
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18782
                                                                             (DESTRUCTURING-BIND
18783
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18784
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18785
                                                                               (WHEN ATN-PARSER::RESULT
18786
                                                                                 (SETF |Expression|
18787
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
18788
                                                                               (|ArithmeticAggregate/ArithmeticAggregate.2.7|
18789
                                                                                ATN-PARSER::RESULT-INDEX))
18790
                                                                             (SETF |Expression| |Expression770|))))
18791
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
18792
                                                                         (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX)))))))
18793
                                 (|ArithmeticAggregate/ArithmeticAggregate.2.7| (ATN-PARSER::INDEX)
18794
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate/ArithmeticAggregate.2.7|
18795
                                                    (%ATN-EDGE-BLOCK
18796
                                                     (ATN-PARSER::JUMP |ArithmeticAggregate/ArithmeticAggregate.9.10|)
18797
                                                     (|ArithmeticAggregate/ArithmeticAggregate.9.10| ATN-PARSER::INDEX))
18798
                                                    (%ATN-EDGE-BLOCK
18799
                                                     (ATN-PARSER::JUMP |ArithmeticAggregate/ArithmeticAggregate.2.8|)
18800
                                                     (|ArithmeticAggregate/ArithmeticAggregate.2.8| ATN-PARSER::INDEX))))
18801
                                 (|ArithmeticAggregate/ArithmeticAggregate.2.8| (ATN-PARSER::INDEX)
18802
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate/ArithmeticAggregate.2.8|
18803
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
18804
                                                                     (COND
18805
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
18806
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
18807
                                                                       (|ArithmeticAggregate.2| (1+ ATN-PARSER::INDEX)))
18808
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
18809
                                                                       (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX))))))
18810
                                 (|ArithmeticAggregate/ArithmeticAggregate.9.10| (ATN-PARSER::INDEX)
18811
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate/ArithmeticAggregate.9.10|
18812
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)
18813
                                                                     (COND
18814
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|,|)
18815
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|,|)
18816
                                                                       (|ArithmeticAggregate/ArithmeticAggregate.9.11|
18817
                                                                        (1+ ATN-PARSER::INDEX)))
18818
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|,|) NIL)))))
18819
                                 (|ArithmeticAggregate/ArithmeticAggregate.9.11| (ATN-PARSER::INDEX)
18820
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate/ArithmeticAggregate.9.11|
18821
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
18822
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18823
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
18824
                                                                       (COND
18825
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
18826
                                                                         (LET ((|Expression769| |Expression|))
18827
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18828
                                                                             (DESTRUCTURING-BIND
18829
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18830
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18831
                                                                               (WHEN ATN-PARSER::RESULT
18832
                                                                                 (SETF |Expression|
18833
                                                                                         (CONS ATN-PARSER::RESULT |Expression|)))
18834
                                                                               (|ArithmeticAggregate.9| ATN-PARSER::RESULT-INDEX))
18835
                                                                             (SETF |Expression| |Expression769|))))
18836
                                                                        (T (SETF *ATN-TERM?* '|Expression|) NIL))))))
18837
                                 (|ArithmeticAggregate/fail.3| (ATN-PARSER::INDEX)
18838
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
18839
                                 (|ArithmeticAggregate/start.1| (ATN-PARSER::INDEX)
18840
                                   (%ATN-NODE-BLOCK |ArithmeticAggregate/start.1|
18841
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |ArithmeticAggregateOperator|)
18842
                                                                     (COND
18843
                                                                      ((|IS-ArithmeticAggregateOperator| ATN-PARSER::|item|)
18844
                                                                       (SETF *ATN-TERM* '|ArithmeticAggregateOperator|)
18845
                                                                       (SETF |ArithmeticAggregateOperator|
18846
                                                                               (IF (EQ *ATN-REDUCE* T)
18847
                                                                                   (ATN-REDUCE-ITEM
18848
                                                                                    #'|ArithmeticAggregateOperator-Constructor|
18849
                                                                                    ATN-PARSER::|item|)
18850
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
18851
                                                                                       (LIST '|ArithmeticAggregateOperator|
18852
                                                                                             ATN-PARSER::|item|)
18853
                                                                                       '|ArithmeticAggregateOperator|)))
18854
                                                                       (|ArithmeticAggregate/ArithmeticAggregate.2.4|
18855
                                                                        (1+ ATN-PARSER::INDEX)))
18856
                                                                      (T (SETF *ATN-TERM* '|ArithmeticAggregateOperator|)
18857
                                                                       (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX)))))))
18858
                          (|ArithmeticAggregate/start.1| ATN-PARSER::INDEX)
18859
                          (SETF *ATN-NODE NIL)
18860
                          NIL
18861
                          (IF ATN-PARSER::ATN-STRUCTURE
18862
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
18863
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
18864
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ArithmeticAggregate| ATN-PARSER::INDEX *ATN-STACK))))
18865
 (PROGN
18866
  (DEFVAR |ConcatAggregate-INDEX|)
18867
  (DEFUN |ConcatAggregate| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|Expression| NIL) (|String| NIL))
18868
    "{116d} ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression (';'
18869
                                                                         'SEPARATOR'
18870
                                                                         '='
18871
                                                                         String)? ')'
18872
 (|Distinctness| |Expression| |String|)"
18873
    (DECLARE (SPECIAL |ConcatAggregate-INDEX|))
18874
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConcatAggregate-INDEX| *ATN-LEVEL))
18875
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
18876
    (IF (< |ConcatAggregate-INDEX| ATN-PARSER::INDEX)
18877
        (LET ((|ConcatAggregate-INDEX| ATN-PARSER::INDEX)
18878
              (*ATN-LEVEL (1+ *ATN-LEVEL))
18879
              (*ATN-STACK (CONS '|ConcatAggregate| *ATN-STACK))
18880
              (ATN-PARSER::ATN-STRUCTURE NIL))
18881
          (DECLARE (SPECIAL |ConcatAggregate-INDEX|))
18882
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
18883
          (DECLARE (TYPE CONS *ATN-STACK))
18884
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
18885
            (%ATN-BLOCK |ConcatAggregate|
18886
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
18887
                                   (SETF *ATN-TERM* '|ConcatAggregate|)
18888
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
18889
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
18890
                                   ATN-PARSER::INDEX)
18891
                                 (|ConcatAggregate.2| (ATN-PARSER::INDEX)
18892
                                   (%ATN-NODE-BLOCK |ConcatAggregate.2|
18893
                                                    (%ATN-EDGE-BLOCK (POP |ConcatAggregate|)
18894
                                                                     (WHEN T
18895
                                                                       (SETF *ATN-TERM* '|ConcatAggregate|)
18896
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
18897
                                                                                   '|ConcatAggregate| ATN-PARSER::INDEX
18898
                                                                                   (LIST '|Distinctness| |Distinctness|
18899
                                                                                         '|Expression| |Expression| '|String|
18900
                                                                                         |String|))
18901
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
18902
                                                                              (IF (EQ *ATN-REDUCE* T)
18903
                                                                                  (|ConcatAggregate-Constructor| |Distinctness|
18904
                                                                                                                 |Expression|
18905
                                                                                                                 |String|)
18906
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
18907
                                                                                      (CONS '|ConcatAggregate|
18908
                                                                                            (DELETE NIL
18909
                                                                                                    (LIST |Distinctness|
18910
                                                                                                          |Expression| |String|)))
18911
                                                                                      '|ConcatAggregate|))))
18912
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
18913
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
18914
                                 (|ConcatAggregate/ConcatAggregate.2.4| (ATN-PARSER::INDEX)
18915
                                   (%ATN-NODE-BLOCK |ConcatAggregate/ConcatAggregate.2.4|
18916
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
18917
                                                                     (COND
18918
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
18919
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
18920
                                                                       (|ConcatAggregate/ConcatAggregate.2.5|
18921
                                                                        (1+ ATN-PARSER::INDEX)))
18922
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
18923
                                                                       (|ConcatAggregate/fail.3| ATN-PARSER::INDEX))))))
18924
                                 (|ConcatAggregate/ConcatAggregate.2.5| (ATN-PARSER::INDEX)
18925
                                   (%ATN-NODE-BLOCK |ConcatAggregate/ConcatAggregate.2.5|
18926
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |Distinctness|)
18927
                                                                     (COND
18928
                                                                      ((|IS-Distinctness| ATN-PARSER::|item|)
18929
                                                                       (SETF *ATN-TERM* '|Distinctness|)
18930
                                                                       (SETF |Distinctness|
18931
                                                                               (IF (EQ *ATN-REDUCE* T)
18932
                                                                                   (ATN-REDUCE-ITEM #'|Distinctness-Constructor|
18933
                                                                                                    ATN-PARSER::|item|)
18934
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
18935
                                                                                       (LIST '|Distinctness| ATN-PARSER::|item|)
18936
                                                                                       '|Distinctness|)))
18937
                                                                       (|ConcatAggregate/ConcatAggregate.2.6|
18938
                                                                        (1+ ATN-PARSER::INDEX)))
18939
                                                                      (T (SETF *ATN-TERM* '|Distinctness|)
18940
                                                                       (|ConcatAggregate/ConcatAggregate.2.6|
18941
                                                                        ATN-PARSER::INDEX))))))
18942
                                 (|ConcatAggregate/ConcatAggregate.2.6| (ATN-PARSER::INDEX)
18943
                                   (%ATN-NODE-BLOCK |ConcatAggregate/ConcatAggregate.2.6|
18944
                                                    (%ATN-EDGE-BLOCK (PUSH |Expression|)
18945
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
18946
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)
18947
                                                                       (COND
18948
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|Expression|)
18949
                                                                         (LET ((|Expression771| |Expression|))
18950
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
18951
                                                                             (DESTRUCTURING-BIND
18952
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
18953
                                                                                 ATN-PARSER::RESULT-AND-INDEX
18954
                                                                               (WHEN ATN-PARSER::RESULT
18955
                                                                                 (SETF |Expression| ATN-PARSER::RESULT))
18956
                                                                               (|ConcatAggregate/ConcatAggregate.2.7|
18957
                                                                                ATN-PARSER::RESULT-INDEX))
18958
                                                                             (SETF |Expression| |Expression771|))))
18959
                                                                        (T (SETF *ATN-TERM?* '|Expression|)
18960
                                                                         (|ConcatAggregate/fail.3| ATN-PARSER::INDEX)))))))
18961
                                 (|ConcatAggregate/ConcatAggregate.2.7| (ATN-PARSER::INDEX)
18962
                                   (%ATN-NODE-BLOCK |ConcatAggregate/ConcatAggregate.2.7|
18963
                                                    (%ATN-EDGE-BLOCK
18964
                                                     (ATN-PARSER::JUMP |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9|)
18965
                                                     (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9| ATN-PARSER::INDEX))
18966
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ConcatAggregate/ConcatAggregate.2.8|)
18967
                                                                     (|ConcatAggregate/ConcatAggregate.2.8| ATN-PARSER::INDEX))))
18968
                                 (|ConcatAggregate/ConcatAggregate.2.8| (ATN-PARSER::INDEX)
18969
                                   (%ATN-NODE-BLOCK |ConcatAggregate/ConcatAggregate.2.8|
18970
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
18971
                                                                     (COND
18972
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
18973
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
18974
                                                                       (|ConcatAggregate.2| (1+ ATN-PARSER::INDEX)))
18975
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
18976
                                                                       (|ConcatAggregate/fail.3| ATN-PARSER::INDEX))))))
18977
                                 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10| (ATN-PARSER::INDEX)
18978
                                   (%ATN-NODE-BLOCK |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10|
18979
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:SEPARATOR)
18980
                                                                     (COND
18981
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:SEPARATOR)
18982
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:SEPARATOR)
18983
                                                                       (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11|
18984
                                                                        (1+ ATN-PARSER::INDEX)))
18985
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:SEPARATOR) NIL)))))
18986
                                 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11| (ATN-PARSER::INDEX)
18987
                                   (%ATN-NODE-BLOCK |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11|
18988
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:=)
18989
                                                                     (COND
18990
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:=)
18991
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:=)
18992
                                                                       (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12|
18993
                                                                        (1+ ATN-PARSER::INDEX)))
18994
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:=) NIL)))))
18995
                                 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12| (ATN-PARSER::INDEX)
18996
                                   (%ATN-NODE-BLOCK |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12|
18997
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |String|)
18998
                                                                     (COND
18999
                                                                      ((|IS-String| ATN-PARSER::|item|) (SETF *ATN-TERM* '|String|)
19000
                                                                       (SETF |String|
19001
                                                                               (IF (EQ *ATN-REDUCE* T)
19002
                                                                                   (ATN-REDUCE-ITEM #'|String-Constructor|
19003
                                                                                                    ATN-PARSER::|item|)
19004
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
19005
                                                                                       (LIST '|String| ATN-PARSER::|item|)
19006
                                                                                       '|String|)))
19007
                                                                       (|ConcatAggregate/ConcatAggregate.2.8|
19008
                                                                        (1+ ATN-PARSER::INDEX)))
19009
                                                                      (T (SETF *ATN-TERM* '|String|) NIL)))))
19010
                                 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9| (ATN-PARSER::INDEX)
19011
                                   (%ATN-NODE-BLOCK |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9|
19012
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|;|)
19013
                                                                     (COND
19014
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|;|)
19015
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|;|)
19016
                                                                       (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10|
19017
                                                                        (1+ ATN-PARSER::INDEX)))
19018
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|;|) NIL)))))
19019
                                 (|ConcatAggregate/fail.3| (ATN-PARSER::INDEX)
19020
                                   (%ATN-NODE-BLOCK |ConcatAggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
19021
                                 (|ConcatAggregate/start.1| (ATN-PARSER::INDEX)
19022
                                   (%ATN-NODE-BLOCK |ConcatAggregate/start.1|
19023
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:GROUP_CONCAT)
19024
                                                                     (COND
19025
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:GROUP_CONCAT)
19026
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:GROUP_CONCAT)
19027
                                                                       (|ConcatAggregate/ConcatAggregate.2.4|
19028
                                                                        (1+ ATN-PARSER::INDEX)))
19029
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:GROUP_CONCAT)
19030
                                                                       (|ConcatAggregate/fail.3| ATN-PARSER::INDEX)))))))
19031
                          (|ConcatAggregate/start.1| ATN-PARSER::INDEX)
19032
                          (SETF *ATN-NODE NIL)
19033
                          NIL
19034
                          (IF ATN-PARSER::ATN-STRUCTURE
19035
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
19036
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
19037
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConcatAggregate| ATN-PARSER::INDEX *ATN-STACK))))
19038
 (PROGN
19039
  (DEFVAR |IRIrefOrFunction-INDEX|)
19040
  (DEFUN |IRIrefOrFunction| (ATN-PARSER::INDEX &AUX (|FunctionCall| NIL) (|IRIref| NIL))
19041
    "{117} IRIrefOrFunction ::= (FunctionCall | IRIref)
19042
 (|FunctionCall| |IRIref|)"
19043
    (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))
19044
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIrefOrFunction-INDEX| *ATN-LEVEL))
19045
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
19046
    (IF (< |IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)
19047
        (LET ((|IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)
19048
              (*ATN-LEVEL (1+ *ATN-LEVEL))
19049
              (*ATN-STACK (CONS '|IRIrefOrFunction| *ATN-STACK))
19050
              (ATN-PARSER::ATN-STRUCTURE NIL))
19051
          (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))
19052
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
19053
          (DECLARE (TYPE CONS *ATN-STACK))
19054
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
19055
            (%ATN-BLOCK |IRIrefOrFunction|
19056
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
19057
                                   (SETF *ATN-TERM* '|IRIrefOrFunction|)
19058
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
19059
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
19060
                                   ATN-PARSER::INDEX)
19061
                                 (|IRIrefOrFunction.2| (ATN-PARSER::INDEX)
19062
                                   (%ATN-NODE-BLOCK |IRIrefOrFunction.2|
19063
                                                    (%ATN-EDGE-BLOCK (POP |IRIrefOrFunction|)
19064
                                                                     (WHEN T
19065
                                                                       (SETF *ATN-TERM* '|IRIrefOrFunction|)
19066
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
19067
                                                                                   '|IRIrefOrFunction| ATN-PARSER::INDEX
19068
                                                                                   (LIST '|FunctionCall| |FunctionCall| '|IRIref|
19069
                                                                                         |IRIref|))
19070
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
19071
                                                                              (IF (EQ *ATN-REDUCE* T)
19072
                                                                                  (|IRIrefOrFunction-Constructor| |FunctionCall|
19073
                                                                                                                  |IRIref|)
19074
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
19075
                                                                                      (CONS '|IRIrefOrFunction|
19076
                                                                                            (DELETE NIL
19077
                                                                                                    (LIST |FunctionCall| |IRIref|)))
19078
                                                                                      '|IRIrefOrFunction|))))
19079
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
19080
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
19081
                                 (|IRIrefOrFunction/fail.3| (ATN-PARSER::INDEX)
19082
                                   (%ATN-NODE-BLOCK |IRIrefOrFunction/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
19083
                                 (|IRIrefOrFunction/start.1| (ATN-PARSER::INDEX)
19084
                                   (%ATN-NODE-BLOCK |IRIrefOrFunction/start.1|
19085
                                                    (%ATN-EDGE-BLOCK OR
19086
                                                                     (PROGN
19087
                                                                      (%ATN-EDGE-BLOCK (PUSH |FunctionCall|)
19088
                                                                                       (MULTIPLE-VALUE-BIND
19089
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
19090
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|FunctionCall|
19091
                                                                                                                    ATN-PARSER::INDEX)
19092
                                                                                         (COND
19093
                                                                                          (ATN-PARSER::SUCCESS
19094
                                                                                           (SETF *ATN-TERM* '|FunctionCall|)
19095
                                                                                           (LET ((|FunctionCall772| |FunctionCall|))
19096
                                                                                             (DOLIST
19097
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
19098
                                                                                                  ATN-PARSER::RESULT)
19099
                                                                                               (DESTRUCTURING-BIND
19100
                                                                                                   (
19101
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
19102
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
19103
                                                                                                 (WHEN ATN-PARSER::RESULT
19104
                                                                                                   (SETF |FunctionCall|
19105
                                                                                                           ATN-PARSER::RESULT))
19106
                                                                                                 (|IRIrefOrFunction.2|
19107
                                                                                                  ATN-PARSER::RESULT-INDEX))
19108
                                                                                               (SETF |FunctionCall|
19109
                                                                                                       |FunctionCall772|))))
19110
                                                                                          (T (SETF *ATN-TERM?* '|FunctionCall|)
19111
                                                                                           NIL))))
19112
                                                                      (%ATN-EDGE-BLOCK (PUSH |IRIref|)
19113
                                                                                       (MULTIPLE-VALUE-BIND
19114
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
19115
                                                                                           (ATN-PARSE-SUBSTRUCTURE* '|IRIref|
19116
                                                                                                                    ATN-PARSER::INDEX)
19117
                                                                                         (COND
19118
                                                                                          (ATN-PARSER::SUCCESS
19119
                                                                                           (SETF *ATN-TERM* '|IRIref|)
19120
                                                                                           (LET ((|IRIref773| |IRIref|))
19121
                                                                                             (DOLIST
19122
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
19123
                                                                                                  ATN-PARSER::RESULT)
19124
                                                                                               (DESTRUCTURING-BIND
19125
                                                                                                   (
19126
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
19127
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
19128
                                                                                                 (WHEN ATN-PARSER::RESULT
19129
                                                                                                   (SETF |IRIref|
19130
                                                                                                           ATN-PARSER::RESULT))
19131
                                                                                                 (|IRIrefOrFunction.2|
19132
                                                                                                  ATN-PARSER::RESULT-INDEX))
19133
                                                                                               (SETF |IRIref| |IRIref773|))))
19134
                                                                                          (T (SETF *ATN-TERM?* '|IRIref|) NIL))))
19135
                                                                      (|IRIrefOrFunction/fail.3| ATN-PARSER::INDEX))))))
19136
                          (|IRIrefOrFunction/start.1| ATN-PARSER::INDEX)
19137
                          (SETF *ATN-NODE NIL)
19138
                          NIL
19139
                          (IF ATN-PARSER::ATN-STRUCTURE
19140
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
19141
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
19142
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIrefOrFunction| ATN-PARSER::INDEX *ATN-STACK))))
19143
 (PROGN
19144
  (DEFVAR |RDFLiteral-INDEX|)
19145
  (DEFUN |RDFLiteral| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (LANGTAG NIL) (|String| NIL))
19146
    "{118} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?
19147
 (|IRIref| LANGTAG |String|)"
19148
    (DECLARE (SPECIAL |RDFLiteral-INDEX|))
19149
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RDFLiteral-INDEX| *ATN-LEVEL))
19150
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
19151
    (IF (< |RDFLiteral-INDEX| ATN-PARSER::INDEX)
19152
        (LET ((|RDFLiteral-INDEX| ATN-PARSER::INDEX)
19153
              (*ATN-LEVEL (1+ *ATN-LEVEL))
19154
              (*ATN-STACK (CONS '|RDFLiteral| *ATN-STACK))
19155
              (ATN-PARSER::ATN-STRUCTURE NIL))
19156
          (DECLARE (SPECIAL |RDFLiteral-INDEX|))
19157
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
19158
          (DECLARE (TYPE CONS *ATN-STACK))
19159
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
19160
            (%ATN-BLOCK |RDFLiteral|
19161
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
19162
                                   (SETF *ATN-TERM* '|RDFLiteral|)
19163
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
19164
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
19165
                                   ATN-PARSER::INDEX)
19166
                                 (|RDFLiteral.2| (ATN-PARSER::INDEX)
19167
                                   (%ATN-NODE-BLOCK |RDFLiteral.2|
19168
                                                    (%ATN-EDGE-BLOCK (POP |RDFLiteral|)
19169
                                                                     (WHEN T
19170
                                                                       (SETF *ATN-TERM* '|RDFLiteral|)
19171
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
19172
                                                                                   '|RDFLiteral| ATN-PARSER::INDEX
19173
                                                                                   (LIST '|IRIref| |IRIref| 'LANGTAG LANGTAG
19174
                                                                                         '|String| |String|))
19175
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
19176
                                                                              (IF (EQ *ATN-REDUCE* T)
19177
                                                                                  (|RDFLiteral-Constructor| |IRIref| LANGTAG
19178
                                                                                                            |String|)
19179
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
19180
                                                                                      (CONS '|RDFLiteral|
19181
                                                                                            (DELETE NIL
19182
                                                                                                    (LIST |IRIref| LANGTAG
19183
                                                                                                          |String|)))
19184
                                                                                      '|RDFLiteral|))))
19185
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
19186
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
19187
                                 (|RDFLiteral/fail.3| (ATN-PARSER::INDEX)
19188
                                   (%ATN-NODE-BLOCK |RDFLiteral/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
19189
                                 (|RDFLiteral/RDFLiteral.2.4| (ATN-PARSER::INDEX)
19190
                                   (%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.4|
19191
                                                    (%ATN-EDGE-BLOCK OR
19192
                                                                     (PROGN
19193
                                                                      (%ATN-EDGE-BLOCK (TEST LANGTAG)
19194
                                                                                       (COND
19195
                                                                                        ((IS-LANGTAG ATN-PARSER::|item|)
19196
                                                                                         (SETF *ATN-TERM* 'LANGTAG)
19197
                                                                                         (SETF LANGTAG
19198
                                                                                                 (IF (EQ *ATN-REDUCE* T)
19199
                                                                                                     (ATN-REDUCE-ITEM
19200
                                                                                                      #'|LANGTAG-Constructor|
19201
                                                                                                      ATN-PARSER::|item|)
19202
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
19203
                                                                                                         (LIST 'LANGTAG
19204
                                                                                                               ATN-PARSER::|item|)
19205
                                                                                                         'LANGTAG)))
19206
                                                                                         (|RDFLiteral.2| (1+ ATN-PARSER::INDEX)))
19207
                                                                                        (T (SETF *ATN-TERM?* 'LANGTAG) NIL)))
19208
                                                                      (%ATN-EDGE-BLOCK
19209
                                                                       (ATN-PARSER::JUMP |RDFLiteral/RDFLiteral.2.5|)
19210
                                                                       (|RDFLiteral/RDFLiteral.2.5| ATN-PARSER::INDEX))
19211
                                                                      (|RDFLiteral.2| ATN-PARSER::INDEX)))))
19212
                                 (|RDFLiteral/RDFLiteral.2.5| (ATN-PARSER::INDEX)
19213
                                   (%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.5|
19214
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:^^)
19215
                                                                     (COND
19216
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:^^)
19217
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:^^)
19218
                                                                       (|RDFLiteral/RDFLiteral.2.6| (1+ ATN-PARSER::INDEX)))
19219
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:^^) NIL)))))
19220
                                 (|RDFLiteral/RDFLiteral.2.6| (ATN-PARSER::INDEX)
19221
                                   (%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.6|
19222
                                                    (%ATN-EDGE-BLOCK (PUSH |IRIref|)
19223
                                                                     (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
19224
                                                                         (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)
19225
                                                                       (COND
19226
                                                                        (ATN-PARSER::SUCCESS (SETF *ATN-TERM* '|IRIref|)
19227
                                                                         (LET ((|IRIref774| |IRIref|))
19228
                                                                           (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)
19229
                                                                             (DESTRUCTURING-BIND
19230
                                                                                 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
19231
                                                                                 ATN-PARSER::RESULT-AND-INDEX
19232
                                                                               (WHEN ATN-PARSER::RESULT
19233
                                                                                 (SETF |IRIref| ATN-PARSER::RESULT))
19234
                                                                               (|RDFLiteral.2| ATN-PARSER::RESULT-INDEX))
19235
                                                                             (SETF |IRIref| |IRIref774|))))
19236
                                                                        (T (SETF *ATN-TERM?* '|IRIref|) NIL))))))
19237
                                 (|RDFLiteral/start.1| (ATN-PARSER::INDEX)
19238
                                   (%ATN-NODE-BLOCK |RDFLiteral/start.1|
19239
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |String|)
19240
                                                                     (COND
19241
                                                                      ((|IS-String| ATN-PARSER::|item|) (SETF *ATN-TERM* '|String|)
19242
                                                                       (SETF |String|
19243
                                                                               (IF (EQ *ATN-REDUCE* T)
19244
                                                                                   (ATN-REDUCE-ITEM #'|String-Constructor|
19245
                                                                                                    ATN-PARSER::|item|)
19246
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
19247
                                                                                       (LIST '|String| ATN-PARSER::|item|)
19248
                                                                                       '|String|)))
19249
                                                                       (|RDFLiteral/RDFLiteral.2.4| (1+ ATN-PARSER::INDEX)))
19250
                                                                      (T (SETF *ATN-TERM* '|String|)
19251
                                                                       (|RDFLiteral/fail.3| ATN-PARSER::INDEX)))))))
19252
                          (|RDFLiteral/start.1| ATN-PARSER::INDEX)
19253
                          (SETF *ATN-NODE NIL)
19254
                          NIL
19255
                          (IF ATN-PARSER::ATN-STRUCTURE
19256
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
19257
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
19258
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|RDFLiteral| ATN-PARSER::INDEX *ATN-STACK))))
19259
 (PROGN
19260
  (DEFVAR |IRIref-INDEX|)
19261
  (DEFUN |IRIref| (ATN-PARSER::INDEX &AUX (IRI_REF NIL) (|PrefixedName| NIL))
19262
    "{125} IRIref ::= (IRI_REF | PrefixedName)
19263
 (IRI_REF |PrefixedName|)"
19264
    (DECLARE (SPECIAL |IRIref-INDEX|))
19265
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIref-INDEX| *ATN-LEVEL))
19266
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
19267
    (IF (< |IRIref-INDEX| ATN-PARSER::INDEX)
19268
        (LET ((|IRIref-INDEX| ATN-PARSER::INDEX)
19269
              (*ATN-LEVEL (1+ *ATN-LEVEL))
19270
              (*ATN-STACK (CONS '|IRIref| *ATN-STACK))
19271
              (ATN-PARSER::ATN-STRUCTURE NIL))
19272
          (DECLARE (SPECIAL |IRIref-INDEX|))
19273
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
19274
          (DECLARE (TYPE CONS *ATN-STACK))
19275
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
19276
            (%ATN-BLOCK |IRIref|
19277
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
19278
                                   (SETF *ATN-TERM* '|IRIref|)
19279
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
19280
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
19281
                                   ATN-PARSER::INDEX)
19282
                                 (|IRIref.2| (ATN-PARSER::INDEX)
19283
                                   (%ATN-NODE-BLOCK |IRIref.2|
19284
                                                    (%ATN-EDGE-BLOCK (POP |IRIref|)
19285
                                                                     (WHEN T
19286
                                                                       (SETF *ATN-TERM* '|IRIref|)
19287
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|IRIref|
19288
                                                                                   ATN-PARSER::INDEX
19289
                                                                                   (LIST 'IRI_REF IRI_REF '|PrefixedName|
19290
                                                                                         |PrefixedName|))
19291
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
19292
                                                                              (IF (EQ *ATN-REDUCE* T)
19293
                                                                                  (|IRIref-Constructor| IRI_REF |PrefixedName|)
19294
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
19295
                                                                                      (CONS '|IRIref|
19296
                                                                                            (DELETE NIL
19297
                                                                                                    (LIST IRI_REF |PrefixedName|)))
19298
                                                                                      '|IRIref|))))
19299
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
19300
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
19301
                                 (|IRIref/fail.3| (ATN-PARSER::INDEX)
19302
                                   (%ATN-NODE-BLOCK |IRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
19303
                                 (|IRIref/start.1| (ATN-PARSER::INDEX)
19304
                                   (%ATN-NODE-BLOCK |IRIref/start.1|
19305
                                                    (%ATN-EDGE-BLOCK OR
19306
                                                                     (PROGN
19307
                                                                      (%ATN-EDGE-BLOCK (PUSH IRI_REF)
19308
                                                                                       (MULTIPLE-VALUE-BIND
19309
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
19310
                                                                                           (ATN-PARSE-SUBSTRUCTURE* 'IRI_REF
19311
                                                                                                                    ATN-PARSER::INDEX)
19312
                                                                                         (COND
19313
                                                                                          (ATN-PARSER::SUCCESS
19314
                                                                                           (SETF *ATN-TERM* 'IRI_REF)
19315
                                                                                           (LET ((IRI_REF775 IRI_REF))
19316
                                                                                             (DOLIST
19317
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
19318
                                                                                                  ATN-PARSER::RESULT)
19319
                                                                                               (DESTRUCTURING-BIND
19320
                                                                                                   (
19321
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
19322
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
19323
                                                                                                 (WHEN ATN-PARSER::RESULT
19324
                                                                                                   (SETF IRI_REF
19325
                                                                                                           ATN-PARSER::RESULT))
19326
                                                                                                 (|IRIref.2|
19327
                                                                                                  ATN-PARSER::RESULT-INDEX))
19328
                                                                                               (SETF IRI_REF IRI_REF775))))
19329
                                                                                          (T (SETF *ATN-TERM?* 'IRI_REF) NIL))))
19330
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::CAT |PrefixedName|)
19331
                                                                                       (COND
19332
                                                                                        ((|IS-PrefixedName| ATN-PARSER::|item|)
19333
                                                                                         (SETF *ATN-TERM* '|PrefixedName|)
19334
                                                                                         (SETF |PrefixedName|
19335
                                                                                                 (IF (EQ *ATN-REDUCE* T)
19336
                                                                                                     (ATN-REDUCE-ITEM
19337
                                                                                                      #'|PrefixedName-Constructor|
19338
                                                                                                      ATN-PARSER::|item|)
19339
                                                                                                     (IF (EQ *ATN-REDUCE* 'CONS)
19340
                                                                                                         (LIST '|PrefixedName|
19341
                                                                                                               ATN-PARSER::|item|)
19342
                                                                                                         '|PrefixedName|)))
19343
                                                                                         (|IRIref.2| (1+ ATN-PARSER::INDEX)))
19344
                                                                                        (T (SETF *ATN-TERM* '|PrefixedName|) NIL)))
19345
                                                                      (|IRIref/fail.3| ATN-PARSER::INDEX))))))
19346
                          (|IRIref/start.1| ATN-PARSER::INDEX)
19347
                          (SETF *ATN-NODE NIL)
19348
                          NIL
19349
                          (IF ATN-PARSER::ATN-STRUCTURE
19350
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
19351
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
19352
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIref| ATN-PARSER::INDEX *ATN-STACK))))
19353
 (PROGN
19354
  (DEFVAR |BlankNode-INDEX|)
19355
  (DEFUN |BlankNode| (ATN-PARSER::INDEX &AUX (ANON NIL) (BLANK_NODE_LABEL NIL))
19356
    "{127} BlankNode ::= (('_:' BLANK_NODE_LABEL) | ANON)
19357
 (ANON BLANK_NODE_LABEL)"
19358
    (DECLARE (SPECIAL |BlankNode-INDEX|))
19359
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNode-INDEX| *ATN-LEVEL))
19360
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
19361
    (IF (< |BlankNode-INDEX| ATN-PARSER::INDEX)
19362
        (LET ((|BlankNode-INDEX| ATN-PARSER::INDEX)
19363
              (*ATN-LEVEL (1+ *ATN-LEVEL))
19364
              (*ATN-STACK (CONS '|BlankNode| *ATN-STACK))
19365
              (ATN-PARSER::ATN-STRUCTURE NIL))
19366
          (DECLARE (SPECIAL |BlankNode-INDEX|))
19367
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
19368
          (DECLARE (TYPE CONS *ATN-STACK))
19369
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
19370
            (%ATN-BLOCK |BlankNode|
19371
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
19372
                                   (SETF *ATN-TERM* '|BlankNode|)
19373
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
19374
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
19375
                                   ATN-PARSER::INDEX)
19376
                                 (|BlankNode.2| (ATN-PARSER::INDEX)
19377
                                   (%ATN-NODE-BLOCK |BlankNode.2|
19378
                                                    (%ATN-EDGE-BLOCK (POP |BlankNode|)
19379
                                                                     (WHEN T
19380
                                                                       (SETF *ATN-TERM* '|BlankNode|)
19381
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" '|BlankNode|
19382
                                                                                   ATN-PARSER::INDEX
19383
                                                                                   (LIST 'ANON ANON 'BLANK_NODE_LABEL
19384
                                                                                         BLANK_NODE_LABEL))
19385
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
19386
                                                                              (IF (EQ *ATN-REDUCE* T)
19387
                                                                                  (|BlankNode-Constructor| ANON BLANK_NODE_LABEL)
19388
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
19389
                                                                                      (CONS '|BlankNode|
19390
                                                                                            (DELETE NIL
19391
                                                                                                    (LIST ANON BLANK_NODE_LABEL)))
19392
                                                                                      '|BlankNode|))))
19393
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
19394
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
19395
                                 (|BlankNode/BlankNode.2.4| (ATN-PARSER::INDEX)
19396
                                   (%ATN-NODE-BLOCK |BlankNode/BlankNode.2.4|
19397
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|_:|)
19398
                                                                     (COND
19399
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|_:|)
19400
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|_:|)
19401
                                                                       (|BlankNode/BlankNode.2.5| (1+ ATN-PARSER::INDEX)))
19402
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|_:|) NIL)))))
19403
                                 (|BlankNode/BlankNode.2.5| (ATN-PARSER::INDEX)
19404
                                   (%ATN-NODE-BLOCK |BlankNode/BlankNode.2.5|
19405
                                                    (%ATN-EDGE-BLOCK (TEST BLANK_NODE_LABEL)
19406
                                                                     (COND
19407
                                                                      ((IS-BLANK_NODE_LABEL ATN-PARSER::|item|)
19408
                                                                       (SETF *ATN-TERM* 'BLANK_NODE_LABEL)
19409
                                                                       (SETF BLANK_NODE_LABEL
19410
                                                                               (IF (EQ *ATN-REDUCE* T)
19411
                                                                                   (ATN-REDUCE-ITEM #'|BLANK_NODE_LABEL-Constructor|
19412
                                                                                                    ATN-PARSER::|item|)
19413
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
19414
                                                                                       (LIST 'BLANK_NODE_LABEL ATN-PARSER::|item|)
19415
                                                                                       'BLANK_NODE_LABEL)))
19416
                                                                       (|BlankNode.2| (1+ ATN-PARSER::INDEX)))
19417
                                                                      (T (SETF *ATN-TERM?* 'BLANK_NODE_LABEL) NIL)))))
19418
                                 (|BlankNode/fail.3| (ATN-PARSER::INDEX)
19419
                                   (%ATN-NODE-BLOCK |BlankNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
19420
                                 (|BlankNode/start.1| (ATN-PARSER::INDEX)
19421
                                   (%ATN-NODE-BLOCK |BlankNode/start.1|
19422
                                                    (%ATN-EDGE-BLOCK OR
19423
                                                                     (PROGN
19424
                                                                      (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |BlankNode/BlankNode.2.4|)
19425
                                                                                       (|BlankNode/BlankNode.2.4|
19426
                                                                                        ATN-PARSER::INDEX))
19427
                                                                      (%ATN-EDGE-BLOCK (PUSH ANON)
19428
                                                                                       (MULTIPLE-VALUE-BIND
19429
                                                                                           (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
19430
                                                                                           (ATN-PARSE-SUBSTRUCTURE* 'ANON
19431
                                                                                                                    ATN-PARSER::INDEX)
19432
                                                                                         (COND
19433
                                                                                          (ATN-PARSER::SUCCESS
19434
                                                                                           (SETF *ATN-TERM* 'ANON)
19435
                                                                                           (LET ((ANON776 ANON))
19436
                                                                                             (DOLIST
19437
                                                                                                 (ATN-PARSER::RESULT-AND-INDEX
19438
                                                                                                  ATN-PARSER::RESULT)
19439
                                                                                               (DESTRUCTURING-BIND
19440
                                                                                                   (
19441
                                                                                                    ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)
19442
                                                                                                   ATN-PARSER::RESULT-AND-INDEX
19443
                                                                                                 (WHEN ATN-PARSER::RESULT
19444
                                                                                                   (SETF ANON ATN-PARSER::RESULT))
19445
                                                                                                 (|BlankNode.2|
19446
                                                                                                  ATN-PARSER::RESULT-INDEX))
19447
                                                                                               (SETF ANON ANON776))))
19448
                                                                                          (T (SETF *ATN-TERM?* 'ANON) NIL))))
19449
                                                                      (|BlankNode/fail.3| ATN-PARSER::INDEX))))))
19450
                          (|BlankNode/start.1| ATN-PARSER::INDEX)
19451
                          (SETF *ATN-NODE NIL)
19452
                          NIL
19453
                          (IF ATN-PARSER::ATN-STRUCTURE
19454
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
19455
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
19456
        (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNode| ATN-PARSER::INDEX *ATN-STACK))))
19457
 (PROGN
19458
  (DEFVAR IRI_REF-INDEX)
19459
  (DEFUN IRI_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))
19460
    "{128} IRI_REF ::= '<' IRI_NAMESTRING? '>'
19461
 (IRI_NAMESTRING)"
19462
    (DECLARE (SPECIAL IRI_REF-INDEX))
19463
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX IRI_REF-INDEX *ATN-LEVEL))
19464
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
19465
    (IF (< IRI_REF-INDEX ATN-PARSER::INDEX)
19466
        (LET ((IRI_REF-INDEX ATN-PARSER::INDEX)
19467
              (*ATN-LEVEL (1+ *ATN-LEVEL))
19468
              (*ATN-STACK (CONS 'IRI_REF *ATN-STACK))
19469
              (ATN-PARSER::ATN-STRUCTURE NIL))
19470
          (DECLARE (SPECIAL IRI_REF-INDEX))
19471
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
19472
          (DECLARE (TYPE CONS *ATN-STACK))
19473
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
19474
            (%ATN-BLOCK IRI_REF
19475
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
19476
                                   (SETF *ATN-TERM* 'IRI_REF)
19477
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
19478
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
19479
                                   ATN-PARSER::INDEX)
19480
                                 (IRI_REF.2 (ATN-PARSER::INDEX)
19481
                                   (%ATN-NODE-BLOCK IRI_REF.2
19482
                                                    (%ATN-EDGE-BLOCK (POP IRI_REF)
19483
                                                                     (WHEN T
19484
                                                                       (SETF *ATN-TERM* 'IRI_REF)
19485
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'IRI_REF
19486
                                                                                   ATN-PARSER::INDEX
19487
                                                                                   (LIST 'IRI_NAMESTRING IRI_NAMESTRING))
19488
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
19489
                                                                              (IF (EQ *ATN-REDUCE* T)
19490
                                                                                  (|IRI_REF-Constructor| IRI_NAMESTRING)
19491
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
19492
                                                                                      (CONS 'IRI_REF
19493
                                                                                            (DELETE NIL (LIST IRI_NAMESTRING)))
19494
                                                                                      'IRI_REF))))
19495
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
19496
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
19497
                                 (|IRI_REF/fail.3| (ATN-PARSER::INDEX)
19498
                                   (%ATN-NODE-BLOCK |IRI_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
19499
                                 (IRI_REF/IRI_REF.2.4 (ATN-PARSER::INDEX)
19500
                                   (%ATN-NODE-BLOCK IRI_REF/IRI_REF.2.4
19501
                                                    (%ATN-EDGE-BLOCK (TEST IRI_NAMESTRING)
19502
                                                                     (COND
19503
                                                                      ((IS-IRI_NAMESTRING ATN-PARSER::|item|)
19504
                                                                       (SETF *ATN-TERM* 'IRI_NAMESTRING)
19505
                                                                       (SETF IRI_NAMESTRING
19506
                                                                               (IF (EQ *ATN-REDUCE* T)
19507
                                                                                   (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor|
19508
                                                                                                    ATN-PARSER::|item|)
19509
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
19510
                                                                                       (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)
19511
                                                                                       'IRI_NAMESTRING)))
19512
                                                                       (IRI_REF/IRI_REF.2.5 (1+ ATN-PARSER::INDEX)))
19513
                                                                      (T (SETF *ATN-TERM?* 'IRI_NAMESTRING)
19514
                                                                       (IRI_REF/IRI_REF.2.5 ATN-PARSER::INDEX))))))
19515
                                 (IRI_REF/IRI_REF.2.5 (ATN-PARSER::INDEX)
19516
                                   (%ATN-NODE-BLOCK IRI_REF/IRI_REF.2.5
19517
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:>)
19518
                                                                     (COND
19519
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)
19520
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:>)
19521
                                                                       (IRI_REF.2 (1+ ATN-PARSER::INDEX)))
19522
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:>)
19523
                                                                       (|IRI_REF/fail.3| ATN-PARSER::INDEX))))))
19524
                                 (|IRI_REF/start.1| (ATN-PARSER::INDEX)
19525
                                   (%ATN-NODE-BLOCK |IRI_REF/start.1|
19526
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:<)
19527
                                                                     (COND
19528
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)
19529
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:<)
19530
                                                                       (IRI_REF/IRI_REF.2.4 (1+ ATN-PARSER::INDEX)))
19531
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:<)
19532
                                                                       (|IRI_REF/fail.3| ATN-PARSER::INDEX)))))))
19533
                          (|IRI_REF/start.1| ATN-PARSER::INDEX)
19534
                          (SETF *ATN-NODE NIL)
19535
                          NIL
19536
                          (IF ATN-PARSER::ATN-STRUCTURE
19537
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
19538
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
19539
        (WARN "recursive grammar: ~s @ position ~s: ~s" 'IRI_REF ATN-PARSER::INDEX *ATN-STACK))))
19540
 (PROGN
19541
  (DEFVAR NAMESPACE_REF-INDEX)
19542
  (DEFUN NAMESPACE_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))
19543
    "{128a} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'
19544
 (IRI_NAMESTRING)"
19545
    (DECLARE (SPECIAL NAMESPACE_REF-INDEX))
19546
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NAMESPACE_REF-INDEX *ATN-LEVEL))
19547
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
19548
    (IF (< NAMESPACE_REF-INDEX ATN-PARSER::INDEX)
19549
        (LET ((NAMESPACE_REF-INDEX ATN-PARSER::INDEX)
19550
              (*ATN-LEVEL (1+ *ATN-LEVEL))
19551
              (*ATN-STACK (CONS 'NAMESPACE_REF *ATN-STACK))
19552
              (ATN-PARSER::ATN-STRUCTURE NIL))
19553
          (DECLARE (SPECIAL NAMESPACE_REF-INDEX))
19554
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
19555
          (DECLARE (TYPE CONS *ATN-STACK))
19556
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
19557
            (%ATN-BLOCK NAMESPACE_REF
19558
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
19559
                                   (SETF *ATN-TERM* 'NAMESPACE_REF)
19560
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
19561
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
19562
                                   ATN-PARSER::INDEX)
19563
                                 (NAMESPACE_REF.2 (ATN-PARSER::INDEX)
19564
                                   (%ATN-NODE-BLOCK NAMESPACE_REF.2
19565
                                                    (%ATN-EDGE-BLOCK (POP NAMESPACE_REF)
19566
                                                                     (WHEN T
19567
                                                                       (SETF *ATN-TERM* 'NAMESPACE_REF)
19568
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"
19569
                                                                                   'NAMESPACE_REF ATN-PARSER::INDEX
19570
                                                                                   (LIST 'IRI_NAMESTRING IRI_NAMESTRING))
19571
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
19572
                                                                              (IF (EQ *ATN-REDUCE* T)
19573
                                                                                  (|NAMESPACE_REF-Constructor| IRI_NAMESTRING)
19574
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
19575
                                                                                      (CONS 'NAMESPACE_REF
19576
                                                                                            (DELETE NIL (LIST IRI_NAMESTRING)))
19577
                                                                                      'NAMESPACE_REF))))
19578
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
19579
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
19580
                                 (|NAMESPACE_REF/fail.3| (ATN-PARSER::INDEX)
19581
                                   (%ATN-NODE-BLOCK |NAMESPACE_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
19582
                                 (NAMESPACE_REF/NAMESPACE_REF.2.4 (ATN-PARSER::INDEX)
19583
                                   (%ATN-NODE-BLOCK NAMESPACE_REF/NAMESPACE_REF.2.4
19584
                                                    (%ATN-EDGE-BLOCK (TEST IRI_NAMESTRING)
19585
                                                                     (COND
19586
                                                                      ((IS-IRI_NAMESTRING ATN-PARSER::|item|)
19587
                                                                       (SETF *ATN-TERM* 'IRI_NAMESTRING)
19588
                                                                       (SETF IRI_NAMESTRING
19589
                                                                               (IF (EQ *ATN-REDUCE* T)
19590
                                                                                   (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor|
19591
                                                                                                    ATN-PARSER::|item|)
19592
                                                                                   (IF (EQ *ATN-REDUCE* 'CONS)
19593
                                                                                       (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)
19594
                                                                                       'IRI_NAMESTRING)))
19595
                                                                       (NAMESPACE_REF/NAMESPACE_REF.2.5 (1+ ATN-PARSER::INDEX)))
19596
                                                                      (T (SETF *ATN-TERM?* 'IRI_NAMESTRING)
19597
                                                                       (NAMESPACE_REF/NAMESPACE_REF.2.5 ATN-PARSER::INDEX))))))
19598
                                 (NAMESPACE_REF/NAMESPACE_REF.2.5 (ATN-PARSER::INDEX)
19599
                                   (%ATN-NODE-BLOCK NAMESPACE_REF/NAMESPACE_REF.2.5
19600
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:>)
19601
                                                                     (COND
19602
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)
19603
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:>)
19604
                                                                       (NAMESPACE_REF.2 (1+ ATN-PARSER::INDEX)))
19605
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:>)
19606
                                                                       (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX))))))
19607
                                 (|NAMESPACE_REF/start.1| (ATN-PARSER::INDEX)
19608
                                   (%ATN-NODE-BLOCK |NAMESPACE_REF/start.1|
19609
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:<)
19610
                                                                     (COND
19611
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)
19612
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:<)
19613
                                                                       (NAMESPACE_REF/NAMESPACE_REF.2.4 (1+ ATN-PARSER::INDEX)))
19614
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:<)
19615
                                                                       (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX)))))))
19616
                          (|NAMESPACE_REF/start.1| ATN-PARSER::INDEX)
19617
                          (SETF *ATN-NODE NIL)
19618
                          NIL
19619
                          (IF ATN-PARSER::ATN-STRUCTURE
19620
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
19621
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
19622
        (WARN "recursive grammar: ~s @ position ~s: ~s" 'NAMESPACE_REF ATN-PARSER::INDEX *ATN-STACK))))
19623
 (PROGN
19624
  (DEFVAR NILLIST-INDEX)
19625
  (DEFUN NILLIST (ATN-PARSER::INDEX &AUX)
19626
    "{151} NILLIST ::= '(' ')'
19627
 NIL"
19628
    (DECLARE (SPECIAL NILLIST-INDEX))
19629
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NILLIST-INDEX *ATN-LEVEL))
19630
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
19631
    (IF (< NILLIST-INDEX ATN-PARSER::INDEX)
19632
        (LET ((NILLIST-INDEX ATN-PARSER::INDEX)
19633
              (*ATN-LEVEL (1+ *ATN-LEVEL))
19634
              (*ATN-STACK (CONS 'NILLIST *ATN-STACK))
19635
              (ATN-PARSER::ATN-STRUCTURE NIL))
19636
          (DECLARE (SPECIAL NILLIST-INDEX))
19637
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
19638
          (DECLARE (TYPE CONS *ATN-STACK))
19639
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
19640
            (%ATN-BLOCK NILLIST
19641
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
19642
                                   (SETF *ATN-TERM* 'NILLIST)
19643
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
19644
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
19645
                                   ATN-PARSER::INDEX)
19646
                                 (NILLIST.2 (ATN-PARSER::INDEX)
19647
                                   (%ATN-NODE-BLOCK NILLIST.2
19648
                                                    (%ATN-EDGE-BLOCK (POP NILLIST)
19649
                                                                     (WHEN T
19650
                                                                       (SETF *ATN-TERM* 'NILLIST)
19651
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'NILLIST
19652
                                                                                   ATN-PARSER::INDEX (LIST))
19653
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
19654
                                                                              (IF (EQ *ATN-REDUCE* T)
19655
                                                                                  (|NILLIST-Constructor|)
19656
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
19657
                                                                                      (CONS 'NILLIST (DELETE NIL (LIST)))
19658
                                                                                      'NILLIST))))
19659
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
19660
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
19661
                                 (|NILLIST/fail.3| (ATN-PARSER::INDEX)
19662
                                   (%ATN-NODE-BLOCK |NILLIST/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
19663
                                 (NILLIST/NILLIST.2.4 (ATN-PARSER::INDEX)
19664
                                   (%ATN-NODE-BLOCK NILLIST/NILLIST.2.4
19665
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)
19666
                                                                     (COND
19667
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|)|)
19668
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|)|)
19669
                                                                       (NILLIST.2 (1+ ATN-PARSER::INDEX)))
19670
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|)|)
19671
                                                                       (|NILLIST/fail.3| ATN-PARSER::INDEX))))))
19672
                                 (|NILLIST/start.1| (ATN-PARSER::INDEX)
19673
                                   (%ATN-NODE-BLOCK |NILLIST/start.1|
19674
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)
19675
                                                                     (COND
19676
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:|(|)
19677
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:|(|)
19678
                                                                       (NILLIST/NILLIST.2.4 (1+ ATN-PARSER::INDEX)))
19679
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:|(|)
19680
                                                                       (|NILLIST/fail.3| ATN-PARSER::INDEX)))))))
19681
                          (|NILLIST/start.1| ATN-PARSER::INDEX)
19682
                          (SETF *ATN-NODE NIL)
19683
                          NIL
19684
                          (IF ATN-PARSER::ATN-STRUCTURE
19685
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
19686
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
19687
        (WARN "recursive grammar: ~s @ position ~s: ~s" 'NILLIST ATN-PARSER::INDEX *ATN-STACK))))
19688
 (PROGN
19689
  (DEFVAR ANON-INDEX)
19690
  (DEFUN ANON (ATN-PARSER::INDEX &AUX)
19691
    "{152} ANON ::= '[' ']'
19692
 NIL"
19693
    (DECLARE (SPECIAL ANON-INDEX))
19694
    (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX ANON-INDEX *ATN-LEVEL))
19695
    (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))
19696
    (IF (< ANON-INDEX ATN-PARSER::INDEX)
19697
        (LET ((ANON-INDEX ATN-PARSER::INDEX)
19698
              (*ATN-LEVEL (1+ *ATN-LEVEL))
19699
              (*ATN-STACK (CONS 'ANON *ATN-STACK))
19700
              (ATN-PARSER::ATN-STRUCTURE NIL))
19701
          (DECLARE (SPECIAL ANON-INDEX))
19702
          (DECLARE (DYNAMIC-EXTENT *ATN-STACK))
19703
          (DECLARE (TYPE CONS *ATN-STACK))
19704
          (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))
19705
            (%ATN-BLOCK ANON
19706
                        (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)
19707
                                   (SETF *ATN-TERM* 'ANON)
19708
                                   (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))
19709
                                 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)
19710
                                   ATN-PARSER::INDEX)
19711
                                 (ANON.2 (ATN-PARSER::INDEX)
19712
                                   (%ATN-NODE-BLOCK ANON.2
19713
                                                    (%ATN-EDGE-BLOCK (POP ANON)
19714
                                                                     (WHEN T
19715
                                                                       (SETF *ATN-TERM* 'ANON)
19716
                                                                       (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'ANON
19717
                                                                                   ATN-PARSER::INDEX (LIST))
19718
                                                                       (LET ((ATN-PARSER::RESULT-STRUCTURE
19719
                                                                              (IF (EQ *ATN-REDUCE* T)
19720
                                                                                  (|ANON-Constructor|)
19721
                                                                                  (IF (EQ *ATN-REDUCE* 'CONS)
19722
                                                                                      (CONS 'ANON (DELETE NIL (LIST)))
19723
                                                                                      'ANON))))
19724
                                                                         (ATN-PARSER::SUCCEED ATN-PARSER::INDEX
19725
                                                                          ATN-PARSER::RESULT-STRUCTURE))))))
19726
                                 (ANON/ANON.2.4 (ATN-PARSER::INDEX)
19727
                                   (%ATN-NODE-BLOCK ANON/ANON.2.4
19728
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:])
19729
                                                                     (COND
19730
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:])
19731
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:]) (ANON.2 (1+ ATN-PARSER::INDEX)))
19732
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:])
19733
                                                                       (|ANON/fail.3| ATN-PARSER::INDEX))))))
19734
                                 (|ANON/fail.3| (ATN-PARSER::INDEX)
19735
                                   (%ATN-NODE-BLOCK |ANON/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))
19736
                                 (|ANON/start.1| (ATN-PARSER::INDEX)
19737
                                   (%ATN-NODE-BLOCK |ANON/start.1|
19738
                                                    (%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:[)
19739
                                                                     (COND
19740
                                                                      ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)
19741
                                                                       (SETF *ATN-TERM* 'SPOCQ.S:[)
19742
                                                                       (ANON/ANON.2.4 (1+ ATN-PARSER::INDEX)))
19743
                                                                      (T (SETF *ATN-TERM?* 'SPOCQ.S:[)
19744
                                                                       (|ANON/fail.3| ATN-PARSER::INDEX)))))))
19745
                          (|ANON/start.1| ATN-PARSER::INDEX)
19746
                          (SETF *ATN-NODE NIL)
19747
                          NIL
19748
                          (IF ATN-PARSER::ATN-STRUCTURE
19749
                              (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)
19750
                              (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))
19751
        (WARN "recursive grammar: ~s @ position ~s: ~s" 'ANON ATN-PARSER::INDEX *ATN-STACK))))
19752
 (SETF (GET '|Sparql| :PRODUCTION) "
19753
 {1 } Sparql ::= Prologue* ((Query | Update))")
19754
 (SETF (GET '|Query| :PRODUCTION) "
19755
 {2 } Query ::= ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery)) FieldClause?")
19756
 (SETF (GET '|Prologue| :PRODUCTION) "
19757
 {4 } Prologue ::= ((BaseDecl | PrefixDecl | Pragma))")
19758
 (SETF (GET '|BaseDecl| :PRODUCTION) "
19759
 {5 } BaseDecl ::= 'BASE' IRIref")
19760
 (SETF (GET '|PrefixDecl| :PRODUCTION) "
19761
 {6 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF")
19762
 (SETF (GET '|Pragma| :PRODUCTION) "
19763
 {6a} Pragma ::= 'PRAGMA' VARNAME PragmaArgList")
19764
 (SETF (GET '|PragmaArgList| :PRODUCTION) "
19765
 {6b} PragmaArgList ::= (NILLIST | ('(' PragmaArg (',' PragmaArg)* ')'))")
19766
 (SETF (GET '|PragmaArg| :PRODUCTION) "
19767
 {6c} PragmaArg ::= (Expression | VARNAME)")
19768
 (SETF (GET '|SelectQuery| :PRODUCTION) "
19769
 {7 } SelectQuery ::= SelectClause DatasetClause* WhereClause SolutionModifier")
19770
 (SETF (GET '|SubSelect| :PRODUCTION) "
19771
 {8 } SubSelect ::= ((SelectClause | DescribeClause | ConstructClause)) WhereClause SolutionModifier FieldClause?")
19772
 (SETF (GET '|SelectClause| :PRODUCTION) "
19773
 {9 } SelectClause ::= 'SELECT' Distinctness? (((VariableOrBindingOrAggregate)+ | Wild))")
19774
 (SETF (GET '|DescribeClause| :PRODUCTION) "
19775
 {9a} DescribeClause ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) 'AS' Dimensions")
19776
 (SETF (GET '|ConstructClause| :PRODUCTION) "
19777
 {9b} ConstructClause ::= 'CONSTRUCT' ConstructTemplate 'AS' Dimensions")
19778
 (SETF (GET '|VariableOrBindingOrAggregate| :PRODUCTION) "
19779
 {9d} VariableOrBindingOrAggregate ::= (Var | ('(' Expression 'AS' Var ')') | Aggregate)")
19780
 (SETF (GET '|Dimensions| :PRODUCTION) "
19781
 {9f} Dimensions ::= Var+")
19782
 (SETF (GET '|ConstructQuery| :PRODUCTION) "
19783
 {10} ConstructQuery ::= 'CONSTRUCT' (((((ConstructTemplate | Wild | Var+))
19784
                                        DatasetClause* WhereClause
19785
                                        SolutionModifier) | (DatasetClause*
19786
                                                             'WHERE' '{'
19787
                                                             TriplesTemplate?
19788
                                                             '}'
19789
                                                             SolutionModifier)))")
19790
 (SETF (GET '|DescribeQuery| :PRODUCTION) "
19791
 {11} DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier")
19792
 (SETF (GET '|AskQuery| :PRODUCTION) "
19793
 {12} AskQuery ::= 'ASK' DatasetClause* WhereClause SolutionModifier")
19794
 (SETF (GET '|DatasetClause| :PRODUCTION) "
19795
 {13} DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))")
19796
 (SETF (GET '|DefaultGraphClause| :PRODUCTION) "
19797
 {14} DefaultGraphClause ::= SourceSelector")
19798
 (SETF (GET '|NamedGraphClause| :PRODUCTION) "
19799
 {15} NamedGraphClause ::= 'NAMED' SourceSelector")
19800
 (SETF (GET '|SourceSelector| :PRODUCTION) "
19801
 {16} SourceSelector ::= (IRIref | GraphRefKeyword)")
19802
 (SETF (GET '|WhereClause| :PRODUCTION) "
19803
 {17} WhereClause ::= 'WHERE'? GroupGraphPattern")
19804
 (SETF (GET '|SolutionModifier| :PRODUCTION) "
19805
 {18} SolutionModifier ::= GroupClause? HavingClause? OrderClause? LimitOffsetClauses?")
19806
 (SETF (GET '|GroupClause| :PRODUCTION) "
19807
 {19} GroupClause ::= 'GROUP' 'BY' GroupCondition+")
19808
 (SETF (GET '|GroupCondition| :PRODUCTION) "
19809
 {20} GroupCondition ::= (BuiltInCall | FunctionCall | VariableOrBindingOrExpression)")
19810
 (SETF (GET '|VariableOrBindingOrExpression| :PRODUCTION) "
19811
 {20a} VariableOrBindingOrExpression ::= (('(' Expression ('AS' Var)? ')') | Var)")
19812
 (SETF (GET '|HavingClause| :PRODUCTION) "
19813
 {21} HavingClause ::= 'HAVING' HavingCondition+")
19814
 (SETF (GET '|HavingCondition| :PRODUCTION) "
19815
 {22} HavingCondition ::= Constraint")
19816
 (SETF (GET '|OrderClause| :PRODUCTION) "
19817
 {23} OrderClause ::= 'ORDER' 'BY' OrderCondition+")
19818
 (SETF (GET '|OrderCondition| :PRODUCTION) "
19819
 {24} OrderCondition ::= ((OrderDirection BrackettedExpression) | Constraint | Var)")
19820
 (SETF (GET '|LimitOffsetClauses| :PRODUCTION) "
19821
 {25} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause
19822
                                                              LimitClause?)))")
19823
 (SETF (GET '|LimitClause| :PRODUCTION) "
19824
 {26} LimitClause ::= 'LIMIT' INTEGER")
19825
 (SETF (GET '|OffsetClause| :PRODUCTION) "
19826
 {27} OffsetClause ::= 'OFFSET' INTEGER")
19827
 (SETF (GET '|FieldClause| :PRODUCTION) "
19828
 {28pre} FieldClause ::= (BindingsClause | ValuesClause)")
19829
 (SETF (GET '|BindingsClause| :PRODUCTION) "
19830
 {28} BindingsClause ::= 'BINDINGS' Var* '{' BindingList* '}'")
19831
 (SETF (GET '|BindingList| :PRODUCTION) "
19832
 {28a} BindingList ::= '(' BindingValue* ')'")
19833
 (SETF (GET '|BindingValue| :PRODUCTION) "
19834
 {29} BindingValue ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | Undef)")
19835
 (SETF (GET '|ValuesClause| :PRODUCTION) "
19836
 {28x} ValuesClause ::= 'VALUES' ValuesData")
19837
 (SETF (GET '|ValuesData| :PRODUCTION) "
19838
 {28y} ValuesData ::= (('(' VarList ')' '{' BindingList* '}') | (Var '{'
19839
                                                                 BindingValue*
19840
                                                                 '}'))")
19841
 (SETF (GET '|VarList| :PRODUCTION) "
19842
 {28z} VarList ::= Var*")
19843
 (SETF (GET '|Update| :PRODUCTION) "
19844
 {30} Update ::= Update1 (';' Update?)?")
19845
 (SETF (GET '|Update1| :PRODUCTION) "
19846
 {31} Update1 ::= (Load | Clear | Drop | Add | Move | Copy | Create | InsertData | DeleteData | DeleteWhere | Modify)")
19847
 (SETF (GET '|Load| :PRODUCTION) "
19848
 {32} Load ::= 'LOAD' Silence? IRIref ('INTO' GraphRef)?")
19849
 (SETF (GET '|Clear| :PRODUCTION) "
19850
 {33} Clear ::= 'CLEAR' Silence? GraphRefAll")
19851
 (SETF (GET '|Drop| :PRODUCTION) "
19852
 {34} Drop ::= 'DROP' Silence? GraphRefAll")
19853
 (SETF (GET '|Create| :PRODUCTION) "
19854
 {35} Create ::= 'CREATE' Silence? GraphRef")
19855
 (SETF (GET '|Add| :PRODUCTION) "
19856
 {36} Add ::= 'ADD' Silence? GraphOrDefault 'TO' GraphOrDefault")
19857
 (SETF (GET '|Move| :PRODUCTION) "
19858
 {37} Move ::= 'MOVE' Silence? GraphOrDefault 'TO' GraphOrDefault")
19859
 (SETF (GET '|Copy| :PRODUCTION) "
19860
 {38} Copy ::= 'COPY' Silence? GraphOrDefault 'TO' GraphOrDefault")
19861
 (SETF (GET '|InsertData| :PRODUCTION) "
19862
 {39} InsertData ::= 'INSERT' 'DATA' QuadData")
19863
 (SETF (GET '|DeleteData| :PRODUCTION) "
19864
 {40} DeleteData ::= 'DELETE' 'DATA' QuadData")
19865
 (SETF (GET '|DeleteWhere| :PRODUCTION) "
19866
 {41} DeleteWhere ::= 'DELETE' 'WHERE' QuadPattern")
19867
 (SETF (GET '|Modify| :PRODUCTION) "
19868
 {42} Modify ::= ('WITH' IRIref)? (((DeleteClause InsertClause?) | InsertClause)) UsingClause* 'WHERE' GroupGraphPattern")
19869
 (SETF (GET '|DeleteClause| :PRODUCTION) "
19870
 {43} DeleteClause ::= 'DELETE' QuadPattern")
19871
 (SETF (GET '|InsertClause| :PRODUCTION) "
19872
 {44} InsertClause ::= 'INSERT' QuadPattern")
19873
 (SETF (GET '|UsingClause| :PRODUCTION) "
19874
 {45} UsingClause ::= 'USING' ((IRIref | NamedIRIref))")
19875
 (SETF (GET '|NamedIRIref| :PRODUCTION) "
19876
 {45a} NamedIRIref ::= 'NAMED' IRIref")
19877
 (SETF (GET '|GraphOrDefault| :PRODUCTION) "
19878
 {46} GraphOrDefault ::= ('DEFAULT' | ('GRAPH'? IRIref))")
19879
 (SETF (GET '|GraphRef| :PRODUCTION) "
19880
 {47} GraphRef ::= 'GRAPH' IRIref")
19881
 (SETF (GET '|GraphRefAll| :PRODUCTION) "
19882
 {48} GraphRefAll ::= (GraphRef | GraphRefKeyword)")
19883
 (SETF (GET '|QuadPattern| :PRODUCTION) "
19884
 {49} QuadPattern ::= '{' Quads? '}'")
19885
 (SETF (GET '|QuadData| :PRODUCTION) "
19886
 {50} QuadData ::= '{' Quads? '}'")
19887
 (SETF (GET '|Quads| :PRODUCTION) "
19888
 {51} Quads ::= TriplesOrQuads Quads?")
19889
 (SETF (GET '|TriplesOrQuads| :PRODUCTION) "
19890
 {51a} TriplesOrQuads ::= (TriplesTemplate | (QuadsNotTriples '.'?))")
19891
 (SETF (GET '|QuadsNotTriples| :PRODUCTION) "
19892
 {52} QuadsNotTriples ::= 'GRAPH' VarOrIRIref '{' TriplesTemplate? '}'")
19893
 (SETF (GET '|TriplesTemplate| :PRODUCTION) "
19894
 {53} TriplesTemplate ::= TriplesSameSubject ('.' TriplesTemplate)? '.'?")
19895
 (SETF (GET '|GroupGraphPattern| :PRODUCTION) "
19896
 {54} GroupGraphPattern ::= '{' ((SubSelect | GroupGraphPatternSub)) '}'")
19897
 (SETF (GET '|GroupGraphPatternSub| :PRODUCTION) "
19898
 {55} GroupGraphPatternSub ::= TriplesBlock? GroupGraphPatternRest*")
19899
 (SETF (GET '|GroupGraphPatternRest| :PRODUCTION) "
19900
 {55a} GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter | Bind | FieldClause)) '.'? TriplesBlock?")
19901
 (SETF (GET '|TriplesBlock| :PRODUCTION) "
19902
 {56} TriplesBlock ::= TriplesSameSubject TriplesBlockRest* '.'?")
19903
 (SETF (GET '|TriplesBlockRest| :PRODUCTION) "
19904
 {56a} TriplesBlockRest ::= '.' TriplesSameSubject")
19905
 (SETF (GET '|GraphPatternNotTriples| :PRODUCTION) "
19906
 {57} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | MinusGraphPattern | GraphGraphPattern | RevisionGraphPattern | ServiceGraphPattern)")
19907
 (SETF (GET '|OptionalGraphPattern| :PRODUCTION) "
19908
 {58} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern")
19909
 (SETF (GET '|GraphGraphPattern| :PRODUCTION) "
19910
 {59} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern")
19911
 (SETF (GET '|ServiceGraphPattern| :PRODUCTION) "
19912
 {60} ServiceGraphPattern ::= 'SERVICE' Silence? VarOrIRIref GroupGraphPattern")
19913
 (SETF (GET '|RevisionGraphPattern| :PRODUCTION) "
19914
 {60a} RevisionGraphPattern ::= 'REVISION' ((VarOrIRIref | String)) GroupGraphPattern")
19915
 (SETF (GET '|Bind| :PRODUCTION) "
19916
 {61} Bind ::= 'BIND' '(' (((Lambda 'AS' IRIref) | (Expression 'AS' Var))) ')'")
19917
 (SETF (GET '|Lambda| :PRODUCTION) "
19918
 {61a} Lambda ::= '(' 'LAMBDA' '(' Var* ')' Expression* ')'")
19919
 (SETF (GET '|MinusGraphPattern| :PRODUCTION) "
19920
 {62} MinusGraphPattern ::= 'MINUS' GroupGraphPattern")
19921
 (SETF (GET '|GroupOrUnionGraphPattern| :PRODUCTION) "
19922
 {63} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*")
19923
 (SETF (GET '|Filter| :PRODUCTION) "
19924
 {64} Filter ::= 'FILTER' Constraint")
19925
 (SETF (GET '|Constraint| :PRODUCTION) "
19926
 {65} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)")
19927
 (SETF (GET '|FunctionCall| :PRODUCTION) "
19928
 {66} FunctionCall ::= IRIref ArgList")
19929
 (SETF (GET '|ArgList| :PRODUCTION) "
19930
 {67} ArgList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))")
19931
 (SETF (GET '|ExpressionList| :PRODUCTION) "
19932
 {68} ExpressionList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))")
19933
 (SETF (GET '|ConstructTemplate| :PRODUCTION) "
19934
 {69} ConstructTemplate ::= '{' ConstructQuads? '}'")
19935
 (SETF (GET '|ConstructTriples| :PRODUCTION) "
19936
 {70a} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?")
19937
 (SETF (GET '|ConstructQuads| :PRODUCTION) "
19938
 {70b} ConstructQuads ::= ((('GRAPH' VarOrIRIref '{' ConstructTriples
19939
                             '}') | ConstructTriples)) ConstructQuads?")
19940
 (SETF (GET '|TriplesSameSubject| :PRODUCTION) "
19941
 {71} TriplesSameSubject ::= (((VarOrTermOrGroup
19942
                                PropertyListNotEmpty) | (TriplesNode
19943
                                                         PropertyList))) Annotation?")
19944
 (SETF (GET '|Annotation| :PRODUCTION) "
19945
 {71b} Annotation ::= '{' VerbObjectList '}'")
19946
 (SETF (GET '|PropertyListNotEmpty| :PRODUCTION) "
19947
 {72} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*")
19948
 (SETF (GET '|VerbObjectList| :PRODUCTION) "
19949
 {72a} VerbObjectList ::= Verb ObjectList")
19950
 (SETF (GET '|PropertyList| :PRODUCTION) "
19951
 {73} PropertyList ::= PropertyListNotEmpty?")
19952
 (SETF (GET '|ObjectList| :PRODUCTION) "
19953
 {74} ObjectList ::= Object (',' Object)*")
19954
 (SETF (GET '|Object| :PRODUCTION) "
19955
 {75} Object ::= GraphNode")
19956
 (SETF (GET '|Verb| :PRODUCTION) "
19957
 {76} Verb ::= (VarOrIRIref | Path | 'a' | ConstrainedBlankNode)")
19958
 (SETF (GET '|ConstrainedBlankNode| :PRODUCTION) "
19959
 {76a} ConstrainedBlankNode ::= BlankNode")
19960
 (SETF (GET '|Path| :PRODUCTION) "
19961
 {82} Path ::= PathAlternative")
19962
 (SETF (GET '|PathAlternative| :PRODUCTION) "
19963
 {83} PathAlternative ::= PathSequence ('|' PathSequence)*")
19964
 (SETF (GET '|PathSequence| :PRODUCTION) "
19965
 {84} PathSequence ::= PathEltOrInverse ('/' PathEltOrInverse)*")
19966
 (SETF (GET '|PathElt| :PRODUCTION) "
19967
 {85} PathElt ::= PathPrimary PathMod?")
19968
 (SETF (GET '|PathEltOrInverse| :PRODUCTION) "
19969
 {86} PathEltOrInverse ::= (PathElt | ('^' InvertedPathElt))")
19970
 (SETF (GET '|InvertedPathElt| :PRODUCTION) "
19971
 {86a} InvertedPathElt ::= PathElt")
19972
 (SETF (GET '|PathMod| :PRODUCTION) "
19973
 {87} PathMod ::= (PathCardinality | PathRange)")
19974
 (SETF (GET '|PathRange| :PRODUCTION) "
19975
 {87b} PathRange ::= '{' (((PathRangeStart ',') | (PathRangeStart ','
19976
                                                   PathRangeEnd) | (','
19977
                                                                    PathRangeEnd) | PathRangeCount)) '}'")
19978
 (SETF (GET '|PathPrimary| :PRODUCTION) "
19979
 {88} PathPrimary ::= (PathVerb | ('!' PathNegatedPropertySet) | ('(' Path ')'))")
19980
 (SETF (GET '|PathVerb| :PRODUCTION) "
19981
 {88a} PathVerb ::= (IRIref | 'a')")
19982
 (SETF (GET '|PathNegatedPropertySet| :PRODUCTION) "
19983
 {89} PathNegatedPropertySet ::= (PathOneInPropertySet | ('('
19984
                                                          (PathOneInPropertySet
19985
                                                           ('|'
19986
                                                            PathOneInPropertySet)*)?
19987
                                                          ')'))")
19988
 (SETF (GET '|PathOneInPropertySet| :PRODUCTION) "
19989
 {90} PathOneInPropertySet ::= (PathVerb | (PathInvertOp PathVerb))")
19990
 (SETF (GET '|TriplesNode| :PRODUCTION) "
19991
 {92} TriplesNode ::= (Collection | BlankNodePropertyList)")
19992
 (SETF (GET '|BlankNodePropertyList| :PRODUCTION) "
19993
 {93} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'")
19994
 (SETF (GET '|Collection| :PRODUCTION) "
19995
 {94} Collection ::= '(' GraphNode+ ('.' DottedNode)? ')'")
19996
 (SETF (GET '|GraphNode| :PRODUCTION) "
19997
 {95} GraphNode ::= (VarOrTermOrGroup | TriplesNode)")
19998
 (SETF (GET '|DottedNode| :PRODUCTION) "
19999
 {95a} DottedNode ::= GraphNode")
20000
 (SETF (GET '|VarOrTerm| :PRODUCTION) "
20001
 {96} VarOrTerm ::= (Var | GraphTerm)")
20002
 (SETF (GET '|VarOrTermOrGroup| :PRODUCTION) "
20003
 {96a} VarOrTermOrGroup ::= (Var | GraphTerm | GroupTemplate)")
20004
 (SETF (GET '|GroupTemplate| :PRODUCTION) "
20005
 {96b} GroupTemplate ::= (('{' TriplesTemplate? '}') | ('<<'
20006
                                                        SubjectVarOrTermOrGroup
20007
                                                        Verb
20008
                                                        ObjectVarOrTermOrGroup
20009
                                                        '>>'))")
20010
 (SETF (GET '|SubjectVarOrTermOrGroup| :PRODUCTION) "
20011
 {96c} SubjectVarOrTermOrGroup ::= VarOrTermOrGroup")
20012
 (SETF (GET '|ObjectVarOrTermOrGroup| :PRODUCTION) "
20013
 {96d} ObjectVarOrTermOrGroup ::= VarOrTermOrGroup")
20014
 (SETF (GET '|VarOrIRIref| :PRODUCTION) "
20015
 {97} VarOrIRIref ::= (Var | IRIref)")
20016
 (SETF (GET '|GraphTerm| :PRODUCTION) "
20017
 {99} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)")
20018
 (SETF (GET '|Expression| :PRODUCTION) "
20019
 {100} Expression ::= ConditionalOrExpression")
20020
 (SETF (GET '|ConditionalOrExpression| :PRODUCTION) "
20021
 {101} ConditionalOrExpression ::= ConditionalAndExpression ('||'
20022
                                                             ConditionalAndExpression)*")
20023
 (SETF (GET '|ConditionalAndExpression| :PRODUCTION) "
20024
 {102} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*")
20025
 (SETF (GET '|ValueLogical| :PRODUCTION) "
20026
 {103} ValueLogical ::= RelationalExpression")
20027
 (SETF (GET '|RelationalExpression| :PRODUCTION) "
20028
 {104} RelationalExpression ::= NumericExpression RelatedNumeric?")
20029
 (SETF (GET '|RelatedNumeric| :PRODUCTION) "
20030
 {104b} RelatedNumeric ::= ((RelationalOperator NumericExpression) | (MemberOperator
20031
                                                                      ExpressionList))")
20032
 (SETF (GET '|MemberOperator| :PRODUCTION) "
20033
 {104c} MemberOperator ::= ('IN' | NotIn)")
20034
 (SETF (GET '|NotIn| :PRODUCTION) "
20035
 {104d} NotIn ::= 'NOT' 'IN'")
20036
 (SETF (GET '|NumericExpression| :PRODUCTION) "
20037
 {105} NumericExpression ::= AdditiveExpression")
20038
 (SETF (GET '|AdditiveExpression| :PRODUCTION) "
20039
 {106} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*")
20040
 (SETF (GET '|AddedMultiplicative| :PRODUCTION) "
20041
 {106b} AddedMultiplicative ::= ((AdditiveOperator MultiplicativeExpression) | NumericLiteralPositive | NumericLiteralNegative)")
20042
 (SETF (GET '|MultiplicativeExpression| :PRODUCTION) "
20043
 {107} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*")
20044
 (SETF (GET '|MultipliedUnary| :PRODUCTION) "
20045
 {107b} MultipliedUnary ::= MultiplicativeOperator UnaryExpression")
20046
 (SETF (GET '|UnaryExpression| :PRODUCTION) "
20047
 {108} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)")
20048
 (SETF (GET '|PrimaryExpression| :PRODUCTION) "
20049
 {109} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate)")
20050
 (SETF (GET '|BrackettedExpression| :PRODUCTION) "
20051
 {110} BrackettedExpression ::= '(' Expression ')'")
20052
 (SETF (GET '|BuiltInCall| :PRODUCTION) "
20053
 {111} BuiltInCall ::= (BuiltinNullCall | BuiltinNullOrUnaryCall | BuiltinBinaryCall | BuiltinUnaryCall | BuiltinListCall | RegexExpression | ReplaceExpression | IfExpression | SubstringExpression | ExistsFunc | NotExistsFunc)")
20054
 (SETF (GET '|BuiltinNullCall| :PRODUCTION) "
20055
 {111a} BuiltinNullCall ::= NullOperator '(' ')'")
20056
 (SETF (GET '|BuiltinNullOrUnaryCall| :PRODUCTION) "
20057
 {111c} BuiltinNullOrUnaryCall ::= NullOrUnaryOperator '(' Expression? ')'")
20058
 (SETF (GET '|BuiltinUnaryCall| :PRODUCTION) "
20059
 {111e} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'")
20060
 (SETF (GET '|BuiltinBinaryCall| :PRODUCTION) "
20061
 {111g} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'")
20062
 (SETF (GET '|IfExpression| :PRODUCTION) "
20063
 {111i} IfExpression ::= 'IF' '(' Expression ',' Expression ',' Expression ')'")
20064
 (SETF (GET '|BuiltinListCall| :PRODUCTION) "
20065
 {111j} BuiltinListCall ::= BuiltinListOperator ExpressionList")
20066
 (SETF (GET '|RegexExpression| :PRODUCTION) "
20067
 {112} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (',' Expression)? ')'")
20068
 (SETF (GET '|ReplaceExpression| :PRODUCTION) "
20069
 {113} ReplaceExpression ::= 'REPLACE' '(' Expression ',' Expression ',' Expression (','
20070
                                                                                     Expression)? ')'")
20071
 (SETF (GET '|SubstringExpression| :PRODUCTION) "
20072
 {113} SubstringExpression ::= 'SUBSTR' '(' Expression ',' Expression (','
20073
                                                                       Expression)? ')'")
20074
 (SETF (GET '|ExistsFunc| :PRODUCTION) "
20075
 {114} ExistsFunc ::= 'EXISTS' GroupGraphPattern")
20076
 (SETF (GET '|NotExistsFunc| :PRODUCTION) "
20077
 {115} NotExistsFunc ::= 'NOT' 'EXISTS' GroupGraphPattern")
20078
 (SETF (GET '|Aggregate| :PRODUCTION) "
20079
 {116} Aggregate ::= (CountAggregate | ArithmeticAggregate | ConcatAggregate)")
20080
 (SETF (GET '|CountAggregate| :PRODUCTION) "
20081
 {116a} CountAggregate ::= 'COUNT' '(' Distinctness? ((Wild | Expression)) ')'")
20082
 (SETF (GET '|ArithmeticAggregate| :PRODUCTION) "
20083
 {116b} ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression (','
20084
                                                                                          Expression)* ')'")
20085
 (SETF (GET '|ConcatAggregate| :PRODUCTION) "
20086
 {116d} ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression (';'
20087
                                                                         'SEPARATOR'
20088
                                                                         '='
20089
                                                                         String)? ')'")
20090
 (SETF (GET '|IRIrefOrFunction| :PRODUCTION) "
20091
 {117} IRIrefOrFunction ::= (FunctionCall | IRIref)")
20092
 (SETF (GET '|RDFLiteral| :PRODUCTION) "
20093
 {118} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?")
20094
 (SETF (GET '|IRIref| :PRODUCTION) "
20095
 {125} IRIref ::= (IRI_REF | PrefixedName)")
20096
 (SETF (GET '|BlankNode| :PRODUCTION) "
20097
 {127} BlankNode ::= (('_:' BLANK_NODE_LABEL) | ANON)")
20098
 (SETF (GET 'IRI_REF :PRODUCTION) "
20099
 {128} IRI_REF ::= '<' IRI_NAMESTRING? '>'")
20100
 (SETF (GET 'NAMESPACE_REF :PRODUCTION) "
20101
 {128a} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'")
20102
 (SETF (GET 'NILLIST :PRODUCTION) "
20103
 {151} NILLIST ::= '(' ')'")
20104
 (SETF (GET 'ANON :PRODUCTION) "
20105
 {152} ANON ::= '[' ']'")
20106
 (DEFUN |Sparql-Parser|
20107
        (ATN-PARSER::*ATN-INPUT
20108
         &KEY ((:TRACE *ATN-TRACE*) *ATN-TRACE*) ((:TRACE-NETS *ATN-TRACE-NETS*) *ATN-TRACE-NETS*)
20109
         ((:START-NAME ATN-PARSER::*ATN-START-NAME) '|Sparql|) ((:MODE ATN-PARSER::*ATN-MODE) :MULTIPLE) ((:REDUCE *ATN-REDUCE*) T)
20110
         ((:REGISTER-WORDS *ATN-REGISTER-WORDS) NIL)
20111
         (ATN-PARSER::ATN-WFST (MAKE-ARRAY 8 :ADJUSTABLE T :ELEMENT-TYPE 'LIST :INITIAL-ELEMENT NIL) ATN-PARSER::AW-S)
20112
         &ALLOW-OTHER-KEYS
20113
         &AUX)
20114
   "// generated 2021.02.20T03:39:18 based on \"org/datagraph/spocq-dev/src/core/encoding/sparql-1-0-5-formula.bnf\" from 2021.02.20T03:39:06.
20115
 // this grammar evolved from the 1.0 grammar [http://www.w3.org/TR/rdf-sparql-query/] thorugh versions
20116
 // which added aggregation expressions and select bindings (1.0.1), groups and related forms (1.0.2),
20117
 // property paths (1.0.3), and finally all forms but service (1.0.4).
20118
 //
20119
 // the productions are modified for several circumstances
20120
 // - to introduce sub-productions in order to group grouped terms
20121
 // - to introduce productions for terminals which would otherwise not appear in results
20122
 // - to add explicit ( ) grouping
20123
 // - to add extensions
20124
 //   - for construct
20125
 //   - for count
20126
 //   - for a less redundant path bnf
20127
 
20128
 [[1]] Sparql ::= Prologue * ( Query | Update )
20129
 [[2]] Query ::=  ( SelectQuery | ConstructQuery | DescribeQuery | AskQuery ) FieldClause?
20130
 [[4]] Prologue ::= ( BaseDecl | PrefixDecl | Pragma )
20131
 [[5]] BaseDecl ::= 'BASE' IRIref   // permit a prefixed name
20132
 [[6]] PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF
20133
 [[6a]] Pragma        ::= 'PRAGMA' VARNAME PragmaArgList
20134
 [[6b]] PragmaArgList ::= NILLIST | ( '(' PragmaArg ( ',' PragmaArg )* ')' ) 
20135
 [[6c]] PragmaArg     ::= Expression | VARNAME
20136
 // [[6a]] Pragma ::= 'PRAGMA' (BaseDecl | PrefixDecl | DatasetClause | RepositoryDecl | APIKeyDecl | EntailmentDecl )
20137
 // [[6b]] APIKeyDecl ::= 'API-KEY' String
20138
 // [[6c]] RepositoryDecl ::= 'REPOSITORY' String
20139
 // [[6d]] EntailmentDecl ::= 'RULES' IRI_REF
20140
 [[7]] SelectQuery ::= SelectClause  DatasetClause* WhereClause SolutionModifier 
20141
 // sub-query forms permit no dataset clause
20142
 [[8]] SubSelect          ::= ( SelectClause | DescribeClause | ConstructClause) WhereClause SolutionModifier FieldClause?
20143
 [[9]] SelectClause       ::= 'SELECT' Distinctness? ( ( VariableOrBindingOrAggregate )+ | Wild )
20144
 // these could be re-used in the respective top-level query to allow to specify dimensions
20145
 [[9a]] DescribeClause    ::= 'DESCRIBE' ( VarOrIRIref+ | '*' ) 'AS' Dimensions
20146
 [[9b]] ConstructClause   ::= 'CONSTRUCT' ConstructTemplate 'AS' Dimensions
20147
 [[9c]] Distinctness      ::= 'DISTINCT' | 'REDUCED'
20148
 // VariableOrBinding is extended to permit simple aggregates
20149
 [[9d]] VariableOrBindingOrAggregate  ::=  Var | ( '(' Expression 'AS' Var ')' ) | Aggregate
20150
 [[9e]] Wild              ::=  '*'
20151
 [[9f]] Dimensions        ::= Var+
20152
 // ConstructQuery is modified to permit a triples template
20153
 [[10]] ConstructQuery ::= 'CONSTRUCT' ( ( (ConstructTemplate | Wild | Var+) DatasetClause* WhereClause SolutionModifier ) |
20154
                                         ( DatasetClause* 'WHERE' '{' TriplesTemplate? '}' SolutionModifier ) )
20155
 [[11]] DescribeQuery ::= 'DESCRIBE' ( VarOrIRIref+ | '*' ) DatasetClause* WhereClause? SolutionModifier
20156
 [[12]] AskQuery ::= 'ASK' DatasetClause* WhereClause SolutionModifier
20157
 [[13]] DatasetClause ::= 'FROM' ( DefaultGraphClause | NamedGraphClause )
20158
 [[14]] DefaultGraphClause ::= SourceSelector
20159
 [[15]] NamedGraphClause ::= 'NAMED' SourceSelector
20160
 [[16]] SourceSelector ::= IRIref | GraphRefKeyword
20161
 [[17]] WhereClause ::= 'WHERE'? GroupGraphPattern
20162
 [[18]] SolutionModifier ::= GroupClause? HavingClause? OrderClause? LimitOffsetClauses?
20163
 [[19]] GroupClause                   ::= 'GROUP' 'BY' GroupCondition+
20164
 [[20]] GroupCondition                ::= BuiltInCall | FunctionCall | VariableOrBindingOrExpression
20165
 [[20a]] VariableOrBindingOrExpression ::= ( '(' Expression ( 'AS' Var )? ')' ) | Var
20166
 [[21]] HavingClause                  ::= 'HAVING' HavingCondition+
20167
 [[22]] HavingCondition               ::= Constraint
20168
 [[23]] OrderClause ::= 'ORDER' 'BY' OrderCondition+
20169
 [[24]] OrderCondition ::= ( OrderDirection BrackettedExpression ) | Constraint | Var
20170
 [[24a]] OrderDirection ::= 'ASC' | 'DESC'
20171
 [[25]] LimitOffsetClauses ::= ( ( LimitClause OffsetClause?) | (OffsetClause LimitClause?) )
20172
 [[26]] LimitClause ::= 'LIMIT' INTEGER
20173
 [[27]] OffsetClause ::= 'OFFSET' INTEGER
20174
 [[28pre]] FieldClause ::= BindingsClause | ValuesClause
20175
 [[28]] BindingsClause ::= 'BINDINGS' Var* '{' BindingList* '}'
20176
 [[28a]] BindingList ::= '(' BindingValue* ')'
20177
 [[29]] BindingValue ::= IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | Undef
20178
 [[29b]] Undef ::= 'UNDEF'
20179
 [[28x]] ValuesClause ::= 'VALUES' ValuesData
20180
 [[28y]] ValuesData   ::= ( '(' VarList ')' '{' BindingList* '}' ) | ( Var '{' BindingValue* '}' )
20181
 [[28z]] VarList      ::= Var*
20182
 [[30]]  Update       ::= Update1 ( ';' Update? )?
20183
 [[31]]  Update1      ::= Load | Clear | Drop | Add | Move | Copy | Create | InsertData | DeleteData | DeleteWhere | Modify
20184
 [[32]]  Load         ::= 'LOAD' Silence? IRIref ( 'INTO' GraphRef )?
20185
 [[33]]  Clear        ::= 'CLEAR' Silence? GraphRefAll
20186
 [[33a]]  Silence  ::= 'SILENT'
20187
 [[34]]  Drop         ::= 'DROP' Silence? GraphRefAll
20188
 [[35]]  Create       ::= 'CREATE' Silence? GraphRef
20189
 [[36]]  Add          ::= 'ADD' Silence? GraphOrDefault 'TO' GraphOrDefault
20190
 [[37]]  Move         ::= 'MOVE' Silence? GraphOrDefault 'TO' GraphOrDefault
20191
 [[38]]  Copy         ::= 'COPY' Silence? GraphOrDefault 'TO' GraphOrDefault
20192
 [[39]]  InsertData   ::=   'INSERT' 'DATA' QuadData
20193
 [[40]]  DeleteData   ::=   'DELETE' 'DATA' QuadData
20194
 [[41]]  DeleteWhere   ::=   'DELETE' 'WHERE' QuadPattern
20195
 [[42]]  Modify   ::=   ( 'WITH' IRIref )? ( ( DeleteClause InsertClause? ) | InsertClause ) UsingClause* 'WHERE' GroupGraphPattern
20196
 [[43]]  DeleteClause   ::=   'DELETE' QuadPattern
20197
 [[44]]  InsertClause   ::=   'INSERT' QuadPattern
20198
 [[45]]  UsingClause   ::=   'USING' ( IRIref | NamedIRIref )
20199
 [[45a]]  NamedIRIref ::= 'NAMED' IRIref
20200
 [[46]]  GraphOrDefault ::= 'DEFAULT' | ('GRAPH'? IRIref)
20201
 [[47]]  GraphRef   ::=   'GRAPH' IRIref
20202
 [[48]]  GraphRefAll   ::=   GraphRef | GraphRefKeyword
20203
 [[48a]]  GraphRefKeyword  ::=  'DEFAULT' | 'NAMED' | 'ALL'
20204
 
20205
 //[[49]]  QuadPattern   ::=   '{' Quads '}'
20206
 //[[50]]  QuadData   ::=   '{' Quads '}'
20207
 // [[51]]  Quads   ::=   TriplesTemplate? RestQuads*
20208
 //[[51a]]  RestQuads ::= QuadsNotTriples '.'? TriplesTemplate?
20209
 //[[52]]  QuadsNotTriples   ::=   'GRAPH' VarOrIRIref '{' TriplesTemplate? '}'
20210
 //[[53]]  TriplesTemplate   ::=   TriplesSameSubject TriplesTemplateRest* '.'?
20211
 //[[53a]] TriplesTemplateRest ::= '.' TriplesSameSubject
20212
 
20213
 [[49]]  QuadPattern   ::=   '{' Quads? '}'
20214
 [[50]]  QuadData   ::=   '{' Quads? '}'
20215
 [[51]]  Quads   ::=   TriplesOrQuads Quads?
20216
 [[51a]] TriplesOrQuads ::= TriplesTemplate | (QuadsNotTriples '.'?)
20217
 [[52]]  QuadsNotTriples   ::=   'GRAPH' VarOrIRIref '{' TriplesTemplate? '}'
20218
 // no hypergraph terms
20219
 // [[52a]] QuadsNotTriples   ::=   'GRAPH' VarOrIRIrefOrTriplesTemplate '{' TriplesTemplate? '}'
20220
 // [[52b]] VarOrIRIrefGroupTemplate ::= Var | IRIref | GroupTemplate
20221
 // [[52c]] GroupTemplate ::= '{' TriplesTemplate? '}'
20222
 [[53]]  TriplesTemplate   ::=   TriplesSameSubject ( '.' TriplesTemplate)? '.'?
20223
 
20224
 
20225
 [[54]] GroupGraphPattern     ::= '{' ( SubSelect | GroupGraphPatternSub ) '}'
20226
 [[55]] GroupGraphPatternSub  ::= TriplesBlock? GroupGraphPatternRest*
20227
 // [[55a]] GroupGraphPatternRest ::= ( GraphPatternNotTriples | Filter | Bind ) '.'? TriplesBlock?
20228
 // AD/AH/1 : 
20229
 [[55a]] GroupGraphPatternRest ::= ( GraphPatternNotTriples | Filter | Bind | FieldClause) '.'? TriplesBlock?
20230
 [[56]] TriplesBlock ::= TriplesSameSubject TriplesBlockRest* '.'?
20231
 [[56a]] TriplesBlockRest ::= '.' TriplesSameSubject
20232
 [[57]] GraphPatternNotTriples ::= OptionalGraphPattern | GroupOrUnionGraphPattern | MinusGraphPattern | GraphGraphPattern |
20233
                                   RevisionGraphPattern | ServiceGraphPattern
20234
 [[58]] OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern
20235
 [[59]] GraphGraphPattern   ::= 'GRAPH' VarOrIRIref GroupGraphPattern
20236
 [[60]] ServiceGraphPattern ::= 'SERVICE' Silence? VarOrIRIref GroupGraphPattern
20237
 [[60a]] RevisionGraphPattern ::= 'REVISION' (VarOrIRIref | String) GroupGraphPattern
20238
 [[61]] Bind                ::= 'BIND' '(' ( ( Lambda 'AS' IRIref ) | ( Expression 'AS' Var ) ) ')'
20239
 // [[61]] Bind                ::= 'BIND' '(' Expression 'AS' Var ')'
20240
 [[61a]] Lambda             ::=   '(' 'LAMBDA' '(' Var* ')' Expression* ')'
20241
 [[62]] MinusGraphPattern   ::=   'MINUS' GroupGraphPattern // 1.1
20242
 [[63]] GroupOrUnionGraphPattern ::= GroupGraphPattern ( 'UNION' GroupGraphPattern )*
20243
 [[64]] Filter ::= 'FILTER' Constraint
20244
 [[65]] Constraint ::= BrackettedExpression | BuiltInCall | FunctionCall
20245
 [[66]] FunctionCall ::= IRIref ArgList
20246
 [[67]] ArgList        ::= NILLIST | ( '(' Expression ( ',' Expression )* ')' )  // will get distinct
20247
 [[68]] ExpressionList ::= NILLIST | ( '(' Expression ( ',' Expression )* ')' )
20248
 // [[69]] ConstructTemplate ::= '{' ConstructTriples? '}'
20249
 // [[70]] ConstructTriples ::= TriplesSameSubject ( '.' ConstructTriples? )?
20250
 [[69]] ConstructTemplate ::= '{' ConstructQuads? '}'
20251
 [[70a]] ConstructTriples ::= TriplesSameSubject ( '.' ConstructTriples? )?
20252
 [[70b]] ConstructQuads   ::= ( ( 'GRAPH' VarOrIRIref '{' ConstructTriples '}' ) | ConstructTriples ) ConstructQuads?
20253
 // [[71]] TriplesSameSubject ::= ( VarOrTerm PropertyListNotEmpty ) | ( TriplesNode PropertyList ) ... replaced for formula
20254
 // with either embedded graph/triple or anotation
20255
 [[71]] TriplesSameSubject ::= ( ( VarOrTermOrGroup PropertyListNotEmpty ) | ( TriplesNode PropertyList ) ) Annotation?
20256
 [[71b]] Annotation ::= '{' VerbObjectList '}'
20257
 [[72]] PropertyListNotEmpty ::= VerbObjectList ( ';' VerbObjectList? )* 
20258
 [[72a]] VerbObjectList ::= Verb ObjectList
20259
 [[73]] PropertyList ::= PropertyListNotEmpty?
20260
 [[74]] ObjectList ::= Object ( ',' Object )*
20261
 [[75]] Object ::= GraphNode
20262
 // property paths, based on an earlier bnf
20263
 [[76]] Verb ::=  VarOrIRIref | Path | 'a' | ConstrainedBlankNode
20264
 [[76a]] ConstrainedBlankNode ::= BlankNode
20265
 // 77 -- 81 are handled by the effect of the change to 76
20266
 // [77]         TriplesSameSubjectPath    ::=   VarOrTerm PropertyListNotEmptyPath |    TriplesNode PropertyListPath
20267
 // [78]         PropertyListNotEmptyPath          ::=   ( VerbPath | VerbSimple ) ObjectList ( ';' ( ( VerbPath | VerbSimple ) ObjectList )? )*
20268
 // [79]         PropertyListPath          ::=   PropertyListNotEmpty?
20269
 // [80]         VerbPath          ::=   Path
20270
 // [81]         VerbSimple        ::=   Var
20271
 [[82]] Path       ::=   PathAlternative
20272
 [[83]] PathAlternative    ::=   PathSequence ( '|' PathSequence )*
20273
 [[84]] PathSequence       ::=   PathEltOrInverse ( '/' PathEltOrInverse )*
20274
 [[85]] PathElt    ::=   PathPrimary PathMod?
20275
 [[86]] PathEltOrInverse   ::=   PathElt | ( '^' InvertedPathElt )
20276
 [[86a]] InvertedPathElt ::= PathElt
20277
 [[87]] PathMod    ::=   PathCardinality | PathRange
20278
 [[87a]] PathCardinality ::= '*' | '?' | '+'
20279
 [[87b]] PathRange ::=  '{' ( ( PathRangeStart ',' ) |
20280
                              ( PathRangeStart ',' PathRangeEnd ) |
20281
                              ( ',' PathRangeEnd ) |
20282
                              PathRangeCount ) '}'
20283
 [[87c]] PathRangeStart ::= INTEGER
20284
 [[87d]] PathRangeEnd ::= INTEGER
20285
 [[87e]] PathRangeCount ::= INTEGER
20286
 [[88]] PathPrimary        ::=    PathVerb | ( '!' PathNegatedPropertySet )  | ( '(' Path ')' )
20287
 [[88a]] PathVerb ::= IRIref | 'a'
20288
 [[89]] PathNegatedPropertySet     ::=   PathOneInPropertySet | ( '(' ( PathOneInPropertySet ( '|' PathOneInPropertySet )* )? ')' )
20289
 [[90]] PathOneInPropertySet       ::=   PathVerb | ( PathInvertOp PathVerb )
20290
 [[90a]] PathInvertOp ::= '^'
20291
 // [91] Integer   ::=   INTEGER
20292
 [[92]] TriplesNode ::= Collection | BlankNodePropertyList
20293
 [[93]] BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'
20294
 [[94]] Collection ::= '(' GraphNode+ ( '.' DottedNode )? ')'
20295
 // [[95]] GraphNode ::= VarOrTerm | TriplesNode ... replaced for formula
20296
 [[95]] GraphNode ::= VarOrTermOrGroup | TriplesNode
20297
 [[95a]] DottedNode ::= GraphNode
20298
 [[96]] VarOrTerm ::= Var | GraphTerm
20299
 [[96a]] VarOrTermOrGroup :: Var | GraphTerm | GroupTemplate
20300
 // embedded graph or triple
20301
 [[96b]] GroupTemplate ::= ( '{' TriplesTemplate? '}' ) | ( '<<' SubjectVarOrTermOrGroup Verb ObjectVarOrTermOrGroup '>>' )
20302
 [[96c]] SubjectVarOrTermOrGroup :: VarOrTermOrGroup
20303
 [[96d]] ObjectVarOrTermOrGroup :: VarOrTermOrGroup
20304
 
20305
 [[97]] VarOrIRIref ::= Var | IRIref
20306
 // [98] Var ::= VAR1 | VAR2
20307
 [[99]] GraphTerm ::= IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST
20308
 [[100]] Expression ::= ConditionalOrExpression
20309
 [[101]] ConditionalOrExpression ::= ConditionalAndExpression ( '||' ConditionalAndExpression )*
20310
 [[102]] ConditionalAndExpression ::= ValueLogical ( '&&' ValueLogical )*
20311
 [[103]] ValueLogical ::= RelationalExpression
20312
 [[104]] RelationalExpression ::= NumericExpression RelatedNumeric ?
20313
 [[104a]] RelationalOperator ::= '=' | '!=' | '<' | '>' | '<=' | '>=' 
20314
 [[104b]] RelatedNumeric ::= (RelationalOperator NumericExpression) | (MemberOperator ExpressionList)
20315
 [[104c]] MemberOperator ::= 'IN' | NotIn
20316
 [[104d]] NotIn ::= 'NOT' 'IN'
20317
 [[105]] NumericExpression ::= AdditiveExpression
20318
 [[106]] AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*
20319
 [[106a]] AdditiveOperator ::= '+' | '-'
20320
 [[106b]] AddedMultiplicative ::= ( AdditiveOperator MultiplicativeExpression ) | NumericLiteralPositive | NumericLiteralNegative
20321
 [[107]] MultiplicativeExpression ::= UnaryExpression MultipliedUnary*
20322
 [[107a]] MultiplicativeOperator ::= '*' | '/'
20323
 [[107b]] MultipliedUnary ::= MultiplicativeOperator UnaryExpression
20324
 [[108]] UnaryExpression ::= ( UnaryOperator PrimaryExpression ) | PrimaryExpression
20325
 [[108a]] UnaryOperator ::= '!' | '+' | '-'
20326
 [[109]] PrimaryExpression ::= BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var  | Aggregate
20327
 [[110]] BrackettedExpression ::= '(' Expression ')'
20328
 [[111]] BuiltInCall ::= BuiltinNullCall | BuiltinNullOrUnaryCall | BuiltinBinaryCall | BuiltinUnaryCall | BuiltinListCall |
20329
          RegexExpression | ReplaceExpression | IfExpression | SubstringExpression | ExistsFunc | NotExistsFunc
20330
 [[111a]] BuiltinNullCall ::= NullOperator '(' ')'
20331
 [[111b]] NullOperator ::= 'RAND' | 'NOW' | 'UUID' | 'STRUUID' | 'THEN'
20332
 [[111c]] BuiltinNullOrUnaryCall ::= NullOrUnaryOperator '(' Expression? ')'
20333
 [[111d]] NullOrUnaryOperator ::= 'BNODE'
20334
 [[111e]] BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'
20335
 [[111f]] BuiltinUnaryOperator ::= 'STR' | 'LANG' | 'DATATYPE' | 'BOUND' | 'IRI' | 'URI' | 'ABS' | 'CEIL' | 'FLOOR' | 'ROUND' |
20336
          'STRLEN' | 'UCASE' | 'LCASE' | 'ENCODE_FOR_URI' | 
20337
          'YEAR' | 'MONTH' | 'DAY' | 'HOURS' | 'MINUTES' | 'SECONDS' | 'TIMEZONE' | 'TZ' |
20338
          'MD5' | 'SHA1' | 'SHA224' | 'SHA256' | 'SHA384' | 'SHA512' |
20339
          'isIRI' | 'isURI' | 'isBlank' | 'isLiteral' | 'isNumeric'
20340
 [[111g]] BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'
20341
 [[111h]] BuiltinBinaryOperator ::= 'LANGMATCHES' | 'CONTAINS' |
20342
          'STRSTARTS' | 'STRENDS' | 'STRBEFORE' | 'STRAFTER' | 'STRLANG' | 'STRDT' |
20343
          'sameTerm'
20344
 [[111i]] IfExpression ::= 'IF' '(' Expression ',' Expression ',' Expression ')'
20345
 [[111j]] BuiltinListCall ::= BuiltinListOperator ExpressionList
20346
 [[111k]] BuiltinListOperator ::= 'CONCAT' | 'COALESCE'
20347
 [[112]] RegexExpression ::= 'REGEX' '(' Expression ',' Expression ( ',' Expression )? ')'
20348
 [[113]] ReplaceExpression ::= 'REPLACE' '(' Expression ',' Expression ',' Expression ( ',' Expression )? ')'
20349
 [[113]] SubstringExpression ::= 'SUBSTR' '(' Expression ',' Expression ( ',' Expression )? ')'
20350
 [[114]] ExistsFunc ::= 'EXISTS' GroupGraphPattern
20351
 [[115]] NotExistsFunc ::= 'NOT' 'EXISTS' GroupGraphPattern
20352
 [[116]]  Aggregate   ::=  CountAggregate | ArithmeticAggregate | ConcatAggregate
20353
 [[116a]]  CountAggregate ::= 'COUNT' '(' Distinctness? ( Wild | Expression ) ')'
20354
 [[116b]]  ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ( ',' Expression )* ')'
20355
 // [[116c]]  ArithmeticAggregateOperator ::= 'MIN' | 'MAX' | 'AVG' | 'SAMPLE' | 'SUM' | 'STD'
20356
 [[116c]]  ArithmeticAggregateOperator ::= ARITHMETIC_AGGREGATE_OPERATOR
20357
 [[116d]]  ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression ( ';' 'SEPARATOR' '=' String )? ')'
20358
 // [[117]] IRIrefOrFunction ::= IRIref ArgList?
20359
 // need a clear indication, that the arglist is present, otherwise it reduces to just the iri
20360
 [[117]] IRIrefOrFunction ::= FunctionCall | IRIref
20361
 // see https://w3c.github.io/rdf-dir-literal/langString.html
20362
 // [[118]] RDFLiteral ::= String ( LANGTAG | ( '^^' IRIref ) | ( LANGTAG ? LANGDIR ? '^^' LSRef ) )?
20363
 // [[118a]] LANGDIR ::= [a-zA-Z]+
20364
 // [[118b]] LSRef ::= IRIRef
20365
 [[118]] RDFLiteral ::= String ( LANGTAG | ( '^^' IRIref ) )?
20366
 [[119]] NumericLiteral ::= NumericLiteralUnsigned | NumericLiteralPositive | NumericLiteralNegative
20367
 [[120]] NumericLiteralUnsigned ::= INTEGER | DECIMAL | DOUBLE
20368
 [[121]] NumericLiteralPositive ::= INTEGER_POSITIVE | DECIMAL_POSITIVE | DOUBLE_POSITIVE
20369
 [[122]] NumericLiteralNegative ::= INTEGER_NEGATIVE | DECIMAL_NEGATIVE | DOUBLE_NEGATIVE
20370
 [[123]] BooleanLiteral ::= 'true' | 'false'
20371
 [[124]] String ::= STRING_LITERAL1 | STRING_LITERAL2 | STRING_LITERAL_LONG1 | STRING_LITERAL_LONG2
20372
 [[125]] IRIref ::= IRI_REF | PrefixedName
20373
 [[126]] PrefixedName ::= PNAME_LN | PNAME_NS
20374
 [[127]] BlankNode ::= ( '_:' BLANK_NODE_LABEL) | ANON
20375
 // various terminals are implemented as syntactic classes based on regular expressions
20376
 // [[128]] IRI_REF ::= '<' ([^<>\"{}|^`\\]-[#x00-#x20])* '>'
20377
 [[128]] IRI_REF ::= '<' IRI_NAMESTRING? '>'
20378
 [[128a]] NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'
20379
 // [[129]] PNAME_NS ::= PN_PREFIX? ':'
20380
 // [[130]] PNAME_LN ::= PNAME_NS PN_LOCAL
20381
 // [[131]] BLANK_NODE_LABEL ::= '_:' PN_LOCAL as of 1.1 the label syntax is its own
20382
 // [[132]] VAR1 ::= '?' VARNAME
20383
 // [[133]] VAR2 ::= '$' VARNAME
20384
 // [[134]] LANGTAG ::= '@' [a-zA-Z]+ ('-' [a-zA-Z0-9]+)*
20385
 // [[135]] INTEGER ::= [0-9]+
20386
 // [[136]] DECIMAL ::= [0-9]+ '.' [0-9]* | '.' [0-9]+
20387
 // [[137]] DOUBLE ::= [0-9]+ '.' [0-9]* EXPONENT | '.' ([0-9])+ EXPONENT | ([0-9])+ EXPONENT
20388
 // [[138]] INTEGER_POSITIVE ::= '+' INTEGER
20389
 // [[139]] DECIMAL_POSITIVE ::= '+' DECIMAL
20390
 // [[140]] DOUBLE_POSITIVE ::= '+' DOUBLE
20391
 // [[141]] INTEGER_NEGATIVE ::= '-' INTEGER
20392
 // [[142]] DECIMAL_NEGATIVE ::= '-' DECIMAL
20393
 // [[143]] DOUBLE_NEGATIVE ::= '-' DOUBLE
20394
 // [[145]] EXPONENT ::= [eE] [+-]? [0-9]+
20395
 // [[146]] STRING_LITERAL1 ::= \"'\" ( ([^#x27#x5C#xA#xD]) | ECHAR )* \"'\"
20396
 // [[147]] STRING_LITERAL2 ::= '\"' ( ([^#x22#x5C#xA#xD]) | ECHAR )* '\"'
20397
 // [[148]] STRING_LITERAL_LONG1 ::= \"'''\" ( ( \"'\" | \"''\" )? ( [^'\\] | ECHAR ) )* \"'''\"
20398
 // [[149]] STRING_LITERAL_LONG2 ::= '\"\"\"' ( ( '\"' | '\"\"' )? ( [^\"\\] | ECHAR ) )* '\"\"\"'
20399
 // [[150]] ECHAR ::= '\\' [tbnrf\\\"']
20400
 [[151]] NILLIST ::= '('  ')'
20401
 // [[151]] WS ::= #x20 | #x9 | #xD | #xA
20402
 [[152]] ANON ::= '['  ']'
20403
 // [[153]] 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]
20404
 // [[154]] PN_CHARS_U ::= PN_CHARS_BASE | '_'
20405
 // [[155]] VARNAME ::= ( PN_CHARS_U | [0-9] ) ( PN_CHARS_U | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040] )*
20406
 // [[156]] PN_CHARS ::= PN_CHARS_U | '-' | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040]
20407
 // [[157]] PN_PREFIX ::= PN_CHARS_BASE ((PN_CHARS|'.')* PN_CHARS)?
20408
 // [[158]] PN_LOCAL ::= ( PN_CHARS_U | [0-9] ) ((PN_CHARS|'.')* PN_CHARS)?
20409
 
20410
 
20411
 "
20412
   (DECLARE (SPECIAL *ATN-REDUCE* ATN-PARSER::*ATN-MODE ATN-PARSER::*ATN-INPUT))
20413
   (WHEN ATN-PARSER::AW-S (|wfst-initialize| ATN-PARSER::ATN-WFST))
20414
   (LET ((*ATN-LEVEL 0)
20415
         (*ATN-WFST ATN-PARSER::ATN-WFST)
20416
         (*ATN-STACK '(|Sparql-Parser|))
20417
         (*ATN-NODE NIL)
20418
         (*ATN-PROPERTIES NIL)
20419
         (*ATN-CLASS NIL)
20420
         (|Sparql-INDEX| -1)
20421
         (|Query-INDEX| -1)
20422
         (|Prologue-INDEX| -1)
20423
         (|BaseDecl-INDEX| -1)
20424
         (|PrefixDecl-INDEX| -1)
20425
         (|Pragma-INDEX| -1)
20426
         (|PragmaArgList-INDEX| -1)
20427
         (|PragmaArg-INDEX| -1)
20428
         (|SelectQuery-INDEX| -1)
20429
         (|SubSelect-INDEX| -1)
20430
         (|SelectClause-INDEX| -1)
20431
         (|DescribeClause-INDEX| -1)
20432
         (|ConstructClause-INDEX| -1)
20433
         (|VariableOrBindingOrAggregate-INDEX| -1)
20434
         (|Dimensions-INDEX| -1)
20435
         (|ConstructQuery-INDEX| -1)
20436
         (|DescribeQuery-INDEX| -1)
20437
         (|AskQuery-INDEX| -1)
20438
         (|DatasetClause-INDEX| -1)
20439
         (|DefaultGraphClause-INDEX| -1)
20440
         (|NamedGraphClause-INDEX| -1)
20441
         (|SourceSelector-INDEX| -1)
20442
         (|WhereClause-INDEX| -1)
20443
         (|SolutionModifier-INDEX| -1)
20444
         (|GroupClause-INDEX| -1)
20445
         (|GroupCondition-INDEX| -1)
20446
         (|VariableOrBindingOrExpression-INDEX| -1)
20447
         (|HavingClause-INDEX| -1)
20448
         (|HavingCondition-INDEX| -1)
20449
         (|OrderClause-INDEX| -1)
20450
         (|OrderCondition-INDEX| -1)
20451
         (|LimitOffsetClauses-INDEX| -1)
20452
         (|LimitClause-INDEX| -1)
20453
         (|OffsetClause-INDEX| -1)
20454
         (|FieldClause-INDEX| -1)
20455
         (|BindingsClause-INDEX| -1)
20456
         (|BindingList-INDEX| -1)
20457
         (|BindingValue-INDEX| -1)
20458
         (|ValuesClause-INDEX| -1)
20459
         (|ValuesData-INDEX| -1)
20460
         (|VarList-INDEX| -1)
20461
         (|Update-INDEX| -1)
20462
         (|Update1-INDEX| -1)
20463
         (|Load-INDEX| -1)
20464
         (|Clear-INDEX| -1)
20465
         (|Drop-INDEX| -1)
20466
         (|Create-INDEX| -1)
20467
         (|Add-INDEX| -1)
20468
         (|Move-INDEX| -1)
20469
         (|Copy-INDEX| -1)
20470
         (|InsertData-INDEX| -1)
20471
         (|DeleteData-INDEX| -1)
20472
         (|DeleteWhere-INDEX| -1)
20473
         (|Modify-INDEX| -1)
20474
         (|DeleteClause-INDEX| -1)
20475
         (|InsertClause-INDEX| -1)
20476
         (|UsingClause-INDEX| -1)
20477
         (|NamedIRIref-INDEX| -1)
20478
         (|GraphOrDefault-INDEX| -1)
20479
         (|GraphRef-INDEX| -1)
20480
         (|GraphRefAll-INDEX| -1)
20481
         (|QuadPattern-INDEX| -1)
20482
         (|QuadData-INDEX| -1)
20483
         (|Quads-INDEX| -1)
20484
         (|TriplesOrQuads-INDEX| -1)
20485
         (|QuadsNotTriples-INDEX| -1)
20486
         (|TriplesTemplate-INDEX| -1)
20487
         (|GroupGraphPattern-INDEX| -1)
20488
         (|GroupGraphPatternSub-INDEX| -1)
20489
         (|GroupGraphPatternRest-INDEX| -1)
20490
         (|TriplesBlock-INDEX| -1)
20491
         (|TriplesBlockRest-INDEX| -1)
20492
         (|GraphPatternNotTriples-INDEX| -1)
20493
         (|OptionalGraphPattern-INDEX| -1)
20494
         (|GraphGraphPattern-INDEX| -1)
20495
         (|ServiceGraphPattern-INDEX| -1)
20496
         (|RevisionGraphPattern-INDEX| -1)
20497
         (|Bind-INDEX| -1)
20498
         (|Lambda-INDEX| -1)
20499
         (|MinusGraphPattern-INDEX| -1)
20500
         (|GroupOrUnionGraphPattern-INDEX| -1)
20501
         (|Filter-INDEX| -1)
20502
         (|Constraint-INDEX| -1)
20503
         (|FunctionCall-INDEX| -1)
20504
         (|ArgList-INDEX| -1)
20505
         (|ExpressionList-INDEX| -1)
20506
         (|ConstructTemplate-INDEX| -1)
20507
         (|ConstructTriples-INDEX| -1)
20508
         (|ConstructQuads-INDEX| -1)
20509
         (|TriplesSameSubject-INDEX| -1)
20510
         (|Annotation-INDEX| -1)
20511
         (|PropertyListNotEmpty-INDEX| -1)
20512
         (|VerbObjectList-INDEX| -1)
20513
         (|PropertyList-INDEX| -1)
20514
         (|ObjectList-INDEX| -1)
20515
         (|Object-INDEX| -1)
20516
         (|Verb-INDEX| -1)
20517
         (|ConstrainedBlankNode-INDEX| -1)
20518
         (|Path-INDEX| -1)
20519
         (|PathAlternative-INDEX| -1)
20520
         (|PathSequence-INDEX| -1)
20521
         (|PathElt-INDEX| -1)
20522
         (|PathEltOrInverse-INDEX| -1)
20523
         (|InvertedPathElt-INDEX| -1)
20524
         (|PathMod-INDEX| -1)
20525
         (|PathRange-INDEX| -1)
20526
         (|PathPrimary-INDEX| -1)
20527
         (|PathVerb-INDEX| -1)
20528
         (|PathNegatedPropertySet-INDEX| -1)
20529
         (|PathOneInPropertySet-INDEX| -1)
20530
         (|TriplesNode-INDEX| -1)
20531
         (|BlankNodePropertyList-INDEX| -1)
20532
         (|Collection-INDEX| -1)
20533
         (|GraphNode-INDEX| -1)
20534
         (|DottedNode-INDEX| -1)
20535
         (|VarOrTerm-INDEX| -1)
20536
         (|VarOrTermOrGroup-INDEX| -1)
20537
         (|GroupTemplate-INDEX| -1)
20538
         (|SubjectVarOrTermOrGroup-INDEX| -1)
20539
         (|ObjectVarOrTermOrGroup-INDEX| -1)
20540
         (|VarOrIRIref-INDEX| -1)
20541
         (|GraphTerm-INDEX| -1)
20542
         (|Expression-INDEX| -1)
20543
         (|ConditionalOrExpression-INDEX| -1)
20544
         (|ConditionalAndExpression-INDEX| -1)
20545
         (|ValueLogical-INDEX| -1)
20546
         (|RelationalExpression-INDEX| -1)
20547
         (|RelatedNumeric-INDEX| -1)
20548
         (|MemberOperator-INDEX| -1)
20549
         (|NotIn-INDEX| -1)
20550
         (|NumericExpression-INDEX| -1)
20551
         (|AdditiveExpression-INDEX| -1)
20552
         (|AddedMultiplicative-INDEX| -1)
20553
         (|MultiplicativeExpression-INDEX| -1)
20554
         (|MultipliedUnary-INDEX| -1)
20555
         (|UnaryExpression-INDEX| -1)
20556
         (|PrimaryExpression-INDEX| -1)
20557
         (|BrackettedExpression-INDEX| -1)
20558
         (|BuiltInCall-INDEX| -1)
20559
         (|BuiltinNullCall-INDEX| -1)
20560
         (|BuiltinNullOrUnaryCall-INDEX| -1)
20561
         (|BuiltinUnaryCall-INDEX| -1)
20562
         (|BuiltinBinaryCall-INDEX| -1)
20563
         (|IfExpression-INDEX| -1)
20564
         (|BuiltinListCall-INDEX| -1)
20565
         (|RegexExpression-INDEX| -1)
20566
         (|ReplaceExpression-INDEX| -1)
20567
         (|SubstringExpression-INDEX| -1)
20568
         (|ExistsFunc-INDEX| -1)
20569
         (|NotExistsFunc-INDEX| -1)
20570
         (|Aggregate-INDEX| -1)
20571
         (|CountAggregate-INDEX| -1)
20572
         (|ArithmeticAggregate-INDEX| -1)
20573
         (|ConcatAggregate-INDEX| -1)
20574
         (|IRIrefOrFunction-INDEX| -1)
20575
         (|RDFLiteral-INDEX| -1)
20576
         (|IRIref-INDEX| -1)
20577
         (|BlankNode-INDEX| -1)
20578
         (IRI_REF-INDEX -1)
20579
         (NAMESPACE_REF-INDEX -1)
20580
         (NILLIST-INDEX -1)
20581
         (ANON-INDEX -1)
20582
         (ATN-PARSER::ATN-NET-NAMES
20583
          '(|Sparql| |Query| |Prologue| |BaseDecl| |PrefixDecl| |Pragma| |PragmaArgList| |PragmaArg| |SelectQuery| |SubSelect|
20584
                     |SelectClause| |DescribeClause| |ConstructClause| |VariableOrBindingOrAggregate| |Dimensions| |ConstructQuery|
20585
                     |DescribeQuery| |AskQuery| |DatasetClause| |DefaultGraphClause| |NamedGraphClause| |SourceSelector|
20586
                     |WhereClause| |SolutionModifier| |GroupClause| |GroupCondition| |VariableOrBindingOrExpression| |HavingClause|
20587
                     |HavingCondition| |OrderClause| |OrderCondition| |LimitOffsetClauses| |LimitClause| |OffsetClause|
20588
                     |FieldClause| |BindingsClause| |BindingList| |BindingValue| |ValuesClause| |ValuesData| |VarList| |Update|
20589
                     |Update1| |Load| |Clear| |Drop| |Create| |Add| |Move| |Copy| |InsertData| |DeleteData| |DeleteWhere| |Modify|
20590
                     |DeleteClause| |InsertClause| |UsingClause| |NamedIRIref| |GraphOrDefault| |GraphRef| |GraphRefAll|
20591
                     |QuadPattern| |QuadData| |Quads| |TriplesOrQuads| |QuadsNotTriples| |TriplesTemplate| |GroupGraphPattern|
20592
                     |GroupGraphPatternSub| |GroupGraphPatternRest| |TriplesBlock| |TriplesBlockRest| |GraphPatternNotTriples|
20593
                     |OptionalGraphPattern| |GraphGraphPattern| |ServiceGraphPattern| |RevisionGraphPattern| |Bind| |Lambda|
20594
                     |MinusGraphPattern| |GroupOrUnionGraphPattern| |Filter| |Constraint| |FunctionCall| |ArgList| |ExpressionList|
20595
                     |ConstructTemplate| |ConstructTriples| |ConstructQuads| |TriplesSameSubject| |Annotation|
20596
                     |PropertyListNotEmpty| |VerbObjectList| |PropertyList| |ObjectList| |Object| |Verb| |ConstrainedBlankNode|
20597
                     |Path| |PathAlternative| |PathSequence| |PathElt| |PathEltOrInverse| |InvertedPathElt| |PathMod| |PathRange|
20598
                     |PathPrimary| |PathVerb| |PathNegatedPropertySet| |PathOneInPropertySet| |TriplesNode| |BlankNodePropertyList|
20599
                     |Collection| |GraphNode| |DottedNode| |VarOrTerm| |VarOrTermOrGroup| |GroupTemplate| |SubjectVarOrTermOrGroup|
20600
                     |ObjectVarOrTermOrGroup| |VarOrIRIref| |GraphTerm| |Expression| |ConditionalOrExpression|
20601
                     |ConditionalAndExpression| |ValueLogical| |RelationalExpression| |RelatedNumeric| |MemberOperator| |NotIn|
20602
                     |NumericExpression| |AdditiveExpression| |AddedMultiplicative| |MultiplicativeExpression| |MultipliedUnary|
20603
                     |UnaryExpression| |PrimaryExpression| |BrackettedExpression| |BuiltInCall| |BuiltinNullCall|
20604
                     |BuiltinNullOrUnaryCall| |BuiltinUnaryCall| |BuiltinBinaryCall| |IfExpression| |BuiltinListCall|
20605
                     |RegexExpression| |ReplaceExpression| |SubstringExpression| |ExistsFunc| |NotExistsFunc| |Aggregate|
20606
                     |CountAggregate| |ArithmeticAggregate| |ConcatAggregate| |IRIrefOrFunction| |RDFLiteral| |IRIref| |BlankNode|
20607
                     IRI_REF NAMESPACE_REF NILLIST ANON)))
20608
     (DECLARE
20609
      (SPECIAL |Sparql-INDEX| |Query-INDEX| |Prologue-INDEX| |BaseDecl-INDEX| |PrefixDecl-INDEX| |Pragma-INDEX|
20610
       |PragmaArgList-INDEX| |PragmaArg-INDEX| |SelectQuery-INDEX| |SubSelect-INDEX| |SelectClause-INDEX| |DescribeClause-INDEX|
20611
       |ConstructClause-INDEX| |VariableOrBindingOrAggregate-INDEX| |Dimensions-INDEX| |ConstructQuery-INDEX| |DescribeQuery-INDEX|
20612
       |AskQuery-INDEX| |DatasetClause-INDEX| |DefaultGraphClause-INDEX| |NamedGraphClause-INDEX| |SourceSelector-INDEX|
20613
       |WhereClause-INDEX| |SolutionModifier-INDEX| |GroupClause-INDEX| |GroupCondition-INDEX| |VariableOrBindingOrExpression-INDEX|
20614
       |HavingClause-INDEX| |HavingCondition-INDEX| |OrderClause-INDEX| |OrderCondition-INDEX| |LimitOffsetClauses-INDEX|
20615
       |LimitClause-INDEX| |OffsetClause-INDEX| |FieldClause-INDEX| |BindingsClause-INDEX| |BindingList-INDEX| |BindingValue-INDEX|
20616
       |ValuesClause-INDEX| |ValuesData-INDEX| |VarList-INDEX| |Update-INDEX| |Update1-INDEX| |Load-INDEX| |Clear-INDEX|
20617
       |Drop-INDEX| |Create-INDEX| |Add-INDEX| |Move-INDEX| |Copy-INDEX| |InsertData-INDEX| |DeleteData-INDEX| |DeleteWhere-INDEX|
20618
       |Modify-INDEX| |DeleteClause-INDEX| |InsertClause-INDEX| |UsingClause-INDEX| |NamedIRIref-INDEX| |GraphOrDefault-INDEX|
20619
       |GraphRef-INDEX| |GraphRefAll-INDEX| |QuadPattern-INDEX| |QuadData-INDEX| |Quads-INDEX| |TriplesOrQuads-INDEX|
20620
       |QuadsNotTriples-INDEX| |TriplesTemplate-INDEX| |GroupGraphPattern-INDEX| |GroupGraphPatternSub-INDEX|
20621
       |GroupGraphPatternRest-INDEX| |TriplesBlock-INDEX| |TriplesBlockRest-INDEX| |GraphPatternNotTriples-INDEX|
20622
       |OptionalGraphPattern-INDEX| |GraphGraphPattern-INDEX| |ServiceGraphPattern-INDEX| |RevisionGraphPattern-INDEX| |Bind-INDEX|
20623
       |Lambda-INDEX| |MinusGraphPattern-INDEX| |GroupOrUnionGraphPattern-INDEX| |Filter-INDEX| |Constraint-INDEX|
20624
       |FunctionCall-INDEX| |ArgList-INDEX| |ExpressionList-INDEX| |ConstructTemplate-INDEX| |ConstructTriples-INDEX|
20625
       |ConstructQuads-INDEX| |TriplesSameSubject-INDEX| |Annotation-INDEX| |PropertyListNotEmpty-INDEX| |VerbObjectList-INDEX|
20626
       |PropertyList-INDEX| |ObjectList-INDEX| |Object-INDEX| |Verb-INDEX| |ConstrainedBlankNode-INDEX| |Path-INDEX|
20627
       |PathAlternative-INDEX| |PathSequence-INDEX| |PathElt-INDEX| |PathEltOrInverse-INDEX| |InvertedPathElt-INDEX| |PathMod-INDEX|
20628
       |PathRange-INDEX| |PathPrimary-INDEX| |PathVerb-INDEX| |PathNegatedPropertySet-INDEX| |PathOneInPropertySet-INDEX|
20629
       |TriplesNode-INDEX| |BlankNodePropertyList-INDEX| |Collection-INDEX| |GraphNode-INDEX| |DottedNode-INDEX| |VarOrTerm-INDEX|
20630
       |VarOrTermOrGroup-INDEX| |GroupTemplate-INDEX| |SubjectVarOrTermOrGroup-INDEX| |ObjectVarOrTermOrGroup-INDEX|
20631
       |VarOrIRIref-INDEX| |GraphTerm-INDEX| |Expression-INDEX| |ConditionalOrExpression-INDEX| |ConditionalAndExpression-INDEX|
20632
       |ValueLogical-INDEX| |RelationalExpression-INDEX| |RelatedNumeric-INDEX| |MemberOperator-INDEX| |NotIn-INDEX|
20633
       |NumericExpression-INDEX| |AdditiveExpression-INDEX| |AddedMultiplicative-INDEX| |MultiplicativeExpression-INDEX|
20634
       |MultipliedUnary-INDEX| |UnaryExpression-INDEX| |PrimaryExpression-INDEX| |BrackettedExpression-INDEX| |BuiltInCall-INDEX|
20635
       |BuiltinNullCall-INDEX| |BuiltinNullOrUnaryCall-INDEX| |BuiltinUnaryCall-INDEX| |BuiltinBinaryCall-INDEX|
20636
       |IfExpression-INDEX| |BuiltinListCall-INDEX| |RegexExpression-INDEX| |ReplaceExpression-INDEX| |SubstringExpression-INDEX|
20637
       |ExistsFunc-INDEX| |NotExistsFunc-INDEX| |Aggregate-INDEX| |CountAggregate-INDEX| |ArithmeticAggregate-INDEX|
20638
       |ConcatAggregate-INDEX| |IRIrefOrFunction-INDEX| |RDFLiteral-INDEX| |IRIref-INDEX| |BlankNode-INDEX| IRI_REF-INDEX
20639
       NAMESPACE_REF-INDEX NILLIST-INDEX ANON-INDEX))
20640
     (UNLESS (FIND ATN-PARSER::*ATN-START-NAME ATN-PARSER::ATN-NET-NAMES)
20641
       (ERROR "production not defined in system: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Sparql-Parser|))
20642
     (UNLESS (FBOUNDP ATN-PARSER::*ATN-START-NAME)
20643
       (ERROR "parse function missing: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Sparql-Parser|))
20644
     (HANDLER-BIND ((CONTINUABLE-PARSER-ERROR #'(LAMBDA (CONDITION) (SIGNAL CONDITION)))
20645
                    (TERMINAL-PARSER-ERROR
20646
                     #'(LAMBDA (CONDITION &AUX (ATN-PARSER::ACTION (CONDITION-ACTION CONDITION)))
20647
                         (ETYPECASE ATN-PARSER::ACTION
20648
                           (NULL)
20649
                           (KEYWORD
20650
                            (ECASE ATN-PARSER::ACTION
20651
                              (:ABORT
20652
                               (WHEN *ATN-TRACE*
20653
                                 (WARN "terminating parse on condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))
20654
                               (RETURN-FROM |Sparql-Parser| (VALUES NIL CONDITION NIL)))
20655
                              (:CONTINUE
20656
                               (WHEN *ATN-TRACE*
20657
                                 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))
20658
                               (CONTINUE CONDITION))
20659
                              (:SIGNAL
20660
                               (WHEN *ATN-TRACE*
20661
                                 (WARN "signaling parse condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))
20662
                               (SIGNAL CONDITION)
20663
                               (WHEN *ATN-TRACE*
20664
                                 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))
20665
                               (CONTINUE CONDITION))))
20666
                           (FUNCTION (FUNCALL ATN-PARSER::ACTION)))))
20667
                    (ERROR #'(LAMBDA (CONDITION) (WHEN *ATN-TRACE* (WARN "parse raised condition: ~a." CONDITION)) NIL)))
20668
       (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)
20669
           (ATN-PARSE-SUBSTRUCTURE* ATN-PARSER::*ATN-START-NAME 0)
20670
         (COND
20671
          (ATN-PARSER::SUCCESS
20672
           (RETURN-FROM |Sparql-Parser|
20673
             (PROGN
20674
              (WHEN (CDR ATN-PARSER::RESULT)
20675
                (WHEN *ATN-TRACE* (WARN "ambiguous results for term: ~s." ATN-PARSER::*ATN-START-NAME))
20676
                (SETF ATN-PARSER::RESULT (SORT ATN-PARSER::RESULT #'> :KEY #'REST)))
20677
              (DESTRUCTURING-BIND
20678
                  (ATN-PARSER::RESULT . ATN-PARSER::INDEX)
20679
                  (FIRST ATN-PARSER::RESULT)
20680
                (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX (INPUT-EOF? ATN-PARSER::INDEX))))))
20681
          (T (RETURN-FROM |Sparql-Parser| (VALUES NIL (REDUCE #'MAX ATN-PARSER::RESULT :KEY #'REST :INITIAL-VALUE 0) NIL))))))))