(SYSTEM::VERSION '(19990501.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "LISP"
  )
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (DEFLANGUAGE DEFINTERNATIONAL DEFLOCALIZED LOCALIZED)
  )
#Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-5
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19 01
       )
   (SPECIAL *ALL-LANGUAGES*) *ALL-LANGUAGES*
  )
#Y(#:TOP-LEVEL-FORM-6
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   ASSERT-LANGUAGE REMOVE-OLD-DEFINITIONS
   #Y(ASSERT-LANGUAGE
      #35Y(00 00 00 00 01 00 00 00 00 02 AD 6B 00 38 03 71 B9 93 00 04 9D 5C 19
           03 DB DC 01 02 6E 03 03 B0 33 01 1F
          )
      *ALL-LANGUAGES* ERROR "Language ~S is not defined" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   ENSURE-LANGUAGE REMOVE-OLD-DEFINITIONS
   #Y(ENSURE-LANGUAGE
      #60Y(00 00 00 00 02 00 00 00 00 03 AE 6B 00 38 03 71 B9 92 00 17 93 02 03
           AE 2F 04 6B 00 B0 A1 7A 7B 01 33 02 24 0F 00 16 01 9F 19 03 79 A0 22
           77 DB DC 01 02 6E 03 03 B1 95 03 33 02 1F
          )
      *ALL-LANGUAGES* ERROR "Language ~S inherits from ~S" LANGUAGE
      ASSERT-LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-8
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DEFLANGUAGE REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFLANGUAGE
      #44Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 44 DB 91 02 31 14 9F 5C 78 A0
           5C 5C 78 DD DE AF 7B 02 DE AF 7B 02 61 03 19 05 AE 2F 02 19 03
          )
      2. 3. MACRO-CALL-ERROR ENSURE-LANGUAGE QUOTE
  )  )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 00 00 00 00 01 DA 63 30 01 19 01)
   ENGLISH ENSURE-LANGUAGE
  )
#Y(#:TOP-LEVEL-FORM-10
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DEFINTERNATIONAL REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFINTERNATIONAL
      #137Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 0C 9F 5C 78 A0
            5C 79 DC 63 AE 1B 80 56 AE 2F 01 19 03 E0 E1 A3 5C 7A 61 02 1B 19
            DD DE B4 7B 02 DF A1 5C 78 8E 08 6B E2 DE B7 7B 02 DE A4 5C 78 7B
            02 61 03 14 7B 04 61 01 1B 1F 94 00 94 00 AC 02 22 58 E3 DE AE 7B
            02 7B 02 DD DE B5 7B 02 DE B0 7B 02 A2 5C 78 7B 04 61 02 F8 AF 80
            A0 02 16 01 83 00 9D 21 55 16 01 AC 80 A2 00 DE B0 7B 02 7B 01 33
            02 23 5D 19 05
           )
      2. MACRO-CALL-ERROR PROGN %PUT QUOTE 'OTHER-LANGUAGE FUNCTION LAMBDA
      DEFINTERNATIONAL-DEFAULT ASSERT-LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-11
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DEFLOCALIZED REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFLOCALIZED
      #63Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 28 9F 5C 78 A0 5C
           5C 78 A1 5C 5C 5C 78 DC DD DE B0 7B 02 7B 02 DF DE B2 7B 02 DE B2 7B
           02 B1 7B 04 DE B2 7B 02 61 04 19 06 AE 2F 01 19 03
          )
      4. MACRO-CALL-ERROR PROGN ASSERT-LANGUAGE QUOTE %PUT
  )  )
#Y(#:TOP-LEVEL-FORM-12
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) LOCALIZED
   REMOVE-OLD-DEFINITIONS
   #Y(LOCALIZED
      #81Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 2E 00 F9 AD 1B 11 DC DD 01 02
           6E 03 04 DF B0 33 02 1F 15 19 05 16 01 AC 6B 01 38 03 71 B9 93 00 65
           B0 AE E0 72 81 AC 25 06 68 16 01 9D 5C F9 1C 64 16 02 AE E1 38 01 72
           81 9D 1F 06 14 AF 36 01 19 04 19 04
          )
      CURRENT-LANGUAGE *ALL-LANGUAGES* ERROR "~S: Language ~S is not defined"
      LANGUAGE LOCALIZED #:NOTFOUND OTHER-LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-13
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19 01
       )
   (SPECIAL *LOCALIZED-RECURSION*) *LOCALIZED-RECURSION*
  )
