home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-0s.lha / loop.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-06-17  |  26.7 KB  |  499 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  4.    (LOOP LOOP-FINISH)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D8 6A 01 37 03 30 BB 0F 01 19 01)
  7.    LOOP *FEATURES*
  8.   )
  9. #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  10. #Y(#:TOP-LEVEL-FORM-5-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  11.    LOOP-KEYWORDP REMOVE-OLD-DEFINITIONS
  12.    #Y(LOOP-KEYWORDP
  13.       #23Y(00 01 00 00 00 02 AB 31 08 1E 0A AB 71 8C D8 37 01 30 67 19 02 19 02
  14.           )
  15.       #.(MAKE-HASH-TABLE :TEST #'EQUAL :INITIAL-CONTENTS
  16.           (MAPCAR #'(LAMBDA (S) (CONS (SYMBOL-NAME S) S))
  17.             '(NAMED FOR AS AND FROM DOWNFROM UPFROM TO DOWNTO UPTO BELOW ABOVE
  18.                BY IN ON = THEN ACROSS BEING EACH THE HASH-KEY HASH-KEYS
  19.                HASH-VALUE HASH-VALUES OF USING SYMBOL PRESENT-SYMBOL
  20.                INTERNAL-SYMBOL EXTERNAL-SYMBOL SYMBOLS PRESENT-SYMBOLS
  21.                INTERNAL-SYMBOLS EXTERNAL-SYMBOLS REPEAT WHILE UNTIL ALWAYS
  22.                NEVER THEREIS COLLECT COLLECTING APPEND APPENDING NCONC NCONCING
  23.                COUNT COUNTING SUM SUMMING MAXIMIZE MAXIMIZING MINIMIZE
  24.                MINIMIZING INTO WITH IF WHEN UNLESS ELSE END IT DO DOING RETURN
  25.                OF-TYPE INITIALLY FINALLY
  26.   )  )  ) )  )
  27. #Y(#:TOP-LEVEL-FORM-5-2 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  28.    (SPECIAL *WHOLE*)
  29.   )
  30. #Y(#:TOP-LEVEL-FORM-5-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  31.    LOOP-SYNTAX-ERROR REMOVE-OLD-DEFINITIONS
  32.    #Y(LOOP-SYNTAX-ERROR
  33.       #21Y(00 01 00 00 00 02 D8 D9 DA 6D 03 03 DC AD 71 8C 6A 05 32 03 1E)
  34.       "~S: syntax error after ~A in ~S" "~S: Syntaxfehler nach ~A in ~S"
  35.       "~S : mauvaise syntaxe après ~A dans ~S" LANGUAGE LOOP *WHOLE*
  36.   )  )
  37. #Y(#:TOP-LEVEL-FORM-5-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  38.    DESTRUCTURE-VARS REMOVE-OLD-DEFINITIONS
  39.    #Y(DESTRUCTURE-VARS
  40.       #36Y(00 01 00 00 00 02 91 01 0B 00 19 02 AB 60 01 19 02 92 01 75 9C 1F 75
  41.            93 01 6B 76 94 02 6B 72 32 02 24 19 02
  42.   )  )    )
  43. #Y(#:TOP-LEVEL-FORM-5-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  44.    EMPTY-TREE-P REMOVE-OLD-DEFINITIONS
  45.    #Y(EMPTY-TREE-P
  46.       #35Y(00 01 00 00 00 02 91 01 09 02 19 02 00 19 02 92 01 77 9C 1F 77 93 01
  47.            27 76 1E 06 94 01 28 01 03 6E 19 02
  48.   )  )    )
  49. #Y(#:TOP-LEVEL-FORM-5-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  50.    DESTRUCTURE-TYPE REMOVE-OLD-DEFINITIONS
  51.    #Y(DESTRUCTURE-TYPE
  52.       #65Y(00 02 00 00 00 03 91 02 29 00 19 03 D8 AC AE 7A 03 60 01 19 03 93 02
  53.            93 02 6B 14 94 03 94 03 6B 0E 32 02 24 19 03 D8 AD 9D 7B 02 60 01 19
  54.            04 92 02 57 9D 1F 57 9C 20 5D AC 6E 01 91 00 68 00 19 04
  55.           )
  56.       TYPE DESTRUCTURE-VARS
  57.   )  )
  58. #Y(#:TOP-LEVEL-FORM-5-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  59.    SIMPLE-TYPE-P REMOVE-OLD-DEFINITIONS
  60.    #Y(SIMPLE-TYPE-P
  61.       #33Y(00 01 00 00 00 02 9C 1F 0C 93 01 27 79 1E 10 94 01 28 01 03 71 9C 25
  62.            00 03 02 19 02 00 19 02 19 02
  63.           )
  64.       #S(HASH-TABLE EQ (FLOAT . 1.) (FIXNUM . 1.) (T . 1.) (NIL . 1.))
  65.   )  )
  66. #Y(#:TOP-LEVEL-FORM-5-8 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  67.    (SPECIAL *HELPVARS*)
  68.   )
  69. #Y(#:TOP-LEVEL-FORM-5-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  70.    HELPVAR REMOVE-OLD-DEFINITIONS
  71.    #Y(HELPVAR
  72.       #33Y(00 01 00 00 00 02 AB 6A 00 70 16 90 01 2D 0A 37 01 71 90 6A 00 37 01
  73.            30 1A 6A 00 AC 32 01 01 19 02
  74.           )
  75.       *HELPVARS*
  76.   )  )
  77. #Y(#:TOP-LEVEL-FORM-5-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  78.    DESTRUCTURE REMOVE-OLD-DEFINITIONS
  79.    #Y(DESTRUCTURE
  80.       #25Y(00 02 00 00 00 03 AC AC D8 C4 33 1D 0A D8 6E 02 AC 7A 02 60 01 19 03
  81.            19 03
  82.           )
  83.       0.
  84.       #Y(DESTRUCTURE-DESTRUCTURE-TREE
  85.          #83Y(00 03 00 00 00 04 AD 87 00 19 9E 1F 19 93 03 87 00 1C 94 03 88 00
  86.               1C 93 03 C5 14 AE 7A 02 AD 28 03 07 63 00 19 04 AD AD 7A 02 60 01
  87.               19 04 94 03 C4 1A 67 AB 6E 03 93 04 DA DC AD B1 7A 03 7A 02 95 04
  88.               6B 42 94 05 D9 AD 7A 02 AF 6B FF B8 32 02 24 19 05
  89.              )
  90.          EMPTY-TREE-P CDR CAR HELPVAR SETQ
  91.         )
  92.       HELPVAR
  93.   )  )
  94. #Y(#:TOP-LEVEL-FORM-5-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  95.    DEFAULT-BINDINGS REMOVE-OLD-DEFINITIONS
  96.    #Y(DEFAULT-BINDINGS
  97.       #120Y(00 02 00 00 00 03 62 AD 1A 0C 93 00 AA 62 7A 02 83 02 16 01 82 00
  98.             9B 20 71 16 01 AA 7F A7 00 AC 62 1A 80 4B 9D 5B 78 62 1A 14 86 01
  99.             00 14 B1 37 06 C6 F8 71 5D 94 00 AE 30 AC 16 01 82 01 AB 8C 96 68
  100.             16 02 1A 25 86 01 00 5B 77 01 02 AC 89 00 1A C4 F6 14 AC 89 00 4C
  101.             C5 F6 14 AC 89 00 45 DC DD AD 7A 03 94 03 AB 30 AC 16 01 16 02 82
  102.             01 AB 8C 96 53 16 02 15 19 03
  103.            )
  104.       TYPEP 0. 0.0f0 #.#'FIRST OR NULL
  105.   )  )
  106. #Y(#:TOP-LEVEL-FORM-5-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  107.    WRAP-INITIALISATIONS REMOVE-OLD-DEFINITIONS
  108.    #Y(WRAP-INITIALISATIONS
  109.       #76Y(00 02 00 00 00 03 AC 62 1A 39 86 01 00 77 9C 5B 77 9D 5B 5B 77 AC 9E
  110.            25 00 12 9D 1A 10 AC 60 01 1A 0B 9D 1A 08 D9 9E 79 60 01 1A 06 00 14
  111.            91 02 74 00 14 A1 5B 5B 78 B4 7A 01 32 04 23 5C FC 16 03 82 01 AB 8C
  112.            96 43 16 02 9C 19 03
  113.           )
  114.       #S(HASH-TABLE EQ (PROGN . 9.) (LET . 4.) (MULTIPLE-VALUE-BIND . 1.))
  115.       DECLARE
  116.   )  )
  117. #Y(#:TOP-LEVEL-FORM-5-13 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  118.    (SPECIAL *LAST-IT*)
  119.   )
  120. #Y(#:TOP-LEVEL-FORM-5-14 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  121.    (SPECIAL *USED-IT*)
  122.   )
  123. #Y(#:TOP-LEVEL-FORM-5-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  124.    EXPAND-LOOP REMOVE-OLD-DEFINITIONS
  125.    #Y(EXPAND-LOOP
  126.       #2375Y(00 02 00 00 00 03 9D 10 00 00 2A 0C 7E 05 00 00 00 0B 00 01 14 D9
  127.              63 37 06 C5 F8 30 1B 10 03 00 10 04 00 0B 07 02 0B 07 03 0B 07 04
  128.              0B 07 05 0B 07 06 0B 07 07 0B 07 08 14 01 02 00 0B 0A 09 0B 0A 0A
  129.              14 00 0B 0B 0B A6 2A 08 AA 2B 05 01 0B 00 00 AA 2B 06 01 0B 00 01
  130.              AA 2B 07 01 0B 00 02 AA 2B 08 01 0B 00 03 AA 6C 09 01 AB 2B 0A 01
  131.              0B 01 04 AB 2B 0B 01 0B 01 05 AB 2B 0C 01 0B 01 06 AB 2B 0D 01 0B
  132.              01 07 AB 6C 0E 01 E7 06 03 01 33 1C 86 85 06 0E 00 1F 07 06 0E 00
  133.              77 8D 08 03 E7 2E 10 06 0E 00 77 06 0F 00 5B 0B 0F 00 15 0B 0E 01
  134.              1A 86 64 7D 0E AA 83 05 16 01 1A 86 5A 06 02 06 73 91 00 6F 06 0F
  135.              00 77 6E 11 9B 25 12 86 32 06 10 00 5B 0B 10 00 7D 0F AA 06 05 02
  136.              73 9C 25 13 80 56 EC AB 03 15 61 02 1A 80 4E EE AB 03 17 61 02 1A
  137.              80 45 63 06 12 0B 5C 0B 11 0B EC AB F0 67 14 01 03 19 1A 10 63 06
  138.              12 0B 5C 0B 11 0B EE AB F0 67 14 01 03 1A 7B 02 60 03 1A 1D 37 01
  139.              71 90 F3 AB F0 67 15 01 F4 B0 F0 B1 03 1D 7B 02 7A 03 7A 03 60 03
  140.              16 01 1A 01 00 14 83 07 16 03 1A 85 D6 06 10 00 5B 0B 10 00 64 1E
  141.              06 05 04 33 79 83 08 16 02 1A 85 C1 06 10 00 5B 0B 10 00 06 04 05
  142.              33 1B 07 64 1E 06 05 04 33 5C 14 83 05 16 02 1A 85 A5 06 10 00 5B
  143.              0B 10 00 92 0F 11 64 1F 64 20 64 21 6D 03 22 64 23 AC 71 8C 2C 03
  144.              24 9B 25 25 85 83 01 02 1A 12 64 26 06 0A 02 73 AC AB 2F 27 F9 16
  145.              01 1A 17 03 2A F8 62 A1 33 41 02 64 26 06 0A 01 33 1B 61 AB 6E 28
  146.              AB 2F 29 F8 AC AF 7F A5 04 AA AE 7F A5 03 16 03 64 2A 06 07 01 33
  147.              1B 55 01 02 64 2B AE 71 4A AE 71 4A 62 A5 33 16 04 1A 85 35 9F 2A
  148.              01 01 02 00 0B 02 00 14 9E 2A 03 AA 2B 2C 01 0B 00 00 AA 2B 2D 01
  149.              0B 00 01 AA 2B 2E 01 0B 00 02 AA 6C 2F 01 A4 33 41 02 06 0C 00 73
  150.              9B 25 30 82 D8 64 36 AD 60 02 1A 80 62 64 37 AD AD 60 03 1A 80 6A
  151.              06 19 00 5B 0B 19 00 AA 06 0E 02 73 64 31 62 64 32 06 11 01 33 1C
  152.              07 64 32 06 11 02 33 F7 9C 1F 14 93 01 24 33 0F 9C 5B 1F 0B 9C 5B
  153.              5B 1B 06 9C 5B 77 8D 08 05 37 01 80 90 00 37 01 71 90 AA AE 7A 02
  154.              83 0B 92 01 06 14 AD 7A 02 83 0B 64 34 AB 7A 02 B1 B0 23 35 FF 97
  155.              9D 14 6F 27 B1 A5 33 AA 91 02 FF 93 9E 5B 77 AC 60 02 14 7A 02 83
  156.              09 16 04 1A 83 D4 AE AB 6F 27 B2 7F A5 07 16 02 1A 83 C7 06 19 00
  157.              5B 0B 19 00 64 38 06 0E 02 73 AA 64 39 06 10 01 33 1C 07 64 39 06
  158.              10 02 33 F6 AE AC 6F 27 B4 7F A5 09 AD B3 7F A5 08 AB 8B 61 04 02
  159.              0B 1B 08 AB AB 8E 03 FF BB AA 8C 61 FF B6 16 02 1A 83 85 06 19 00
  160.              5B 0B 19 00 AA 06 0E 02 73 37 01 71 90 37 01 71 90 AB AD 7A 02 83
  161.              0A AA 03 3A 79 83 0A 64 3B AB 64 3C AE 7A 02 7A 03 B0 64 3D AE AE
  162.              7A 03 6F 27 B0 A4 33 AA 64 3E AC 7A 02 7A 02 83 08 16 03 1A 83 40
  163.              06 19 00 5B 0B 19 00 06 0D 00 73 AA 23 3F 08 AA 23 40 04 64 41 2E
  164.              10 06 1A 00 5B 0B 1A 00 06 0E 00 73 9B 25 42 2A AB 24 40 29 64 43
  165.              64 44 64 45 6D 03 22 03 23 1A 0F AB 24 3F 18 64 46 64 47 64 48 6D
  166.              03 22 03 23 14 AD AD 71 8C 2C 04 24 1A 03 AB 2E 10 06 1B 00 5B 0B
  167.              1B 00 06 0F 00 73 AA 23 35 07 AA 23 49 03 AB 2E 10 16 01 06 1B 00
  168.              5B 0B 1B 00 AA 06 10 02 73 9C 25 4A 81 3E 62 64 4B 06 12 01 33 1C
  169.              80 49 06 1D 00 1F 31 06 1D 00 5A 1F 2B 06 1D 00 5A 5B 1F 24 06 1D
  170.              00 5A 5B 5B 1B 1C 06 1D 00 5A 77 2E 11 25 4C 12 AC 23 4D 12 AC 24
  171.              4E 0A 1A 0C AC 23 4F 08 AC 23 50 04 64 4B 2E 10 06 1D 00 77 06 1E
  172.              00 5B 0B 1E 00 15 5B 5A F6 37 01 71 90 37 01 71 90 37 01 71 90 37
  173.              01 71 90 A1 25 51 22 AB 9C 1A 02 AA 9D 14 3F 02 1A 18 00 1A 3B 63
  174.              62 64 2B B3 AE 6F 27 62 7A 05 06 0F 00 33 16 0A 1A 82 3B 00 41 02
  175.              AF 64 52 B3 7A 02 7A 02 83 11 63 62 64 53 B1 B1 B1 7A 03 64 54 B4
  176.              7A 02 7A 02 91 0A 49 64 55 AF 7A 02 60 01 14 7A 05 06 0F 00 33 EC
  177.              AF 03 56 7B 02 06 0F 02 33 63 62 64 2B B9 AF 6F 27 B9 7A 05 06 0F
  178.              00 33 91 06 FF A1 16 0A 1A 81 EB 9C 25 57 10 03 58 1A 0D 03 59 1A
  179.              09 03 5A 1A 05 03 5B 1A 01 00 14 37 01 71 90 37 01 71 90 37 01 71
  180.              90 AC 64 5C B0 64 5D B1 7A 02 7A 03 7A 02 83 0E 63 62 64 53 AE AE
  181.              7A 02 64 5E B1 7A 02 7A 02 62 7A 05 06 0C 00 33 EC AC 03 5F 7B 02
  182.              06 0C 02 33 63 62 64 2B B6 AE 6F 27 B6 7A 05 06 0C 00 33 16 07 1A
  183.              81 86 16 03 1A 81 81 AC 8D 08 03 B3 2E 10 01 06 A1 25 60 19 7D 05
  184.              1A 08 03 61 FB 1A 03 03 62 FB 06 1F 00 5B 0B 1F 00 B0 06 14 02 33
  185.              F8 06 13 00 33 FC 25 63 35 7D 04 1A 24 03 61 FA 1A 1F 64 64 64 65
  186.              64 66 6D 03 22 64 23 04 11 1A 80 4D AF 23 61 6C AE 23 61 68 03 62
  187.              1A 2B 03 62 FA 06 1F 00 5B 0B 1F 00 B0 06 14 02 33 F7 64 32 06 14
  188.              01 33 1C 09 7D 03 64 32 06 14 02 33 F6 AF 23 62 4F AE 23 62 4B 03
  189.              61 14 91 06 80 A1 AA 24 62 80 9A 64 67 64 68 64 69 6D 03 22 64 23
  190.              A4 14 31 8C 1A 81 BC 37 01 71 90 AA AE 7A 02 83 0F 9B F9 16 01 92
  191.              04 80 8E 1A 80 8D 37 01 71 90 AA AD 7A 02 83 0F 9B F8 16 01 92 05
  192.              80 AD 1A 80 80 03 3B 1A 80 87 B1 23 6A 77 03 6B 1A 80 7E 03 6D 1A
  193.              80 79 9B 25 6F 1E 64 70 03 71 1A 08 03 72 1A 0C 64 70 03 72 14 B6
  194.              60 02 1A 04 03 71 14 A6 14 60 02 1A 80 68 00 1A 80 64 03 74 1A 80
  195.              74 06 17 00 5B 0B 17 00 16 01 1A FC 0D 03 2A FC 06 0A 00 73 AA 23
  196.              76 69 AA 23 77 65 16 01 1A FB F9 C5 F9 B3 AE 7A 02 83 0E B2 B8 7F
  197.              A5 0D 92 05 05 AC 8C 61 FF 63 91 04 02 C4 F7 AB 8C 61 FF 6E 92 05
  198.              2A AA 23 61 FF 80 B1 23 6C FF 84 03 6E 14 AD 8C 61 07 AD 70 5E 8D
  199.              92 FF 7B AA B5 AF 60 03 14 EE AB 03 73 7B 02 06 0E 02 33 16 02 B3
  200.              AB 23 61 FF 89 03 75 14 B5 AE 7A 03 7A 02 83 0C 16 07 16 03 64 2A
  201.              06 0B 01 33 1B FF 82 16 02 64 78 AB 31 4A 36 00 F6 1C 0B 64 79 9C
  202.              79 06 15 09 5C 0B 14 09 62 06 15 09 5C 0B 14 09 01 02 64 2B AF 71
  203.              4A AF 71 4A 62 A7 33 67 03 00 71 4A 62 1A 13 86 01 00 5A 1C 03 06
  204.              16 09 14 9C 5B 39 04 00 A9 33 82 01 AB 8C 96 69 16 08 1A 80 4E AA
  205.              06 05 02 73 37 01 71 90 01 02 64 2B AD AF 7A 02 7A 01 01 02 A5 33
  206.              EC 64 72 AC 7A 02 03 7A 7B 02 83 09 64 7B AB 64 7C AD 7A 02 7A 03
  207.              06 13 09 5C 0B 12 09 16 04 1A 16 64 7D 64 7E 64 7F 6D 03 22 64 23
  208.              06 12 00 77 6A 00 32 03 1E 16 02 06 0E 00 20 F9 A0 67 0E 0B 37 06
  209.              03 80 80 F7 31 56 0B 0E 0B 14 71 48 D9 90 01 30 14 64 80 81 64 80
  210.              82 64 80 83 6D 03 22 64 23 0E 00 14 32 02 1E 06 0E 0B 1C 0B F0 67
  211.              0F 01 06 10 0B 7B 02 83 03 01 02 67 10 07 06 11 08 1B 3C 06 11 07
  212.              1C 37 1A 19 16 01 1A 31 9C 5A 1A 80 69 00 1A 80 65 9B 5B 78 83 02
  213.              16 01 06 11 07 1C 1C 06 11 07 77 9B 5A 1C 5F 06 12 07 5B 0B 12 07
  214.              9B 5B 5B 77 24 53 5E 7E 01 12 07 16 01 16 01 67 10 07 31 4A 0B 10
  215.              07 06 10 07 1C 80 87 06 10 07 77 06 11 07 5B 0B 11 07 93 00 9C 5B
  216.              77 9D 5B 5B F8 77 9E 5B 77 9F 5B 5B 77 AC 23 53 FF 9E AC 23 1E FF
  217.              9E 64 80 84 AC 32 00 17 14 9E 25 80 85 33 64 80 86 9E 5C 1A 2D 64
  218.              7B 64 78 9F 36 00 5C 1A 23 9D 5A 1A 1F AA BA 70 A5 80 4A 0F 1A 2E
  219.              64 2B AC AE 6F 29 AE 7A 03 83 09 91 06 69 AA BB 7F A5 10 1A 19 00
  220.              14 A2 5B 5B 5B 79 91 05 61 B1 83 09 92 06 09 14 94 07 AC 72 02 24
  221.              30 AE 16 08 06 10 07 1B FF 79 AB 80 4A 01 64 2B 64 80 87 64 80 88
  222.              6A 03 72 00 26 62 67 13 04 37 06 71 56 1A 0D 93 00 AA 03 80 89 79
  223.              83 02 16 01 82 00 9B 20 70 16 01 AA 7F A7 00 62 67 14 05 37 06 71
  224.              56 1A 32 64 1E BB 31 4A 79 60 01 1A 80 57 64 1E BC 31 4A 79 60 01
  225.              1A 80 55 64 1E 67 1D 09 03 80 91 33 79 60 01 1A 80 5A 93 00 AA 03
  226.              80 8A 79 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A7 00 72 03 23 67
  227.              12 06 71 4A 7A 03 83 01 64 80 8B 64 80 8C F3 67 13 01 AF 71 4A 64
  228.              80 8B 64 80 8D 64 80 8E 91 10 FF 9F 00 14 64 80 8F 91 11 FF A1 00
  229.              14 B5 71 4A 64 1E BD 31 4A 79 6F 80 90 06 1C 09 1B FF 98 00 14 64
  230.              80 92 64 80 93 62 67 20 0A 1A 13 93 00 64 7B AB 64 80 94 AD 7A 02
  231.              7A 03 83 02 16 01 82 00 9B 20 6A 16 01 AA 7F A7 00 64 80 8B 64 80
  232.              95 C1 31 4A 7B 02 7A 01 32 02 23 7B 02 32 02 23 79 32 02 23 79 32
  233.              02 23 79 7A 03 6F 80 90 7A 03 60 03 16 09 12 02 16 02 11 19 03
  234.             )
  235.       *WHOLE* 1. 0. *HELPVARS* *LAST-IT*
  236.       #Y(EXPAND-LOOP-NEXT-KW
  237.          #23Y(00 00 00 00 00 01 68 01 01 31 06 1E 08 07 01 01 77 2E 01 19 01 19
  238.               01
  239.              )
  240.          NIL LOOP-KEYWORDP
  241.         )
  242.       #Y(EXPAND-LOOP-PARSE-KW-P
  243.          #35Y(00 01 00 00 00 02 68 01 01 31 06 1E 14 07 01 01 77 6E 01 9D 59 1E
  244.               0A 07 01 01 5B 0C 01 01 02 19 02 19 02
  245.              )
  246.          NIL LOOP-KEYWORDP
  247.         )
  248.       #Y(EXPAND-LOOP-PARSE-FORM
  249.          #28Y(00 01 00 00 00 02 07 01 01 20 03 AB 2E 01 07 01 01 77 07 01 01 5B
  250.               0C 01 01 15 19 02
  251.              )
  252.          NIL LOOP-SYNTAX-ERROR
  253.         )
  254.       #Y(EXPAND-LOOP-PARSE-FORM-OR-IT
  255.          #50Y(00 01 00 00 00 02 07 01 01 20 03 AB 2E 01 07 01 01 77 07 01 01 5B
  256.               0C 01 01 AA 6E 02 23 03 0A 15 19 02 02 0F 05 0E 04 19 03 0E 04 1B
  257.               75 DB 2E 01 19 03
  258.              )
  259.          NIL LOOP-SYNTAX-ERROR LOOP-KEYWORDP IT *LAST-IT* *USED-IT*
  260.         )
  261.       #Y(EXPAND-LOOP-PARSE-VAR-TYPESPEC
  262.          #113Y(00 00 00 00 00 01 07 01 01 1F 39 07 01 01 77 07 01 01 5B 0C 01
  263.                01 62 07 01 01 1F 22 07 01 01 77 6E 06 92 00 29 AA 24 0C 80 43
  264.                07 01 01 5B 0C 01 01 E4 07 00 03 33 F7 16 01 AB AB 2F 0D F6 AB
  265.                AB 3F 02 19 03 D9 DA DB 6D 03 04 DD 32 01 1E 07 01 01 77 07 01
  266.                01 5B 0C 01 01 69 01 14 87 07 58 E0 E1 E2 6D 03 04 DD AE AE 2C
  267.                04 0B 1A 4A 16 01 1A 4D
  268.               )
  269.          NIL "~S: missing variable" "~S: Variable fehlt."
  270.          "~S : Il manque une variable." LANGUAGE LOOP LOOP-KEYWORDP
  271.          SIMPLE-TYPE-P
  272.          "~S: After ~S, ~S is interpreted as a type specification"
  273.          "~S: Nach ~S wird ~S als Typspezifikation interpretiert."
  274.          "~S : Après ~S, on traite ~S comme une spécification d'un type." WARN
  275.          OF-TYPE DESTRUCTURE-TYPE
  276.         )
  277.       #Y(EXPAND-LOOP-PARSE-PROGN
  278.          #39Y(00 00 00 00 00 01 62 1A 0D 07 01 01 77 07 01 01 5B 0C 01 01 83 00
  279.               07 01 01 1F 07 07 01 01 77 88 01 67 AA 31 4A 19 02
  280.              )
  281.          NIL LOOP-KEYWORDP
  282.         )
  283.       #Y(EXPAND-LOOP-PARSE-UNCONDITIONAL
  284.          #52Y(00 00 00 00 00 01 07 00 01 73 9B 25 01 23 07 01 01 5B 0C 01 01 DA
  285.               07 00 05 33 5C 19 02 07 01 01 5B 0C 01 01 DB 68 01 02 AC 07 00 04
  286.               73 60 03 19 02 00 19 02
  287.              )
  288.          NIL #S(HASH-TABLE EQ (RETURN . 16.) (DOING . 1.) (DO . 1.)) PROGN
  289.          RETURN-FROM
  290.         )
  291.       #Y(EXPAND-LOOP-PARSE-CLAUSE
  292.          #447Y(00 00 00 00 00 01 07 00 06 33 1D 81 B0 07 00 01 73 9B 25 01 81
  293.                A4 DA 2E 03 92 00 3B 14 68 01 0B 37 03 30 BB 0C 01 0B 1A 80 45
  294.                07 01 01 5B 0C 01 01 AA 07 00 04 73 62 DA 07 00 02 33 1C 16 07
  295.                01 01 1F 53 07 01 01 77 07 01 01 5B 0C 01 01 69 00 14 8E 08 42
  296.                91 00 45 07 01 03 1B 07 37 01 31 90 0C 01 03 F6 DC AB 7A 02 07
  297.                01 0C 5C 0C 01 0C AA 07 01 05 5C 0C 01 05 DD AB 9F 25 06 0C CA
  298.                1A 80 B8 CB 1A 80 B4 CC 1A 80 B0 00 1A 80 AC DA 2E 03 92 00 30
  299.                1A 80 42 07 01 01 5B 0C 01 01 AA 07 00 04 73 62 DA 07 00 02 33
  300.                1C 16 07 01 01 1F 5E 07 01 01 77 07 01 01 5B 0C 01 01 69 00 14
  301.                8E 08 4D 91 00 15 07 01 04 1B 07 37 01 31 90 0C 01 04 F6 14 07
  302.                01 0C 5C 0C 01 0C 07 01 01 1F 2A 07 01 01 77 87 0A 23 07 01 01
  303.                77 07 01 01 5B 0C 01 01 9E 25 0B 06 E4 E5 AC 60 03 F6 E6 AB AD
  304.                7A 03 07 01 07 5C 0C 01 07 16 01 9D 25 0F 12 AA 07 01 05 5C 0C
  305.                01 05 1A 08 AA 07 01 06 5C 0C 01 06 9D 25 10 23 E9 AC EA AD 60
  306.                02 1A 16 DD AB EB AD A0 1A 0C DD AB D7 1A 04 DD AB 03 15 14 AE
  307.                9F 14 60 03 14 60 03 19 04 00 19 04 F4 B0 60 02 1A 80 60 F5 AF
  308.                AC 60 03 19 08 07 01 01 5B 0C 01 01 AA 07 00 03 73 37 01 71 90
  309.                62 9C 10 16 00 10 17 B3 07 00 08 73 0E 17 FD 15 12 02 14 62 F0
  310.                07 00 02 33 1C 15 9E 10 16 00 10 17 F0 07 00 08 73 91 09 02 0E
  311.                17 FF 15 12 02 F6 F1 07 00 02 33 92 02 0A AD AF 7A 02 7A 01 9F
  312.                FB 69 03 F2 B0 23 1B FF 9A A0 14 AD AD 7A 04 91 03 FF 97 15 19
  313.                07 00 19 02 19 01
  314.               )
  315.          NIL
  316.          #S(HASH-TABLE EQ (UNLESS . 321.) (WHEN . 321.) (IF . 321.)
  317.             (MINIMIZING . 130.) (MINIMIZE . 130.) (MAXIMIZING . 130.)
  318.             (MAXIMIZE . 130.) (SUMMING . 130.) (SUM . 130.) (COUNTING . 130.)
  319.             (COUNT . 130.) (NCONCING . 22.) (NCONC . 22.) (APPENDING . 22.)
  320.             (APPEND . 22.) (COLLECTING . 22.) (COLLECT . 22.)
  321.            )
  322.          INTO LOOP-SYNTAX-ERROR LIST-NREVERSE SETQ
  323.          #S(HASH-TABLE EQ (NCONCING . 9.) (NCONC . 9.) (APPENDING . 5.)
  324.             (APPEND . 5.) (COLLECTING . 1.) (COLLECT . 1.)
  325.            )
  326.          CONS REVAPPEND NRECONC LOOP-KEYWORDP
  327.          #S(HASH-TABLE EQ (MINIMIZING . 1.) (MINIMIZE . 1.) (MAXIMIZING . 1.)
  328.             (MAXIMIZE . 1.)
  329.            )
  330.          OR NULL TYPE
  331.          #S(HASH-TABLE EQ (SUMMING . 11.) (SUM . 11.) (COUNTING . 11.)
  332.             (COUNT . 11.) (MINIMIZING . 1.) (MINIMIZE . 1.) (MAXIMIZING . 1.)
  333.             (MAXIMIZE . 1.)
  334.            )
  335.          #S(HASH-TABLE EQ (MINIMIZING . 21.) (MINIMIZE . 21.)
  336.             (MAXIMIZING . 16.) (MAXIMIZE . 16.) (SUMMING . 9.) (SUM . 9.)
  337.             (COUNTING . 1.) (COUNT . 1.)
  338.            )
  339.          WHEN INCF + MAX-IF MIN-IF *LAST-IT* *USED-IT* ELSE END IF UNLESS NOT
  340.          LET
  341.         )
  342.       #Y(EXPAND-LOOP-PARSE-CLAUSES
  343.          #43Y(00 01 00 00 00 02 62 1A 05 C5 F8 00 0F 03 07 00 07 73 91 00 03 AD
  344.               2E 01 AA 83 01 16 01 DA 07 00 02 33 1B 65 DC AB 31 4A 5C 19 03
  345.              )
  346.          NIL LOOP-SYNTAX-ERROR AND *LAST-IT* PROGN
  347.         )
  348.       #Y(EXPAND-LOOP-NOTE-INITIALISATION
  349.          #41Y(00 05 00 00 01 00 91 03 09 91 02 06 91 01 03 00 19 07 B0 07 01 09
  350.               1B 01 A1 14 B0 B0 B0 A1 7B 05 07 01 08 5C 0C 01 08 19 07
  351.              )
  352.          NIL
  353.         )
  354.       NAMED LOOP-SYNTAX-ERROR LOOP-KEYWORDP
  355.       #S(HASH-TABLE EQ (REPEAT . 165.) (AS . 165.) (FOR . 165.) (WITH . 165.)
  356.          (FINALLY . 137.) (INITIALLY . 116.) (THEREIS . 2.) (NEVER . 2.)
  357.          (ALWAYS . 2.) (UNTIL . 2.) (WHILE . 2.)
  358.         )
  359.       #S(HASH-TABLE EQ (THEREIS . 60.) (NEVER . 38.) (ALWAYS . 20.)
  360.          (UNTIL . 11.) (WHILE . 2.)
  361.         )
  362.       UNLESS ((LOOP-FINISH)) WHEN ((LOOP-FINISH)) RETURN-FROM ('NIL) ('NIL)
  363.       BLOCK OR (NIL) PROGN
  364.       "~S: ~A clauses should occur before the loop's main body"
  365.       "~S: ~A-Klauseln sollten vor dem Schleifeninhalt kommen."
  366.       "~S : Les phrases ~A doivent apparaître avant le contenu principale de la boucle."
  367.       LANGUAGE LOOP WARN
  368.       #S(HASH-TABLE EQ (REPEAT . 1337.) (AS . 82.) (FOR . 82.) (WITH . 2.)) =
  369.       DESTRUCTURE DESTRUCTURE-VARS DEFAULT-BINDINGS AND LET
  370.       #Y(EXPAND-LOOP-NOTE-INITIALISATION
  371.          #16Y(00 00 00 00 01 16 AB 07 01 01 5C 0C 01 01 19 02) NIL
  372.         )
  373.       #Y(EXPAND-LOOP-NOTE-ENDTEST
  374.          #21Y(00 01 00 00 00 02 62 63 D9 AE 7A 01 62 7A 05 07 00 01 33 19 02)
  375.          NIL PROGN
  376.         )
  377.       #Y(EXPAND-LOOP-NOTE-ENDTEST-BOTH
  378.          #29Y(00 01 00 00 00 02 AB 07 00 02 33 62 07 03 0A 5C 0C 03 0A AB 07 03
  379.               0A 5C 0C 03 0A 19 02
  380.              )
  381.          NIL
  382.         )
  383.       #Y(EXPAND-LOOP-NOTE-ENDTEST-ASSIGN
  384.          #34Y(00 03 00 00 00 04 D9 AE DA DB DC A2 36 00 79 7A 04 07 00 03 33 62
  385.               63 DD AF AF 7A 05 07 00 01 33 19 04
  386.              )
  387.          NIL IF (LOOP-FINISH) SETQ #.#'APPEND LET
  388.         )
  389.       #S(HASH-TABLE EQ (BEING . 283.) (ACROSS . 214.) (= . 148.) (ON . 19.)
  390.          (IN . 19.)
  391.         )
  392.       #'CDR BY FUNCTION ENDP IN CAR FUNCALL PREPOSITION THEN (0.) >= LENGTH
  393.       AREF 1+ EACH THE BEING
  394.       #S(HASH-TABLE EQ (EXTERNAL-SYMBOLS . 18.) (INTERNAL-SYMBOLS . 18.)
  395.          (PRESENT-SYMBOLS . 18.) (SYMBOLS . 18.) (HASH-VALUES . 18.)
  396.          (HASH-KEYS . 18.) (EXTERNAL-SYMBOL . 1.) (INTERNAL-SYMBOL . 1.)
  397.          (PRESENT-SYMBOL . 1.) (SYMBOL . 1.) (HASH-VALUE . 1.) (HASH-KEY . 1.)
  398.         )
  399.       "~S: After ~S a plural loop keyword is required, not ~A"
  400.       "~S: Nach ~S sollte ein Plural kommen, nicht ~A"
  401.       "~S : Après ~S, on s'attend au pluriel et non ~A"
  402.       "~S: After ~S a singular loop keyword is required, not ~A"
  403.       "~S: Nach ~S sollte ein Singular kommen, nicht ~A"
  404.       "~S : Après ~S, on s'attend au singulier et non ~A" OF
  405.       #S(HASH-TABLE EQ (EXTERNAL-SYMBOLS . 219.) (EXTERNAL-SYMBOL . 219.)
  406.          (INTERNAL-SYMBOLS . 219.) (INTERNAL-SYMBOL . 219.)
  407.          (PRESENT-SYMBOLS . 219.) (PRESENT-SYMBOL . 219.) (SYMBOLS . 219.)
  408.          (SYMBOL . 219.) (HASH-VALUES . 2.) (HASH-VALUE . 2.) (HASH-KEYS . 2.)
  409.          (HASH-KEY . 2.)
  410.         )
  411.       USING
  412.       #S(HASH-TABLE EQ (HASH-VALUES . 11.) (HASH-VALUE . 11.) (HASH-KEYS . 1.)
  413.          (HASH-KEY . 1.)
  414.         )
  415.       HASH-VALUE HASH-VALUES HASH-KEY HASH-KEYS
  416.       #S(HASH-TABLE EQ (HASH-VALUES . 5.) (HASH-VALUE . 5.) (HASH-KEYS . 1.)
  417.          (HASH-KEY . 1.)
  418.         )
  419.       HASH-TABLE-ITERATOR MULTIPLE-VALUE-BIND HASH-TABLE-ITERATE IGNORE
  420.       ((LOOP-FINISH))
  421.       #S(HASH-TABLE EQ (EXTERNAL-SYMBOLS . 13.) (EXTERNAL-SYMBOL . 13.)
  422.          (INTERNAL-SYMBOLS . 9.) (INTERNAL-SYMBOL . 9.) (PRESENT-SYMBOLS . 5.)
  423.          (PRESENT-SYMBOL . 5.) (SYMBOLS . 1.) (SYMBOL . 1.)
  424.         )
  425.       (:INTERNAL :EXTERNAL :INHERITED) (:INTERNAL :EXTERNAL) (:INTERNAL)
  426.       (:EXTERNAL) PACKAGE-ITERATOR QUOTE PACKAGE-ITERATE ((LOOP-FINISH))
  427.       #S(HASH-TABLE EQ (DOWNFROM . 10.) (UPFROM . 5.) (FROM . 1.)) UP DOWN
  428.       #S(HASH-TABLE EQ (ABOVE . 38.) (DOWNTO . 38.) (BELOW . 5.) (UPTO . 5.)
  429.          (TO . 1.)
  430.         )
  431.       "~S: questionable iteration direction after ~A"
  432.       "~S: Iterationsrichtung nach ~A unklar."
  433.       "~S : On compte vers le haut ou vers le bas après ~A ?"
  434.       "~S: specifying ~A requires FROM or DOWNFROM"
  435.       "~S: Zusammen mit ~A muß FROM oder DOWNFROM angegeben werden."
  436.       "~S : ~A ne va qu'avec FROM ou DOWNFROM" BELOW > ABOVE <= <
  437.       #S(HASH-TABLE EQ (< . 21.) (<= . 11.) (> . 7.) (>= . 1.)) NOT MINUSP
  438.       PLUSP ((LOOP-FINISH)) + - FOR AS #.#'APPEND PSETQ ((LOOP-FINISH)) SETQ 1-
  439.       "~S: illegal syntax near ~S in ~S" "~S: Illegale Syntax bei ~S in ~S"
  440.       "~S : syntaxe illégale près de ~S dans ~S" #.#'EQUAL
  441.       "~S: ambiguous result of loop ~S"
  442.       "~S: Ergebnis der Schleife ~S nicht eindeutig spezifiziert."
  443.       "~S : Le résultat de la boucle ~S est ambigu." #.#'FIRST
  444.       #S(HASH-TABLE EQ (PROGN . 18.) (LET . 8.) (MULTIPLE-VALUE-BIND . 1.))
  445.       MULTIPLE-VALUE-SETQ LIST
  446.       #Y(EXPAND-LOOP-1 #11Y(00 01 00 00 00 02 AB C3 5C 19 02) (NIL)) (NIL) (0.)
  447.       MACROLET ((LOOP-FINISH NIL (LOOP-FINISH-ERROR)))
  448.       ((LOOP-FINISH NIL '(GO END-LOOP))) TAGBODY BEGIN-LOOP
  449.       WRAP-INITIALISATIONS
  450.       #Y(EXPAND-LOOP-SPLIT
  451.          #44Y(00 01 00 00 00 02 01 02 AD 62 1A 13 14 83 03 1A 0C 86 01 00 1B 76
  452.               AD AD 7F A5 02 7C 03 82 01 AB 8C 96 6E 16 02 AB AB 30 A5 3E 19 04
  453.         )    )
  454.       (GO BEGIN-LOOP) END-LOOP LIST-NREVERSE
  455.       ((LOOP-FINISH NIL (LOOP-FINISH-WARN) '(GO END-LOOP)))
  456.   )  )
  457. #Y(#:TOP-LEVEL-FORM-5-16
  458.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 3D 19 01) LOOP
  459.    REMOVE-OLD-DEFINITIONS MACRO
  460.    #Y(LOOP
  461.       #45Y(00 01 00 01 00 08 94 02 98 00 AB 8F 00 27 18 37 01 71 90 DA 62 DB AD
  462.            AF DC B0 7A 02 7A 01 32 02 23 7B 02 60 03 19 05 AD AB 2F 01 19 04
  463.           )
  464.       LOOP-KEYWORDP EXPAND-LOOP BLOCK TAGBODY GO
  465.   )  )
  466. #Y(#:TOP-LEVEL-FORM-5-17
  467.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 3D 19 01) LOOP-FINISH
  468.    REMOVE-OLD-DEFINITIONS MACRO
  469.    #Y(LOOP-FINISH
  470.       #30Y(00 01 00 01 00 08 AC 71 48 D8 90 01 30 05 AC 2E 01 19 03 DA DB DC 6D
  471.            03 05 AD DE 32 02 1E
  472.           )
  473.       1. MACRO-CALL-ERROR "~S is possible only from within ~S"
  474.       "~S ist nur aus ~S heraus möglich."
  475.       "~S n'est possible qu'à l'intérieur de ~S." LANGUAGE LOOP
  476.   )  )
  477. #Y(#:TOP-LEVEL-FORM-5-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  478.    LOOP-FINISH-WARN REMOVE-OLD-DEFINITIONS
  479.    #Y(LOOP-FINISH-WARN #17Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 2F 05 19 01)
  480.       "Use of ~S in FINALLY clauses is deprecated because it can lead to infinite loops."
  481.       "Von der Verwendung von ~S in FINALLY-Klauseln wird abgeraten. Das kann nämlich zu Endlosschleifen führen."
  482.       "On recommande de ne pas utiliser ~S dans des phrases FINALLY car cela peut amener à des boucles infinies."
  483.       LANGUAGE (LOOP-FINISH) WARN
  484.   )  )
  485. #Y(#:TOP-LEVEL-FORM-5-19 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  486.    LOOP-FINISH-ERROR REMOVE-OLD-DEFINITIONS
  487.    #Y(LOOP-FINISH-ERROR #16Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 32 01 1E)
  488.       "~S is not possible here" "~S ist hier nicht möglich."
  489.       "~S n'est pas possible ici." LANGUAGE (LOOP-FINISH)
  490.   )  )
  491. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  492.    MAX-IF REMOVE-OLD-DEFINITIONS
  493.    #Y(MAX-IF #19Y(00 02 00 00 00 03 91 01 03 9D 19 03 AC AC 32 01 33 19 03))
  494.   )
  495. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  496.    MIN-IF REMOVE-OLD-DEFINITIONS
  497.    #Y(MIN-IF #19Y(00 02 00 00 00 03 91 01 03 9D 19 03 AC AC 32 01 34 19 03))
  498.   )
  499.