model.fas 31.8 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
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 181 (DEFUN CURRENT-MODEL NIL ...)-1|
   #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-MODEL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|CURRENT-MODEL|
       #74Y(00 00 00 00 00 00 00 00 26 01 6B 00 DB AD DC 32 43 16 01 1F 33 6B
            00 DB AD DC 81 43 00 DD AD DE 32 43 16 01 1F 22 6B 00 DB AD DC 32
            43 16 01 1D 0F 6B 00 DB AD DC 81 43 00 DD AD DE 32 43 16 01 14 DF
            AD E0 32 43 19 02 19 01)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3.
        |COMMON-LISP-USER|::|META-PROCESS| 6. |COMMON-LISP-USER|::|ACT-R-MODEL|
        7.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|183 184 (DEFUN LARGEST-CHUNK-TYPE-SIZE NIL ...)-2|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|LARGEST-CHUNK-TYPE-SIZE|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|LARGEST-CHUNK-TYPE-SIZE|
       #44Y(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 DD AD DE 32 43 16 01 14 DF AD DE 32 43 19 02)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3.
        |COMMON-LISP-USER|::|META-PROCESS| 6.
        |COMMON-LISP-USER|::|ACT-R-MODEL|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|186 189 (DEFUN NEW-CHUNK-TYPE-SIZE (SIZE) ...)-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|::|NEW-CHUNK-TYPE-SIZE|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|NEW-CHUNK-TYPE-SIZE|
       #58Y(00 00 00 00 01 00 00 00 26 02 6B 00 DB AD DC 32 43 16 01 1D 0F 6B
            00 DB AD DC 81 43 00 DD AD DE 32 43 16 01 14 AE DF AE DE 72 43 33
            01 32 1F 08 DF AD DE B1 32 44 19 03 19 03)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3.
        |COMMON-LISP-USER|::|META-PROCESS| 6.
        |COMMON-LISP-USER|::|ACT-R-MODEL|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|SIZE|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|193 193 (DEFVAR *MODEL-CHUNK-TABLE-SIZE* NIL)-4|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB 63 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|*MODEL-CHUNK-TABLE-SIZE*|)
    |COMMON-LISP-USER|::|*MODEL-CHUNK-TABLE-SIZE*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|194 194 (DEFVAR *MODEL-CHUNK-TABLE-REHASH-THRESHOLD* NIL)-5|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB 63 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL|
     |COMMON-LISP-USER|::|*MODEL-CHUNK-TABLE-REHASH-THRESHOLD*|)
    |COMMON-LISP-USER|::|*MODEL-CHUNK-TABLE-REHASH-THRESHOLD*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|196 198 (CREATE-SYSTEM-PARAMETER :MCTS :VALID-TEST ...)-6|
   #26Y(00 00 00 00 00 00 00 00 20 01 DA DB DC DD 63 DE DF E0 E1 E2 E3 2D 0B 0A
        19 01)
   (:|MCTS| :|VALID-TEST| |COMMON-LISP-USER|::|POSNUMORNIL| :|DEFAULT-VALUE|
    :|WARNING| "positive number or nil" :|DOCUMENTATION|
    "initial size of a model's chunk table" :|HANDLER|
    #Y(#:|196 198 (CREATE-SYSTEM-PARAMETER :MCTS :VALID-TEST ...)-6-1|
       #22Y(00 00 00 00 02 00 00 00 20 03 92 02 04 0E 00 19 03 9E 0F 00 19 03)
       (|COMMON-LISP-USER|::|*MODEL-CHUNK-TABLE-SIZE*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    |COMMON-LISP-USER|::|CREATE-SYSTEM-PARAMETER|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|200 203 (CREATE-SYSTEM-PARAMETER :MCTRT :VALID-TEST ...)-7|
   #26Y(00 00 00 00 00 00 00 00 20 01 DA DB DC DD 63 DE DF E0 E1 E2 E3 2D 0B 0A
        19 01)
   (:|MCTRT| :|VALID-TEST|
    #Y(#:|200 203 (CREATE-SYSTEM-PARAMETER :MCTRT :VALID-TEST ...)-7-1|
       #34Y(00 00 00 00 01 00 00 00 20 02 9E 59 1E 12 AD 32 26 1F 0D AD 32 AE
            59 1F 07 DA AE 33 01 34 19 02 19 02)
       (1.) (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    :|DEFAULT-VALUE| :|WARNING| "a real number [0-1] or nil" :|DOCUMENTATION|
    "rehash-threshold of a model's chunk table" :|HANDLER|
    #Y(#:|200 203 (CREATE-SYSTEM-PARAMETER :MCTRT :VALID-TEST ...)-7-2|
       #22Y(00 00 00 00 02 00 00 00 20 03 92 02 04 0E 00 19 03 9E 0F 00 19 03)
       (|COMMON-LISP-USER|::|*MODEL-CHUNK-TABLE-REHASH-THRESHOLD*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    |COMMON-LISP-USER|::|CREATE-SYSTEM-PARAMETER|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|207 208 (DEFMACRO DEFINE-MODEL (NAME &BODY MODEL-CODE) ...)-8|
   #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-MODEL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|DEFINE-MODEL|
       #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 AF 7B 02 DE AF 7B 02 61 03 19 05 AE 2F 02 19 03)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP-USER|::|DEFINE-MODEL-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|::|NAME| |COMMON-LISP|::|&BODY|
     |COMMON-LISP-USER|::|MODEL-CODE|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|210 331 (DEFUN DEFINE-MODEL-FCT (NAME MODEL-CODE-LIST) ...)-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|::|DEFINE-MODEL-FCT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT|
       #710Y(04 00 02 00 02 00 00 00 26 03 00 2B 01 7F 03 00 00 6B 00 DB AD DC
             32 43 16 01 1D 15 68 00 00 8F 18 15 06 00 00 1C 16 6B 03 E3 CF 14
             2D 03 06 19 04 6B 03 DE CA 1B 74 6B 03 E1 CD 1B 0B 68 00 00 89 0B
             80 58 6B 03 E6 D2 14 68 03 00 2D 04 06 19 04 68 01 00 38 08 0E 10
             F9 6B 11 71 6D EC AE DC AF 32 44 16 02 68 01 00 38 08 0E 10 F9 6B
             11 71 6D EC AE D8 1B 80 63 0E 11 1C 56 68 01 00 38 09 0E 10 FA 71
             6D EC AE DC AF 32 44 16 02 68 01 00 38 09 0E 10 FA 71 6D EC AE D8
             1B 3E 9D 2B 01 E8 68 02 00 30 0F 0B 00 00 6B 00 DB AD DC 81 43 00
             0E 10 1C 04 0E 11 1D 28 0E 10 1C FF BA 68 01 00 38 08 6B 11 71 6D
             EC AE DC AF 32 44 16 02 68 01 00 38 08 6B 11 71 6D EC AE D8 14 AF
             32 44 16 02 68 02 00 EE AE EF 72 43 68 03 00 AE AE AE 31 6F 16 03
             68 01 00 EE AE F0 AF 32 44 16 01 EE AD F1 72 43 72 B1 EE AE F1 AF
             32 44 16 01 38 02 72 8F 68 03 00 AD 2F 18 10 19 AF B1 31 8D 11 AD
             2F 1A 16 01 AC 81 90 00 72 62 EE AE F5 72 43 91 01 32 24 38 02 72
             8F 68 03 00 AD 2F 18 10 19 AF B1 31 8D 11 AD 2F 1A 16 01 AC 81 90
             00 72 62 EE AE F5 AF 32 44 16 01 2E 1C AD 6D 1D 01 2E 1E 14 31 71
             AD 6D 1F 01 6B 20 31 71 65 21 2E 1E 14 31 71 65 22 6B 23 31 71 65
             24 2E 1E 14 31 71 63 9F 2B 01 B2 00 0B 01 00 1B 81 0F 58 67 00 00
             01 76 00 AD 36 01 18 04 02 19 02 68 04 00 7E 0A 6B 03 65 29 65 2A
             68 0C 00 2D 04 06 6B 03 65 2B 65 2C 2D 03 06 AC 31 6C 9D 5B 0B 01
             00 53 80 D1 A0 2B 01 00 0B 00 00 4B 25 51 B0 AF 6D 26 02 B1 6D 27
             01 57 28 B0 36 00 16 06 4D 16 01 3E 54 05 00 00 02 1D 80 B2 08 00
             00 05 00 14 EE 67 00 00 03 EF 72 43 31 70 6B 03 65 2D 65 2E 08 00
             00 05 00 14 2D 04 06 EE 67 00 00 03 F1 72 43 72 B2 EE 67 00 00 03
             F1 AF 32 44 16 01 08 00 00 05 00 14 EE 67 00 00 03 65 2F 72 43 38
             07 9A 30 03 72 69 EE 67 00 00 03 65 2F AF 32 44 16 01 08 00 00 05
             00 14 EE 67 00 00 03 65 31 72 43 38 07 9A 30 03 72 69 EE 67 00 00
             03 65 31 AF 32 44 16 01 08 00 00 05 00 14 EE 67 00 00 03 65 32 72
             43 38 07 03 33 FB 72 69 EE 67 00 00 03 65 32 AF 32 44 16 01 65 34
             2E 1E 14 31 71 00 17 00 00 05 18 02 00 19 04 05 00 00 02 1C FF 4E
             55 83 00 AC 8D 9F FF 18 16 03 68 01 00 EC AD F5 B4 32 44 16 01 65
             35 2E 1E 14 31 71 65 36 EE AE F1 72 43 90 01 2F 06 EE AD F0 63 32
             44 06 02 00 19 06)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3. |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-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|))
        "define-model called with no current meta-process."
        |COMMON-LISP|::|FORMAT|
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-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|))
        "Model name must be a symbol, ~S is not valid.  No model defined."
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-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|))
        "Nil is not a valid name for a model.  No model defined."
        |COMMON-LISP-USER|::|VALID-MODEL-NAME|
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-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|))
        "~S is already the name of a model in the current meta-process.  Cannot be redefined."
        :|NAME| |COMMON-LISP-USER|::|MAKE-ACT-R-MODEL|
        |COMMON-LISP-USER|::|*MODEL-CHUNK-TABLE-SIZE*|
        |COMMON-LISP-USER|::|*MODEL-CHUNK-TABLE-REHASH-THRESHOLD*|
        |COMMON-LISP-USER|::|ACT-R-MODEL| 4. |COMMON-LISP-USER|::|META-PROCESS|
        5. 6. 7. |SYSTEM|::|STREAM-START-S-EXPRESSION|
        |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
        |SYSTEM|::|STREAM-END-S-EXPRESSION| 8.
        |COMMON-LISP-USER|::|CREATE-MODEL-DEFAULT-CHUNK-TYPES-AND-CHUNKS|
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-5|
           #32Y(00 00 00 00 02 00 00 00 26 03 69 00 01 DB AD DC 81 43 00 AF 69
                01 01 70 03 B0 AE AE 31 6F 19 05)
           (|COMMON-LISP|::|NIL| |COMMON-LISP-USER|::|ACT-R-MODEL| 1.
            |COMMON-LISP-USER|::|INSTANTIATE-MODULE|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|MODULE-NAME| |COMMON-LISP-USER|::|VAL|)
           |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP-USER|::|GLOBAL-MODULES-TABLE|
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-6|
           #51Y(00 00 00 00 02 00 00 00 26 03 AD 72 46 DB AD DC 8F 43 10 38 09
                C8 FB C9 FA 71 6D DB AE DF AF 32 44 16 01 69 00 01 E0 AD E1 81
                43 00 B0 AD AF 31 6F 19 05)
           (|COMMON-LISP|::|NIL| |COMMON-LISP-USER|::|ACT-R-BUFFER| 10.
            |COMMON-LISP|::|EQ| 5. 12. |COMMON-LISP-USER|::|ACT-R-MODEL| 2.)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|BUFFER-NAME|
            |COMMON-LISP-USER|::|BUFFER-STRUCT|)
           |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP-USER|::|*BUFFERS-TABLE*|
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-7|
           #15Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 19 03)
           (|COMMON-LISP-USER|::|RESET-MODULE|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|MODULE-NAME| |COMMON-LISP-USER|::|VAL|)
           |COMMON-LISP|::|NIL| 1)
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-8|
           #22Y(00 00 00 00 02 00 00 00 26 03 AE DA AF DB 72 43 7B 02 2F 02 19
                03)
           (|COMMON-LISP-USER|::|ACT-R-PARAMETER| 2.
            |COMMON-LISP-USER|::|SGP-FCT|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|PARAMETER-NAME|
            |COMMON-LISP-USER|::|PARAMETER|)
           |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP-USER|::|*ACT-R-PARAMETERS-TABLE*|
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-9|
           #15Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 19 03)
           (|COMMON-LISP-USER|::|SECONDARY-RESET-MODULE|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|MODULE-NAME| |COMMON-LISP-USER|::|VAL|)
           |COMMON-LISP|::|NIL| 1)
        #(|COMMON-LISP|::|NIL|)
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-13|
           #18Y(00 00 00 00 00 00 00 00 26 01 2A 14 DB 2C 02 02 19 01)
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
            #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-13-1|
               #17Y(00 00 00 00 01 00 00 00 26 02 9E 0C 00 01 4E 01 00)
               (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
               (|COMMON-LISP|::|CONDITION|) |COMMON-LISP|::|NIL| 1))
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
           |COMMON-LISP|::|NIL| 1)
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-14|
           #17Y(00 00 00 00 00 00 00 00 26 01 69 01 01 31 63 19 01)
           (|COMMON-LISP|::|NIL|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        (#(|COMMON-LISP|::|ERROR| 382.) 3. . 2.)
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-15|
           #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|))
        "Error encountered in model form:~%~S~%Invoking the debugger."
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-16|
           #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|))
        "You must exit the error state to continue."
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-10|
           #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|))
        "Model ~s not defined." 9. |COMMON-LISP-USER|::|EVT-MODEL| 10. 11.
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-11|
           #19Y(00 00 00 00 01 00 00 00 26 02 94 01 DA AD DB 32 43 19 03)
           (|COMMON-LISP-USER|::|ACT-R-EVENT| 4.)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
           (|COMMON-LISP-USER|::|X|) |COMMON-LISP|::|NIL| 1)
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-12|
           #15Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 19 03)
           (|COMMON-LISP-USER|::|DELETE-MODULE|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|MODULE-NAME| |COMMON-LISP-USER|::|INSTANCE|)
           |COMMON-LISP|::|NIL| 1)
        #Y(|COMMON-LISP-USER|::|DEFINE-MODEL-FCT-17|
           #15Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 19 03)
           (|COMMON-LISP-USER|::|TERTIARY-RESET-MODULE|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|MODULE-NAME| |COMMON-LISP-USER|::|VAL|)
           |COMMON-LISP|::|NIL| 1)
        1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|NAME| |COMMON-LISP-USER|::|MODEL-CODE-LIST|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|334 342 (DEFUN CREATE-MODEL-DEFAULT-CHUNK-TYPES-AND-CHUNKS 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|::|CREATE-MODEL-DEFAULT-CHUNK-TYPES-AND-CHUNKS|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|CREATE-MODEL-DEFAULT-CHUNK-TYPES-AND-CHUNKS|
       #28Y(00 00 00 00 00 00 00 00 26 01 DA 7B 01 2F 01 DC DD DE DF E0 E1 E2
            7B 07 2F 09 19 01)
       (|COMMON-LISP-USER|::|CHUNK| |COMMON-LISP-USER|::|CHUNK-TYPE-FCT|
        (|COMMON-LISP-USER|::|FREE| |COMMON-LISP-USER|::|ISA|
         |COMMON-LISP-USER|::|CHUNK|)
        (|COMMON-LISP-USER|::|BUSY| |COMMON-LISP-USER|::|ISA|
         |COMMON-LISP-USER|::|CHUNK|)
        (|COMMON-LISP|::|ERROR| |COMMON-LISP-USER|::|ISA|
         |COMMON-LISP-USER|::|CHUNK|)
        (|COMMON-LISP-USER|::|EMPTY| |COMMON-LISP-USER|::|ISA|
         |COMMON-LISP-USER|::|CHUNK|)
        (|COMMON-LISP-USER|::|FULL| |COMMON-LISP-USER|::|ISA|
         |COMMON-LISP-USER|::|CHUNK|)
        (|COMMON-LISP-USER|::|REQUESTED| |COMMON-LISP-USER|::|ISA|
         |COMMON-LISP-USER|::|CHUNK|)
        (|COMMON-LISP-USER|::|UNREQUESTED| |COMMON-LISP-USER|::|ISA|
         |COMMON-LISP-USER|::|CHUNK|)
        |COMMON-LISP-USER|::|DEFINE-CHUNKS-FCT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|346 349 (DEFMACRO DELETE-MODEL (&OPTIONAL #) ...)-11|
   #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-MODEL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|DELETE-MODEL|
       #52Y(00 00 00 00 02 00 00 00 26 03 AE DA DB 63 2D 04 02 1D 1C 9F 5C 1D
            03 9F 5C 5B 14 A0 5C 59 59 14 DE AD DF E0 B1 7B 02 7B 02 CC 5D 5D
            5D 19 05 AE 2F 03 19 03)
       (1. 2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|IF| |COMMON-LISP-USER|::|DELETE-MODEL-FCT|
        |COMMON-LISP|::|QUOTE|
        ((|COMMON-LISP-USER|::|DELETE-MODEL-FCT|
          (|COMMON-LISP-USER|::|CURRENT-MODEL|))))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|&OPTIONAL|
     (|COMMON-LISP-USER|::|MODEL-NAME| |COMMON-LISP|::|NIL|
      |COMMON-LISP-USER|::|PROVIDED|)))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|351 386 (DEFUN DELETE-MODEL-FCT (MODEL-NAME) ...)-12|
   #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-MODEL-FCT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|DELETE-MODEL-FCT|
       #247Y(00 00 00 00 01 00 00 00 26 02 6B 00 DB AD DC 32 43 16 01 1D 80 A4
             6B 00 DB AD DC 81 43 00 93 02 80 CC 14 E1 AE E2 72 43 38 01 8D 6E
             80 B6 AE E1 AE E2 72 43 38 01 71 6E E1 AE E3 72 43 E1 AF E3 B0 32
             44 B0 E1 B0 E4 72 43 38 07 9A 0B 03 72 69 E1 B0 E4 AF 32 44 16 01
             B0 E1 B0 E6 72 43 38 07 9A 0B 03 72 69 E1 B0 E6 AF 32 44 16 01 B0
             E1 B0 E7 72 43 38 07 D3 FB 72 69 E1 B0 E7 AF 32 44 16 01 E9 2E 10
             14 31 71 E1 AF EB 72 43 72 B2 E1 B0 EB AF 32 44 16 01 B0 E1 B0 E2
             72 43 31 70 E1 AF EB 72 43 8E AC 1D EC E1 B0 EB 72 43 90 01 2F 19
             E1 AF E3 A0 14 32 44 02 19 05 6B 03 DE DF 2D 03 06 19 02 E1 AF E3
             00 1B 6B E1 AF E2 72 43 2F 13 78 E1 B0 E2 72 43 38 01 71 6E E1 B0
             E3 AF 32 44 16 01 1B 53 6B 03 EE EF B1 2D 04 06 19 03 6B 03 F0 F1
             2D 03 06 19 03)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3. |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|DELETE-MODEL-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|))
        "delete-model called with no current meta-process.~%No model deleted."
        |COMMON-LISP|::|FORMAT| |COMMON-LISP-USER|::|META-PROCESS| 5. 6. 9.
        |COMMON-LISP-USER|::|EVT-MODEL| 10. 11.
        #Y(|COMMON-LISP-USER|::|DELETE-MODEL-FCT-2|
           #19Y(00 00 00 00 01 00 00 00 26 02 94 01 DA AD DB 32 43 19 03)
           (|COMMON-LISP-USER|::|ACT-R-EVENT| 4.)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
           (|COMMON-LISP-USER|::|X|) |COMMON-LISP|::|NIL| 1)
        #Y(|COMMON-LISP-USER|::|DELETE-MODEL-FCT-3|
           #15Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 19 03)
           (|COMMON-LISP-USER|::|DELETE-MODULE|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|MODULE-NAME| |COMMON-LISP-USER|::|INSTANCE|)
           |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP-USER|::|GLOBAL-MODULES-TABLE| 7. 1.
        |COMMON-LISP-USER|::|HASH-TABLE-KEYS|
        #Y(|COMMON-LISP-USER|::|DELETE-MODEL-FCT-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|))
        "No model named ~S in current meta-process."
        #Y(|COMMON-LISP-USER|::|DELETE-MODEL-FCT-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|))
        "No current model to delete.")
       (|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(#:|388 400 (DEFMACRO WITH-MODEL (MODEL-NAME &BODY BODY) ...)-13|
   #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-MODEL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|WITH-MODEL|
       #107Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 80 52 9F 5C
             78 A0 5C 79 38 01 72 AA 38 01 72 AA DD AE C9 7A 7B 01 DF B0 DF E0
             E1 B6 7B 02 7B 02 DD B3 CD 7A 7B 01 E3 E4 E5 E1 BB 7B 02 E6 BA 7B
             02 7B 03 7B 03 E7 E8 AA 7A E3 E9 B9 7B 03 7B 03 7B 04 EA EB E1 B9
             7B 02 7B 03 7B 04 D7 5D 5D 7A 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-USER|::|CURRENT-MP|))
        |COMMON-LISP|::|IF| |COMMON-LISP-USER|::|VALID-MODEL-NAME|
        |COMMON-LISP|::|QUOTE| ((|COMMON-LISP-USER|::|CURRENT-MODEL-STRUCT|))
        |COMMON-LISP|::|SETF|
        (|COMMON-LISP-USER|::|META-P-CURRENT-MODEL|
         (|COMMON-LISP-USER|::|CURRENT-MP|))
        |COMMON-LISP|::|GETHASH| |COMMON-LISP-USER|::|META-P-MODELS|
        |COMMON-LISP|::|UNWIND-PROTECT| |COMMON-LISP|::|PROGN|
        (|COMMON-LISP-USER|::|META-P-CURRENT-MODEL|
         (|COMMON-LISP-USER|::|CURRENT-MP|))
        |COMMON-LISP-USER|::|PRINT-WARNING|
        "~S does not name a model in the current meta-process"
        ((|COMMON-LISP-USER|::|PRINT-WARNING|
          "No actions taken in with-model because there is no current meta-process")))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP-USER|::|MODEL-NAME| |COMMON-LISP|::|&BODY|
     |COMMON-LISP-USER|::|BODY|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|402 416 (DEFMACRO WITH-MODEL-EVAL (MODEL-NAME &BODY BODY) ...)-14|
   #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-MODEL-EVAL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|WITH-MODEL-EVAL|
       #112Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 80 57 9F 5C
             78 A0 5C 79 38 01 72 AA 38 01 72 AA 38 01 72 AA DD AF C9 7A 7B 01
             DF B1 DD B1 B6 7B 02 7B 01 DF E0 B4 7B 02 DD B6 CC 7A 7B 01 E2 E3
             E4 B9 E5 BD 7B 02 7B 03 7B 03 E6 E7 04 10 7A E2 E8 BC 7B 03 7B 03
             7B 04 E9 EA B7 7B 03 7B 04 7B 03 D6 5D 5D 7A 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-USER|::|CURRENT-MP|))
        |COMMON-LISP|::|IF| |COMMON-LISP-USER|::|VALID-MODEL-NAME|
        ((|COMMON-LISP-USER|::|CURRENT-MODEL-STRUCT|)) |COMMON-LISP|::|SETF|
        (|COMMON-LISP-USER|::|META-P-CURRENT-MODEL|
         (|COMMON-LISP-USER|::|CURRENT-MP|))
        |COMMON-LISP|::|GETHASH| |COMMON-LISP-USER|::|META-P-MODELS|
        |COMMON-LISP|::|UNWIND-PROTECT| |COMMON-LISP|::|PROGN|
        (|COMMON-LISP-USER|::|META-P-CURRENT-MODEL|
         (|COMMON-LISP-USER|::|CURRENT-MP|))
        |COMMON-LISP-USER|::|PRINT-WARNING|
        "~S does not name a model in the current meta-process"
        ((|COMMON-LISP-USER|::|PRINT-WARNING|
          "No actions taken in with-model because there is no current meta-process")))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP-USER|::|MODEL-NAME| |COMMON-LISP|::|&BODY|
     |COMMON-LISP-USER|::|BODY|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|418 431 (DEFUN WITH-MODEL-FCT (MODEL-NAME FORMS-LIST) ...)-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|::|WITH-MODEL-FCT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|WITH-MODEL-FCT|
       #145Y(03 00 01 00 02 00 00 00 26 03 6B 00 DB AD DC 81 43 00 92 00 80 6C
             6B 07 E5 E6 2D 03 0A 19 04 6B 00 DB AD DC 32 43 16 01 1D 0F 6B 00
             DB AD DC 81 43 00 DE AD DF 32 43 16 01 14 63 6B 00 DB AD DC 81 43
             00 B2 DE B1 E0 72 43 38 01 71 6E DE AE DF AF 32 44 16 02 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 DC 81 43 00 DE AD DF 67 00 00 01 32 44 16 01 55 19 06 AF 88
             03 FF 98 6B 07 E2 E3 B2 2D 04 0A 19 04)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3.
        |COMMON-LISP-USER|::|VALID-MODEL-NAME|
        |COMMON-LISP-USER|::|META-PROCESS| 6. 5.
        |COMMON-LISP|::|*ERROR-OUTPUT*|
        #Y(|COMMON-LISP-USER|::|WITH-MODEL-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 does not name a model in the current meta-process"
        |COMMON-LISP|::|FORMAT|
        #Y(|COMMON-LISP-USER|::|WITH-MODEL-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|))
        "No actions taken in with-model because there is no current meta-process")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|MODEL-NAME| |COMMON-LISP-USER|::|FORMS-LIST|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|434 438 (DEFUN VALID-MODEL-NAME (NAME) ...)-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|::|VALID-MODEL-NAME| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|VALID-MODEL-NAME|
       #36Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 DB AD DC 81 43 00 DD AD DE
            81 43 00 38 01 31 6E 1F 03 02 19 02 19 02)
       (|COMMON-LISP-USER|::|*META-PROCESSES*|
        |COMMON-LISP-USER|::|META-PROCESSES| 3.
        |COMMON-LISP-USER|::|META-PROCESS| 5.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|COMMON-LISP-USER|::|NAME|)
       "Returns t if name is the name of a model in the current meta-process - there must be a current mp"
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|440 487 (DEFUN RESET-MODEL (MP MODEL) ...)-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|::|RESET-MODEL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|RESET-MODEL|
       #129Y(00 00 00 00 02 00 00 00 26 03 DA AF DB 72 43 DA B0 DB B1 32 44 DC
             AF DD 72 43 31 72 DC AF DE 72 43 31 72 DC AF DF 72 43 31 72 DC AF
             E0 64 32 44 DC AF E1 64 32 44 DC AF E2 63 32 44 DC AF DB E3 32 44
             E4 DC B0 E5 72 43 31 71 2E 0C E7 2E 0E 14 31 71 E9 6B 10 31 71 EB
             2E 0E 14 31 71 DC AF EC 72 43 63 1B 08 87 01 00 14 31 63 83 01 AD
             8D 9F 74 16 02 ED 2E 0E 14 31 71 DA B0 DB AF 32 44 19 04)
       (|COMMON-LISP-USER|::|META-PROCESS| 6. |COMMON-LISP-USER|::|ACT-R-MODEL|
        5. 3. 4. 9. 10. 11. 0.
        #Y(|COMMON-LISP-USER|::|RESET-MODEL-1|
           #41Y(00 00 00 00 02 00 00 00 26 03 DA AE DB 63 32 44 DA AE DC 32 43
                1F 10 38 09 C8 FB C9 FA 71 6D DA AF DF AF 32 44 19 04 19 03)
           (|COMMON-LISP-USER|::|ACT-R-BUFFER| 2. 10. |COMMON-LISP|::|EQ| 5.
            12.)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|BUFFER-NAME| |COMMON-LISP-USER|::|BUFFER|)
           |COMMON-LISP|::|NIL| 1)
        2. |COMMON-LISP-USER|::|CREATE-MODEL-DEFAULT-CHUNK-TYPES-AND-CHUNKS|
        #Y(|COMMON-LISP-USER|::|RESET-MODEL-2|
           #15Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 19 03)
           (|COMMON-LISP-USER|::|RESET-MODULE|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|MODULE-NAME| |COMMON-LISP-USER|::|INSTANCE|)
           |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP-USER|::|GLOBAL-MODULES-TABLE|
        #Y(|COMMON-LISP-USER|::|RESET-MODEL-3|
           #22Y(00 00 00 00 02 00 00 00 26 03 AE DA AF DB 72 43 7B 02 2F 02 19
                03)
           (|COMMON-LISP-USER|::|ACT-R-PARAMETER| 2.
            |COMMON-LISP-USER|::|SGP-FCT|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|PARAMETER-NAME|
            |COMMON-LISP-USER|::|PARAMETER|)
           |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP-USER|::|*ACT-R-PARAMETERS-TABLE*|
        #Y(|COMMON-LISP-USER|::|RESET-MODEL-4|
           #15Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 19 03)
           (|COMMON-LISP-USER|::|SECONDARY-RESET-MODULE|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|MODULE-NAME| |COMMON-LISP-USER|::|VAL|)
           |COMMON-LISP|::|NIL| 1)
        8.
        #Y(|COMMON-LISP-USER|::|RESET-MODEL-5|
           #15Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 19 03)
           (|COMMON-LISP-USER|::|TERTIARY-RESET-MODULE|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|COMMON-LISP-USER|::|MODULE-NAME| |COMMON-LISP-USER|::|VAL|)
           |COMMON-LISP|::|NIL| 1))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|MP| |COMMON-LISP-USER|::|MODEL|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))