#Y(#:TOP-LEVEL-FORM-14
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEFINTERNATIONAL-DEFAULT REMOVE-OLD-DEFINITIONS
   #Y(DEFINTERNATIONAL-DEFAULT
      #27Y(00 00 00 00 02 00 00 00 00 03 00 2B 02 7F 03 00 00 7F 02 00 01 AC 2C
           00 01 19 04
          )
      #Y(DEFINTERNATIONAL-DEFAULT-1
         #48Y(00 00 00 00 01 00 00 00 00 02 6B 01 07 00 01 22 10 07 00 01 10 01
              69 00 01 69 00 02 30 05 11 19 02 DC DD 01 02 6E 03 04 DF 69 00 01
              B1 33 03 1F
             )
         NIL *LOCALIZED-RECURSION* ERROR
         "~S ~S: no value for default language ~S" LANGUAGE LOCALIZED
  )  )  )
#Y(#:TOP-LEVEL-FORM-15
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   TYPECASE REMOVE-OLD-DEFINITIONS MACRO
   #Y(TYPECASE
      #130Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 0F 9F 5C 78 A0
            5C 79 38 01 72 8D 63 AE 1B 80 4C AE 2F 01 19 03 DC DD 01 02 6E 03
            04 DF 94 03 33 02 1F AC CB 5A 16 01 1D 1E 64 9E 5B 5C 1C 01 CC 7A
            84 01 16 01 1B 2A 9D 5B 20 5A 9D 5B 78 AC 02 5A 1D 5F 16 01 1C 62
            E2 AF E3 A0 5B 78 7B 02 7B 03 9E 5B 5C 1C 01 CF 7A 84 01 83 00 9D
            21 58 16 01 E5 AE B1 7B 02 7B 01 E6 AF 32 46 7A 61 03 19 07
           )
      2. MACRO-CALL-ERROR SOURCE-PROGRAM-ERROR "Invalid clause in ~S: ~S"
      LANGUAGE TYPECASE OTHERWISE (NIL) TYPEP QUOTE (NIL) LET COND
  )  )
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   TYPE-ERROR-STRING REMOVE-OLD-DEFINITIONS
   #Y(TYPE-ERROR-STRING
      #18Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 2D 03 01 19 01)
      "~A~%The value is: ~S" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   CHECK-TYPE-ERROR-STRING REMOVE-OLD-DEFINITIONS
   #Y(CHECK-TYPE-ERROR-STRING
      #25Y(00 00 00 00 03 00 00 00 00 04 63 DA 01 02 6E 03 01 B1 B1 B1 2D 05 02
           19 04
          )
      "The value of ~S should be ~:[of type ~S~;~:*~A~]." LANGUAGE FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-18
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   REPORT-ONE-NEW-VALUE-STRING REMOVE-OLD-DEFINITIONS
   #Y(REPORT-ONE-NEW-VALUE-STRING
      #18Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 2D 03 01 19 01)
      "You may input a new value." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-19
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   PROMPT-FOR-NEW-VALUE-STRING REMOVE-OLD-DEFINITIONS
   #Y(PROMPT-FOR-NEW-VALUE-STRING
      #18Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 2D 03 01 19 01) "~%New ~S: "
      LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-20
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   CHECK-TYPE REMOVE-OLD-DEFINITIONS MACRO
   #Y(CHECK-TYPE
      #110Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 44 DB 91 02 31 80 55 9F 5C
            78 A0 5C 5C 78 A1 5C 5C 5C 1D 05 A1 5C 5C 5C 5B 14 38 01 72 8D 38
            01 72 8D DD AE DE DF B4 E0 B5 7B 02 7B 03 E1 B1 7B 02 7B 03 E2 E3
            E4 E5 E0 B8 7B 02 B6 E0 B9 7B 02 7B 04 B7 7B 05 E6 E7 E8 E0 B8 7B
            02 7B 04 E9 B6 D5 7C 02 E1 B4 7B 02 B3 61 08 19 08 AE 2F 02 19 03
           )
      3. 4. MACRO-CALL-ERROR TAGBODY WHEN TYPEP QUOTE GO CERROR
      (REPORT-ONE-NEW-VALUE-STRING) (TYPE-ERROR-STRING) CHECK-TYPE-ERROR-STRING
      FORMAT *QUERY-IO* (PROMPT-FOR-NEW-VALUE-STRING) SETF ((READ *QUERY-IO*))
  )  )
