home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / loop.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  35.8 KB  |  699 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "LISP"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  6.    (LOOP LOOP-FINISH)
  7.   )
  8. #Y(#:TOP-LEVEL-FORM-3
  9.    #21Y(00 00 00 00 00 00 00 00 00 01 D8 6A 01 37 03 30 BC 0F 01 19 01) LOOP
  10.    *FEATURES*
  11.   )
  12. #Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  13.    "SYSTEM"
  14.   )
  15. #Y(#:TOP-LEVEL-FORM-5-1
  16.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  17.    LOOP-KEYWORDP REMOVE-OLD-DEFINITIONS
  18.    #Y(LOOP-KEYWORDP
  19.       #27Y(00 00 00 00 01 00 00 00 00 02 AB 31 09 1E 0A AB 71 8E D8 37 01 30 68
  20.            19 02 19 02
  21.           )
  22.       #.(MAKE-HASH-TABLE :TEST #'EQUAL :INITIAL-CONTENTS
  23.           (MAPCAR #'(LAMBDA (S) (CONS (SYMBOL-NAME S) S))
  24.             '(NAMED FOR AS AND FROM DOWNFROM UPFROM TO DOWNTO UPTO BELOW ABOVE
  25.                BY IN ON = THEN ACROSS BEING EACH THE HASH-KEY HASH-KEYS
  26.                HASH-VALUE HASH-VALUES OF USING SYMBOL PRESENT-SYMBOL
  27.                INTERNAL-SYMBOL EXTERNAL-SYMBOL SYMBOLS PRESENT-SYMBOLS
  28.                INTERNAL-SYMBOLS EXTERNAL-SYMBOLS REPEAT WHILE UNTIL ALWAYS
  29.                NEVER THEREIS COLLECT COLLECTING APPEND APPENDING NCONC NCONCING
  30.                COUNT COUNTING SUM SUMMING MAXIMIZE MAXIMIZING MINIMIZE
  31.                MINIMIZING INTO WITH IF WHEN UNLESS ELSE END IT DO DOING RETURN
  32.                OF-TYPE INITIALLY FINALLY
  33.   )  )  ) )  )
  34. #Y(#:TOP-LEVEL-FORM-5-2 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E 3D 19 01)
  35.    (SPECIAL *WHOLE*)
  36.   )
  37. #Y(#:TOP-LEVEL-FORM-5-3
  38.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  39.    LOOP-SYNTAX-ERROR REMOVE-OLD-DEFINITIONS
  40.    #Y(LOOP-SYNTAX-ERROR
  41.       #25Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA 6D 03 03 DC AD 71 8E 6A 05 32
  42.            03 1E
  43.           )
  44.       "~S: syntax error after ~A in ~S" "~S: Syntaxfehler nach ~A in ~S"
  45.       "~S : mauvaise syntaxe aprΦs ~A dans ~S" LANGUAGE LOOP *WHOLE*
  46.   )  )
  47. #Y(#:TOP-LEVEL-FORM-5-4
  48.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  49.    DESTRUCTURE-VARS REMOVE-OLD-DEFINITIONS
  50.    #Y(DESTRUCTURE-VARS
  51.       #40Y(00 00 00 00 01 00 00 00 00 02 91 01 0B 00 19 02 AB 60 01 19 02 92 01
  52.            75 9C 1F 75 93 01 6B 76 94 02 6B 72 32 02 24 19 02
  53.   )  )    )
  54. #Y(#:TOP-LEVEL-FORM-5-5
  55.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  56.    EMPTY-TREE-P REMOVE-OLD-DEFINITIONS
  57.    #Y(EMPTY-TREE-P
  58.       #39Y(00 00 00 00 01 00 00 00 00 02 91 01 09 02 19 02 00 19 02 92 01 77 9C
  59.            1F 77 93 01 27 76 1E 06 94 01 28 01 03 6E 19 02
  60.   )  )    )
  61. #Y(#:TOP-LEVEL-FORM-5-6
  62.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  63.    DESTRUCTURE-TYPE REMOVE-OLD-DEFINITIONS
  64.    #Y(DESTRUCTURE-TYPE
  65.       #69Y(00 00 00 00 02 00 00 00 00 03 91 02 29 00 19 03 D8 AC AE 7A 03 60 01
  66.            19 03 93 02 93 02 6B 14 94 03 94 03 6B 0E 32 02 24 19 03 D8 AD 9D 7B
  67.            02 60 01 19 04 92 02 57 9D 1F 57 9C 20 5D AC 6E 01 91 00 68 00 19 04
  68.           )
  69.       TYPE DESTRUCTURE-VARS
  70.   )  )
  71. #Y(#:TOP-LEVEL-FORM-5-7
  72.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  73.    SIMPLE-TYPE-P REMOVE-OLD-DEFINITIONS
  74.    #Y(SIMPLE-TYPE-P
  75.       #37Y(00 00 00 00 01 00 00 00 00 02 9C 1F 0C 93 01 27 79 1E 10 94 01 28 01
  76.            03 71 9C 25 00 03 02 19 02 00 19 02 19 02
  77.           )
  78.       #S(HASH-TABLE EQ (FLOAT . 1.) (FIXNUM . 1.) (T . 1.) (NIL . 1.))
  79.   )  )
  80. #Y(#:TOP-LEVEL-FORM-5-8 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E 3D 19 01)
  81.    (SPECIAL *HELPVARS*)
  82.   )
  83. #Y(#:TOP-LEVEL-FORM-5-9
  84.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) HELPVAR
  85.    REMOVE-OLD-DEFINITIONS
  86.    #Y(HELPVAR
  87.       #37Y(00 00 00 00 01 00 00 00 00 02 AB 6A 00 70 17 90 01 2D 0A 37 01 71 92
  88.            6A 00 37 01 30 1B 6A 00 AC 32 01 01 19 02
  89.           )
  90.       *HELPVARS*
  91.   )  )
  92. #Y(#:TOP-LEVEL-FORM-5-10
  93.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  94.    DESTRUCTURE REMOVE-OLD-DEFINITIONS
  95.    #Y(DESTRUCTURE
  96.       #29Y(00 00 00 00 02 00 00 00 00 03 AC AC D8 C4 33 1D 0A D8 6E 02 AC 7A 02
  97.            60 01 19 03 19 03
  98.           )
  99.       0.
  100.       #Y(DESTRUCTURE-DESTRUCTURE-TREE
  101.          #87Y(00 00 00 00 03 00 00 00 00 04 AD 87 00 19 9E 1F 19 93 03 87 00 1C
  102.               94 03 88 00 1C 93 03 C5 14 AE 7A 02 AD 28 03 07 63 00 19 04 AD AD
  103.               7A 02 60 01 19 04 94 03 C4 1A 67 AB 6E 03 93 04 DA DC AD B1 7A 03
  104.               7A 02 95 04 6B 42 94 05 D9 AD 7A 02 AF 6B FF B8 32 02 24 19 05
  105.              )
  106.          EMPTY-TREE-P CDR CAR HELPVAR SETQ
  107.         )
  108.       HELPVAR
  109.   )  )
  110. #Y(#:TOP-LEVEL-FORM-5-11
  111.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  112.    DEFAULT-BINDINGS REMOVE-OLD-DEFINITIONS
  113.    #Y(DEFAULT-BINDINGS
  114.       #131Y(00 00 00 00 02 00 00 00 00 03 62 AD 1A 0C 93 00 AA 62 7A 02 83 02
  115.             16 01 82 00 9B 20 71 16 01 AA 7F A8 00 AC 62 1A 80 52 9D 5B 78 62
  116.             1A 14 86 01 00 14 B1 37 06 C7 F8 71 5F 94 00 AE 30 AD 16 01 82 01
  117.             AB 8C 97 68 16 04 1A 2E C5 F6 14 AC 89 01 57 C6 F6 14 AC 89 01 50
  118.             DD DE AD 7A 03 94 03 AB 30 AD 16 03 1A 12 86 01 00 77 24 00 0B 9B
  119.             5B 77 01 02 AC 8A 01 54 16 02 82 01 AB 8C 97 68 16 02 15 19 03
  120.            )
  121.       TYPE TYPEP 0. 0.0f0 #.#'FIRST OR NULL
  122.   )  )
  123. #Y(#:TOP-LEVEL-FORM-5-12
  124.    #361Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 D8 DE
  125.          72 04 00 31 8A DB 2E 07 E0 30 5E E1 30 5E E2 2E 01 E2 E3 E4 31 8A E2
  126.          E5 31 84 E6 30 5E E7 30 5E E8 2E 01 E8 E3 E9 31 8A E8 EA 31 84 EB 30
  127.          5E EC 30 5E ED 2E 01 ED E3 EE 31 8A ED EF 31 84 F0 30 5E F1 30 5E F2
  128.          2E 01 F2 E3 F3 31 8A F2 F4 31 84 F5 30 5E 64 1E 30 5E 64 1F 2E 01 64
  129.          1F E3 64 20 31 8A 64 1F 64 21 31 84 64 22 30 5E 64 23 30 5E 64 24 2E
  130.          01 64 24 E3 64 25 31 8A 64 24 64 26 31 84 64 27 30 5E 64 28 30 5E 64
  131.          29 2E 01 64 29 E3 64 2A 31 8A 64 29 64 2B 31 84 64 2C 30 5E 64 2D 30
  132.          5E 64 2E 2E 01 64 2E E3 64 2F 31 8A 64 2E 64 30 31 84 E2 64 31 64 32
  133.          03 33 79 31 8A E2 64 34 62 2C 03 35 E8 64 31 64 32 03 36 79 31 8A E8
  134.          64 34 62 2C 03 35 ED 64 31 64 32 03 37 79 31 8A ED 64 34 62 2C 03 35
  135.          F2 64 31 64 32 03 38 79 31 8A F2 64 34 62 2C 03 35 64 1F 64 31 64 32
  136.          03 39 79 31 8A 64 1F 64 34 62 2C 03 35 64 24 64 31 64 32 03 3A 79 31
  137.          8A 64 24 64 34 62 2C 03 35 64 29 64 31 64 32 03 3B 79 31 8A 64 29 64
  138.          34 62 2C 03 35 64 2E 64 31 64 32 03 3C 79 31 8A 64 2E 64 34 62 2C 03
  139.          35 DB 64 3D 62 2C 03 35 DB 64 3E 31 8B 3D 19 01
  140.         )
  141.    MAKE-LOOP-INIT REMOVE-OLD-DEFINITIONS
  142.    #Y(MAKE-LOOP-INIT
  143.       #85Y(00 00 00 00 00 00 00 00 80 1B 08 00 00 00 3C 08 3C 07 3C 06 3C 05 3C
  144.            04 3C 03 3C 02 3C 01 E0 E1 71 34 E2 AB E3 B6 31 33 E2 AB E4 B5 31 33
  145.            E2 AB E5 B4 31 33 E2 AB E6 B3 31 33 E2 AB E7 B2 31 33 E2 AB E8 B1 31
  146.            33 E2 AB E9 B0 31 33 E2 AB EA AF 31 33 15 19 09
  147.           )
  148.       :SPECFORM :BINDINGS :DECLSPECS :ENDTEST-FORMS :EVERYTIME
  149.       :REQUIRES-STEPBEFORE :DEPENDS-PRECEDING :LATER-DEPEND
  150.       #1=(LOOP-INITIALISATION) 9. LOOP-INITIALISATION 1. 2. 3. 4. 5. 6. 7. 8.
  151.      )
  152.    LOOP-INITIALISATION DEFSTRUCT-DESCRIPTION #1#
  153.    (#(SPECFORM (:SPECFORM) 1. (NIL) NIL T NIL)
  154.      #(BINDINGS (:BINDINGS) 2. (NIL) NIL T NIL)
  155.      #(DECLSPECS (:DECLSPECS) 3. (NIL) NIL T NIL)
  156.      #(ENDTEST-FORMS (:ENDTEST-FORMS) 4. (NIL) NIL T NIL)
  157.      #(EVERYTIME (:EVERYTIME) 5. (NIL) NIL T NIL)
  158.      #(REQUIRES-STEPBEFORE (:REQUIRES-STEPBEFORE) 6. (NIL) NIL T NIL)
  159.      #(DEPENDS-PRECEDING (:DEPENDS-PRECEDING) 7. (NIL) NIL T NIL)
  160.      #(LATER-DEPEND (:LATER-DEPEND) 8. (NIL) NIL T NIL)
  161.    )
  162.    CLOS::DEFINE-STRUCTURE-CLASS (FUNCTION LI-SPECFORM (LOOP-INITIALISATION) T)
  163.    (INLINE LI-SPECFORM) LI-SPECFORM INLINE-EXPANSION
  164.    (#2=(OBJECT) (DECLARE (IN-DEFUN LI-SPECFORM))
  165.      (BLOCK LI-SPECFORM (THE T (%STRUCTURE-REF 'LOOP-INITIALISATION OBJECT 1.))
  166.    ) )
  167.    #Y(LI-SPECFORM #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  168.       LOOP-INITIALISATION 1.
  169.      )
  170.    (FUNCTION LI-BINDINGS (LOOP-INITIALISATION) T) (INLINE LI-BINDINGS)
  171.    LI-BINDINGS
  172.    (#2# (DECLARE (IN-DEFUN LI-BINDINGS))
  173.      (BLOCK LI-BINDINGS (THE T (%STRUCTURE-REF 'LOOP-INITIALISATION OBJECT 2.))
  174.    ) )
  175.    #Y(LI-BINDINGS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  176.       LOOP-INITIALISATION 2.
  177.      )
  178.    (FUNCTION LI-DECLSPECS (LOOP-INITIALISATION) T) (INLINE LI-DECLSPECS)
  179.    LI-DECLSPECS
  180.    (#2# (DECLARE (IN-DEFUN LI-DECLSPECS))
  181.      (BLOCK LI-DECLSPECS
  182.        (THE T (%STRUCTURE-REF 'LOOP-INITIALISATION OBJECT 3.))
  183.    ) )
  184.    #Y(LI-DECLSPECS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  185.       LOOP-INITIALISATION 3.
  186.      )
  187.    (FUNCTION LI-ENDTEST-FORMS (LOOP-INITIALISATION) T)
  188.    (INLINE LI-ENDTEST-FORMS) LI-ENDTEST-FORMS
  189.    (#2# (DECLARE (IN-DEFUN LI-ENDTEST-FORMS))
  190.      (BLOCK LI-ENDTEST-FORMS
  191.        (THE T (%STRUCTURE-REF 'LOOP-INITIALISATION OBJECT 4.))
  192.    ) )
  193.    #Y(LI-ENDTEST-FORMS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  194.       LOOP-INITIALISATION 4.
  195.      )
  196.    (FUNCTION LI-EVERYTIME (LOOP-INITIALISATION) T) (INLINE LI-EVERYTIME)
  197.    LI-EVERYTIME
  198.    (#2# (DECLARE (IN-DEFUN LI-EVERYTIME))
  199.      (BLOCK LI-EVERYTIME
  200.        (THE T (%STRUCTURE-REF 'LOOP-INITIALISATION OBJECT 5.))
  201.    ) )
  202.    #Y(LI-EVERYTIME #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  203.       LOOP-INITIALISATION 5.
  204.      )
  205.    (FUNCTION LI-REQUIRES-STEPBEFORE (LOOP-INITIALISATION) T)
  206.    (INLINE LI-REQUIRES-STEPBEFORE) LI-REQUIRES-STEPBEFORE
  207.    (#2# (DECLARE (IN-DEFUN LI-REQUIRES-STEPBEFORE))
  208.      (BLOCK LI-REQUIRES-STEPBEFORE
  209.        (THE T (%STRUCTURE-REF 'LOOP-INITIALISATION OBJECT 6.))
  210.    ) )
  211.    #Y(LI-REQUIRES-STEPBEFORE
  212.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  213.       LOOP-INITIALISATION 6.
  214.      )
  215.    (FUNCTION LI-DEPENDS-PRECEDING (LOOP-INITIALISATION) T)
  216.    (INLINE LI-DEPENDS-PRECEDING) LI-DEPENDS-PRECEDING
  217.    (#2# (DECLARE (IN-DEFUN LI-DEPENDS-PRECEDING))
  218.      (BLOCK LI-DEPENDS-PRECEDING
  219.        (THE T (%STRUCTURE-REF 'LOOP-INITIALISATION OBJECT 7.))
  220.    ) )
  221.    #Y(LI-DEPENDS-PRECEDING
  222.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  223.       LOOP-INITIALISATION 7.
  224.      )
  225.    (FUNCTION LI-LATER-DEPEND (LOOP-INITIALISATION) T) (INLINE LI-LATER-DEPEND)
  226.    LI-LATER-DEPEND
  227.    (#2# (DECLARE (IN-DEFUN LI-LATER-DEPEND))
  228.      (BLOCK LI-LATER-DEPEND
  229.        (THE T (%STRUCTURE-REF 'LOOP-INITIALISATION OBJECT 8.))
  230.    ) )
  231.    #Y(LI-LATER-DEPEND #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  232.       LOOP-INITIALISATION 8.
  233.      )
  234.    SETF-EXPANDER -1.
  235.    #Y(SETF-LI-SPECFORM
  236.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  237.       %STRUCTURE-STORE 'LOOP-INITIALISATION 1.
  238.      )
  239.    SETF %SET-DOCUMENTATION
  240.    #Y(SETF-LI-BINDINGS
  241.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  242.       %STRUCTURE-STORE 'LOOP-INITIALISATION 2.
  243.      )
  244.    #Y(SETF-LI-DECLSPECS
  245.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  246.       %STRUCTURE-STORE 'LOOP-INITIALISATION 3.
  247.      )
  248.    #Y(SETF-LI-ENDTEST-FORMS
  249.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  250.       %STRUCTURE-STORE 'LOOP-INITIALISATION 4.
  251.      )
  252.    #Y(SETF-LI-EVERYTIME
  253.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  254.       %STRUCTURE-STORE 'LOOP-INITIALISATION 5.
  255.      )
  256.    #Y(SETF-LI-REQUIRES-STEPBEFORE
  257.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  258.       %STRUCTURE-STORE 'LOOP-INITIALISATION 6.
  259.      )
  260.    #Y(SETF-LI-DEPENDS-PRECEDING
  261.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  262.       %STRUCTURE-STORE 'LOOP-INITIALISATION 7.
  263.      )
  264.    #Y(SETF-LI-LATER-DEPEND
  265.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  266.       %STRUCTURE-STORE 'LOOP-INITIALISATION 8.
  267.      )
  268.    STRUCTURE STRUCTURE-PRINT
  269.   )
  270. #Y(#:TOP-LEVEL-FORM-5-13
  271.    #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 8B 3D 19 01) LOOP-INITIALISATION
  272.    DEFSTRUCT-DESCRIPTION
  273.   )
  274. #Y(#:TOP-LEVEL-FORM-5-14
  275.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  276.    WRAP-INITIALISATIONS REMOVE-OLD-DEFINITIONS
  277.    #Y(WRAP-INITIALISATIONS
  278.       #90Y(00 00 00 00 02 00 00 00 00 03 AC 62 1A 80 42 9D 1A 28 AC 60 01 1A 23
  279.            DE 9E 79 60 01 1A 21 86 01 00 D8 AB D9 71 32 D8 AC DA 71 32 D8 AD DB
  280.            71 32 AC AD 23 04 5A AD 23 05 59 00 14 91 02 59 00 14 D8 B1 DF 71 32
  281.            B4 7A 01 32 04 23 5C FC 16 03 82 01 AB 8C 97 49 16 02 9C 19 03
  282.           )
  283.       LOOP-INITIALISATION 1. 2. 3. MULTIPLE-VALUE-BIND LET DECLARE 4.
  284.   )  )
  285. #Y(#:TOP-LEVEL-FORM-5-15 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E 3D 19 01)
  286.    (SPECIAL *LAST-IT*)
  287.   )
  288. #Y(#:TOP-LEVEL-FORM-5-16 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E 3D 19 01)
  289.    (SPECIAL *USED-IT*)
  290.   )
  291. #Y(#:TOP-LEVEL-FORM-5-17
  292.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  293.    EXPAND-LOOP REMOVE-OLD-DEFINITIONS
  294.    #Y(EXPAND-LOOP
  295.       #2765Y(00 00 00 00 02 00 00 00 00 03 9D 10 00 00 2A 0D 7E 05 00 00 00 0B
  296.              00 01 14 D9 63 37 06 C5 F8 30 1C 10 03 00 10 04 00 0B 07 02 0B 07
  297.              03 0B 07 04 0B 07 05 0B 07 06 0B 07 07 0B 07 08 0B 07 09 14 01 02
  298.              00 0B 0A 0A 0B 0A 0B 14 00 0B 0B 0C A6 2A 08 AA 2B 05 01 0B 00 00
  299.              AA 2B 06 01 0B 00 01 AA 2B 07 01 0B 00 02 AA 2B 08 01 0B 00 03 AA
  300.              6C 09 01 AB 2B 0A 01 0B 01 04 AB 2B 0B 01 0B 01 05 AB 2B 0C 01 0B
  301.              01 06 AB 2B 0D 01 0B 01 07 AB 6C 0E 01 AC 6C 0F 01 E8 06 04 01 33
  302.              1C 87 2F 06 0F 00 1F 07 06 0F 00 77 8D 09 03 E8 2E 11 06 0F 00 77
  303.              06 10 00 5B 0B 10 00 15 0B 0F 01 1A 87 0E 7D 0F AA 83 06 16 01 1A
  304.              87 04 06 03 06 73 91 00 6F 06 10 00 77 6E 12 9B 25 13 86 D9 06 11
  305.              00 5B 0B 11 00 7D 10 AA 06 06 02 73 9C 25 14 80 56 ED AB 03 16 61
  306.              02 1A 80 4E EF AB 03 18 61 02 1A 80 45 63 06 13 0C 5C 0B 12 0C ED
  307.              AB F1 67 15 01 03 1A 1A 10 63 06 13 0C 5C 0B 12 0C EF AB F1 67 15
  308.              01 03 1B 7B 02 60 03 1A 1D 37 01 71 92 F4 AB F1 67 16 01 F5 B0 F1
  309.              B1 03 1E 7B 02 7A 03 7A 03 60 03 16 01 1A 01 00 14 83 08 16 03 1A
  310.              86 80 06 11 00 5B 0B 11 00 64 1F 06 06 04 33 79 83 09 16 02 1A 86
  311.              6B 06 11 00 5B 0B 11 00 06 05 05 33 1B 07 64 1F 06 06 04 33 5C 14
  312.              83 06 16 02 1A 86 4F 06 11 00 5B 0B 11 00 92 10 11 64 20 64 21 64
  313.              22 6D 03 23 64 24 AC 71 8E 2C 03 25 9B 25 26 86 2D 01 02 1A 12 64
  314.              27 06 0B 02 73 AC AB 2F 28 F9 16 01 1A 17 03 2B F8 62 A2 33 41 02
  315.              64 27 06 0B 01 33 1B 61 AB 6E 29 AB 2F 2A F8 AC AF 7F A6 04 AA AE
  316.              7F A6 03 16 03 64 2B 06 08 01 33 1B 55 64 2C 64 2D 64 2E AE 71 4C
  317.              64 2F AF 71 4C 64 30 62 64 31 67 1C 09 64 32 63 6D 0C 33 A1 33 16
  318.              04 1A 85 CE A0 2A 01 01 02 00 0B 02 00 14 67 15 09 62 AF 6C 34 01
  319.              A6 33 41 02 06 0E 00 73 9B 25 35 83 4C 64 3C AF 60 02 1A 80 72 64
  320.              3D AD AD 60 03 1A 80 87 06 1B 00 5B 0B 1B 00 AA 06 10 02 73 64 36
  321.              62 64 37 06 13 01 33 1C 07 64 37 06 13 02 33 F7 9C 1F 14 93 01 24
  322.              38 0F 9C 5B 1F 0B 9C 5B 5B 1B 06 9C 5B 77 8D 09 05 37 01 80 92 00
  323.              37 01 71 92 AA AE 7A 02 83 0C 92 01 06 14 AD 7A 02 83 0C EF 64 39
  324.              AC 7A 02 03 3A 7B 02 04 11 73 A3 33 64 2C 64 2D 64 2E B3 B2 23 3B
  325.              FF 87 9F 14 6F 28 64 2F B4 64 30 63 64 31 67 28 09 6D 0A 33 A3 33
  326.              AA 91 02 FF 76 9E 5B 77 AC 60 02 14 7A 02 83 0A 16 04 1A 84 2C AE
  327.              AB 6F 28 B3 7F A6 08 16 02 1A 84 1F 06 1B 00 5B 0B 1B 00 64 3E 06
  328.              10 02 73 AA 64 3F 06 12 01 33 1C 07 64 3F 06 12 02 33 F6 AE AC 6F
  329.              28 B5 7F A6 0A AD B4 7F A6 09 AB 8B 62 05 02 0B 1D 08 FC AB AB 8E
  330.              04 FF BA AA 8C 62 FF B5 16 02 1A 83 DC 06 1B 00 5B 0B 1B 00 AA 06
  331.              10 02 73 37 01 71 92 37 01 71 92 AB AD 7A 02 83 0B AA 03 40 79 83
  332.              0B EF 64 41 AC 64 42 AF 7A 02 7A 03 03 43 7B 02 04 10 73 A2 33 64
  333.              2C 64 2D 64 2E B2 64 44 B0 B0 7A 03 6F 28 64 2F B3 64 30 63 64 31
  334.              67 27 09 6D 0A 33 A2 33 AA 64 45 AC 7A 02 7A 02 83 09 16 03 1A 83
  335.              7A 06 1B 00 5B 0B 1B 00 06 0F 00 73 AA 23 46 08 AA 23 47 04 64 48
  336.              2E 11 06 1C 00 5B 0B 1C 00 06 10 00 73 9B 25 49 2A AB 24 47 29 64
  337.              4A 64 4B 64 4C 6D 03 23 03 24 1A 0F AB 24 46 18 64 4D 64 4E 64 4F
  338.              6D 03 23 03 24 14 AD AD 71 8E 2C 04 25 1A 03 AB 2E 11 06 1D 00 5B
  339.              0B 1D 00 06 11 00 73 AA 23 3B 07 AA 23 50 03 AB 2E 11 16 01 06 1D
  340.              00 5B 0B 1D 00 AA 06 12 02 73 9C 25 51 81 77 62 64 52 06 14 01 33
  341.              1C 80 49 06 1F 00 1F 31 06 1F 00 5A 1F 2B 06 1F 00 5A 5B 1F 24 06
  342.              1F 00 5A 5B 5B 1B 1C 06 1F 00 5A 77 2E 12 25 53 12 AC 23 54 12 AC
  343.              24 55 0A 1A 0C AC 23 56 08 AC 23 57 04 64 52 2E 11 06 1F 00 77 06
  344.              20 00 5B 0B 20 00 15 5B 5A F6 37 01 71 92 37 01 71 92 37 01 71 92
  345.              37 01 71 92 A1 25 58 2E AB 9C 1A 02 AA 9D 14 3F 02 1A 24 00 1A 80
  346.              4B 64 2C 64 2D 64 2E B3 AE 6F 28 64 2F 62 64 30 63 64 31 67 2E 09
  347.              6D 0A 33 A9 33 16 0A 1A 82 69 00 41 02 AF 64 59 B3 7A 02 7A 02 83
  348.              12 64 2C 64 5A 64 2E B1 B1 B1 7A 03 64 5B B4 7A 02 7A 02 64 2F 91
  349.              0B FF B8 64 5C B0 7A 02 60 01 14 64 5D ED B6 03 5E 7B 02 7A 01 64
  350.              30 63 64 31 67 30 09 6D 0C 33 A9 33 64 2C 64 2D 64 2E B9 AF 6F 28
  351.              64 2F BA 64 30 63 64 31 67 2E 09 6D 0A 33 A9 33 91 06 FF 7F 16 0A
  352.              1A 82 02 9C 25 5F 10 03 60 1A 0D 03 61 1A 09 03 62 1A 05 03 63 1A
  353.              01 00 14 37 01 71 92 37 01 71 92 37 01 71 92 AC 64 64 B0 64 65 B1
  354.              7A 02 7A 03 7A 02 83 0F 64 2C 64 5A 64 2E AE AE 7A 02 64 66 B1 7A
  355.              02 7A 02 64 2F 62 64 5D ED B3 03 67 7B 02 7A 01 64 30 63 64 31 67
  356.              2D 09 6D 0C 33 A6 33 64 2C 64 2D 64 2E B6 AE 6F 28 64 2F B7 64 30
  357.              63 64 31 67 2B 09 6D 0A 33 A6 33 16 07 1A 81 87 16 03 1A 81 82 AC
  358.              8D 09 03 B4 2E 11 01 06 A1 25 68 19 7D 05 1A 08 03 69 FB 1A 03 03
  359.              6A FB 06 21 00 5B 0B 21 00 B0 06 16 02 33 F8 06 15 00 33 FC 25 6B
  360.              35 7D 04 1A 24 03 69 FA 1A 1F 64 6C 64 6D 64 6E 6D 03 23 64 24 04
  361.              12 1A 80 4D AF 23 69 6C AE 23 69 68 03 6A 1A 2B 03 6A FA 06 21 00
  362.              5B 0B 21 00 B0 06 16 02 33 F7 64 37 06 16 01 33 1C 09 7D 03 64 37
  363.              06 16 02 33 F6 AF 23 6A 4F AE 23 6A 4B 03 69 14 91 06 80 A1 AA 24
  364.              6A 80 9A 64 6F 64 70 64 71 6D 03 23 64 24 A4 14 31 8E 1A 81 F5 37
  365.              01 71 92 AA AE 7A 02 83 10 9B F9 16 01 92 04 80 8E 1A 80 8D 37 01
  366.              71 92 AA AD 7A 02 83 10 9B F8 16 01 92 05 80 AE 1A 80 80 03 41 1A
  367.              80 87 B1 23 72 77 03 73 1A 80 7E 03 75 1A 80 79 9B 25 77 1E 64 78
  368.              03 79 1A 08 03 7A 1A 0C 64 78 03 7A 14 B6 60 02 1A 04 03 79 14 A6
  369.              14 60 02 1A 80 68 00 1A 80 64 03 7C 1A 80 75 06 19 00 5B 0B 19 00
  370.              16 01 1A FB 99 03 2B FD 06 0C 00 73 AA 23 7E 69 AA 23 7F 65 16 01
  371.              1A FB 85 C5 F9 B3 AE 7A 02 83 0F B2 B9 7F A6 0E 92 05 05 AC 8C 62
  372.              FF 63 91 04 02 C4 F7 AB 8C 62 FF 6E 92 05 2B AA 23 69 FF 80 B1 23
  373.              74 FF 84 03 76 14 AD 8C 62 07 AD 70 5F 8D 94 FF 7B AA B5 AF 60 03
  374.              14 EF AB 03 7B 7B 02 04 16 73 A8 33 16 02 B3 AB 23 69 FF 88 03 7D
  375.              14 B5 AE 7A 03 7A 02 83 0D 16 07 16 03 64 2B 06 0D 01 33 1B FF 81
  376.              16 01 64 80 80 AD 31 4C 36 00 F8 1C 0C 64 80 81 9E 79 06 18 0A 5C
  377.              0B 17 0A 62 06 18 0A 5C 0B 17 0A 64 2C 64 2D 64 2E B1 71 4C 64 2F
  378.              B2 71 4C 64 30 62 64 31 B4 64 32 B5 6D 0C 33 A5 33 67 05 00 71 4C
  379.              62 1A 21 86 01 00 64 80 82 AB 64 80 83 8E 32 0F 67 19 0A 64 80 82
  380.              AC 64 80 83 AD 31 33 16 01 AA A7 33 82 01 AB 8C 97 5B 16 0A 1A 80
  381.              67 AA 06 06 02 73 37 01 71 92 64 2C 64 2D 64 2E AD AF 7A 02 7A 01
  382.              64 2F 62 64 30 62 64 31 67 1C 09 64 32 63 6D 0C 33 A1 33 ED 64 7A
  383.              AC 7A 02 03 80 84 7B 02 A0 73 A1 33 64 80 85 AB 64 80 86 AD 7A 02
  384.              7A 03 06 14 0A 5C 0B 13 0A 16 04 1A 19 64 80 87 64 80 88 64 80 89
  385.              6D 03 23 64 24 06 13 00 77 6A 00 32 03 1E 16 02 06 0F 00 20 F8 F6
  386.              67 0F 0C 37 06 03 80 8A F7 31 58 0B 0F 0C 14 71 4A D9 90 01 30 14
  387.              64 80 8B 64 80 8C 64 80 8D 6D 03 23 64 24 0E 00 14 32 02 1E 06 0F
  388.              0C 1C 0B F1 67 10 01 06 11 0C 7B 02 83 04 01 02 06 11 08 1B 28 06
  389.              11 07 1C 23 1A 11 06 12 07 5B 0B 12 07 AA 83 01 16 01 06 11 07 1C
  390.              10 06 11 07 77 64 80 82 AB 64 80 83 8D 32 61 16 01 62 67 12 07 62
  391.              1A 34 9C 5A 1A 80 84 64 80 93 AC 32 00 17 1A 80 7A 64 80 94 9E 1A
  392.              80 87 86 01 00 92 02 0A 64 80 82 AB 64 80 8E 63 31 33 64 80 82 AB
  393.              64 80 8F 8E 32 02 7D 02 82 01 AB 8C 97 5E 16 03 67 11 07 31 4C 0B
  394.              11 07 06 11 07 1C 80 F5 06 11 07 77 06 12 07 5B 0B 12 07 64 80 82
  395.              AB 64 80 83 71 32 64 80 82 AC 64 80 90 71 32 64 80 82 AD D9 71 32
  396.              64 80 82 AE 64 80 91 71 32 64 80 82 AF 64 80 92 71 32 AC 23 5A FF
  397.              7D AC 23 2D FF 7D 00 14 AD 23 5A FF 80 AD 24 2D 80 50 64 80 85 64
  398.              80 80 9F 36 00 79 60 01 1A 80 42 AA AC BE 70 A6 7F A6 12 B1 AB AD
  399.              94 0A 30 A6 1A 80 69 64 80 82 B3 64 80 8E 8D 32 64 AA AC BD 30 A6
  400.              1A 80 61 64 2C 64 2D 64 2E AF B1 6F 2A 64 2F B2 6D 06 33 83 0A 91
  401.              07 59 AA AC BE 30 A6 1A 80 4D 00 14 64 80 82 B2 64 80 95 71 32 91
  402.              06 55 64 2C B0 64 2E B1 64 2F B2 6D 06 33 83 0A 92 07 2B 14 AC 94
  403.              09 70 A6 30 AF 64 80 82 B3 64 80 8E 8E 32 10 AA BD 7F A6 12 B1 AB
  404.              A4 5B 14 70 A6 30 AF 1A 10 AA 04 12 14 7F A6 11 1A 07 AA 04 13 14
  405.              7F A6 12 16 09 06 11 07 1B FF 0B AB 80 4C 01 64 2C 64 2D 64 2E 64
  406.              80 96 64 80 97 6A 03 72 00 26 62 67 16 04 37 06 71 58 1A 0D 93 00
  407.              AA 03 80 98 79 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A8 00 62 67
  408.              17 05 37 06 71 58 1A 0D 93 00 AA 03 80 99 79 83 02 16 01 82 00 9B
  409.              20 70 16 01 AA 7F A8 00 72 03 23 64 2F 67 16 06 71 4C 6D 06 33 83
  410.              01 62 67 12 0A 37 07 31 54 0B 11 0A 1A 37 64 1F BC 31 4C 79 60 01
  411.              1A 80 5B 64 1F BD 31 4C 79 60 01 1A 80 59 64 1F 67 1E 0A 31 4C 79
  412.              60 01 1A 80 60 B2 06 12 0A 77 06 13 0A 5B 0B 13 0A 7A 01 81 02 24
  413.              08 82 09 A4 1F 11 06 11 0A 1F 0C 93 09 06 12 0A 77 03 80 9A 33 1B
  414.              58 64 80 9B 64 80 9C F4 67 14 01 AF 71 4C 64 80 9B 64 80 9D 64 80
  415.              9E 91 11 FF 9B 00 14 64 80 9F 91 12 FF 9D 00 14 B5 71 4C 64 1F BE
  416.              31 4C 79 6F 80 A0 06 1D 0A 1B FF 94 00 14 64 80 A1 64 80 A2 62 67
  417.              21 0B 1A 14 93 00 64 80 85 AB 64 80 A3 AD 7A 02 7A 03 83 02 16 01
  418.              82 00 9B 20 69 16 01 AA 7F A8 00 64 80 9B 64 80 A4 C2 31 4C 7B 02
  419.              7A 01 32 02 23 7B 02 32 02 23 79 32 02 23 79 32 02 23 79 7A 03 6F
  420.              80 A0 7A 03 60 03 16 0A 12 02 16 02 11 19 03
  421.             )
  422.       *WHOLE* 1. 0. *HELPVARS* *LAST-IT*
  423.       #Y(EXPAND-LOOP-NEXT-KW
  424.          #27Y(00 00 00 00 00 00 00 00 00 01 68 01 01 31 07 1E 08 07 01 01 77 2E
  425.               01 19 01 19 01
  426.              )
  427.          NIL LOOP-KEYWORDP
  428.         )
  429.       #Y(EXPAND-LOOP-PARSE-KW-P
  430.          #39Y(00 00 00 00 01 00 00 00 00 02 68 01 01 31 07 1E 14 07 01 01 77 6E
  431.               01 9D 59 1E 0A 07 01 01 5B 0C 01 01 02 19 02 19 02
  432.              )
  433.          NIL LOOP-KEYWORDP
  434.         )
  435.       #Y(EXPAND-LOOP-PARSE-FORM
  436.          #32Y(00 00 00 00 01 00 00 00 00 02 07 01 01 20 03 AB 2E 01 07 01 01 77
  437.               07 01 01 5B 0C 01 01 15 19 02
  438.              )
  439.          NIL LOOP-SYNTAX-ERROR
  440.         )
  441.       #Y(EXPAND-LOOP-PARSE-FORM-OR-IT
  442.          #54Y(00 00 00 00 01 00 00 00 00 02 07 01 01 20 03 AB 2E 01 07 01 01 77
  443.               07 01 01 5B 0C 01 01 AA 6E 02 23 03 0A 15 19 02 02 0F 05 0E 04 19
  444.               03 0E 04 1B 75 DB 2E 01 19 03
  445.              )
  446.          NIL LOOP-SYNTAX-ERROR LOOP-KEYWORDP IT *LAST-IT* *USED-IT*
  447.         )
  448.       #Y(EXPAND-LOOP-PARSE-VAR-TYPESPEC
  449.          #117Y(00 00 00 00 00 00 00 00 00 01 07 01 01 1F 39 07 01 01 77 07 01
  450.                01 5B 0C 01 01 62 07 01 01 1F 22 07 01 01 77 6E 06 92 00 29 AA
  451.                24 0C 80 43 07 01 01 5B 0C 01 01 E4 07 00 03 33 F7 16 01 AB AB
  452.                2F 0D F6 AB AB 3F 02 19 03 D9 DA DB 6D 03 04 DD 32 01 1E 07 01
  453.                01 77 07 01 01 5B 0C 01 01 69 01 14 87 07 58 E0 E1 E2 6D 03 04
  454.                DD AE AE 2C 04 0B 1A 4A 16 01 1A 4D
  455.               )
  456.          NIL "~S: missing variable" "~S: Variable fehlt."
  457.          "~S : Il manque une variable." LANGUAGE LOOP LOOP-KEYWORDP
  458.          SIMPLE-TYPE-P
  459.          "~S: After ~S, ~S is interpreted as a type specification"
  460.          "~S: Nach ~S wird ~S als Typspezifikation interpretiert."
  461.          "~S : AprΦs ~S, on traite ~S comme une spΘcification d'un type." WARN
  462.          OF-TYPE DESTRUCTURE-TYPE
  463.         )
  464.       #Y(EXPAND-LOOP-PARSE-PROGN
  465.          #43Y(00 00 00 00 00 00 00 00 00 01 62 1A 0D 07 01 01 77 07 01 01 5B 0C
  466.               01 01 83 00 07 01 01 1F 07 07 01 01 77 88 01 67 AA 31 4C 19 02
  467.              )
  468.          NIL LOOP-KEYWORDP
  469.         )
  470.       #Y(EXPAND-LOOP-PARSE-UNCONDITIONAL
  471.          #56Y(00 00 00 00 00 00 00 00 00 01 07 00 01 73 9B 25 01 23 07 01 01 5B
  472.               0C 01 01 DA 07 00 05 33 5C 19 02 07 01 01 5B 0C 01 01 DB 68 01 02
  473.               AC 07 00 04 73 60 03 19 02 00 19 02
  474.              )
  475.          NIL #S(HASH-TABLE EQ (RETURN . 16.) (DOING . 1.) (DO . 1.)) PROGN
  476.          RETURN-FROM
  477.         )
  478.       #Y(EXPAND-LOOP-PARSE-CLAUSE
  479.          #451Y(00 00 00 00 00 00 00 00 00 01 07 00 06 33 1D 81 B0 07 00 01 73
  480.                9B 25 01 81 A4 DA 2E 03 92 00 3B 14 68 01 0C 37 03 30 BC 0C 01
  481.                0C 1A 80 45 07 01 01 5B 0C 01 01 AA 07 00 04 73 62 DA 07 00 02
  482.                33 1C 16 07 01 01 1F 53 07 01 01 77 07 01 01 5B 0C 01 01 69 00
  483.                14 8E 09 42 91 00 45 07 01 03 1B 07 37 01 31 92 0C 01 03 F6 DC
  484.                AB 7A 02 07 01 0D 5C 0C 01 0D AA 07 01 05 5C 0C 01 05 DD AB 9F
  485.                25 06 0C CA 1A 80 B8 CB 1A 80 B4 CC 1A 80 B0 00 1A 80 AC DA 2E
  486.                03 92 00 30 1A 80 42 07 01 01 5B 0C 01 01 AA 07 00 04 73 62 DA
  487.                07 00 02 33 1C 16 07 01 01 1F 5E 07 01 01 77 07 01 01 5B 0C 01
  488.                01 69 00 14 8E 09 4D 91 00 15 07 01 04 1B 07 37 01 31 92 0C 01
  489.                04 F6 14 07 01 0D 5C 0C 01 0D 07 01 01 1F 2A 07 01 01 77 87 0A
  490.                23 07 01 01 77 07 01 01 5B 0C 01 01 9E 25 0B 06 E4 E5 AC 60 03
  491.                F6 E6 AB AD 7A 03 07 01 07 5C 0C 01 07 16 01 9D 25 0F 12 AA 07
  492.                01 05 5C 0C 01 05 1A 08 AA 07 01 06 5C 0C 01 06 9D 25 10 23 E9
  493.                AC EA AD 60 02 1A 16 DD AB EB AD A0 1A 0C DD AB D7 1A 04 DD AB
  494.                03 15 14 AE 9F 14 60 03 14 60 03 19 04 00 19 04 F4 B0 60 02 1A
  495.                80 60 F5 AF AC 60 03 19 08 07 01 01 5B 0C 01 01 AA 07 00 03 73
  496.                37 01 71 92 62 9C 10 16 00 10 17 B3 07 00 08 73 0E 17 FD 15 12
  497.                02 14 62 F0 07 00 02 33 1C 15 9E 10 16 00 10 17 F0 07 00 08 73
  498.                91 09 02 0E 17 FF 15 12 02 F6 F1 07 00 02 33 92 02 0A AD AF 7A
  499.                02 7A 01 9F FB 69 03 F2 B0 23 1B FF 9A A0 14 AD AD 7A 04 91 03
  500.                FF 97 15 19 07 00 19 02 19 01
  501.               )
  502.          NIL
  503.          #S(HASH-TABLE EQ (UNLESS . 321.) (WHEN . 321.) (IF . 321.)
  504.             (MINIMIZING . 130.) (MINIMIZE . 130.) (MAXIMIZING . 130.)
  505.             (MAXIMIZE . 130.) (SUMMING . 130.) (SUM . 130.) (COUNTING . 130.)
  506.             (COUNT . 130.) (NCONCING . 22.) (NCONC . 22.) (APPENDING . 22.)
  507.             (APPEND . 22.) (COLLECTING . 22.) (COLLECT . 22.)
  508.            )
  509.          INTO LOOP-SYNTAX-ERROR LIST-NREVERSE SETQ
  510.          #S(HASH-TABLE EQ (NCONCING . 9.) (NCONC . 9.) (APPENDING . 5.)
  511.             (APPEND . 5.) (COLLECTING . 1.) (COLLECT . 1.)
  512.            )
  513.          CONS REVAPPEND NRECONC LOOP-KEYWORDP
  514.          #S(HASH-TABLE EQ (MINIMIZING . 1.) (MINIMIZE . 1.) (MAXIMIZING . 1.)
  515.             (MAXIMIZE . 1.)
  516.            )
  517.          OR NULL TYPE
  518.          #S(HASH-TABLE EQ (SUMMING . 11.) (SUM . 11.) (COUNTING . 11.)
  519.             (COUNT . 11.) (MINIMIZING . 1.) (MINIMIZE . 1.) (MAXIMIZING . 1.)
  520.             (MAXIMIZE . 1.)
  521.            )
  522.          #S(HASH-TABLE EQ (MINIMIZING . 21.) (MINIMIZE . 21.)
  523.             (MAXIMIZING . 16.) (MAXIMIZE . 16.) (SUMMING . 9.) (SUM . 9.)
  524.             (COUNTING . 1.) (COUNT . 1.)
  525.            )
  526.          WHEN INCF + MAX-IF MIN-IF *LAST-IT* *USED-IT* ELSE END IF UNLESS NOT
  527.          LET
  528.         )
  529.       #Y(EXPAND-LOOP-PARSE-CLAUSES
  530.          #47Y(00 00 00 00 01 00 00 00 00 02 62 1A 05 C5 F8 00 0F 03 07 00 07 73
  531.               91 00 03 AD 2E 01 AA 83 01 16 01 DA 07 00 02 33 1B 65 DC AB 31 4C
  532.               5C 19 03
  533.              )
  534.          NIL LOOP-SYNTAX-ERROR AND *LAST-IT* PROGN
  535.         )
  536.       #Y(EXPAND-LOOP-NOTE-INITIALISATION
  537.          #62Y(00 00 00 00 01 00 00 00 00 02 D9 AC DA 8D 32 0F D9 AC DB 8D 32 09
  538.               D9 AC DC 8D 32 03 00 19 02 07 01 09 1C 06 D9 AC DD 63 31 33 D9 AC
  539.               DC 8E 32 04 02 0C 01 0A AB 07 01 08 5C 0C 01 08 19 02
  540.              )
  541.          NIL LOOP-INITIALISATION 2. 3. 4. 6.
  542.         )
  543.       #Y(EXPAND-LOOP-MAKE-ENDTEST
  544.          #39Y(00 00 00 00 01 00 00 00 00 02 D9 DA DB 62 DC 62 DD B2 7A 01 DE 62
  545.               07 01 0B 5C 0C 01 0B 14 DF 68 01 0A 2C 0C 08 19 02
  546.              )
  547.          NIL :SPECFORM PROGN :BINDINGS :DECLSPECS :ENDTEST-FORMS :EVERYTIME
  548.          :REQUIRES-STEPBEFORE MAKE-LOOP-INIT
  549.         )
  550.       NAMED LOOP-SYNTAX-ERROR LOOP-KEYWORDP
  551.       #S(HASH-TABLE EQ (REPEAT . 165.) (AS . 165.) (FOR . 165.) (WITH . 165.)
  552.          (FINALLY . 137.) (INITIALLY . 116.) (THEREIS . 2.) (NEVER . 2.)
  553.          (ALWAYS . 2.) (UNTIL . 2.) (WHILE . 2.)
  554.         )
  555.       #S(HASH-TABLE EQ (THEREIS . 60.) (NEVER . 38.) (ALWAYS . 20.)
  556.          (UNTIL . 11.) (WHILE . 2.)
  557.         )
  558.       UNLESS ((LOOP-FINISH)) WHEN ((LOOP-FINISH)) RETURN-FROM ('NIL) ('NIL)
  559.       BLOCK OR (NIL) PROGN
  560.       "~S: ~A clauses should occur before the loop's main body"
  561.       "~S: ~A-Klauseln sollten vor dem Schleifeninhalt kommen."
  562.       "~S : Les phrases ~A doivent apparaεtre avant le contenu principale de la boucle."
  563.       LANGUAGE LOOP WARN
  564.       #S(HASH-TABLE EQ (REPEAT . 1482.) (AS . 99.) (FOR . 99.) (WITH . 2.)) =
  565.       DESTRUCTURE DESTRUCTURE-VARS DEFAULT-BINDINGS AND :SPECFORM LET :BINDINGS
  566.       :DECLSPECS :EVERYTIME :REQUIRES-STEPBEFORE :DEPENDS-PRECEDING
  567.       MAKE-LOOP-INIT
  568.       #Y(EXPAND-LOOP-NOTE-INITIALISATION
  569.          #30Y(00 00 00 00 01 00 00 00 00 02 D9 AC DA 8E 32 04 02 0C 02 0A AB 07
  570.               00 01 5C 0C 00 01 19 02
  571.              )
  572.          NIL LOOP-INITIALISATION 4.
  573.         )
  574.       #S(HASH-TABLE EQ (BEING . 342.) (ACROSS . 244.) (= . 177.) (ON . 19.)
  575.          (IN . 19.)
  576.         )
  577.       #'CDR BY FUNCTION ENDP ((LOOP-FINISH)) IN CAR FUNCALL PREPOSITION THEN
  578.       (0.) >= LENGTH ((LOOP-FINISH)) AREF 1+ EACH THE BEING
  579.       #S(HASH-TABLE EQ (EXTERNAL-SYMBOLS . 18.) (INTERNAL-SYMBOLS . 18.)
  580.          (PRESENT-SYMBOLS . 18.) (SYMBOLS . 18.) (HASH-VALUES . 18.)
  581.          (HASH-KEYS . 18.) (EXTERNAL-SYMBOL . 1.) (INTERNAL-SYMBOL . 1.)
  582.          (PRESENT-SYMBOL . 1.) (SYMBOL . 1.) (HASH-VALUE . 1.) (HASH-KEY . 1.)
  583.         )
  584.       "~S: After ~S a plural loop keyword is required, not ~A"
  585.       "~S: Nach ~S sollte ein Plural kommen, nicht ~A"
  586.       "~S : AprΦs ~S, on s'attend au pluriel et non ~A"
  587.       "~S: After ~S a singular loop keyword is required, not ~A"
  588.       "~S: Nach ~S sollte ein Singular kommen, nicht ~A"
  589.       "~S : AprΦs ~S, on s'attend au singulier et non ~A" OF
  590.       #S(HASH-TABLE EQ (EXTERNAL-SYMBOLS . 254.) (EXTERNAL-SYMBOL . 254.)
  591.          (INTERNAL-SYMBOLS . 254.) (INTERNAL-SYMBOL . 254.)
  592.          (PRESENT-SYMBOLS . 254.) (PRESENT-SYMBOL . 254.) (SYMBOLS . 254.)
  593.          (SYMBOL . 254.) (HASH-VALUES . 2.) (HASH-VALUE . 2.) (HASH-KEYS . 2.)
  594.          (HASH-KEY . 2.)
  595.         )
  596.       USING
  597.       #S(HASH-TABLE EQ (HASH-VALUES . 11.) (HASH-VALUE . 11.) (HASH-KEYS . 1.)
  598.          (HASH-KEY . 1.)
  599.         )
  600.       HASH-VALUE HASH-VALUES HASH-KEY HASH-KEYS
  601.       #S(HASH-TABLE EQ (HASH-VALUES . 5.) (HASH-VALUE . 5.) (HASH-KEYS . 1.)
  602.          (HASH-KEY . 1.)
  603.         )
  604.       HASH-TABLE-ITERATOR MULTIPLE-VALUE-BIND HASH-TABLE-ITERATE IGNORE
  605.       :ENDTEST-FORMS ((LOOP-FINISH))
  606.       #S(HASH-TABLE EQ (EXTERNAL-SYMBOLS . 13.) (EXTERNAL-SYMBOL . 13.)
  607.          (INTERNAL-SYMBOLS . 9.) (INTERNAL-SYMBOL . 9.) (PRESENT-SYMBOLS . 5.)
  608.          (PRESENT-SYMBOL . 5.) (SYMBOLS . 1.) (SYMBOL . 1.)
  609.         )
  610.       (:INTERNAL :EXTERNAL :INHERITED) (:INTERNAL :EXTERNAL) (:INTERNAL)
  611.       (:EXTERNAL) PACKAGE-ITERATOR QUOTE PACKAGE-ITERATE ((LOOP-FINISH))
  612.       #S(HASH-TABLE EQ (DOWNFROM . 10.) (UPFROM . 5.) (FROM . 1.)) UP DOWN
  613.       #S(HASH-TABLE EQ (ABOVE . 38.) (DOWNTO . 38.) (BELOW . 5.) (UPTO . 5.)
  614.          (TO . 1.)
  615.         )
  616.       "~S: questionable iteration direction after ~A"
  617.       "~S: Iterationsrichtung nach ~A unklar."
  618.       "~S : On compte vers le haut ou vers le bas aprΦs ~A ?"
  619.       "~S: specifying ~A requires FROM or DOWNFROM"
  620.       "~S: Zusammen mit ~A mu▀ FROM oder DOWNFROM angegeben werden."
  621.       "~S : ~A ne va qu'avec FROM ou DOWNFROM" BELOW > ABOVE <= <
  622.       #S(HASH-TABLE EQ (< . 21.) (<= . 11.) (> . 7.) (>= . 1.)) NOT MINUSP
  623.       PLUSP ((LOOP-FINISH)) + - FOR AS #.#'APPEND PSETQ LOOP-INITIALISATION 5.
  624.       ((LOOP-FINISH)) SETQ 1- "~S: illegal syntax near ~S in ~S"
  625.       "~S: Illegale Syntax bei ~S in ~S"
  626.       "~S : syntaxe illΘgale prΦs de ~S dans ~S" #.#'EQUAL
  627.       "~S: ambiguous result of loop ~S"
  628.       "~S: Ergebnis der Schleife ~S nicht eindeutig spezifiziert."
  629.       "~S : Le rΘsultat de la boucle ~S est ambigu." 8. 7. 6. 2. 3. #.#'FIRST
  630.       MULTIPLE-VALUE-SETQ 4. LIST
  631.       #Y(EXPAND-LOOP-1 #15Y(00 00 00 00 01 00 00 00 00 02 AB C3 5C 19 02) (NIL)
  632.         )
  633.       (NIL) (0.)
  634.       #Y(EXPAND-LOOP-FORM-EQ
  635.          #100Y(00 00 00 00 02 00 00 00 00 03 AC AC 31 04 1D 80 51 AC 31 07 1E
  636.                80 4B AB 31 07 1E 80 45 AC 71 4A AC 71 4A 31 04 1E 3B 93 02 9D
  637.                5A 21 2B AC 71 4A AA 23 00 04 AA 24 01 18 16 01 93 02 AA 23 02
  638.                04 AA 24 03 0C 16 01 93 01 AA 23 02 0A AA 23 03 06 00 16 01 3E
  639.                19 03 16 01 DC 94 03 94 03 32 01 28 19 03 19 03
  640.               )
  641.          1. 3. SETQ PSETQ #.#'EQ
  642.         )
  643.       MACROLET ((LOOP-FINISH NIL (LOOP-FINISH-ERROR)))
  644.       ((LOOP-FINISH NIL '(GO END-LOOP))) TAGBODY BEGIN-LOOP
  645.       WRAP-INITIALISATIONS (GO BEGIN-LOOP) END-LOOP LIST-NREVERSE
  646.       ((LOOP-FINISH NIL (LOOP-FINISH-WARN) '(GO END-LOOP)))
  647.   )  )
  648. #Y(#:TOP-LEVEL-FORM-5-18
  649.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 3D 19 01) LOOP
  650.    REMOVE-OLD-DEFINITIONS MACRO
  651.    #Y(LOOP
  652.       #49Y(00 00 00 00 01 00 01 00 00 08 94 02 98 00 AB 8F 00 27 18 37 01 71 92
  653.            DA 62 DB AD AF DC B0 7A 02 7A 01 32 02 23 7B 02 60 03 19 05 AD AB 2F
  654.            01 19 04
  655.           )
  656.       LOOP-KEYWORDP EXPAND-LOOP BLOCK TAGBODY GO
  657.   )  )
  658. #Y(#:TOP-LEVEL-FORM-5-19
  659.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 3D 19 01)
  660.    LOOP-FINISH REMOVE-OLD-DEFINITIONS MACRO
  661.    #Y(LOOP-FINISH
  662.       #34Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 90 01 30 05 AC 2E 01 19 03
  663.            DA DB DC 6D 03 05 AD DE 32 02 1E
  664.           )
  665.       1. MACRO-CALL-ERROR "~S is possible only from within ~S"
  666.       "~S ist nur aus ~S heraus m÷glich."
  667.       "~S n'est possible qu'α l'intΘrieur de ~S." LANGUAGE LOOP
  668.   )  )
  669. #Y(#:TOP-LEVEL-FORM-5-20
  670.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  671.    LOOP-FINISH-WARN REMOVE-OLD-DEFINITIONS
  672.    #Y(LOOP-FINISH-WARN
  673.       #21Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 2F 05 19 01)
  674.       "Use of ~S in FINALLY clauses is deprecated because it can lead to infinite loops."
  675.       "Von der Verwendung von ~S in FINALLY-Klauseln wird abgeraten. Das kann nΣmlich zu Endlosschleifen fⁿhren."
  676.       "On recommande de ne pas utiliser ~S dans des phrases FINALLY car cela peut amener α des boucles infinies."
  677.       LANGUAGE (LOOP-FINISH) WARN
  678.   )  )
  679. #Y(#:TOP-LEVEL-FORM-5-21
  680.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  681.    LOOP-FINISH-ERROR REMOVE-OLD-DEFINITIONS
  682.    #Y(LOOP-FINISH-ERROR
  683.       #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 32 01 1E)
  684.       "~S is not possible here" "~S ist hier nicht m÷glich."
  685.       "~S n'est pas possible ici." LANGUAGE (LOOP-FINISH)
  686.   )  )
  687. #Y(#:TOP-LEVEL-FORM-6
  688.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAX-IF
  689.    REMOVE-OLD-DEFINITIONS
  690.    #Y(MAX-IF
  691.       #23Y(00 00 00 00 02 00 00 00 00 03 91 01 03 9D 19 03 AC AC 32 01 33 19 03
  692.   )  )    )
  693. #Y(#:TOP-LEVEL-FORM-7
  694.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MIN-IF
  695.    REMOVE-OLD-DEFINITIONS
  696.    #Y(MIN-IF
  697.       #23Y(00 00 00 00 02 00 00 00 00 03 91 01 03 9D 19 03 AC AC 32 01 34 19 03
  698.   )  )    )
  699.