env-module.fas 25 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 101 (DECLAIM (FTYPE # UPDATE-HANDLER))-1|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 19 01)
   ((|COMMON-LISP|::|FTYPE|
     (|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|T| |COMMON-LISP|::|T|)
      |COMMON-LISP|::|T|)
     |COMMON-LISP-USER|::|UPDATE-HANDLER|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|104 109 (DEFSTRUCT (ENVIRONMENT-MODULE #) ESC ...)-2|
   #744Y(00 00 00 00 00 00 00 00 20 01 00 2B 01 DA DB DC 38 01 72 9E 2F 03 5D
         0B 00 00 DA 2F 04 DA DF 32 A3 DA 68 01 00 E0 63 E1 E2 6B 09 E4 E5 E6
         E7 E8 64 E9 EA EB 01 02 6F 12 70 13 EE EF F0 F1 F2 63 6E 11 19 6B 09
         E4 F4 E6 F5 E8 64 E9 EA EB 01 02 6F 12 70 13 EE F6 F0 F7 F2 63 6E 11
         19 6B 09 E4 65 1E E6 65 1F E8 64 E9 EA EB 01 02 6F 12 70 13 EE 65 20
         F0 65 21 F2 63 6E 11 19 6B 09 E4 65 22 E6 65 23 E8 64 E9 EA EB 01 02
         6F 12 70 13 EE 65 24 F0 65 25 F2 63 6E 11 19 6B 09 E4 65 26 E6 65 27
         E8 64 E9 EA EB 01 02 6F 12 70 13 EE 65 28 F0 65 29 F2 63 6E 11 19 7B
         05 6B 2A E4 E5 E6 E7 E8 64 E9 EA EB 01 02 6F 12 70 13 EE 65 2B 65 2C
         65 2D 65 2E 65 2F 6E 11 30 6B 2A E4 F4 E6 F5 E8 64 E9 EA EB 01 02 6F
         12 70 13 EE 65 31 65 2C 65 32 65 2E 65 33 6E 11 30 6B 2A E4 65 1E E6
         65 1F E8 64 E9 EA EB 01 02 6F 12 70 13 EE 65 34 65 2C 65 35 65 2E 65
         36 6E 11 30 6B 2A E4 65 22 E6 65 23 E8 64 E9 EA EB 01 02 6F 12 70 13
         EE 65 37 65 2C 65 38 65 2E 65 39 6E 11 30 6B 2A E4 65 26 E6 65 27 E8
         64 E9 EA EB 01 02 6F 12 70 13 EE 65 3A 65 2C 65 3B 65 2E 65 3C 6E 11
         30 7B 05 2D 08 3D E0 2F 3E E0 AD 6D 3F 01 32 9C 16 01 65 40 31 62 E2
         2F 3E E2 65 41 65 42 32 A2 E2 65 43 32 9C 65 44 31 62 E1 2F 3E E1 65
         41 65 45 32 A2 E1 65 46 32 9C 65 47 31 62 65 48 31 62 65 49 2F 3E 65
         49 65 41 65 4A 32 A2 65 49 65 4B 32 9C 65 49 65 4C DA 32 A2 65 4D 31
         62 65 4E 31 62 65 4F 2F 3E 65 4F 65 41 65 50 32 A2 65 4F 65 51 32 9C
         65 4F 65 4C DA 32 A2 65 52 31 62 65 53 31 62 65 54 2F 3E 65 54 65 41
         65 55 32 A2 65 54 65 56 32 9C 65 54 65 4C DA 32 A2 65 57 31 62 65 58
         31 62 65 59 2F 3E 65 59 65 41 65 5A 32 A2 65 59 65 5B 32 9C 65 59 65
         4C DA 32 A2 65 5C 31 62 65 5D 31 62 65 5E 2F 3E 65 5E 65 41 65 5F 32
         A2 65 5E 65 60 32 9C 65 5E 65 4C DA 32 A2 65 61 31 62 65 62 31 62 65
         63 2F 3E 65 63 65 41 65 64 32 A2 65 63 65 65 32 9C 65 49 65 66 DA 32
         A2 65 67 31 62 65 68 31 62 65 69 2F 3E 65 69 65 41 65 6A 32 A2 65 69
         65 6B 32 9C 65 4F 65 66 DA 32 A2 65 6C 31 62 65 6D 31 62 65 6E 2F 3E
         65 6E 65 41 65 6F 32 A2 65 6E 65 70 32 9C 65 54 65 66 DA 32 A2 65 71
         31 62 65 72 31 62 65 73 2F 3E 65 73 65 41 65 74 32 A2 65 73 65 75 32
         9C 65 59 65 66 DA 32 A2 65 76 31 62 65 77 31 62 65 78 2F 3E 65 78 65
         41 65 79 32 A2 65 78 65 7A 32 9C 65 5E 65 66 DA 32 A2 DA 65 7B 63 2D
         03 7C DA 2F 7D C5 19 01)
   (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| |COMMON-LISP|::|STRUCTURE-OBJECT|
    |CLOS|::|CLOSCLASS| |CLOS|::|CLASS-NAMES|
    |SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES|
    |SYSTEM|::|DEFSTRUCT-DESCRIPTION|
    |COMMON-LISP-USER|::|MAKE-ENVIRONMENT-MODULE|
    |COMMON-LISP-USER|::|COPY-ENVIRONMENT-MODULE|
    |COMMON-LISP-USER|::|ENVIRONMENT-MODULE-P|
    |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
    |COMMON-LISP-USER|::|ESC| :|INITARGS| (:|ESC|) :|TYPE| :|ALLOCATION|
    :|INSTANCE| |CLOS|::|INHERITABLE-INITER|
    |SYSTEM|::|MAKE-CONSTANT-INITFUNCTION|
    |CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| |CLOS|::|INHERITABLE-DOC|
    (|COMMON-LISP|::|NIL|) |CLOS|::|LOCATION| 1. |CLOS|::|READONLY|
    |CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
    |COMMON-LISP-USER|::|MODEL-NAME| (:|MODEL-NAME|) (|COMMON-LISP|::|NIL|) 2.
    |COMMON-LISP-USER|::|CONFLICT-SET| (:|CONFLICT-SET|) (|COMMON-LISP|::|NIL|)
    3. |COMMON-LISP-USER|::|LAST-DM-REQUEST| (:|LAST-DM-REQUEST|)
    (|COMMON-LISP|::|NIL|) 4. |COMMON-LISP-USER|::|LAST-DM-SET|
    (:|LAST-DM-SET|) (|COMMON-LISP|::|NIL|) 5.
    |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| (|COMMON-LISP|::|NIL|)
    :|READERS| (|COMMON-LISP-USER|::|ENV-MOD-ESC|) :|WRITERS|
    ((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-ESC|))
    |CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
    (|COMMON-LISP|::|NIL|) (|COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|)
    ((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|))
    (|COMMON-LISP|::|NIL|) (|COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|)
    ((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|))
    (|COMMON-LISP|::|NIL|) (|COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|)
    ((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|))
    (|COMMON-LISP|::|NIL|) (|COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|)
    ((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|))
    |CLOS|::|DEFINE-STRUCTURE-CLASS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MAKE-ENVIRONMENT-MODULE|
       #63Y(00 00 00 00 00 00 00 00 A6 1B 05 00 01 00 3D 05 3D 04 3D 03 3D 02
            3D 01 69 00 01 E0 72 45 E1 AD E2 B5 32 44 E1 AD E3 B4 32 44 E1 AD
            E4 B3 32 44 E1 AD E5 B2 32 44 E1 AD E6 B1 32 44 15 19 06)
       (|COMMON-LISP|::|NIL| :|ESC| :|MODEL-NAME| :|CONFLICT-SET|
        :|LAST-DM-REQUEST| :|LAST-DM-SET| 6.
        |COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 1. 2. 3. 4. 5.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|&KEY| (#:|ESC| |COMMON-LISP|::|NIL|)
        (#:|MODEL-NAME| |COMMON-LISP|::|NIL|)
        (#:|CONFLICT-SET| |COMMON-LISP|::|NIL|)
        (#:|LAST-DM-REQUEST| |COMMON-LISP|::|NIL|)
        (#:|LAST-DM-SET| |COMMON-LISP|::|NIL|))
       |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|ENVIRONMENT-MODULE-P|)
    |SYSTEM|::|INLINE-EXPANSION|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|ENVIRONMENT-MODULE-P|))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENVIRONMENT-MODULE-P|
      (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
       |SYSTEM|::|OBJECT|)))
    #Y(|COMMON-LISP-USER|::|ENVIRONMENT-MODULE-P|
       #16Y(00 00 00 00 01 00 00 00 20 02 DA AE 32 47 19 02)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-ENVIRONMENT-MODULE|)
    ((|COMMON-LISP|::|STRUCTURE|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|COPY-ENVIRONMENT-MODULE|))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|COPY-ENVIRONMENT-MODULE|
      (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|)))
    #Y(|COMMON-LISP-USER|::|COPY-ENVIRONMENT-MODULE|
       #15Y(00 00 00 00 01 00 00 00 26 02 AD 32 46 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|COMMON-LISP|::|STRUCTURE|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|ENV-MOD-ESC|
     (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|ENV-MOD-ESC|)
    |COMMON-LISP-USER|::|ENV-MOD-ESC|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|ENV-MOD-ESC|))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-ESC|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
        |SYSTEM|::|OBJECT| 1.))))
    #Y(|COMMON-LISP-USER|::|ENV-MOD-ESC|
       #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    |SYSTEM|::|DEFSTRUCT-READER|
    (|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|
     (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|)
    |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
        |SYSTEM|::|OBJECT| 2.))))
    #Y(|COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|
       #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|
     (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|)
    |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
        |SYSTEM|::|OBJECT| 3.))))
    #Y(|COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|
       #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 3.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|
     (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|)
    |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
        |SYSTEM|::|OBJECT| 4.))))
    #Y(|COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|
       #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 4.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|
     (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|)
    |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
        |SYSTEM|::|OBJECT| 5.))))
    #Y(|COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|
       #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 5.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|FUNCTION|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-ESC|)
     (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|ENVIRONMENT-MODULE|)
     |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-ESC|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|COMMON-LISP-USER|::|ENV-MOD-ESC|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN|
       #1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-ESC|)))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-ESC|
      (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
       |SYSTEM|::|OBJECT| 1. |SYSTEM|::|VALUE|)))
    #Y(#1# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    |SYSTEM|::|DEFSTRUCT-WRITER|
    (|COMMON-LISP|::|FUNCTION|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|)
     (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|ENVIRONMENT-MODULE|)
     |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN|
       #2=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|)))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-MODEL-NAME|
      (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
       |SYSTEM|::|OBJECT| 2. |SYSTEM|::|VALUE|)))
    #Y(#2# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    (|COMMON-LISP|::|FUNCTION|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|)
     (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|ENVIRONMENT-MODULE|)
     |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN|
       #3=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|)))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-CONFLICT-SET|
      (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
       |SYSTEM|::|OBJECT| 3. |SYSTEM|::|VALUE|)))
    #Y(#3# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 3.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    (|COMMON-LISP|::|FUNCTION|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|)
     (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|ENVIRONMENT-MODULE|)
     |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL|
       '|COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN|
       #4=(|COMMON-LISP|::|SETF|
           |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|)))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-REQUEST|
      (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
       |SYSTEM|::|OBJECT| 4. |SYSTEM|::|VALUE|)))
    #Y(#4# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 4.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    (|COMMON-LISP|::|FUNCTION|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|)
     (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|ENVIRONMENT-MODULE|)
     |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE|
     (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN|
       #5=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|)))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|ENV-MOD-LAST-DM-SET|
      (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
       |SYSTEM|::|OBJECT| 5. |SYSTEM|::|VALUE|)))
    #Y(#5# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 5.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    |COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|
    |CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|111 119 (DEFUN CREATE-ENVIRONMENT-MODULE (MODEL-NAME) ...)-3|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|CREATE-ENVIRONMENT-MODULE|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|CREATE-ENVIRONMENT-MODULE|
       #53Y(00 00 00 00 01 00 00 00 26 02 2E 00 14 72 62 DB 91 01 32 07 6B 02
            DD DE 2D 03 05 E0 AE 70 07 6B 08 E3 AD E4 32 43 16 01 1D 08 2E 0B
            2E 0C E7 AF 30 0E 15 19 02)
       (|COMMON-LISP-USER|::|META-PROCESS-NAMES| 1.
        |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|CREATE-ENVIRONMENT-MODULE-1|
           #35Y(00 00 00 00 02 00 00 00 21 18 AF 31 98 DA B0 38 02 31 95 AF AF
                AF 2D 03 01 F9 DC B0 38 02 31 95 9E 19 04)
           ("#|Warning: " |SYSTEM|::|DO-FORMAT-INDIRECTION| " |#\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        "Environment will not work correctly when there are multiple meta-processes!"
        |COMMON-LISP|::|FORMAT| :|MODEL-NAME|
        |COMMON-LISP-USER|::|MAKE-ENVIRONMENT-MODULE|
        |COMMON-LISP-USER|::|*ENVIRONMENT-CONTROL*|
        |COMMON-LISP-USER|::|ENVIRONMENT-CONTROL| 3.
        |COMMON-LISP-USER|::|ADD-PRE-HOOK-IF-NEEDED|
        |COMMON-LISP-USER|::|ADD-POST-HOOK-IF-NEEDED|
        |COMMON-LISP-USER|::|CREATE|
        |COMMON-LISP-USER|::|CALL-ALL-ENVIRONMENT-HOOKS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|MODEL-NAME|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|122 137 (DEFUN RESET-ENVIRONMENT-MODULE (ENV-MOD) ...)-4|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|RESET-ENVIRONMENT-MODULE|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|RESET-ENVIRONMENT-MODULE|
       #53Y(00 00 00 00 01 00 00 00 26 02 DA AE DB 63 32 44 DA AE DC 63 32 44
            DA AE DD 63 32 44 6B 04 DF AD DB 32 43 16 01 1F 0C 2E 06 2E 07 E2
            2F 09 E4 2F 0B 19 02 19 02)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 3. 4. 5.
        |COMMON-LISP-USER|::|*ENVIRONMENT-CONTROL*|
        |COMMON-LISP-USER|::|ENVIRONMENT-CONTROL|
        |COMMON-LISP-USER|::|ADD-PRE-HOOK-IF-NEEDED|
        |COMMON-LISP-USER|::|ADD-POST-HOOK-IF-NEEDED|
        (:|CONFLICT-SET-HOOK| |COMMON-LISP-USER|::|ENV-CS-HOOK|
         :|RETRIEVAL-REQUEST-HOOK| |COMMON-LISP-USER|::|ENV-RR-HOOK|
         :|RETRIEVAL-SET-HOOK| |COMMON-LISP-USER|::|ENV-RS-HOOK|)
        |COMMON-LISP-USER|::|SGP-FCT| |COMMON-LISP-USER|::|RESET|
        |COMMON-LISP-USER|::|CALL-ALL-ENVIRONMENT-HOOKS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|ENV-MOD|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|140 149 (DEFUN ENV-CS-HOOK (CS) ...)-5|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|ENV-CS-HOOK| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|ENV-CS-HOOK|
       #50Y(00 00 00 00 01 00 00 00 26 02 DA 6F 01 9D 1F 20 6B 02 DD AD DE 32
            43 16 01 1F 15 AE 71 AB DF AE DE AF 32 44 16 01 E0 AF 30 07 E2 AF
            30 09 19 03 19 03)
       (:|ENVIRONMENT| |COMMON-LISP-USER|::|GET-MODULE-FCT|
        |COMMON-LISP-USER|::|*ENVIRONMENT-CONTROL*|
        |COMMON-LISP-USER|::|ENVIRONMENT-CONTROL| 3.
        |COMMON-LISP-USER|::|ENVIRONMENT-MODULE|
        |COMMON-LISP-USER|::|CONFLICT-NIL|
        |COMMON-LISP-USER|::|CALL-MODEL-ENVIRONMENT-HOOKS|
        |COMMON-LISP-USER|::|CONFLICT|
        |COMMON-LISP-USER|::|CALL-MODEL-ENVIRONMENT-HOOKS-WITH-RETURN|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|CS|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|152 155 (DEFUN ENV-RR-HOOK (REQUEST) ...)-6|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|ENV-RR-HOOK| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|ENV-RR-HOOK|
       #24Y(00 00 00 00 01 00 00 00 26 02 DA 6F 01 DC AD DD B1 32 44 16 01 00
            19 02)
       (:|ENVIRONMENT| |COMMON-LISP-USER|::|GET-MODULE-FCT|
        |COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 4.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|REQUEST|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|157 161 (DEFUN ENV-RS-HOOK (RET-SET) ...)-7|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|ENV-RS-HOOK| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|ENV-RS-HOOK|
       #43Y(00 00 00 00 01 00 00 00 26 02 DA 6F 01 93 00 16 6B 02 DD AD DE 32
            43 16 01 1D 0B AE 71 AB DF AE E0 AF 32 44 16 01 16 01 00 19 02)
       (:|ENVIRONMENT| |COMMON-LISP-USER|::|GET-MODULE-FCT|
        |COMMON-LISP-USER|::|*ENVIRONMENT-CONTROL*|
        |COMMON-LISP-USER|::|ENVIRONMENT-CONTROL| 3.
        |COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 5.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|RET-SET|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|164 168 (DEFUN DELETE-ENVIRONMENT-MODULE (ENV-MOD) ...)-8|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|DELETE-ENVIRONMENT-MODULE|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|DELETE-ENVIRONMENT-MODULE|
       #20Y(00 00 00 00 01 00 00 00 26 02 2E 00 2E 01 DC 63 30 03 19 02)
       (|COMMON-LISP-USER|::|DELETE-PRE-HOOK-IF-NECESSARY|
        |COMMON-LISP-USER|::|DELETE-POST-HOOK-IF-NECESSARY|
        |COMMON-LISP|::|DELETE|
        |COMMON-LISP-USER|::|CALL-MODEL-ENVIRONMENT-HOOKS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|ENV-MOD|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|171 173 (DEFUN ENVIRONMENT-PARAMS (ENV-MOD PARAM) ...)-9|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|ENVIRONMENT-PARAMS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|ENVIRONMENT-PARAMS|
       #25Y(00 00 00 00 02 00 00 00 26 03 9F 1F 0A 95 01 DA B0 DB AF 32 44 19
            04 19 03)
       (|COMMON-LISP-USER|::|ENVIRONMENT-MODULE| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|ENV-MOD| |COMMON-LISP-USER|::|PARAM|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|175 178 (DEFUN UPDATE-ENVIRONMENT-RUN-START-HOOKS (ENV-MOD) ...)-10|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|UPDATE-ENVIRONMENT-RUN-START-HOOKS|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|UPDATE-ENVIRONMENT-RUN-START-HOOKS|
       #29Y(00 00 00 00 01 00 00 00 26 02 6B 00 DB AD DC 32 43 16 01 1F 06 DD
            DE 30 05 19 02 19 02)
       (|COMMON-LISP-USER|::|*ENVIRONMENT-CONTROL*|
        |COMMON-LISP-USER|::|ENVIRONMENT-CONTROL| 3.
        |COMMON-LISP-USER|::|RUN-START| :|START|
        |COMMON-LISP-USER|::|CALL-MODEL-ENVIRONMENT-HOOKS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|ENV-MOD|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|180 183 (DEFUN UPDATE-ENVIRONMENT-RUN-END-HOOKS (ENV-MOD) ...)-11|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|UPDATE-ENVIRONMENT-RUN-END-HOOKS|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|UPDATE-ENVIRONMENT-RUN-END-HOOKS|
       #29Y(00 00 00 00 01 00 00 00 26 02 6B 00 DB AD DC 32 43 16 01 1F 06 DD
            DE 30 05 19 02 19 02)
       (|COMMON-LISP-USER|::|*ENVIRONMENT-CONTROL*|
        |COMMON-LISP-USER|::|ENVIRONMENT-CONTROL| 3.
        |COMMON-LISP-USER|::|RUN-END| :|END|
        |COMMON-LISP-USER|::|CALL-MODEL-ENVIRONMENT-HOOKS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|ENV-MOD|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|186 196 (DEFINE-MODULE-FCT :ENVIRONMENT NIL ...)-12|
   #41Y(00 00 00 00 00 00 00 00 20 01 DA 63 DB DC 63 6E 03 03 7B 01 DE DF E0 E1
        E2 E3 E4 E5 E6 E7 E8 E9 EA EB EC ED 2D 13 14 19 01)
   (:|ENVIRONMENT| :|ESC| :|OWNER| |COMMON-LISP-USER|::|DEFINE-PARAMETER|
    :|PARAMS| |COMMON-LISP-USER|::|ENVIRONMENT-PARAMS| :|CREATION|
    |COMMON-LISP-USER|::|CREATE-ENVIRONMENT-MODULE| :|RESET|
    (|COMMON-LISP|::|NIL| |COMMON-LISP-USER|::|RESET-ENVIRONMENT-MODULE|)
    :|VERSION| "3.0" :|RUN-START|
    |COMMON-LISP-USER|::|UPDATE-ENVIRONMENT-RUN-START-HOOKS| :|RUN-END|
    |COMMON-LISP-USER|::|UPDATE-ENVIRONMENT-RUN-END-HOOKS| :|DOCUMENTATION|
    "A module to handle the environment connection if opened" :|DELETE|
    |COMMON-LISP-USER|::|DELETE-ENVIRONMENT-MODULE|
    |COMMON-LISP-USER|::|DEFINE-MODULE-FCT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))