#Y(#:TOP-LEVEL-FORM-21
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   REPORT-NO-NEW-VALUE-STRING REMOVE-OLD-DEFINITIONS
   #Y(REPORT-NO-NEW-VALUE-STRING
      #18Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 2D 03 01 19 01) "Retry"
      LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-22
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   REPORT-NEW-VALUES-STRING REMOVE-OLD-DEFINITIONS
   #Y(REPORT-NEW-VALUES-STRING
      #18Y(00 00 00 00 00 00 00 00 00 01 DA 01 02 2D 03 01 19 01)
      "You may input new values." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-23
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   ASSERT-ERROR-STRING REMOVE-OLD-DEFINITIONS
   #Y(ASSERT-ERROR-STRING
      #23Y(00 00 00 00 01 00 00 00 00 02 63 DA 01 02 6E 03 01 AF 2D 03 02 19 02
          )
      "~S must evaluate to a non-NIL value." LANGUAGE FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-24
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   ASSERT REMOVE-OLD-DEFINITIONS MACRO
   #Y(ASSERT
      #170Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 80 58 9F 5C 78
            A0 5C 5C 1D 04 A0 5C 5C 5B 14 A1 5C 5C 5C 1D 05 A1 5C 5C 5C 5B 14
            A2 5C 5C 5C 79 38 01 72 8D 38 01 72 8D DC AE DD B4 DE B1 7B 02 7B
            03 DF B4 72 44 AC 24 06 25 AC 24 08 24 CF F8 E5 92 09 01 D1 14 7B
            02 92 09 1A E7 E5 B9 7B 02 7B 02 61 01 7C 03 63 B5 1B 28 AE 2F 01
            19 03 CC 1B 5D CE 1B 5A A5 1B 6C 94 00 E8 E9 EA E5 B0 7B 02 7B 04
            EB AE D7 7C 02 7B 02 AF 80 A1 02 16 01 83 00 9D 21 63 16 01 AC 80
            A2 00 DE B3 7B 02 B2 7B 02 33 02 23 62 04 19 09
           )
      2. MACRO-CALL-ERROR TAGBODY WHEN GO CERROR 0.
      (REPORT-NO-NEW-VALUE-STRING) 1. (REPORT-ONE-NEW-VALUE-STRING)
      (REPORT-NEW-VALUES-STRING) QUOTE "~A" ASSERT-ERROR-STRING FORMAT
      *QUERY-IO* (PROMPT-FOR-NEW-VALUE-STRING) SETF ((READ *QUERY-IO*))
  )  )
