meta-process.fas 34.9 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 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 172 (DECLAIM (FTYPE # FORMAT-EVENT))-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-USER|::|FORMAT-EVENT|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|173 173 (DECLAIM (FTYPE # GLOBAL-MODULES-TABLE))-2|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 19 01)
   ((|COMMON-LISP|::|FTYPE|
     (|COMMON-LISP|::|FUNCTION| |COMMON-LISP|::|NIL| |COMMON-LISP|::|T|)
     |COMMON-LISP-USER|::|GLOBAL-MODULES-TABLE|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|174 174 (DECLAIM (FTYPE # MAX-MODULE-NAME-LENGTH))-3|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 19 01)
   ((|COMMON-LISP|::|FTYPE|
     (|COMMON-LISP|::|FUNCTION| |COMMON-LISP|::|NIL| |COMMON-LISP|::|T|)
     |COMMON-LISP-USER|::|MAX-MODULE-NAME-LENGTH|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|175 175 (DECLAIM (FTYPE # DELETE-MODEL-FCT))-4|
   #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-USER|::|DELETE-MODEL-FCT|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|177 183 (DEFVAR *META-PROCESSES* (MAKE-META-PROCESSES) ...)-5|
   #32Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 06 DB 2E 02 14 31 5A DB
        DD DE 2D 03 05 C6 19 01)
   ((|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|*META-PROCESSES*|)
    |COMMON-LISP-USER|::|*META-PROCESSES*|
    |COMMON-LISP-USER|::|MAKE-META-PROCESSES| |COMMON-LISP|::|VARIABLE|
    "The table of all defined meta-processes" |SYSTEM|::|%SET-DOCUMENTATION|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|185 186 (DEFMACRO CURRENT-MP NIL ...)-6|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 63 72 4C 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|CURRENT-MP| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|CURRENT-MP|
       #27Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 03 C8 19 03
            AE 2F 02 19 03)
       (1. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        (|COMMON-LISP-USER|::|MPS-CURRENT|
         |COMMON-LISP-USER|::|*META-PROCESSES*|))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|188 189 (DEFUN CURRENT-MP-FCT NIL ...)-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|::|CURRENT-MP-FCT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|CURRENT-MP-FCT|
       #19Y(00 00 00 00 00 00 00 00 26 01 6B 00 DB AD DC 32 43 19 02)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|191 192 (DEFUN GET-MP (MP-NAME) ...)-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|::|GET-MP| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|GET-MP|
       #25Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 DB AD DC 81 43 00 38 01 31
            6E 19 02)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|COMMON-LISP-USER|::|MP-NAME|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|194 213 (DEFUN RESET-MP (META-PROCESS) ...)-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|::|RESET-MP| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|RESET-MP|
       #96Y(00 00 00 00 01 00 00 00 26 02 DA AE DB DC 32 44 DA AE DD 63 32 44
            DA AE DE 63 32 44 DA AE DF 63 32 44 DA AE E0 63 32 44 DA AE E1 63
            32 44 DA AE E2 63 32 44 DA AE E3 63 32 44 DA AE E4 63 32 44 DA AE
            E5 63 32 44 DA AE E6 E7 32 44 DA AE E8 E9 32 44 DA AE EA EB 32 44
            DA AE EC 63 32 44 19 02)
       (|COMMON-LISP-USER|::|META-PROCESS| 2. 0. 3. 4. 9. 10. 11. 13. 25. 26.
        12. 17. |COMMON-LISP|::|GET-INTERNAL-REAL-TIME| 18.
        #.|COMMON-LISP|::|INTERNAL-TIME-UNITS-PER-SECOND| 19.
        |COMMON-LISP-USER|::|REAL-TIME-SLACK| 20.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|META-PROCESS|)
       "Set a meta-process to time 0 and clear the events" 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|216 217 (DEFUN MP-TIME-ACCURACY-LIMIT NIL ...)-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|::|MP-TIME-ACCURACY-LIMIT|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-TIME-ACCURACY-LIMIT|
       #16Y(00 00 00 00 00 00 00 00 26 01 6B 00 2F 01 19 01)
       (|COMMON-LISP-USER|::|*TIME-SIZE-CURRENT-LIMIT*|
        |COMMON-LISP-USER|::|MS->SECONDS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|219 225 (DEFUN MP-TIME-CHANGE-NEEDED (MAX-TIME) ...)-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|::|MP-TIME-CHANGE-NEEDED|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-TIME-CHANGE-NEEDED|
       #50Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 91 01 32 1B AD 6B 01 38 06
            C7 FA C8 F9 72 77 92 00 07 64 00 14 40 02 19 03 64 9E 5C 5B 1B 75
            01 02 40 02 19 02)
       (|COMMON-LISP-USER|::|*TIME-SIZE-CURRENT-LIMIT*|
        |COMMON-LISP-USER|::|*TIME-SIZE-TEST-LIST*| |COMMON-LISP|::|CAR|
        #Y(|COMMON-LISP-USER|::|MP-TIME-CHANGE-NEEDED-1|
           #20Y(00 00 00 00 02 00 00 00 26 03 AE DA AF 72 B5 33 01 33 19 03)
           (2.) (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
           (|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|)
           |COMMON-LISP|::|NIL| 1))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|MAX-TIME|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|228 231 (DEFMACRO VERIFY-CURRENT-MP (WARNING &BODY BODY) ...)-12|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|VERIFY-CURRENT-MP| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|VERIFY-CURRENT-MP|
       #43Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 13 9F 5C 78
            A0 5C 79 DD DE DF B0 7B 02 E0 A1 7A 61 04 19 05 AE 2F 02 19 03)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|IF|
        (|COMMON-LISP|::|NULL|
         (|COMMON-LISP-USER|::|MPS-CURRENT|
          |COMMON-LISP-USER|::|*META-PROCESSES*|))
        |COMMON-LISP-USER|::|PRINT-WARNING| |COMMON-LISP|::|PROGN|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|WARNING| |COMMON-LISP|::|&BODY|
     |COMMON-LISP-USER|::|BODY|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|233 237 (DEFUN MP-TIME NIL ...)-13|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|MP-TIME| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-TIME|
       #48Y(00 00 00 00 00 00 00 00 26 01 6B 00 DB AD DC 32 43 16 01 1D 12 6B
            00 DB AD DC 81 43 00 E1 AD E2 81 43 00 2F 09 19 01 6B 03 DE DF 2D
            03 06 19 01)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3. |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|MP-TIME-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|))
        "mp-time called with no current meta-process." |COMMON-LISP|::|FORMAT|
        |COMMON-LISP-USER|::|META-PROCESS| 2.
        |COMMON-LISP-USER|::|MS->SECONDS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       "returns the current time of the current meta-process in seconds" 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|239 243 (DEFUN MP-TIME-MS NIL ...)-14|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|MP-TIME-MS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-TIME-MS|
       #45Y(00 00 00 00 00 00 00 00 26 01 6B 00 DB AD DC 32 43 16 01 1D 0F 6B
            00 DB AD DC 81 43 00 E1 AD E2 32 43 19 02 6B 03 DE DF 2D 03 06 19
            01)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3. |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|MP-TIME-MS-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|))
        "mp-time-ms called with no current meta-process."
        |COMMON-LISP|::|FORMAT| |COMMON-LISP-USER|::|META-PROCESS| 2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       "returns the current time of the current meta-process in milliseconds"
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|245 267 (DEFUN MP-REAL-TIME-MANAGEMENT (&KEY # # ...) ...)-15|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|MP-REAL-TIME-MANAGEMENT|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-REAL-TIME-MANAGEMENT|
       #205Y(00 00 00 00 00 00 00 00 A6 1B 05 00 00 00 3B 05 02 CA FD 3B 04 02
             CB FC 3B 03 02 CC FB 3D 02 3D 01 6B 08 E3 AD E4 32 43 16 01 1D 21
             93 05 27 14 89 0F 23 B0 89 12 26 93 03 2A 14 89 0F 26 AE 88 17 2F
             6B 0B F2 F3 A2 14 2D 04 0E 19 06 6B 0B E6 E7 2D 03 0E 19 06 6B 0B
             EA EB A5 1B 6A 6B 0B ED EE A4 1B 63 6B 0B EF F0 A3 1B 5C AF 2F 1F
             1B 80 4F 6B 08 E3 AD E4 81 43 00 F4 AD F5 B1 32 44 16 01 6B 08 E3
             AD E4 81 43 00 F4 AD F6 B5 32 44 16 01 6B 08 E3 AD E4 81 43 00 F4
             AD F7 B4 32 44 16 01 6B 08 E3 AD E4 81 43 00 F4 AD 65 1E B3 32 44
             16 01 6B 08 E3 AD E4 81 43 00 AF 8E 1A FF AC A0 14 F4 AE 65 20 AF
             32 44 16 02 02 19 06)
       (:|TIME-FUNCTION| :|UNITS-PER-SECOND| :|SLACK-FUNCTION|
        :|MAX-TIME-DELTA| :|ALLOW-DYNAMICS|
        |COMMON-LISP|::|GET-INTERNAL-REAL-TIME|
        #.|COMMON-LISP|::|INTERNAL-TIME-UNITS-PER-SECOND|
        |COMMON-LISP-USER|::|REAL-TIME-SLACK|
        |COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3. |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|MP-REAL-TIME-MANAGEMENT-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|))
        "mp-real-time-management called with no current meta-process."
        |COMMON-LISP|::|FORMAT| |COMMON-LISP-USER|::|FCTORNIL|
        #Y(|COMMON-LISP-USER|::|MP-REAL-TIME-MANAGEMENT-2|
           #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|))
        "Time-function ~s not a valid function for mp-real-time-management"
        |COMMON-LISP-USER|::|POSNUM|
        #Y(|COMMON-LISP-USER|::|MP-REAL-TIME-MANAGEMENT-3|
           #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|))
        "Units-per-second ~s must be a positive number"
        #Y(|COMMON-LISP-USER|::|MP-REAL-TIME-MANAGEMENT-4|
           #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|))
        "Slack-function ~s not a valid function for mp-real-time-management"
        |COMMON-LISP-USER|::|POSNUMORNIL|
        #Y(|COMMON-LISP-USER|::|MP-REAL-TIME-MANAGEMENT-5|
           #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|))
        "Max-time-delta ~s is not a positive number or nil"
        |COMMON-LISP-USER|::|META-PROCESS| 12. 17. 18. 19.
        |COMMON-LISP-USER|::|SECONDS->MS| 20.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|&KEY|
        (|COMMON-LISP-USER|::|TIME-FUNCTION|
         '|COMMON-LISP|::|GET-INTERNAL-REAL-TIME|)
        (|COMMON-LISP-USER|::|UNITS-PER-SECOND|
         |COMMON-LISP|::|INTERNAL-TIME-UNITS-PER-SECOND|)
        (|COMMON-LISP-USER|::|SLACK-FUNCTION|
         '|COMMON-LISP-USER|::|REAL-TIME-SLACK|)
        (|COMMON-LISP-USER|::|MAX-TIME-DELTA| |COMMON-LISP|::|NIL|)
        (|COMMON-LISP-USER|::|ALLOW-DYNAMICS| |COMMON-LISP|::|NIL|))
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|269 273 (DEFUN MP-MODELS NIL ...)-16|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|MP-MODELS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-MODELS|
       #48Y(00 00 00 00 00 00 00 00 26 01 6B 00 DB AD DC 32 43 16 01 1D 12 6B
            00 DB AD DC 81 43 00 E1 AD E2 81 43 00 2F 09 19 01 6B 03 DE DF 2D
            03 06 19 01)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3. |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|MP-MODELS-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|))
        "mp-models called with no current meta-process."
        |COMMON-LISP|::|FORMAT| |COMMON-LISP-USER|::|META-PROCESS| 5.
        |COMMON-LISP-USER|::|HASH-TABLE-KEYS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       "returns a list of the names of all the models in the current meta-process"
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|275 276 (DEFUN META-PROCESS-NAMES NIL ...)-17|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|META-PROCESS-NAMES| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|META-PROCESS-NAMES|
       #22Y(00 00 00 00 00 00 00 00 26 01 6B 00 DB AD DC 81 43 00 2F 03 19 01)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 1.
        |COMMON-LISP-USER|::|HASH-TABLE-KEYS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|280 286 (DEFUN MP-SHOW-QUEUE NIL ...)-18|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|MP-SHOW-QUEUE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-SHOW-QUEUE|
       #77Y(00 00 00 00 00 00 00 00 26 01 6B 00 DB AD DC 32 43 16 01 1D 18 6B
            00 DB AD DC 81 43 00 E1 AD E2 81 43 00 E3 6B 0A 33 01 15 AC 63 1B
            17 6B 03 DE DF 2D 03 06 19 01 87 01 00 E5 6B 0A AE 6F 0C 33 02 15
            83 01 AD 8D 9F 6E AE 32 62 19 04)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3. |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|MP-SHOW-QUEUE-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|))
        "mp-show-queue called with no current meta-process."
        |COMMON-LISP|::|FORMAT| |COMMON-LISP-USER|::|META-PROCESS| 9.
        #Y(|COMMON-LISP-USER|::|MP-SHOW-QUEUE-2|
           #19Y(00 00 00 00 01 00 00 00 21 17 DA AF 38 02 31 95 9E 19 03)
           ("Events in the queue:\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|MP-SHOW-QUEUE-3|
           #20Y(00 00 00 00 02 00 00 00 21 18 AE B0 31 90 AF 31 97 9E 19 04) ()
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP-USER|::|FORMAT-EVENT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|289 296 (DEFUN MP-SHOW-WAITING NIL ...)-19|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|MP-SHOW-WAITING| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-SHOW-WAITING|
       #77Y(00 00 00 00 00 00 00 00 26 01 6B 00 DB AD DC 32 43 16 01 1D 18 6B
            00 DB AD DC 81 43 00 E1 AD E2 81 43 00 E3 6B 0A 33 01 15 AC 63 1B
            17 6B 03 DE DF 2D 03 06 19 01 87 01 00 E5 6B 0A AE 6F 0C 33 02 15
            83 01 AD 8D 9F 6E AE 32 62 19 04)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3. |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|MP-SHOW-WAITING-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|))
        "mp-show-waiting called with no current meta-process."
        |COMMON-LISP|::|FORMAT| |COMMON-LISP-USER|::|META-PROCESS| 10.
        #Y(|COMMON-LISP-USER|::|MP-SHOW-WAITING-2|
           #19Y(00 00 00 00 01 00 00 00 21 17 DA AF 38 02 31 95 9E 19 03)
           ("Events waiting to be scheduled:\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|MP-SHOW-WAITING-3|
           #20Y(00 00 00 00 02 00 00 00 21 18 AE B0 31 90 AF 31 97 9E 19 04) ()
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP-USER|::|FORMAT-EVENT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|299 311 (DEFUN MP-MODULES-EVENTS (MODULE) ...)-20|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|MP-MODULES-EVENTS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-MODULES-EVENTS|
       #122Y(00 00 00 00 01 00 00 00 26 02 6B 00 DB AD DC 32 43 16 01 1D 12 63
             6B 00 DB AD DC 81 43 00 E1 AD E2 81 43 00 63 1B 1E 6B 03 DE DF 2D
             03 06 19 02 87 01 00 B0 E3 AE E4 32 43 23 08 AE AD 7B 01 82 02 24
             02 83 01 AD 8D 9F 67 16 02 6B 00 DB AD DC 81 43 00 E1 AD E5 81 43
             00 63 1B 15 87 01 00 B0 E3 AE E4 32 43 23 08 AE AD 7B 01 82 02 24
             02 83 01 AD 8D 9F 67 16 02 15 19 02)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3. |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|MP-MODULES-EVENTS-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|))
        "mp-modules-events called with no current meta-process."
        |COMMON-LISP|::|FORMAT| |COMMON-LISP-USER|::|META-PROCESS| 9.
        |COMMON-LISP-USER|::|ACT-R-EVENT| 6. 10.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|MODULE|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|313 326 (DEFUN MP-PRINT-VERSIONS NIL ...)-21|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|MP-PRINT-VERSIONS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|MP-PRINT-VERSIONS|
       #70Y(00 00 00 00 00 00 00 00 26 01 DA 6B 01 2E 02 14 DD 73 01 35 DE DF
            6B 06 E1 AD E2 81 43 00 38 01 71 6E E3 AD E4 81 43 00 DF 6B 06 E1
            AD E2 81 43 00 38 01 71 6E E3 AD E5 81 43 00 33 05 15 E6 2E 0D 14
            31 71 19 01)
       (#Y(|COMMON-LISP-USER|::|MP-PRINT-VERSIONS-1|
           #56Y(00 00 00 00 05 00 00 00 21 00 DA B3 38 02 31 95 B2 01 02 B4 01
                03 B7 2D 08 01 DC B3 38 02 31 95 B2 01 02 DD 01 03 B6 2D 08 01
                DE B3 31 94 AE B3 31 90 B2 31 97 9E 19 07)
           ("ACT-R Version Information:\n" |SYSTEM|::|DO-FORMAT-ASCII| ": " 10.
            #\Space)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*|
        |COMMON-LISP-USER|::|MAX-MODULE-NAME-LENGTH| 10. "Framework"
        |COMMON-LISP-USER|::|DEFAULT| |COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 1.
        |COMMON-LISP-USER|::|META-PROCESS| 23. 24.
        #Y(|COMMON-LISP-USER|::|MP-PRINT-VERSIONS-2|
           #40Y(00 00 00 00 02 00 00 00 26 03 DA 6B 01 2E 02 14 DD 73 01 35 DE
                B1 DF 72 43 DE B2 E0 72 43 DE B3 E1 72 43 33 05 15 19 03)
           (#Y(|COMMON-LISP-USER|::|MP-PRINT-VERSIONS-2-1|
               #50Y(00 00 00 00 05 00 00 00 21 00 B2 01 02 B4 01 03 B7 2D 08 00
                    DB B3 38 02 31 95 B2 01 02 DC 01 03 B6 2D 08 00 DD B3 31 94
                    AE B3 31 90 B2 31 97 9E 19 07)
               (|SYSTEM|::|DO-FORMAT-ASCII| ": " 10. #\Space)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
            |COMMON-LISP|::|*STANDARD-OUTPUT*|
            |COMMON-LISP-USER|::|MAX-MODULE-NAME-LENGTH| 10.
            |COMMON-LISP-USER|::|ACT-R-MODULE| 1. 3. 4.)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|KEY| |COMMON-LISP-USER|::|VALUE|)
           |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP-USER|::|GLOBAL-MODULES-TABLE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|330 331 (DEFMACRO DEFINE-META-PROCESS (MP-NAME) ...)-22|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|DEFINE-META-PROCESS|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|DEFINE-META-PROCESS|
       #36Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 0C 9F 5C 78
            DD DE AE 7B 02 61 02 19 04 AE 2F 02 19 03)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP-USER|::|DEFINE-META-PROCESS-FCT| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP-USER|::|MP-NAME|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|333 342 (DEFUN DEFINE-META-PROCESS-FCT (MP-NAME) ...)-23|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|DEFINE-META-PROCESS-FCT|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|DEFINE-META-PROCESS-FCT|
       #94Y(00 00 00 00 01 00 00 00 26 02 AD 8F 18 19 AD 6B 04 DF AD E0 81 43
            00 38 01 8D 6E 11 6B 00 E1 CD 14 B0 2D 04 03 19 02 6B 00 DB C7 1B
            73 E3 AE 70 0A 6B 04 DF AD E0 81 43 00 AF AD AF 31 6F 16 01 6B 04
            DF AD E5 72 43 72 B1 DF AE E5 AF 32 44 16 02 6B 04 DF AD E6 63 32
            44 16 01 9F 19 03)
       (|COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|DEFINE-META-PROCESS-FCT-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|))
        "~S is not a symbol and thus not valid as a meta-process name."
        |COMMON-LISP|::|FORMAT| |COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 1.
        #Y(|COMMON-LISP-USER|::|DEFINE-META-PROCESS-FCT-2|
           #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|))
        "There is already a meta-process named ~S." :|NAME|
        |COMMON-LISP-USER|::|MAKE-META-PROCESS| 2. 3.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|MP-NAME|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|347 348 (DEFMACRO DELETE-META-PROCESS (MP-NAME) ...)-24|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|DELETE-META-PROCESS|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|DELETE-META-PROCESS|
       #36Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 0C 9F 5C 78
            DD DE AE 7B 02 61 02 19 04 AE 2F 02 19 03)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP-USER|::|DELETE-META-PROCESS-FCT| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP-USER|::|MP-NAME|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|350 369 (DEFUN DELETE-META-PROCESS-FCT (MP-NAME) ...)-25|
   #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-META-PROCESS-FCT|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|DELETE-META-PROCESS-FCT|
       #181Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 18 AD 6B 05 E0 AD E1 81 43
             00 38 01 8C 6E 2D 6B 01 E7 E8 B0 2D 04 04 19 02 6B 01 DC DD 2D 03
             04 19 02 6B 05 DA 6B 05 E0 AD E1 81 43 00 38 01 71 6E E0 AE E2 AF
             32 44 16 02 1B 80 69 6B 05 E0 AD E2 81 43 00 6B 05 AF 6B 05 E0 AD
             E1 81 43 00 38 01 71 6E E0 AE E2 AF 32 44 16 02 E3 AF 6B 05 E0 AD
             E1 81 43 00 38 01 71 6E E4 AD E5 81 43 00 31 71 AE 6B 05 E0 AD E1
             81 43 00 31 70 6B 05 E0 AD E6 72 43 72 B2 E0 AE E6 AF 32 44 16 02
             E1 6B 05 E0 AD E6 81 43 00 90 01 2F FF 87 6B 05 E0 AD E2 B0 32 44
             16 01 02 19 03)
       (|COMMON-LISP-USER|::|DEFAULT| |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|DELETE-META-PROCESS-FCT-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|))
        "Cannot delete the default meta-process." |COMMON-LISP|::|FORMAT|
        |COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 1. 3.
        #Y(|COMMON-LISP-USER|::|DELETE-META-PROCESS-FCT-2|
           #15Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 19 03)
           (|COMMON-LISP-USER|::|DELETE-MODEL-FCT|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|KEY| |COMMON-LISP-USER|::|MODEL|)
           |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP-USER|::|META-PROCESS| 5. 2.
        #Y(|COMMON-LISP-USER|::|DELETE-META-PROCESS-FCT-3|
           #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|))
        "~S does not name a meta-process.")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|MP-NAME|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|372 384 (DEFMACRO WITH-META-PROCESS (MP-NAME &BODY BODY) ...)-26|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|WITH-META-PROCESS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|WITH-META-PROCESS|
       #93Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 80 44 9F 5C
            78 A0 5C 79 38 01 72 AA 38 01 72 AA DD AE DE DF B3 7B 02 CB 5D 7A
            7B 02 7B 01 E1 B0 DD B1 CD 7A 7B 01 E3 E4 B5 7B 03 E5 E6 A8 7A E3
            E7 B7 7B 03 7B 03 7B 04 E8 E9 DF B7 7B 02 7B 03 7B 04 61 03 19 07
            AE 2F 02 19 03)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|LET| |COMMON-LISP|::|GETHASH| |COMMON-LISP|::|QUOTE|
        ((|COMMON-LISP-USER|::|MPS-TABLE|
          |COMMON-LISP-USER|::|*META-PROCESSES*|))
        |COMMON-LISP|::|IF| ((|COMMON-LISP-USER|::|CURRENT-MP|))
        |COMMON-LISP|::|SETF|
        (|COMMON-LISP-USER|::|MPS-CURRENT|
         |COMMON-LISP-USER|::|*META-PROCESSES*|)
        |COMMON-LISP|::|UNWIND-PROTECT| |COMMON-LISP|::|PROGN|
        (|COMMON-LISP-USER|::|MPS-CURRENT|
         |COMMON-LISP-USER|::|*META-PROCESSES*|)
        |COMMON-LISP-USER|::|PRINT-WARNING|
        "No actions taken in with-meta-process because ~S does not name a meta-process")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP-USER|::|MP-NAME| |COMMON-LISP|::|&BODY|
     |COMMON-LISP-USER|::|BODY|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|387 400 (DEFMACRO WITH-META-PROCESS-EVAL (MP-NAME &BODY BODY) ...)-27|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|WITH-META-PROCESS-EVAL|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|WITH-META-PROCESS-EVAL|
       #95Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 80 46 9F 5C
            78 A0 5C 79 38 01 72 AA 38 01 72 AA 38 01 72 AA DD AD B2 7B 02 B0
            DE B0 CA 5D 7A 7B 02 7B 02 E0 B1 E1 B2 CD 7A 7B 01 E3 E4 B6 7B 03
            E5 E6 A9 7A E3 E7 B8 7B 03 7B 03 7B 04 E8 E9 B3 7B 03 7B 04 61 03
            19 08 AE 2F 02 19 03)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|LET*| |COMMON-LISP|::|GETHASH|
        ((|COMMON-LISP-USER|::|MPS-TABLE|
          |COMMON-LISP-USER|::|*META-PROCESSES*|))
        |COMMON-LISP|::|IF| |COMMON-LISP|::|LET|
        ((|COMMON-LISP-USER|::|CURRENT-MP|)) |COMMON-LISP|::|SETF|
        (|COMMON-LISP-USER|::|MPS-CURRENT|
         |COMMON-LISP-USER|::|*META-PROCESSES*|)
        |COMMON-LISP|::|UNWIND-PROTECT| |COMMON-LISP|::|PROGN|
        (|COMMON-LISP-USER|::|MPS-CURRENT|
         |COMMON-LISP-USER|::|*META-PROCESSES*|)
        |COMMON-LISP-USER|::|PRINT-WARNING|
        "No actions taken in with-meta-process-eval because ~S does not name a meta-process")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP-USER|::|MP-NAME| |COMMON-LISP|::|&BODY|
     |COMMON-LISP-USER|::|BODY|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|402 413 (DEFUN WITH-META-PROCESS-FCT (MP-NAME FORMS-LIST) ...)-28|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|WITH-META-PROCESS-FCT|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|WITH-META-PROCESS-FCT|
       #94Y(03 00 01 00 02 00 00 00 26 03 AE 6B 00 DB AD DC 81 43 00 38 01 71
            6E 92 00 0A 6B 04 DF E0 B2 2D 04 07 19 04 6B 00 DB AD DD 81 43 00
            63 6B 00 DB AD DD B2 32 44 16 01 53 15 B2 63 1B 09 87 01 00 14 80
            63 04 83 01 AD 8D 9F 73 A1 16 02 54 6B 00 DB AD DD 67 00 00 01 32
            44 16 01 55 19 06)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 1. 3.
        |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|WITH-META-PROCESS-FCT-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|))
        "No actions taken in with-meta-process-fct because ~S does not name a meta-process"
        |COMMON-LISP|::|FORMAT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|MP-NAME| |COMMON-LISP-USER|::|FORMS-LIST|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|416 418 (DEFUN CURRENT-META-PROCESS NIL ...)-29|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|CURRENT-META-PROCESS|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|CURRENT-META-PROCESS|
       #38Y(00 00 00 00 00 00 00 00 26 01 6B 00 DB AD DC 32 43 16 01 1F 0F 6B
            00 DB AD DC 81 43 00 DD AD DE 32 43 19 02 19 01)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3.
        |COMMON-LISP-USER|::|META-PROCESS| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|421 421 (DEFINE-META-PROCESS DEFAULT)-30|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 19 01)
   (|COMMON-LISP-USER|::|DEFAULT|
    |COMMON-LISP-USER|::|DEFINE-META-PROCESS-FCT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|422 422 (SETF (MPS-CURRENT *META-PROCESSES*) (GETHASH 'DEFAULT #))-31|
   #33Y(00 00 00 00 00 00 00 00 20 01 6B 00 DB 6B 00 DC AD DD 81 43 00 38 01 71
        6E DC AE DE AF 32 44 19 03)
   (|COMMON-LISP-USER|::|*META-PROCESSES*| |COMMON-LISP-USER|::|DEFAULT|
    |COMMON-LISP-USER|::|META-PROCESSES| 1. 3.)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))