#Y(#:TOP-LEVEL-FORM-25
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   TYPECASE-ERROR-STRING REMOVE-OLD-DEFINITIONS
   #Y(TYPECASE-ERROR-STRING
      #24Y(00 00 00 00 02 00 00 00 00 03 63 DA 01 02 6E 03 01 B0 B0 2D 04 02 19
           03
          )
      "The value of ~S must be of one of the types ~{~S~^, ~}" LANGUAGE FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-26
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   CASE-ERROR-STRING REMOVE-OLD-DEFINITIONS
   #Y(CASE-ERROR-STRING
      #24Y(00 00 00 00 02 00 00 00 00 03 63 DA 01 02 6E 03 01 B0 B0 2D 04 02 19
           03
          )
      "The value of ~S must be one of ~{~S~^, ~}" LANGUAGE FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-27
   #49Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F DE 2F 01 DE DC
        CA 7A 32 7F E0 2F 01 E0 DC CC 7A 32 7F E2 2F 01 E2 DC CE 7A 32 7F CD 19
        01
       )
   ETYPECASE REMOVE-OLD-DEFINITIONS MACRO
   #Y(ETYPECASE
      #43Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 14 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 B0 C9 74 CA 34 19 05 AE 2F 01 19 03
          )
      2. MACRO-CALL-ERROR TYPECASE
      #1=#Y(TYPECASE-ERRORSTRING
            #28Y(00 00 00 00 02 00 00 00 00 03 DA AE 73 00 17 DB DC B1 7B 02 DC
                 AF 7B 02 61 03 19 04
                )
            #.#'FIRST TYPECASE-ERROR-STRING QUOTE
           )
      #Y(TYPECASE-EXPECTED-TYPE
         #19Y(00 00 00 00 01 00 00 00 00 02 DA DB AF 33 00 17 5D 19 02) OR
         #.#'FIRST
        )
      #2=#Y(SIMPLY-ERROR
            #54Y(00 00 00 00 05 00 00 00 00 06 38 01 72 8D DA AD B3 7B 02 7B 01
                 B4 AF B4 C6 74 DC DD DE DF B5 E0 E1 BA 7B 02 E2 BC BA 7B 09 7B
                 02 7B 01 33 02 23 7C 02 61 03 19 07
                )
            LET
            #3=#Y(PARENTHESIZE-KEYS
                  #65Y(00 00 00 00 01 00 00 00 00 02 63 AE 1B 29 DB 01 02 6E 03
                       02 94 01 AE 2D 03 03 94 00 7B 01 9E 5C 5D 1B 0D 94 00 94
                       00 02 22 64 94 00 24 00 5F 9D 14 84 02 16 01 83 00 9D 21
                       69 16 01 AC 31 A2 19 03
                      )
                  OTHERWISE
                  "~S used as a key in ~S, it would be better to use parentheses."
                  LANGUAGE WARN
                 )
            OTHERWISE ERROR-OF-TYPE 'TYPE-ERROR :DATUM :EXPECTED-TYPE QUOTE
            (TYPE-ERROR-STRING)
     )     )
   CTYPECASE
   #Y(CTYPECASE
      #40Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 11 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 C9 34 19 05 AE 2F 01 19 03
          )
      2. MACRO-CALL-ERROR TYPECASE #1#
      #4=#Y(RETRY-LOOP
            #72Y(00 00 00 00 04 00 00 00 00 05 38 01 72 8D 38 01 72 8D DA AE DB
                 AF DC B2 B8 B8 B8 C8 74 DE DF E0 E1 BC BF 7B 05 E2 E3 E4 E5 C0
                 7B 02 7B 04 E6 BE D2 7C 02 E8 BA 7B 02 7B 05 7B 01 33 02 23 7C
                 02 7B 03 7B 03 61 03 19 07
                )
            BLOCK TAGBODY RETURN-FROM #3# OTHERWISE CERROR
            (REPORT-ONE-NEW-VALUE-STRING) (TYPE-ERROR-STRING) FORMAT *QUERY-IO*
            (PROMPT-FOR-NEW-VALUE-STRING) QUOTE SETF ((READ *QUERY-IO*)) GO
     )     )
   ECASE
   #Y(ECASE
      #43Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 14 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 B0 C9 74 CA 34 19 05 AE 2F 01 19 03
          )
      2. MACRO-CALL-ERROR CASE
      #5=#Y(CASE-ERRORSTRING
            #61Y(00 00 00 00 02 00 00 00 00 03 63 AE 1B 19 9D 1B 0D 94 00 AC 87
                 00 00 14 8E 08 73 AC 61 01 F8 AF 80 A0 02 16 01 83 00 9D 21 67
                 16 01 AC 80 A2 00 DA DB B1 7B 02 DB AF 7B 02 61 03 19 04
                )
            CASE-ERROR-STRING QUOTE
           )
      #Y(CASE-EXPECTED-TYPE
         #53Y(00 00 00 00 01 00 00 00 00 02 DA 63 AF 1B 19 9D 1B 0D 94 00 AC 87
              00 00 14 8E 08 73 AC 61 01 F8 AF 80 A0 02 16 01 83 00 9D 21 67 16
              01 AC 31 A2 16 01 5D 19 02
             )
         MEMBER
        )
      #2#
     )
   CCASE
   #Y(CCASE
      #40Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 11 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 C9 34 19 05 AE 2F 01 19 03
          )
      2. MACRO-CALL-ERROR CASE #5# #4#
  )  )
#Y(#:TOP-LEVEL-FORM-28
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DEFTYPE REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFTYPE
      #220Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 29 9F 5C
            78 A0 5C 5C 78 A1 5C 5C 79 AE 8F 03 1F AE DF 38 01 8E 81 07 AE E0
            38 01 8F 81 15 DC CC 14 01 02 6E 03 04 B0 33 01 1F AE 2F 01 19 03
            DC C8 1B 6D AC 64 B2 31 5E 42 03 93 01 06 E2 9F 7A 61 01 F9 CE 10
            0A CE 10 0B 00 10 0C 00 10 0D 00 10 0E D4 10 10 C2 EB 66 19 EC 2D
            04 13 EC 6F 14 EF 6B 0D 72 46 C2 6B 0E 72 46 F0 66 1D 04 1B 7C 02
            7B 01 33 03 23 7C 02 93 01 07 F1 AE F2 AF 61 04 F8 F3 F4 F5 63 F6
            F7 66 1F 7B 02 65 1E 65 1F 65 20 66 22 71 4A 73 02 13 71 C9 65 21
            65 22 B7 7B 03 7B 03 7B 04 65 23 65 24 F7 66 21 7B 02 03 25 7C 02
            F7 66 1C 7B 02 7B 03 F7 66 20 7B 02 7B 05 61 03 16 02 12 06 19 09
           )
      3. MACRO-CALL-ERROR SOURCE-PROGRAM-ERROR
      "type name should be a symbol, not ~S" LANGUAGE TYPE-SYMBOL TYPE-LIST
      "~S is a built-in type and may not be redefined." DECLARE 0. %ARG-COUNT
      %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS '* %DEFAULT-FORM
      (CDR <DEFTYPE-FORM>) <DEFTYPE-FORM> ANALYZE1 MAKE-LENGTH-TEST LET* BLOCK
      IF (TYPE-CALL-ERROR <DEFTYPE-FORM>) EVAL-WHEN (COMPILE LOAD EVAL) LET
      %PUT QUOTE 'DEFTYPE-EXPANDER FUNCTION "DEFTYPE-" LAMBDA (<DEFTYPE-FORM>)
      SETF DOCUMENTATION ('TYPE)
  )  )
#Y(#:TOP-LEVEL-FORM-29
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   TYPE-CALL-ERROR REMOVE-OLD-DEFINITIONS
   #Y(TYPE-CALL-ERROR
      #27Y(00 00 00 00 01 00 00 00 00 02 DA DB 01 02 6E 03 02 94 03 B0 72 44 72
           95 33 02 1F
          )
      ERROR "The deftype expander for ~S may not be called with ~S arguments."
      LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-30
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DEFINE-SYMBOL-MACRO REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFINE-SYMBOL-MACRO
      #88Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 35 9F 5C 78 A0 5C
           5C 78 AD 8F 03 2F E0 63 E1 E2 E3 E4 B3 7B 02 7B 02 E5 E4 B4 7B 02 7B
           02 E6 E4 B5 7B 02 E7 E4 B6 7B 02 7B 02 7B 03 7B 05 E4 B1 7B 02 61 04
           19 05 AE 2F 01 19 03 DC DD 01 02 6E 03 04 DF B0 33 02 1F
          )
      3. MACRO-CALL-ERROR SOURCE-PROGRAM-ERROR
      "~S: the name of a symbol macro must be a symbol, not ~S" LANGUAGE
      DEFINE-SYMBOL-MACRO LET EVAL-WHEN (COMPILE LOAD EVAL)
      CHECK-NOT-SPECIAL-VARIABLE-P QUOTE MAKUNBOUND SET-SYMBOL-VALUE
      MAKE-SYMBOL-MACRO
  )  )
#Y(#:TOP-LEVEL-FORM-31
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   CHECK-NOT-SPECIAL-VARIABLE-P REMOVE-OLD-DEFINITIONS
   #Y(CHECK-NOT-SPECIAL-VARIABLE-P
      #29Y(00 00 00 00 01 00 00 00 00 02 AD 32 8C 1F 0C DA DB 01 02 6E 03 02 DD
           B0 33 02 1F 19 02
          )
      PROGRAM-ERROR "~S: the symbol ~S names a global variable" LANGUAGE
      DEFINE-SYMBOL-MACRO
  )  )
#Y(#:TOP-LEVEL-FORM-32
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01) TIME
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(TIME
      #81Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 3A 9F 5C 78 38 01
           72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D 38
           01 72 8D 38 01 72 8D 38 01 72 8D 7B 09 DC AD DD DE B1 DF E0 E1 A5 7C
           03 7B 03 61 04 19 05 AE 2F 01 19 03
          )
      2. MACRO-CALL-ERROR MULTIPLE-VALUE-BIND (%%TIME) UNWIND-PROTECT
      MULTIPLE-VALUE-CALL #'%TIME (%%TIME)
  )  )
#Y(#:TOP-LEVEL-FORM-33
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   SPACE REMOVE-OLD-DEFINITIONS MACRO
   #Y(SPACE
      #195Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 80 AB 9F 5C 78
            38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01
            72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D
            38 01 72 8D 38 01 72 8D 7B 09 38 01 72 8D 38 01 72 8D 38 01 72 8D
            38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01
            72 8D 7B 09 DC DD AF C9 7C 02 DF B5 DD B1 CB 7C 02 7B 03 61 03 FE
            E1 B2 B2 B2 B2 B2 B2 33 02 23 7C 04 E2 DF E3 E4 DF E5 B7 E6 BC 7B
            02 7B 03 E5 B7 D2 7C 02 7B 03 7B 03 E8 B7 B7 B7 B7 7B 05 E9 B3 B5
            33 02 23 7A 7B 04 EA B4 7B 02 61 05 19 0A AE 2F 01 19 03
           )
      2. MACRO-CALL-ERROR PROGN MULTIPLE-VALUE-SETQ ((%%TIME)) UNWIND-PROTECT
      ((%%TIME)) MULTIPLE-VALUE-BIND (%SPACE1) LET
      ((*GC-STATISTICS* (1+ (MAX *GC-STATISTICS* 0.)))) SETQ
      MULTIPLE-VALUE-LIST ((%SPACE2)) %SPACE %TIME VALUES-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-34
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-INPUT-FROM-STRING REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-INPUT-FROM-STRING
      #192Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 80 79 9F
            5C 5B 78 A0 5C 5B 5C 78 A1 5C 5B 5C 79 AC DC 6B 03 72 82 AC 0E 03
            22 80 64 02 14 AE DE 6B 03 72 82 AC 0E 03 22 80 5B 02 14 B0 E0 6B
            03 72 82 AC 0E 03 22 80 53 02 14 A8 5C 79 B3 E1 31 5F AC 63 B9 31
            5E 42 02 E2 B8 E3 B9 92 09 80 47 92 07 80 43 00 7C 02 7B 02 7B 01
            E4 E5 BB 7B 02 A1 7C 02 E6 E7 A3 7A 92 0C 36 00 14 EA BE 7B 02 7B
            01 33 02 23 7C 02 61 04 19 0F AE 2F 01 19 03 7D 00 1B FF 98 CA F8
            00 1B FF A0 7D 00 1B FF A9 B5 61 01 5D 1B FF BE B6 92 08 75 00 5D
            1B FF B5 E8 BA E9 BF 7B 02 7B 03 61 01 1B FF BE
           )
      2. MACRO-CALL-ERROR :INDEX MACRO-MISSING-VALUE :START 0. :END
      (:END :START :INDEX) LET MAKE-STRING-INPUT-STREAM DECLARE READ-ONLY
      UNWIND-PROTECT PROGN SETF STRING-INPUT-STREAM-INDEX CLOSE
  )  )
#Y(#:TOP-LEVEL-FORM-35
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-OPEN-FILE REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-OPEN-FILE
      #91Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 80 41 9F 5C
           5B 78 A0 5C 5B 79 A1 5C 79 AC 63 B2 31 5E 42 02 DC B1 DD A3 7A 7B 02
           7B 01 DE DF B4 7B 02 A1 7C 02 E0 E1 E2 A4 7A E3 B7 E4 B9 7B 02 7B 03
           7B 03 E3 B6 E4 B8 D0 7C 02 7B 03 7B 03 61 04 19 08 AE 2F 01 19 03
          )
      2. MACRO-CALL-ERROR LET OPEN DECLARE READ-ONLY UNWIND-PROTECT
      MULTIPLE-VALUE-PROG1 PROGN WHEN CLOSE (:ABORT T)
  )  )
#Y(#:TOP-LEVEL-FORM-36
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-OPEN-STREAM REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-OPEN-STREAM
      #81Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 38 9F 5C 5B
           78 A0 5C 5B 5C 78 A1 5C 79 AC 63 B2 31 5E 42 02 DC B1 B1 7B 02 7B 01
           DD DE B4 7B 02 A1 7C 02 DF E0 E1 A4 7A E2 B7 7B 02 7B 03 E2 B6 CE 7C
           02 7B 03 61 04 19 08 AE 2F 01 19 03
          )
      2. MACRO-CALL-ERROR LET DECLARE READ-ONLY UNWIND-PROTECT
      MULTIPLE-VALUE-PROG1 PROGN CLOSE (:ABORT T)
  )  )
#Y(#:TOP-LEVEL-FORM-37
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-OUTPUT-TO-STRING REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-OUTPUT-TO-STRING
      #146Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 80 53 9F
            5C 5B 78 A0 5C 5B 5C 1D 05 A0 5C 5B 5C 5B 14 A1 5C 5B 5C 79 AC DC
            63 72 82 A3 5C 79 AE DD 31 5F AC 63 B4 31 5E 42 02 92 05 2D DE B3
            E6 DC B3 7B 03 7B 02 7B 01 AE E2 E3 B2 E7 B9 7B 02 7B 01 33 02 23
            7A E5 B8 7B 02 7B 03 7B 01 33 02 23 62 02 19 0A AE 2F 01 19 03 DE
            B3 DF B4 7B 02 7B 02 7B 01 E0 E1 B6 7B 02 A1 7C 02 E2 E3 B4 92 07
            01 CF 7C 02 E5 B8 7B 02 7B 03 61 04 19 0A
           )
      2. MACRO-CALL-ERROR :ELEMENT-TYPE (:ELEMENT-TYPE) LET
      MAKE-STRING-PUSH-STREAM DECLARE READ-ONLY UNWIND-PROTECT PROGN (NIL)
      CLOSE MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING
  )  )
#Y(#:TOP-LEVEL-FORM-38 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "LISP"
  )
#Y(#:TOP-LEVEL-FORM-39 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   WITH-OUTPUT-TO-PRINTER
  )
#Y(#:TOP-LEVEL-FORM-40 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-41
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-OUTPUT-TO-PRINTER REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-OUTPUT-TO-PRINTER
      #85Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 3C 9F 5C 5B
           78 A0 5C 5B 79 A1 5C 79 AD DC 31 5F AC 63 B2 31 5E 42 02 93 00 06 DD
           9E 7A 61 01 F8 DE B1 DF A3 7A 7B 02 7B 01 AE E0 E1 A3 7A E2 B6 7B 02
           7B 03 7B 01 33 02 23 62 02 19 08 AE 2F 01 19 03
          )
      2. MACRO-CALL-ERROR (:EXTERNAL-FORMAT) DECLARE LET MAKE-PRINTER-STREAM
      UNWIND-PROTECT PROGN CLOSE
  )  )
#Y(#:TOP-LEVEL-FORM-42
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   MAKE-PRINTER-STREAM REMOVE-OLD-DEFINITIONS
   #Y(MAKE-PRINTER-STREAM
      #27Y(00 00 00 00 00 00 00 00 80 1B 01 00 00 00 3B 01 02 C6 F9 DC DA AF 2D
           03 03 19 02
          )
      :EXTERNAL-FORMAT :DEFAULT "lpr" MAKE-PIPE-OUTPUT-STREAM
  )  )
#Y(#:TOP-LEVEL-FORM-43 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "LISP"
  )
#Y(#:TOP-LEVEL-FORM-44 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   WITHOUT-FLOATING-POINT-UNDERFLOW
  )
#Y(#:TOP-LEVEL-FORM-45 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-46
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITHOUT-FLOATING-POINT-UNDERFLOW REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITHOUT-FLOATING-POINT-UNDERFLOW
      #21Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB DC A0 7A 61 03 19 04) LET
      ((*INHIBIT-FLOATING-POINT-UNDERFLOW* T)) PROGN
  )  )
