(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1-1
   #18Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 3E 19 01) "EXT"
   COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-1-2
   #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 3E 19 01)
   (CUSTOM::*FOREIGN-ENCODING*) "CUSTOM")
#Y(#:TOP-LEVEL-FORM-1-3 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 19 01)
   (CUSTOM::*FOREIGN-ENCODING*) "EXT")
#Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 DA 19 01)
   ("COMMON-LISP" "EXT") "FFI")
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "FFI" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (FFI::DEF-C-TYPE FFI::DEF-C-VAR FFI::DEF-C-CALL-OUT FFI::DEF-CALL-OUT
    FFI::DEF-C-CALL-IN FFI::DEF-CALL-IN FFI::C-LINES COMMON-LISP::NIL
    COMMON-LISP::BOOLEAN COMMON-LISP::CHARACTER COMMON-LISP::CHAR FFI::UCHAR
    FFI::SHORT FFI::USHORT FFI::INT FFI::UINT FFI::LONG FFI::ULONG FFI::UINT8
    FFI::SINT8 FFI::UINT16 FFI::SINT16 FFI::UINT32 FFI::SINT32 FFI::UINT64
    FFI::SINT64 COMMON-LISP::SINGLE-FLOAT COMMON-LISP::DOUBLE-FLOAT
    FFI::C-POINTER FFI::C-STRING FFI::C-STRUCT FFI::C-UNION FFI::C-ARRAY
    FFI::C-ARRAY-MAX FFI::C-FUNCTION FFI::C-PTR FFI::C-PTR-NULL
    FFI::C-ARRAY-PTR FFI::DEF-C-ENUM FFI::DEF-C-STRUCT FFI::ELEMENT FFI::DEREF
    FFI::SLOT FFI::CAST FFI::TYPEOF FFI::SIZEOF FFI::BITSIZEOF FFI::VALIDP
    FFI::FOREIGN-ADDRESS-NULL FFI::FOREIGN-ADDRESS FFI::FOREIGN-VARIABLE
    FFI::FOREIGN-FUNCTION))
#Y(#:TOP-LEVEL-FORM-5-1
   #21Y(00 00 00 00 00 00 00 00 00 01 DA DB 71 D2 38 01 31 D7 3E 19 01)
   "*COUTPUT-FILE*" "COMPILER")
#Y(#:TOP-LEVEL-FORM-5-2
   #21Y(00 00 00 00 00 00 00 00 00 01 DA DB 71 D2 38 01 31 D7 3E 19 01)
   "*COUTPUT-STREAM*" "COMPILER")
#Y(#:TOP-LEVEL-FORM-5-3
   #21Y(00 00 00 00 00 00 00 00 00 01 DA DB 71 D2 38 01 31 D7 3E 19 01)
   "*FFI-MODULE*" "COMPILER")
#Y(#:TOP-LEVEL-FORM-5-4
   #21Y(00 00 00 00 00 00 00 00 00 01 DA DB 71 D2 38 01 31 D7 3E 19 01)
   "FINALIZE-COUTPUT-FILE" "COMPILER")
#Y(#:TOP-LEVEL-FORM-5-5
   #21Y(00 00 00 00 00 00 00 00 00 01 DA DB 71 D2 38 01 31 D7 3E 19 01) "TEXT"
   "SYSTEM")
#Y(#:TOP-LEVEL-FORM-5-6
   #21Y(00 00 00 00 00 00 00 00 00 01 DA DB 71 D2 38 01 31 D7 3E 19 01)
   "DEPARSE-C-TYPE" "SYSTEM")
#Y(#:TOP-LEVEL-FORM-5-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA DB 71 D2 38 01 31 D7 19 01)
   "FOREIGN-FUNCTION-IN-ARG-COUNT" "SYSTEM")
#Y(#:TOP-LEVEL-FORM-6
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::C-IDENT-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::C-IDENT-P
      #49Y(00 00 00 00 01 00 00 00 00 02 AD 72 45 DA 33 01 31 1F 1C DB AE 33 00
           29 1F 15 DC AE DA 71 30 DD 33 02 0B 59 1F 09 AD DE 38 01 31 62 59 19
           02 19 02)
      0.
      #Y(FFI::C-IDENT-P-1
         #43Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 33 02 0B 1E 17 DC AE DD 33
              02 0B 1E 0F DE AE DF 33 02 0B 1E 07 E0 AE 33 01 07 19 02 19 02)
         #\A #\Z #\a #\z #\0 #\9 #\_)
      #\0 #\9
      #.(COMMON-LISP::LET*
         ((FFI::RESERVED-LIST
           '("auto" "break" "case" "char" "continue" "default" "do" "double"
             "else" "enum" "extern" "float" "for" "goto" "if" "int" "long"
             "register" "return" "short" "sizeof" "static" "struct" "switch"
             "typedef" "union" "unsigned" "void" "while"))
          (FFI::RESERVED-TABLE
           (COMMON-LISP::MAKE-HASH-TABLE :TEST #'COMMON-LISP::EQUAL)))
         (COMMON-LISP::DOLIST (FFI::W FFI::RESERVED-LIST)
          (COMMON-LISP::SETF (COMMON-LISP::GETHASH FFI::W FFI::RESERVED-TABLE)
           'COMMON-LISP::T))
         FFI::RESERVED-TABLE)))
#Y(#:TOP-LEVEL-FORM-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::TO-C-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::TO-C-STRING
      #70Y(03 00 01 00 01 00 00 00 00 02 00 2B 01 7F 02 00 00 9D 2B 01 63 38 01
           32 73 0B 00 00 53 1D DA 68 03 00 31 87 63 AF 6D 01 01 68 05 00 33 00
           27 DA 68 03 00 31 87 68 02 00 32 74 54 08 00 00 00 00 14 2F 02 55 19
           04)
      #\"
      #Y(FFI::TO-C-STRING-1
         #63Y(00 00 00 00 01 00 00 00 00 02 AD 24 01 15 AD 24 04 1B AD 24 07 20
              AD 24 05 1C 9E 14 69 00 01 31 87 19 02 DC 6F 03 69 01 01 AF 33 02
              1E DF 69 00 01 31 87 CB 1B 65 DF 69 00 01 31 87 9E 1B 5C)
         COMMON-LISP::NIL #\Null
         "Cannot map string ~S to C since it contains a character ~S"
         SYSTEM::TEXT #\Newline #\\ #\n #\")
      COMMON-LISP::CLOSE))
#Y(#:TOP-LEVEL-FORM-8
   #29Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 09 DB 38 06 C7 FB 71 61
        31 51 C6 19 01)
   (COMMON-LISP::SPECIAL FFI::*C-TYPE-TABLE*) FFI::*C-TYPE-TABLE*
   #.#'COMMON-LISP::EQ)
#Y(#:TOP-LEVEL-FORM-9
   #35Y(00 00 00 00 00 00 00 00 00 01 DA 63 1B 0E 87 01 00 6B 01 AD AD AF 31 63
        16 01 83 01 AD 8D 91 6E 00 19 03)
   (COMMON-LISP::NIL COMMON-LISP::BOOLEAN COMMON-LISP::CHARACTER
    COMMON-LISP::CHAR FFI::UCHAR FFI::SHORT FFI::USHORT FFI::INT FFI::UINT
    FFI::LONG FFI::ULONG FFI::UINT8 FFI::SINT8 FFI::UINT16 FFI::SINT16
    FFI::UINT32 FFI::SINT32 FFI::UINT64 FFI::SINT64 COMMON-LISP::SINGLE-FLOAT
    COMMON-LISP::DOUBLE-FLOAT FFI::C-POINTER FFI::C-STRING)
   FFI::*C-TYPE-TABLE*)
#Y(#:TOP-LEVEL-FORM-10
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::PARSE-COMPONENTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::PARSE-COMPONENTS
      #93Y(00 00 00 00 01 00 00 00 00 02 94 01 AC 24 00 0B AC 25 01 0C 9F 5C 14
           63 AD 1B 38 9F 5C 5C 1B 76 DC DD AE DE DF 2E 06 14 E1 E2 70 09 B3 33
           06 1F E5 6F 0C B1 AE 33 02 1E 94 00 9D 20 73 AC 72 45 25 0A 6D 94 00
           8F 04 68 9D 5C 78 6F 0D 84 02 16 01 83 00 9D 21 62 16 01 AC 31 A2 19
           05)
      FFI::C-STRUCT FFI::C-UNION COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::MEMBER FFI::C-STRUCT FFI::C-UNION)
      SYSTEM::TYPE-ERROR-STRING FFI::FORM-TYPE (FFI::C-STRUCT FFI::C-UNION)
      SYSTEM::CASE-ERROR-STRING 2. "Invalid ~S component: ~S" SYSTEM::TEXT
      FFI::PARSE-C-TYPE))
#Y(#:TOP-LEVEL-FORM-11
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::C-STRUCT-CONSTRUCTOR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::C-STRUCT-CONSTRUCTOR
      #214Y(00 00 00 00 01 00 00 00 00 02 9E 5C 78 AC 24 00 10 AC 24 02 0F DE
            A0 5C 79 73 00 17 63 AD 1B 80 46 C6 19 03 C8 19 03 B0 63 B4 B4 1B
            1F 16 03 1B 20 94 01 9E 20 77 94 01 AD 72 8A 6B 0A 71 D2 AD 7B 02
            B1 80 A1 04 16 02 83 01 83 00 9E 21 62 16 02 AC 31 A2 16 01 5D 1B
            80 73 94 00 AC 72 8A 72 8E 84 02 16 01 83 00 9D 21 70 16 01 AC 80
            A2 00 63 DF E0 AF E1 B3 E2 38 01 81 82 04 1D 07 14 CE 5F FC 1C FF
            A2 38 01 72 8E E5 AD E6 E7 B8 7B 02 7B 02 7B 02 7B 01 63 B6 B6 1B
            1F 16 03 1B 20 94 01 9E 20 77 94 01 E8 E9 B5 E7 B1 7B 02 7B 03 AE
            7B 03 84 04 16 02 83 01 83 00 9E 21 62 16 02 AC 80 A2 00 AF 7B 01
            33 02 23 62 02 16 01 14 7B 04 7B 02 31 5A 19 06)
      COMMON-LISP::VECTOR #.#'COMMON-LISP::VECTOR COMMON-LISP::LIST
      #.#'COMMON-LISP::LIST #.#'COMMON-LISP::FIRST COMMON-LISP::FUNCTION
      COMMON-LISP::LAMBDA (COMMON-LISP::DECLARE (COMMON-LISP::COMPILE))
      SYSTEM::DEFSTRUCT-DESCRIPTION 2. SYSTEM::*KEYWORD-PACKAGE*
      COMMON-LISP::LET CLOS::MAKE-INSTANCE COMMON-LISP::QUOTE COMMON-LISP::SETF
      CLOS::SLOT-VALUE))
#Y(#:TOP-LEVEL-FORM-12
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::WITH-DEFINING-C-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::WITH-DEFINING-C-TYPE
      #103Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 80 4F 9F 5C 5B
            78 A0 5C 5B 5C 78 A1 5C 5B 5C 5C 78 A2 5C 79 DC AF DD B0 7B 02 7B
            02 7B 01 DE DF E0 B4 E1 E2 B7 CE 7C 02 B6 7B 03 7B 03 A2 7C 02 E0
            B4 E1 E2 B7 CF 7C 02 D0 7C 02 7B 03 7B 03 E0 B3 E1 E2 B6 D1 7C 02
            B5 7B 03 7B 03 B2 61 05 19 07 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::LET COMMON-LISP::MAKE-ARRAY
      COMMON-LISP::UNWIND-PROTECT COMMON-LISP::PROGN COMMON-LISP::WHEN
      COMMON-LISP::SETF COMMON-LISP::GETHASH (FFI::*C-TYPE-TABLE*)
      (FFI::*C-TYPE-TABLE*) (COMMON-LISP::NIL) (FFI::*C-TYPE-TABLE*))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-13
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::PARSE-C-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::PARSE-C-TYPE
      #731Y(03 00 01 00 01 00 01 00 00 08 3D 01 9F 21 2D AE 8E 04 0E DD 6F 02
            A0 14 33 01 1E DB 6F 02 A2 1B 76 AE 6B 00 38 01 31 62 42 02 93 00
            6E 93 03 09 6B 00 B0 AD B0 31 63 16 01 9E 19 05 9F 5B 26 04 82 94
            AE 72 45 72 95 38 07 71 1C 53 39 93 04 09 6B 00 B1 AD B1 31 63 16
            01 94 05 AF CA 60 E0 E1 A4 5C 79 73 00 27 AF CD 60 B1 6F 09 AF CF
            60 B1 6F 0B AF AD E6 63 38 02 32 4B 16 01 3E 54 05 00 00 02 1D 14
            1B 06 05 00 00 02 1D 0C 6B 00 67 00 00 02 AD 63 31 63 16 01 55 93
            02 82 36 1B 82 2A AE 72 45 72 95 38 07 71 1C 53 32 93 04 09 6B 00
            B1 AD B1 31 63 16 01 94 05 AF CA 60 E0 E1 95 07 73 00 27 AF CD 60
            B1 6F 0B AF AD E4 63 38 02 32 4B 16 01 3E 54 05 00 00 02 1D 14 1B
            06 05 00 00 02 1D 0C 6B 00 67 00 00 02 AD 63 31 63 16 01 55 93 02
            81 DF 1B 81 D3 AE 72 45 24 0C 03 AE D2 34 9F 5C 5C 78 AC 8E 09 04
            AC 61 01 F8 E8 AD 90 00 29 03 AF D2 34 E4 AD 72 45 73 02 36 38 07
            71 1C 53 2D 93 05 09 6B 00 B2 AD B1 31 63 16 01 E9 AF CA 60 A3 5C
            78 38 01 6C FE D0 AF CD 60 AE B0 E4 63 38 02 32 4B 3E 54 05 00 00
            03 1D 14 1B 06 05 00 00 03 1D 0C 6B 00 67 00 00 03 AD 63 31 63 16
            01 55 93 03 80 67 1B 80 5B AE 72 45 24 0C 03 AE D2 34 9F 5C 5C 78
            AC D3 34 1C 03 AF D2 34 E6 38 07 71 1C 53 29 93 05 09 6B 00 B2 AD
            B1 31 63 16 01 EA AF CA 60 A3 5C 78 38 01 6C FE 6D AF CD 60 AF AF
            CF 60 3E 54 05 00 00 03 1D 14 1B 06 05 00 00 03 1D 0C 6B 00 67 00
            00 03 AD 63 31 63 16 01 55 93 03 09 6B 00 B0 AD AF 31 63 16 01 15
            19 04 95 02 EB B0 6E 03 12 AF 70 13 93 02 80 F5 1B 80 E9 AE 72 45
            24 0A 03 AE D2 34 E4 38 07 71 1C 53 25 93 04 09 6B 00 B1 AD B1 31
            63 16 01 EE AF CA 60 A2 5C 78 38 01 6C FE 01 AF CD 60 3E 54 05 00
            00 02 1D 14 1B 06 05 00 00 02 1D 0C 6B 00 67 00 00 02 AD 63 31 63
            16 01 55 93 02 80 A6 1B 80 9A AE 72 45 24 0A 03 AE D2 34 E4 38 07
            71 1C 53 25 93 04 09 6B 00 B1 AD B1 31 63 16 01 EF AF CA 60 A2 5C
            78 38 01 6C FD B2 AF CD 60 3E 54 05 00 00 02 1D 14 1B 06 05 00 00
            02 1D 0C 6B 00 67 00 00 02 AD 63 31 63 16 01 55 93 02 80 57 1B 80
            4B AE 72 45 24 0A 03 AE D2 34 E4 38 07 71 1C 53 25 93 04 09 6B 00
            B1 AD B1 31 63 16 01 F0 AF CA 60 A2 5C 78 38 01 6C FD 63 AF CD 60
            3E 54 05 00 00 02 1D 14 1B 06 05 00 00 02 1D 0C 6B 00 67 00 00 02
            AD 63 31 63 16 01 55 93 02 09 6B 00 AF AD AF 31 63 16 01 15 19 03
            AE D2 34 19 03)
      FFI::*C-TYPE-TABLE* "Incomplete FFI type ~S is not allowed here."
      SYSTEM::TEXT "FFI type should be a symbol, not ~S"
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (FFI::C-ARRAY-PTR . 575.)
         (FFI::C-PTR-NULL . 496.) (FFI::C-PTR . 417.) (FFI::C-FUNCTION . 400.)
         (FFI::C-ARRAY-MAX . 297.) (FFI::C-ARRAY . 183.) (FFI::C-UNION . 96.)
         (FFI::C-STRUCT . 2.))
      0. COMMON-LISP::VECTOR #.#'COMMON-LISP::FIRST 1.
      FFI::C-STRUCT-CONSTRUCTOR 2. FFI::PARSE-COMPONENTS 3.
      #Y(FFI::PARSE-C-TYPE-INVALID
         #17Y(00 00 00 00 01 00 00 00 00 02 DA 6F 01 AE 33 01 1E)
         "Invalid FFI type: ~S" SYSTEM::TEXT)
      #Y(FFI::PARSE-C-TYPE-DIMP
         #24Y(00 00 00 00 01 00 00 00 00 02 AD 32 0A 1F 07 DA AE 33 01 32 19 02
              19 02)
         0.)
      FFI::C-ARRAY FFI::C-ARRAY-MAX (:ARGUMENTS :RETURN-TYPE :LANGUAGE)
      FFI::PARSE-OPTIONS FFI::PARSE-C-FUNCTION FFI::C-PTR FFI::C-PTR-NULL
      FFI::C-ARRAY-PTR))
#Y(#:TOP-LEVEL-FORM-14
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::PARSE-OPTIONS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::PARSE-OPTIONS
      #67Y(00 00 00 00 03 00 00 00 00 04 63 B0 63 AD 8C 91 2D 87 01 00 20 1A 94
           00 B2 38 03 8D B2 12 94 00 AF 38 03 8D B9 11 DC 6F 01 94 01 A3 14 33
           02 1E DA 6F 01 B1 9F 1B 75 AC 84 02 83 01 1B 4F 16 02 15 19 04)
      "Invalid option in ~S: ~S" SYSTEM::TEXT
      "Only one ~S option is allowed: ~S"))
#Y(#:TOP-LEVEL-FORM-15
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::CTYPE-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::CTYPE-TYPE
      #29Y(00 00 00 00 01 00 00 00 00 02 AD 32 22 1F 0C AD 72 45 32 91 1F 05 AD
           C5 5F 19 02 19 02)
      0.))
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::FLAG-SET-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::FLAG-SET-P
      #20Y(00 00 00 00 02 00 00 00 00 03 AE AE 73 02 3E 32 90 59 19 03)))
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::FLAG-TO-LANGUAGE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::FLAG-TO-LANGUAGE
      #46Y(00 00 00 00 01 00 00 00 00 02 AD 6B 00 8A 01 0F 00 14 AE 6B 03 8A 01
           0D 00 14 33 02 23 19 02 C7 1B 6F CA 1B 74 AE 6B 04 8A 01 77 CB 1B
           6B)
      FFI::FF-LANGUAGE-C FFI::FLAG-SET-P (:C) FFI::FF-LANGUAGE-ANSI-C
      FFI::FF-LANGUAGE-STDCALL (:STDC-STDCALL) (:STDC)))
#Y(#:TOP-LEVEL-FORM-18
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::LANGUAGE-TO-FLAG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::LANGUAGE-TO-FLAG
      #47Y(00 00 00 00 01 00 00 00 00 02 9E 26 00 11 0E 01 19 02 0E 02 19 02 6B
           02 6B 03 33 02 36 19 02 DE DF AF E0 E1 2E 08 14 E3 E4 70 0B B4 33 06
           1F)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:STDC-STDCALL . 9.)
         (:STDC . 5.) (:C . 1.))
      FFI::FF-LANGUAGE-C FFI::FF-LANGUAGE-ANSI-C FFI::FF-LANGUAGE-STDCALL
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::MEMBER :C :STDC :STDC-STDCALL) SYSTEM::TYPE-ERROR-STRING
      FFI::LANG (:C :STDC :STDC-STDCALL) SYSTEM::CASE-ERROR-STRING))
#Y(#:TOP-LEVEL-FORM-19
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::SPLIT-C-FUN-ARGLIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::SPLIT-C-FUN-ARGLIST
      #39Y(00 00 00 00 02 00 00 00 00 03 AD 63 1B 0C B0 9F 5F 14 84 00 DA AE 82
           02 36 01 AD B1 72 45 91 01 33 6C AC 32 47 19 05)
      2.))
#Y(#:TOP-LEVEL-FORM-20
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::PARSE-C-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::PARSE-C-FUNCTION
      #306Y(00 00 00 00 02 00 00 00 00 03 DA DB B0 38 03 31 B9 5C 5B 1C 01 00
            14 6F 02 63 DD B2 38 03 31 B9 5C 1D 04 14 1B 80 AD 63 1B 80 A9 E0
            6F 07 B3 AE 33 02 1E 9E 5C 5C 5B 1B 2C 9F 5C 5C 5C 5B 1B 38 AD 2F
            0A 26 0B 2D 94 00 AC 8F 09 5F 94 00 8F 04 5A DE AD 72 45 DF 91 02
            32 51 9D 5C 78 6F 02 9E 5C 5C 1C 4F CD 14 9F 5C 5C 5C 1C 4D AD 25
            09 50 D2 1B 05 AC 24 0C 79 D3 14 AE 9F 26 0F 07 D5 1B 13 0E 11 1B
            0F ED EE B0 EF F0 2E 17 14 F2 03 19 1B 1B 0E 12 14 9F 26 1B 07 D5
            1B 27 0E 1C 1B 23 ED EE B0 EF 65 1E 2E 17 14 65 1F 03 20 14 70 1A
            A6 1B 80 56 D5 16 01 1B 80 62 0E 1D 16 01 1B 80 5B 0E 1D 14 73 02
            36 61 02 16 02 F8 AF 80 A0 02 16 01 83 00 9D 21 FF 6E 16 01 AC 80
            A2 00 65 21 72 28 DB B2 38 03 71 B9 9D 5C 5C 1D 2E 9D 5C 5C 78 AC
            24 0E FF BE AC 24 22 40 ED EE AE EF 65 23 2E 17 14 65 24 65 25 70
            1A A4 14 33 06 1F 65 27 95 01 38 05 9A 28 01 32 49 1B 0E D5 F8 65
            26 B3 38 03 71 B9 92 00 67 0E 29 F8 73 02 36 33 04 00 19 03)
      FFI::C-FUNCTION :RETURN-TYPE FFI::PARSE-C-TYPE :ARGUMENTS 2. 4.
      "Invalid parameter specification in ~S: ~S" SYSTEM::TEXT :IN
      FFI::C-STRING FFI::CTYPE-TYPE
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (FFI::C-ARRAY-PTR . 43.)
         (FFI::C-PTR-NULL . 43.) (FFI::C-PTR . 43.))
      :OUT :ALLOCA :NONE
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:READ-WRITE . 21.)
         (:IN-OUT . 21.) (:WRITE-ONLY . 4.) (:OUT . 4.) (:READ-ONLY . 1.)
         (:IN . 1.))
      0. FFI::FF-FLAG-OUT FFI::FF-FLAG-IN-OUT COMMON-LISP::TYPE-ERROR :DATUM
      :EXPECTED-TYPE
      (COMMON-LISP::MEMBER :IN :READ-ONLY :OUT :WRITE-ONLY :IN-OUT :READ-WRITE)
      SYSTEM::TYPE-ERROR-STRING FFI::ARGMODE
      (:IN :READ-ONLY :OUT :WRITE-ONLY :IN-OUT :READ-WRITE)
      SYSTEM::CASE-ERROR-STRING
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:MALLOC-FREE . 41.)
         (:ALLOCA . 4.) (:NONE . 1.))
      FFI::FF-FLAG-ALLOCA FFI::FF-FLAG-MALLOC-FREE
      (COMMON-LISP::MEMBER :NONE :ALLOCA :MALLOC-FREE) FFI::ARGALLOC
      (:NONE :ALLOCA :MALLOC-FREE) COMMON-LISP::SIMPLE-VECTOR :MALLOC-FREE
      (COMMON-LISP::MEMBER :NONE :MALLOC-FREE)
      (COMMON-LISP::THIRD FFI::RETTYPE) (:NONE :MALLOC-FREE) :LANGUAGE
      #.#'COMMON-LISP::+ FFI::LANGUAGE-TO-FLAG FFI::FF-LANGUAGE-C))
#Y(#:TOP-LEVEL-FORM-21
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::PARSE-FOREIGN-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::PARSE-FOREIGN-NAME
      #32Y(00 00 00 00 01 00 00 00 00 02 AD 8F 05 0C AD 88 02 0B C8 14 6F 01 AE
           33 01 1E C5 1B 76 9E 19 02)
      "The name must be a string, not ~S" SYSTEM::TEXT FFI::C-IDENT-P
      "The name ~S is not a valid C identifier"))
#Y(#:TOP-LEVEL-FORM-22
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::CHECK-SYMBOL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::CHECK-SYMBOL
      #34Y(00 00 00 00 01 00 01 00 00 08 3B 01 04 9F 5C 5B F9 AD 8F 04 03 00 19
           03 DA DB 6F 02 94 04 B0 33 02 1F)
      SYSTEM::SOURCE-PROGRAM-ERROR "~S: this is not a symbol: ~S"
      SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-23
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::DEF-C-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::DEF-C-TYPE
      #54Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 1F 9F 5C 78 A0 5C
           5C 78 B0 2F 02 DD DE DF E0 B0 7B 02 E0 B2 7B 02 7B 03 E0 B1 7B 02 61
           04 19 05 AE 2F 01 19 03)
      3. SYSTEM::MACRO-CALL-ERROR FFI::CHECK-SYMBOL COMMON-LISP::EVAL-WHEN
      (COMMON-LISP::LOAD COMMON-LISP::COMPILE COMMON-LISP::EVAL)
      FFI::PARSE-C-TYPE COMMON-LISP::QUOTE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-24
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEPARSE-C-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEPARSE-C-TYPE
      #48Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 00 0B 00 00 9D 2B 03 AC 2C 00
           01 0B 00 00 AC 2C 01 01 0B 00 01 AC 2C 02 01 0B 00 02 AF 06 01 02 34
           19 04)
      #Y(SYSTEM::DEPARSE-C-TYPE-NEW-TYPE
         #23Y(00 00 00 00 02 00 00 00 00 03 AE AE 69 01 01 31 B7 0C 01 01 9F 19
              03)
         COMMON-LISP::NIL)
      #Y(SYSTEM::DEPARSE-C-TYPE-DEPARSE-SLOT
         #20Y(00 00 00 00 02 00 00 00 00 03 AE AE 07 00 03 74 61 02 19 03)
         COMMON-LISP::NIL)
      #Y(SYSTEM::DEPARSE-C-TYPE-DEPARSE
         #354Y(00 00 00 00 01 00 00 00 00 02 AD 69 01 01 DB 38 02 31 B9 5C 1E
               81 49 AD 8E 04 16 AD C7 5F 14 7B 01 AE AD 07 00 01 34 AC AF C7
               5F 14 9D 26 03 81 0B AD AE 07 00 01 34 19 02 CB 1B 12 CD 1B 0F
               B0 C9 5F 14 AC DF 8C FF 71 AC E1 8C FF 6F 00 F8 E2 69 00 02 B3
               CE 5F 14 B4 E4 38 01 72 43 33 01 27 5D 1B 80 F6 E2 69 00 02 B2
               CE 5F 14 B3 DE 38 01 72 43 33 01 27 1B 80 E2 AC DC 32 41 1B 17
               B0 CE 5F 14 6C FF 85 B1 DE 38 01 72 43 AC 72 45 24 09 67 AC E2
               32 28 F8 61 02 1B 80 BF B0 CE 5F 14 6C FF 68 B1 C9 5F 14 61 02
               1B 80 AF D6 1B 80 40 D8 1B 3D 03 16 1B 80 49 03 18 1B 80 44 03
               18 1B 80 6C E5 B1 C9 5F 14 E2 72 28 E3 63 93 02 80 42 94 02 A0
               5C 78 63 E6 B1 6E 03 0D 6B 0E 71 D2 AE 6C FF 28 AE 6B 0F 8A 10
               43 AE 6B 12 8A 10 41 D9 14 AF 6B 15 8A 10 FF BB AF 6B 17 8A 10
               FF B9 03 19 14 7B 04 84 02 16 02 9F 5C 5C FA 85 01 92 02 FF BE
               AC 32 47 16 02 F8 7B 02 F4 B2 CE 5F 14 6C FE E9 B3 CF 5F 14 6B
               17 8A 10 FF 91 03 19 14 7B 03 F5 B3 CF 5F 14 2F 1C 7A 61 03 1B
               1E F7 65 1E AE 65 1F 65 20 2E 21 14 65 22 65 23 70 24 B3 33 06
               1F B0 CE 5F 14 6C FE B2 61 01 F8 31 A9 15 19 02 19 02)
         COMMON-LISP::NIL #.#'COMMON-LISP::EQ 0.
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (FFI::C-ARRAY-PTR . 290.)
            (FFI::C-PTR-NULL . 290.) (FFI::C-PTR . 290.)
            (FFI::C-FUNCTION . 146.) (FFI::C-ARRAY-MAX . 108.)
            (FFI::C-ARRAY . 79.) (FFI::C-UNION . 53.) (FFI::C-STRUCT . 16.))
         2. #.#'COMMON-LISP::VECTOR COMMON-LISP::VECTOR #.#'COMMON-LISP::LIST
         COMMON-LISP::LIST 1. 3. :ARGUMENTS
         #Y(SYSTEM::DEPARSE-C-TYPE-DEPARSE-1
            #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D
                 08 01 9E 19 04)
            "arg" SYSTEM::DO-FORMAT-DECIMAL)
         COMMON-LISP::FORMAT SYSTEM::*KEYWORD-PACKAGE* FFI::FF-FLAG-OUT
         FFI::FLAG-SET-P :OUT FFI::FF-FLAG-IN-OUT :IN-OUT :IN
         FFI::FF-FLAG-ALLOCA :ALLOCA FFI::FF-FLAG-MALLOC-FREE :MALLOC-FREE
         :NONE :RETURN-TYPE :LANGUAGE FFI::FLAG-TO-LANGUAGE
         COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
         (COMMON-LISP::MEMBER FFI::C-STRUCT FFI::C-UNION FFI::C-ARRAY
          FFI::C-ARRAY-MAX FFI::C-FUNCTION FFI::C-PTR FFI::C-PTR-NULL
          FFI::C-ARRAY-PTR)
         SYSTEM::TYPE-ERROR-STRING (COMMON-LISP::SVREF FFI::CTYPE 0.)
         (FFI::C-STRUCT FFI::C-UNION FFI::C-ARRAY FFI::C-ARRAY-MAX
          FFI::C-FUNCTION FFI::C-PTR FFI::C-PTR-NULL FFI::C-ARRAY-PTR)
         SYSTEM::CASE-ERROR-STRING)))
#Y(#:TOP-LEVEL-FORM-25
   #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)
   (COMMON-LISP::SPECIAL SYSTEM::*FFI-MODULE*) SYSTEM::*FFI-MODULE*)
#Y(#:TOP-LEVEL-FORM-26
   #545Y(00 00 00 00 00 00 00 00 00 01 00 2B 03 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 C9 0B 00 01 CA 0B 00 02 E0 2F 07 E0 AD 6D 08 01 32 80 DA DC
         68 02 00 64 E0 E3 E4 E5 E6 E7 68 0A 01 7B 01 E8 64 63 73 07 00 E9 EA
         EB 68 0B 02 7B 01 EC 64 63 73 07 00 D8 7C 04 68 06 01 68 07 02 73 06
         00 32 86 16 01 DA 2F 14 EF 31 59 F0 2F 07 F0 F1 F2 32 86 F0 F3 32 80
         F4 31 59 F5 2F 07 F5 F1 F6 32 86 F5 F7 32 80 65 1E 31 59 65 1F 31 59
         65 20 2F 07 65 20 F1 65 21 32 86 65 20 65 22 32 80 65 20 65 23 DA 32
         86 65 24 31 59 65 25 31 59 65 26 2F 07 65 26 F1 65 27 32 86 65 26 65
         28 32 80 65 26 65 23 DA 32 86 65 29 31 59 65 2A 31 59 65 2B 2F 07 65
         2B F1 65 2C 32 86 65 2B 65 2D 32 80 65 2B 65 23 DA 32 86 65 2E 31 59
         65 2F 31 59 65 30 2F 07 65 30 F1 65 31 32 86 65 30 65 32 32 80 65 30
         65 23 DA 32 86 65 33 31 59 65 34 31 59 65 35 2F 07 65 35 F1 65 36 32
         86 65 35 65 37 32 80 65 35 65 23 DA 32 86 65 38 31 59 65 39 31 59 65
         3A 2F 07 65 3A F1 65 3B 32 86 65 3A 65 3C 32 80 65 3A 65 23 DA 32 86
         65 20 65 3D 32 87 65 20 65 3E 65 3F 65 40 03 41 7C 02 32 86 65 20 65
         42 63 2D 03 43 65 20 65 3D DA 32 86 65 26 65 3D 32 87 65 26 65 3E 65
         3F 65 40 03 44 7C 02 32 86 65 26 65 42 63 2D 03 43 65 26 65 3D DA 32
         86 65 2B 65 3D 32 87 65 2B 65 3E 65 3F 65 40 03 45 7C 02 32 86 65 2B
         65 42 63 2D 03 43 65 2B 65 3D DA 32 86 65 30 65 3D 32 87 65 30 65 3E
         65 3F 65 40 03 46 7C 02 32 86 65 30 65 42 63 2D 03 43 65 30 65 3D DA
         32 86 65 35 65 3D 32 87 65 35 65 3E 65 3F 65 40 03 47 7C 02 32 86 65
         35 65 42 63 2D 03 43 65 35 65 3D DA 32 86 65 3A 65 3D 32 87 65 3A 65
         3E 65 3F 65 40 03 48 7C 02 32 86 65 3A 65 42 63 2D 03 43 65 3A 65 3D
         DA 32 86 DA 65 49 63 2D 03 43 DA 2F 4A C5 19 01)
   FFI::FFI-MODULE COMMON-LISP::STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION
   0.
   #Y(FFI::DEFAULT-OBJECT-TABLE
      #18Y(00 00 00 00 00 00 00 00 00 01 38 06 C5 FB 31 61 19 01)
      #.#'COMMON-LISP::EQUAL)
   #Y(FFI::DEFAULT-TYPE-TABLE
      #18Y(00 00 00 00 00 00 00 00 00 01 38 06 C5 FB 31 61 19 01)
      #.#'COMMON-LISP::EQ)
   FFI::MAKE-FFI-MODULE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::MAKE-FFI-MODULE
      #85Y(00 00 00 00 00 00 00 00 80 1B 06 00 01 00 3D 06 3D 05 3B 04 06 69 00
           02 36 00 FC 3B 03 06 69 00 03 36 00 FB 3D 02 3D 01 69 00 01 E1 72 2E
           E2 AD E3 B6 32 2D E2 AD E4 B5 32 2D E2 AD E5 B4 32 2D E2 AD E6 B3 32
           2D E2 AD E7 B2 32 2D E2 AD E8 B1 32 2D 15 19 07)
      COMMON-LISP::NIL :NAME :C-NAME :OBJECT-TABLE :TYPE-TABLE :VARIABLE-LIST
      :FUNCTION-LIST 7. FFI::FFI-MODULE 1. 2. 3. 4. 5. 6.)
   #(FFI::NAME (:NAME) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T
     COMMON-LISP::NIL)
   #(FFI::C-NAME (:C-NAME) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
     COMMON-LISP::T COMMON-LISP::NIL)
   FFI::OBJECT-TABLE (:OBJECT-TABLE) 3.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'FFI::FFI-MODULE 'SYSTEM::DEFSTRUCT-DESCRIPTION) 4.)
   FFI::TYPE-TABLE (:TYPE-TABLE) 4.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'FFI::FFI-MODULE 'SYSTEM::DEFSTRUCT-DESCRIPTION) 5.)
   (#(FFI::VARIABLE-LIST (:VARIABLE-LIST) 5. (COMMON-LISP::NIL)
      'COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(FFI::FUNCTION-LIST (:FUNCTION-LIST) 6. (COMMON-LISP::NIL)
      'COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE FFI::FFI-MODULE-P)
   FFI::FFI-MODULE-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN FFI::FFI-MODULE-P))
    (COMMON-LISP::BLOCK FFI::FFI-MODULE-P
     (SYSTEM::%STRUCTURE-TYPE-P 'FFI::FFI-MODULE SYSTEM::OBJECT)))
   #Y(FFI::FFI-MODULE-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      FFI::FFI-MODULE)
   (COMMON-LISP::INLINE FFI::COPY-FFI-MODULE) FFI::COPY-FFI-MODULE
   ((COMMON-LISP::STRUCTURE)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN FFI::COPY-FFI-MODULE))
    (COMMON-LISP::BLOCK FFI::COPY-FFI-MODULE
     (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE)))
   #Y(FFI::COPY-FFI-MODULE #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 2F 19 02))
   (COMMON-LISP::FUNCTION FFI::FFI-MODULE-NAME (FFI::FFI-MODULE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE FFI::FFI-MODULE-NAME) FFI::FFI-MODULE-NAME
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN FFI::FFI-MODULE-NAME))
    (COMMON-LISP::BLOCK FFI::FFI-MODULE-NAME
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'FFI::FFI-MODULE SYSTEM::OBJECT 1.))))
   #Y(FFI::FFI-MODULE-NAME
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) FFI::FFI-MODULE
      1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION FFI::FFI-MODULE-C-NAME (FFI::FFI-MODULE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE FFI::FFI-MODULE-C-NAME) FFI::FFI-MODULE-C-NAME
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN FFI::FFI-MODULE-C-NAME))
    (COMMON-LISP::BLOCK FFI::FFI-MODULE-C-NAME
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'FFI::FFI-MODULE SYSTEM::OBJECT 2.))))
   #Y(FFI::FFI-MODULE-C-NAME
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) FFI::FFI-MODULE
      2.)
   (COMMON-LISP::FUNCTION FFI::FFI-MODULE-OBJECT-TABLE (FFI::FFI-MODULE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE FFI::FFI-MODULE-OBJECT-TABLE)
   FFI::FFI-MODULE-OBJECT-TABLE
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN FFI::FFI-MODULE-OBJECT-TABLE))
    (COMMON-LISP::BLOCK FFI::FFI-MODULE-OBJECT-TABLE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'FFI::FFI-MODULE SYSTEM::OBJECT 3.))))
   #Y(FFI::FFI-MODULE-OBJECT-TABLE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) FFI::FFI-MODULE
      3.)
   (COMMON-LISP::FUNCTION FFI::FFI-MODULE-TYPE-TABLE (FFI::FFI-MODULE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE FFI::FFI-MODULE-TYPE-TABLE) FFI::FFI-MODULE-TYPE-TABLE
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN FFI::FFI-MODULE-TYPE-TABLE))
    (COMMON-LISP::BLOCK FFI::FFI-MODULE-TYPE-TABLE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'FFI::FFI-MODULE SYSTEM::OBJECT 4.))))
   #Y(FFI::FFI-MODULE-TYPE-TABLE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) FFI::FFI-MODULE
      4.)
   (COMMON-LISP::FUNCTION FFI::FFI-MODULE-VARIABLE-LIST (FFI::FFI-MODULE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE FFI::FFI-MODULE-VARIABLE-LIST)
   FFI::FFI-MODULE-VARIABLE-LIST
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN FFI::FFI-MODULE-VARIABLE-LIST))
    (COMMON-LISP::BLOCK FFI::FFI-MODULE-VARIABLE-LIST
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'FFI::FFI-MODULE SYSTEM::OBJECT 5.))))
   #Y(FFI::FFI-MODULE-VARIABLE-LIST
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) FFI::FFI-MODULE
      5.)
   (COMMON-LISP::FUNCTION FFI::FFI-MODULE-FUNCTION-LIST (FFI::FFI-MODULE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE FFI::FFI-MODULE-FUNCTION-LIST)
   FFI::FFI-MODULE-FUNCTION-LIST
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN FFI::FFI-MODULE-FUNCTION-LIST))
    (COMMON-LISP::BLOCK FFI::FFI-MODULE-FUNCTION-LIST
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'FFI::FFI-MODULE SYSTEM::OBJECT 6.))))
   #Y(FFI::FFI-MODULE-FUNCTION-LIST
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) FFI::FFI-MODULE
      6.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(FFI::SETF-FFI-MODULE-NAME
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'FFI::FFI-MODULE 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(FFI::SETF-FFI-MODULE-C-NAME
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'FFI::FFI-MODULE 2.)
   #Y(FFI::SETF-FFI-MODULE-OBJECT-TABLE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'FFI::FFI-MODULE 3.)
   #Y(FFI::SETF-FFI-MODULE-TYPE-TABLE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'FFI::FFI-MODULE 4.)
   #Y(FFI::SETF-FFI-MODULE-VARIABLE-LIST
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'FFI::FFI-MODULE 5.)
   #Y(FFI::SETF-FFI-MODULE-FUNCTION-LIST
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'FFI::FFI-MODULE 6.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-27
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 C5 19
        01)
   FFI::*NAME* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
   (FFI::FFI-MODULE-NAME SYSTEM::*FFI-MODULE*) SYSTEM::MAKE-SYMBOL-MACRO)
#Y(#:TOP-LEVEL-FORM-28
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 C5 19
        01)
   FFI::*C-NAME* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
   (FFI::FFI-MODULE-C-NAME SYSTEM::*FFI-MODULE*) SYSTEM::MAKE-SYMBOL-MACRO)
#Y(#:TOP-LEVEL-FORM-29
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 C5 19
        01)
   FFI::*OBJECT-TABLE* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
   (FFI::FFI-MODULE-OBJECT-TABLE SYSTEM::*FFI-MODULE*)
   SYSTEM::MAKE-SYMBOL-MACRO)
#Y(#:TOP-LEVEL-FORM-30
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 C5 19
        01)
   FFI::*TYPE-TABLE* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
   (FFI::FFI-MODULE-TYPE-TABLE SYSTEM::*FFI-MODULE*) SYSTEM::MAKE-SYMBOL-MACRO)
#Y(#:TOP-LEVEL-FORM-31
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 C5 19
        01)
   FFI::*VARIABLE-LIST* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
   (FFI::FFI-MODULE-VARIABLE-LIST SYSTEM::*FFI-MODULE*)
   SYSTEM::MAKE-SYMBOL-MACRO)
#Y(#:TOP-LEVEL-FORM-32
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 C5 19
        01)
   FFI::*FUNCTION-LIST* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
   (FFI::FFI-MODULE-FUNCTION-LIST SYSTEM::*FFI-MODULE*)
   SYSTEM::MAKE-SYMBOL-MACRO)
#Y(#:TOP-LEVEL-FORM-33
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::TO-MODULE-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::TO-MODULE-NAME
      #18Y(00 00 00 00 01 00 00 00 00 02 DA DB AF 33 00 27 19 02)
      COMMON-LISP::STRING
      #Y(FFI::TO-MODULE-NAME-1
         #43Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 90 02 0B 17 DC AE DD 90 02
              0B 10 DE AE DF 90 02 0B 09 AD E0 90 01 07 03 CB 19 02 9E 19 02)
         #\A #\Z #\a #\z #\0 #\9 #\_)))
#Y(#:TOP-LEVEL-FORM-34
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::TO-C-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::TO-C-NAME
      #76Y(03 00 01 00 01 00 00 00 00 02 AD 80 4A 01 DA AE 90 00 28 06 AD 38 02
           80 47 01 AD 88 01 2B 00 2B 01 63 38 01 32 73 0B 00 00 53 13 14 DC 30
           03 63 AF 6D 04 01 B2 33 00 27 68 02 00 32 74 54 08 00 00 00 00 14 2F
           05 55 19 03 9E 19 02)
      #.#'COMMON-LISP::LOWER-CASE-P FFI::C-IDENT-P
      #Y(FFI::TO-C-NAME-1
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "_lisp__")
      COMMON-LISP::FORMAT
      #Y(FFI::TO-C-NAME-2
         #38Y(00 00 00 00 01 00 00 00 00 02 AD 8D 1E 04 AD 8C 26 0C 69 00 01 DB
              AF 71 27 2D 03 02 19 02 AD 69 00 01 31 87 19 02)
         COMMON-LISP::NIL
         #Y(FFI::TO-C-NAME-2-1
            #27Y(00 00 00 00 02 00 00 00 01 18 DA B0 31 87 AF 01 02 DB 01 03 B5
                 2D 08 02 9E 19 04)
            #\_ 2. SYSTEM::DO-FORMAT-HEXADECIMAL)
         COMMON-LISP::FORMAT)
      COMMON-LISP::CLOSE))
#Y(#:TOP-LEVEL-FORM-35
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::PREPARE-C-TYPEDECL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::PREPARE-C-TYPEDECL
      #55Y(00 00 00 00 01 00 00 00 00 02 AD 6B 00 6F 01 38 01 8D 62 03 00 19 02
           AD 2F 02 26 03 77 DE 72 8E 72 8A 6B 05 E0 B0 AF 70 07 2D 03 08 6B 00
           6F 01 AF AD AF 31 63 19 04)
      SYSTEM::*FFI-MODULE* FFI::FFI-MODULE-TYPE-TABLE FFI::CTYPE-TYPE
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (FFI::C-ARRAY-MAX . 1.)
         (FFI::C-ARRAY . 1.) (FFI::C-UNION . 1.) (FFI::C-STRUCT . 1.))
      "g" SYSTEM::*COUTPUT-STREAM*
      #Y(FFI::PREPARE-C-TYPEDECL-1
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "
typedef "
         ";
")
      FFI::TO-C-TYPEDECL COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-36
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::TO-C-TYPEDECL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::TO-C-TYPEDECL
      #372Y(03 00 01 00 02 00 00 00 00 03 9F 26 00 80 5F 63 C6 1B 80 42 63 C8
            1B 3E 63 C9 1B 3A 63 CA 1B 36 63 CB 1B 32 63 CC 1B 2E 63 CD 1B 2A
            63 CE 1B 26 63 CF 1B 22 63 D0 1B 1E 63 D1 1B 1A 63 D2 1B 16 63 D3
            1B 12 63 D4 1B 0E 63 D5 1B 0A 63 D6 1B 06 63 D7 1B 02 63 D8 14 AF
            2D 03 02 19 03 63 F0 B0 6B 14 6F 15 38 01 71 62 B0 2D 04 02 19 03
            AE 6B 14 6F 15 38 01 8C 62 65 AE 2F 17 26 18 80 ED 63 F3 F4 F5 72
            8E 6E 04 02 53 25 6B 14 6F 15 B2 AD B1 31 63 16 01 63 F6 B0 F7 99
            1E B6 F7 32 28 5C 5C 79 B7 03 1F 5F 14 73 01 27 B4 2D 05 02 54 6B
            14 6F 15 67 00 00 03 AD 63 31 63 16 01 55 19 04 63 65 20 65 21 F5
            72 8E 6E 04 02 53 25 6B 14 6F 15 B2 AD B1 31 63 16 01 63 65 22 B0
            F7 99 1E B6 F7 32 28 5C 79 B7 03 1F 5F 14 73 01 27 B4 2D 05 02 54
            6B 14 6F 15 67 00 00 03 AD 63 31 63 16 01 55 19 04 AE 03 1F 5F 14
            63 65 23 B0 B2 F7 32 28 5C 79 1B 80 4F AE 03 1F 5F 14 63 65 24 B0
            B2 03 25 5F 14 1B 3F AE 03 1F 5F 14 63 65 26 B0 6E 03 02 29 02 05
            FE D4 AE 03 1F 5F 14 63 65 27 B0 63 B3 03 25 5F 14 65 28 70 29 1B
            10 94 00 AC 65 2A 72 8E 6C FE B5 84 02 16 01 83 00 9D 21 6D 16 01
            AC 80 A2 00 6E 04 02 29 02 05 FE 9E 65 2B 6F 2C AF 33 01 1E)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (FFI::C-STRING . 71.)
         (FFI::C-POINTER . 71.) (COMMON-LISP::DOUBLE-FLOAT . 67.)
         (COMMON-LISP::SINGLE-FLOAT . 63.) (FFI::UINT64 . 59.)
         (FFI::SINT64 . 55.) (FFI::UINT32 . 51.) (FFI::SINT32 . 47.)
         (FFI::ULONG . 43.) (FFI::LONG . 39.) (FFI::UINT . 35.)
         (FFI::INT . 31.) (FFI::UINT16 . 27.) (FFI::USHORT . 27.)
         (FFI::SINT16 . 23.) (FFI::SHORT . 23.) (FFI::UINT8 . 19.)
         (FFI::UCHAR . 19.) (FFI::SINT8 . 15.) (COMMON-LISP::CHAR . 15.)
         (COMMON-LISP::CHARACTER . 11.) (COMMON-LISP::BOOLEAN . 7.)
         (COMMON-LISP::NIL . 2.))
      #Y(FFI::TO-C-TYPEDECL-1
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "void ")
      COMMON-LISP::FORMAT
      #Y(FFI::TO-C-TYPEDECL-2
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "int ")
      #Y(FFI::TO-C-TYPEDECL-3
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "char ")
      #Y(FFI::TO-C-TYPEDECL-4
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "sint8 ")
      #Y(FFI::TO-C-TYPEDECL-5
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "uint8 ")
      #Y(FFI::TO-C-TYPEDECL-6
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "sint16 ")
      #Y(FFI::TO-C-TYPEDECL-7
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "uint16 ")
      #Y(FFI::TO-C-TYPEDECL-8
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "int ")
      #Y(FFI::TO-C-TYPEDECL-9
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "unsigned int ")
      #Y(FFI::TO-C-TYPEDECL-10
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "long ")
      #Y(FFI::TO-C-TYPEDECL-11
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "unsigned long ")
      #Y(FFI::TO-C-TYPEDECL-12
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "sint32 ")
      #Y(FFI::TO-C-TYPEDECL-13
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "uint32 ")
      #Y(FFI::TO-C-TYPEDECL-14
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "sint64 ")
      #Y(FFI::TO-C-TYPEDECL-15
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "uint64 ")
      #Y(FFI::TO-C-TYPEDECL-16
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "float ")
      #Y(FFI::TO-C-TYPEDECL-17
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "double ")
      #Y(FFI::TO-C-TYPEDECL-18
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "char* ")
      SYSTEM::*FFI-MODULE* FFI::FFI-MODULE-TYPE-TABLE
      #Y(FFI::TO-C-TYPEDECL-19
         #25Y(00 00 00 00 03 00 00 00 01 19 AF B1 31 83 DA B1 31 87 AE B1 31 83
              9E 19 05)
         #\Space)
      FFI::CTYPE-TYPE
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (FFI::C-FUNCTION . 185.)
         (FFI::C-ARRAY-PTR . 168.) (FFI::C-PTR-NULL . 168.) (FFI::C-PTR . 168.)
         (FFI::C-ARRAY-MAX . 152.) (FFI::C-ARRAY . 134.) (FFI::C-UNION . 67.)
         (FFI::C-STRUCT . 2.))
      #Y(FFI::TO-C-TYPEDECL-20
         #25Y(00 00 00 00 03 00 00 00 01 19 AF B1 31 83 DA B1 31 87 AE B1 31 83
              9E 19 05)
         #\Space)
      "struct" "t"
      #Y(FFI::TO-C-TYPEDECL-21
         #55Y(00 00 00 00 04 00 00 00 01 1A B0 B2 31 83 DA B2 38 02 31 88 AF 1B
              0D 94 00 83 01 B3 31 83 DB B3 38 02 31 88 AC 8D 91 6F 16 01 DC B2
              38 02 31 88 AE B2 31 83 9E 19 06)
         " { " "; " "} ")
      COMMON-LISP::LIST FFI::TO-C-TYPEDECL 1.
      #Y(FFI::TO-C-TYPEDECL-22
         #25Y(00 00 00 00 03 00 00 00 01 19 AF B1 31 83 DA B1 31 87 AE B1 31 83
              9E 19 05)
         #\Space)
      "union"
      #Y(FFI::TO-C-TYPEDECL-23
         #55Y(00 00 00 00 04 00 00 00 01 1A B0 B2 31 83 DA B2 38 02 31 88 AF 1B
              0D 94 00 83 01 B3 31 83 DB B3 38 02 31 88 AC 8D 91 6F 16 01 DC B2
              38 02 31 88 AE B2 31 83 9E 19 06)
         " { " "; " "} ")
      #Y(FFI::TO-C-TYPEDECL-24
         #52Y(00 00 00 00 03 00 00 00 01 19 DA B1 31 87 AF B1 31 83 DB B1 31 87
              AE 1B 12 DC B2 31 87 B1 01 06 94 07 83 08 2D 08 03 DE B2 31 87 AC
              8D 91 6A 16 01 9E 19 05)
         #\( #\) #\[ SYSTEM::DO-FORMAT-DECIMAL #\])
      #Y(FFI::TO-C-TYPEDECL-25
         #38Y(00 00 00 00 03 00 00 00 01 19 DA B1 31 87 AF B1 31 83 DB B1 38 02
              31 88 B0 01 06 B5 2D 08 02 DD B1 31 87 9E 19 05)
         #\( ")[" SYSTEM::DO-FORMAT-DECIMAL #\])
      2.
      #Y(FFI::TO-C-TYPEDECL-26
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "* ")
      #Y(FFI::TO-C-TYPEDECL-27
         #59Y(00 00 00 00 03 00 00 00 01 19 DA B1 31 87 AF B1 31 83 DB B1 38 02
              31 88 AE 1B 13 16 01 1B 15 94 00 83 01 B2 31 83 AC 8C 91 71 DC B2
              31 87 AC 8D 91 6D 16 01 DD B1 31 87 9E 19 05)
         #\( ") (" #\, #\))
      0. FFI::SPLIT-C-FUN-ARGLIST "arg" "illegal foreign data type ~S"
      SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-37
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::PREPARE-MODULE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::PREPARE-MODULE
      #48Y(00 00 00 00 00 00 00 00 00 01 0E 00 1C 1F 6B 01 38 01 71 E9 DC AD DD
           AF 6F 04 2D 04 05 16 01 0F 00 6B 06 E1 6B 00 6F 08 2D 03 09 19 01 00
           19 01)
      SYSTEM::*FFI-MODULE* SYSTEM::*COUTPUT-FILE* :NAME :C-NAME
      FFI::TO-MODULE-NAME FFI::MAKE-FFI-MODULE SYSTEM::*COUTPUT-STREAM*
      #Y(FFI::PREPARE-MODULE-1
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "extern object module__"
         "__object_tab[];
")
      FFI::FFI-MODULE-C-NAME COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-38
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FINALIZE-COUTPUT-FILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FINALIZE-COUTPUT-FILE
      #397Y(00 00 00 00 00 00 00 00 00 01 0E 00 1F 81 7C 6B 01 DC 30 03 6B 01
            DE 6B 00 6F 05 2D 03 03 6B 01 E0 6B 00 6F 05 2D 03 03 6B 01 E1 6B
            00 6F 05 2D 03 03 6B 01 E2 30 03 6B 00 6F 09 71 67 AC 8E 90 80 6F
            00 2B 01 AD 38 07 31 1C 0B 00 00 6B 01 E6 6B 00 6F 05 B0 2D 04 03
            6B 01 E7 6B 00 6F 05 B0 2D 04 03 6B 00 6F 09 AD 6D 0E 01 AD 31 65
            16 01 63 E9 68 02 00 33 00 27 6B 01 EA 30 03 16 01 6B 01 EB 6B 00
            6F 05 AF 2D 04 03 16 01 6B 01 EC 30 03 6B 00 6B 00 6F 13 38 06 D9
            FA 03 15 F9 72 53 72 47 F0 AE F1 AF 32 2D 16 02 6B 00 6F 13 63 1B
            29 6B 01 E4 6B 00 6F 05 2D 03 03 6B 01 E5 6B 00 6F 05 2D 03 03 1B
            FF B7 87 01 00 6B 01 F2 9F 5C 78 94 03 70 19 2D 03 03 83 01 AD 8D
            91 6A 16 02 6B 00 6B 00 6F 1A 38 06 D9 FA 03 15 F9 72 53 72 47 F0
            AE F5 AF 32 2D 16 02 6B 00 6F 1A 63 1B 1C 87 01 00 6B 01 F6 9F 5C
            78 03 1D 5F 14 63 65 1E 94 05 6E 03 03 70 19 2D 03 03 83 01 AD 8D
            91 60 16 02 6B 01 65 1F 6B 00 6F 05 2D 03 03 6B 01 65 20 6B 00 6F
            05 2D 03 03 6B 00 6F 13 63 1B 18 87 01 00 6B 01 65 21 94 02 94 03
            6F 22 A1 5C 5C 78 94 05 2D 06 03 83 01 AD 8D 91 64 16 02 6B 00 6F
            1A 63 1B 19 87 01 00 6B 01 65 23 94 02 94 03 6F 22 A1 5C 78 03 24
            5F 14 2D 05 03 83 01 AD 8D 91 63 16 02 6B 01 65 25 30 03 19 01 19
            01)
      SYSTEM::*FFI-MODULE* SYSTEM::*COUTPUT-STREAM*
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-1
         #16Y(00 00 00 00 01 00 00 00 01 17 AE 31 8A 9E 19 03))
      COMMON-LISP::FORMAT
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-2
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "subr_ module__"
         "__subr_tab[1];
")
      FFI::FFI-MODULE-C-NAME
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-3
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "uintC module__"
         "__subr_tab_size = 0;
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-4
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "subr_initdata module__"
         "__subr_tab_initdata[1];
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-5
         #16Y(00 00 00 00 01 00 00 00 01 17 AE 31 8A 9E 19 03))
      FFI::FFI-MODULE-OBJECT-TABLE
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-6
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "object module__"
         "__object_tab[1];
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-7
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "object_initdata module__"
         "__object_tab_initdata[1];
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-8
         #42Y(00 00 00 00 03 00 00 00 01 19 DA B1 38 02 31 88 AF B1 31 83 DB B1
              38 02 31 88 B0 01 06 B5 2D 08 02 DD B1 38 02 31 88 9E 19 05)
         "object module__" "__object_tab[" SYSTEM::DO-FORMAT-DECIMAL
         "];
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-9
         #42Y(00 00 00 00 03 00 00 00 01 19 DA B1 38 02 31 88 AF B1 31 83 DB B1
              38 02 31 88 B0 01 06 B5 2D 08 02 DD B1 38 02 31 88 9E 19 05)
         "object_initdata module__" "__object_tab_initdata["
         SYSTEM::DO-FORMAT-DECIMAL
         "] = {
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-10
         #25Y(00 00 00 00 02 00 00 00 00 03 69 00 01 95 02 94 03 AE 9F 60 16 02
              00 19 03)
         COMMON-LISP::NIL)
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-11
         #21Y(00 00 00 00 01 00 00 00 00 02 6B 00 DB AF 6F 02 2D 03 03 19 02)
         SYSTEM::*COUTPUT-STREAM*
         #Y(SYSTEM::FINALIZE-COUTPUT-FILE-11-1
            #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB
                 B0 38 02 31 88 9E 19 04)
            "  { "
            " },
")
         FFI::TO-C-STRING COMMON-LISP::FORMAT)
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-12
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "};
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-13
         #42Y(00 00 00 00 03 00 00 00 01 19 DA B1 38 02 31 88 AF B1 31 83 DB B1
              38 02 31 88 B0 01 06 B5 2D 08 02 DD B1 38 02 31 88 9E 19 05)
         "uintC module__" "__object_tab_size = " SYSTEM::DO-FORMAT-DECIMAL
         ";
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-14
         #16Y(00 00 00 00 01 00 00 00 01 17 AE 31 8A 9E 19 03))
      FFI::FFI-MODULE-VARIABLE-LIST #.#'COMMON-LISP::FIRST
      #.#'COMMON-LISP::EQUAL FFI::FFI-MODULE 5.
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-15
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "extern "
         ";
")
      FFI::TO-C-TYPEDECL FFI::FFI-MODULE-FUNCTION-LIST 6.
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-16
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "extern "
         ";
")
      1.
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-17
         #27Y(00 00 00 00 02 00 00 00 01 18 DA B0 31 87 AE B0 31 83 DB B0 38 02
              31 88 9E 19 04)
         #\( ")()")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-18
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "
void module__"
         "__init_function_1(module)
  var module_* module;
{ }
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-19
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "
void module__"
         "__init_function_2(module)
  var module_* module;
{
")
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-20
         #58Y(00 00 00 00 05 00 00 00 01 00 DA B3 38 02 31 88 B1 B3 31 83 DB B3
              31 87 B0 B3 31 83 DB B3 31 87 B2 01 06 B6 2D 08 02 DD B3 38 02 31
              88 AE B3 31 83 DE B3 38 02 31 88 9E 19 07)
         "  register_foreign_variable(&" #\, SYSTEM::DO-FORMAT-DECIMAL
         ",sizeof("
         "));
")
      FFI::TO-C-STRING
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-21
         #48Y(00 00 00 00 04 00 00 00 01 1A DA B2 38 02 31 88 B0 B2 31 83 DB B2
              31 87 AF B2 31 83 DB B2 31 87 B1 01 06 B5 2D 08 02 DD B2 38 02 31
              88 9E 19 06)
         "  register_foreign_function(&" #\, SYSTEM::DO-FORMAT-DECIMAL
         ");
")
      3.
      #Y(SYSTEM::FINALIZE-COUTPUT-FILE-22
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "}
")))
#Y(#:TOP-LEVEL-FORM-39
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::NEW-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::NEW-OBJECT
      #64Y(00 00 00 00 02 00 00 00 00 03 93 02 0E AD 6B 00 6F 01 38 01 71 62 92
           00 21 16 01 6B 00 6F 01 71 67 92 03 19 38 01 32 8E 14 6B 00 6F 01 B0
           A0 7A AE AE AE 31 63 16 03 15 19 03 5C 19 04 9F 1B 68)
      SYSTEM::*FFI-MODULE* FFI::FFI-MODULE-OBJECT-TABLE))
#Y(#:TOP-LEVEL-FORM-40
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::PASS-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::PASS-OBJECT
      #30Y(00 00 00 00 01 00 00 00 00 02 64 0E 00 10 01 B1 38 10 7E 04 7D 06 31
           84 11 14 30 02 19 02)
      SYSTEM::*KEYWORD-PACKAGE* COMMON-LISP::*PACKAGE* FFI::NEW-OBJECT))
#Y(#:TOP-LEVEL-FORM-41
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::OBJECT-TO-C-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::OBJECT-TO-C-VALUE
      #22Y(00 00 00 00 01 00 00 00 00 02 63 DA 6B 01 6F 02 B0 2D 04 03 19 02)
      #Y(FFI::OBJECT-TO-C-VALUE-1
         #40Y(00 00 00 00 03 00 00 00 01 19 DA B1 38 02 31 88 AF B1 31 83 DB B1
              38 02 31 88 B0 01 06 B5 2D 08 02 DD B1 31 87 9E 19 05)
         "module__" "__object_tab[" SYSTEM::DO-FORMAT-DECIMAL #\])
      SYSTEM::*FFI-MODULE* FFI::FFI-MODULE-C-NAME COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-42
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::C-LINES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::C-LINES
      #40Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 11 9F 5C 78 A0 5C
           79 DC DD DE B0 A1 7C 02 61 03 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::EVAL-WHEN (COMMON-LISP::COMPILE)
      FFI::DO-C-LINES)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-43
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::DO-C-LINES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::DO-C-LINES
      #27Y(00 00 00 00 01 00 00 00 01 17 2E 00 1F 0B 2E 01 99 02 6B 03 B0 A1 9B
           02 03 19 03)
      SYSTEM::PREPARE-COUTPUT-FILE FFI::PREPARE-MODULE COMMON-LISP::FORMAT
      SYSTEM::*COUTPUT-STREAM*))
#Y(#:TOP-LEVEL-FORM-44
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::FOREIGN-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::FOREIGN-NAME
      #24Y(00 00 00 00 02 00 00 00 00 03 92 01 05 AE 2F 01 19 03 5C 78 2F 00 19
           03)
      FFI::PARSE-FOREIGN-NAME FFI::TO-C-NAME))
#Y(#:TOP-LEVEL-FORM-45
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::DEF-C-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::DEF-C-VAR
      #233Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 80 9A 9F 5C 78
            A0 5C 79 B0 2F 02 AC DD B2 6E 03 04 AE DF AE 38 03 71 B9 70 06 E1
            AE 38 03 8D B9 80 7F 5C 78 E6 AF 38 03 31 B9 5C 78 92 00 80 7B D3
            14 E9 B1 38 03 71 B9 9D 5C 1C 80 80 D3 F8 73 02 36 F5 F6 F7 65 1E
            65 1F B4 7B 02 65 1F B4 7B 02 65 1F B3 7B 02 7B 04 7B 03 65 20 65
            1F B6 7B 02 65 21 65 22 65 23 65 1F B7 7B 02 65 24 65 1F B8 7B 02
            7B 02 7B 03 7B 02 7B 04 65 25 B6 65 26 65 22 65 27 65 1F BB 7B 02
            03 28 7C 02 7B 02 7B 02 7B 03 65 1F B7 7B 02 61 05 19 0A AE 2F 01
            19 03 E2 E3 6F 0A E5 E1 B6 33 03 1F 0E 0D 1B FF 81 D3 16 01 1B FF
            88 0E 12 16 01 1B FF 81 9D 5C 78 AC 24 10 6C AC 24 11 6E ED EE AE
            EF F0 2E 17 14 F2 F3 70 1A B3 33 06 1F)
      2. SYSTEM::MACRO-CALL-ERROR FFI::CHECK-SYMBOL
      (:NAME :TYPE :READ-ONLY :ALLOC) FFI::PARSE-OPTIONS :NAME
      FFI::FOREIGN-NAME :TYPE SYSTEM::SOURCE-PROGRAM-ERROR
      "~S: ~S option missing in ~S" SYSTEM::TEXT FFI::DEF-C-VAR :READ-ONLY
      FFI::FV-FLAG-READONLY 0. :ALLOC :NONE :MALLOC-FREE
      FFI::FV-FLAG-MALLOC-FREE COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::MEMBER :NONE :MALLOC-FREE) SYSTEM::TYPE-ERROR-STRING
      (COMMON-LISP::SECOND FFI::ALLOC) (:NONE :MALLOC-FREE)
      SYSTEM::CASE-ERROR-STRING COMMON-LISP::PROGN COMMON-LISP::EVAL-WHEN
      (COMMON-LISP::COMPILE) FFI::NOTE-C-VAR COMMON-LISP::QUOTE SYSTEM::%PUT
      'FFI::FOREIGN-VARIABLE COMMON-LISP::LOAD-TIME-VALUE
      FFI::LOOKUP-FOREIGN-VARIABLE FFI::PARSE-C-TYPE
      COMMON-LISP::DEFINE-SYMBOL-MACRO FFI::FOREIGN-VALUE COMMON-LISP::GET
      ('FFI::FOREIGN-VARIABLE))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-46
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::NOTE-C-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::NOTE-C-VAR
      #40Y(00 00 00 00 03 00 00 00 00 04 2E 00 1F 18 2E 01 AF AF 6F 02 AF 7B 03
           6B 03 AC 6F 04 DF AE E0 B1 A1 7A 32 2D 19 07 19 04)
      SYSTEM::PREPARE-COUTPUT-FILE FFI::PREPARE-MODULE FFI::PARSE-C-TYPE
      SYSTEM::*FFI-MODULE* FFI::FFI-MODULE-VARIABLE-LIST FFI::FFI-MODULE 5.))
#Y(#:TOP-LEVEL-FORM-47
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 DA DC DD 32 86 DA DE 63 2D 03
        05 C5 19 01)
   FFI::FOREIGN-VALUE SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER
   FFI::SET-FOREIGN-VALUE COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-48
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::FOREIGN-ADDRESS-NULL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::FOREIGN-ADDRESS-NULL
      #17Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 32 90 19 02)
      FFI::FOREIGN-ADDRESS-VALUE))
#Y(#:TOP-LEVEL-FORM-49
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::DEF-C-CALL-OUT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::DEF-C-CALL-OUT
      #40Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 11 9F 5C 78 A0 5C
           79 DC AE AE DD 33 02 23 62 02 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR FFI::DEF-CALL-OUT ((:LANGUAGE :STDC)))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-50
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::DEF-CALL-OUT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::DEF-CALL-OUT
      #148Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 80 7C 9F 5C 78
            A0 5C 79 B0 2F 02 AC DD B2 6E 03 04 AC B2 70 05 AC C5 5F 14 6F 06
            B0 E1 B0 38 03 71 B9 70 08 E1 B0 38 03 71 B9 B0 38 07 81 4C 03 E3
            E4 E5 E6 E7 B1 7B 02 E7 B5 7B 02 E7 BB 7B 02 7B 04 7B 03 E8 63 E9
            E7 B7 7B 02 7B 02 EA EB E7 B9 7B 02 E7 B6 7B 02 7B 03 7B 02 EC E7
            B9 7B 02 ED E7 B6 7B 02 DF E7 BB 7B 02 E7 C1 7B 02 7B 03 7B 03 7B
            03 7B 05 E7 B5 7B 02 61 04 19 09 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR FFI::CHECK-SYMBOL
      (:NAME :ARGUMENTS :RETURN-TYPE :LANGUAGE) FFI::PARSE-OPTIONS
      FFI::PARSE-C-FUNCTION FFI::ARGVECTOR-TO-SIGNATURE :NAME FFI::FOREIGN-NAME
      COMMON-LISP::PROGN COMMON-LISP::EVAL-WHEN (COMMON-LISP::COMPILE)
      FFI::NOTE-C-FUN COMMON-LISP::QUOTE COMMON-LISP::LET
      SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::EVAL-WHEN-COMPILE SYSTEM::C-DEFUN
      SYSTEM::%PUTD FFI::LOOKUP-FOREIGN-FUNCTION)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-51
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::NOTE-C-FUN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::NOTE-C-FUN
      #40Y(00 00 00 00 03 00 00 00 00 04 2E 00 1F 18 2E 01 AF AF AF 70 02 7B 02
           6B 03 AC 6F 04 DF AE E0 B1 A1 7A 32 2D 19 07 19 04)
      SYSTEM::PREPARE-COUTPUT-FILE FFI::PREPARE-MODULE FFI::PARSE-C-FUNCTION
      SYSTEM::*FFI-MODULE* FFI::FFI-MODULE-FUNCTION-LIST FFI::FFI-MODULE 6.))
#Y(#:TOP-LEVEL-FORM-52
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::DEF-C-CALL-IN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::DEF-C-CALL-IN
      #40Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 11 9F 5C 78 A0 5C
           79 DC AE AE DD 33 02 23 62 02 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR FFI::DEF-CALL-IN ((:LANGUAGE :STDC)))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-53
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::DEF-CALL-IN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::DEF-CALL-IN
      #92Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 80 44 9F 5C 78 A0
           5C 79 B0 2F 02 AC DD B2 6E 03 04 AE DF AE 38 03 71 B9 70 06 DF AE 38
           03 71 B9 AE 38 07 81 4C 01 E1 E2 E3 E4 E5 B4 7B 02 E5 B2 7B 02 E5 B4
           7B 02 E5 BA 7B 02 7B 05 7B 03 E5 B2 7B 02 61 03 19 07 AE 2F 01 19
           03)
      2. SYSTEM::MACRO-CALL-ERROR FFI::CHECK-SYMBOL
      (:NAME :ARGUMENTS :RETURN-TYPE :LANGUAGE) FFI::PARSE-OPTIONS :NAME
      FFI::FOREIGN-NAME COMMON-LISP::PROGN COMMON-LISP::EVAL-WHEN
      (COMMON-LISP::COMPILE) FFI::NOTE-C-CALL-IN COMMON-LISP::QUOTE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-54
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::NOTE-C-CALL-IN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::NOTE-C-CALL-IN
      #556Y(00 00 00 00 04 00 00 00 00 05 2E 00 1F 82 1B 2E 01 AE AE 70 02 AC
            C8 5F 14 AD C9 5F 14 AE CA 5F 14 AD E0 70 07 AE DD 70 07 63 AE 1B
            80 4D 14 AD 93 01 1E 6B 0A EC 94 03 94 03 70 0E 2D 03 0D 9E 5C 1D
            05 6B 0A ED 30 0D 95 01 83 01 6A 01 92 01 62 16 02 1B 0D 6B 0A EB
            30 0D 92 02 51 6B 0A EE 30 0D 6B 0A EF 30 0D 1B 80 75 CB 1B 80 7C
            94 00 E2 72 8E 72 8A 84 02 16 01 83 00 9D 21 70 16 01 AC 80 A2 00
            B1 2F 09 6B 0A E5 B3 63 E6 BB 6E 03 0D 70 0E 2D 03 0D AF 6B 0F 8A
            10 FF B8 6B 0A F0 30 0D AC 93 00 16 6B 0A F1 94 02 2D 03 0D 9D 5C
            1D 05 6B 0A F2 30 0D 83 00 92 00 6A 16 01 6B 0A F3 30 0D AE AD 93
            01 15 6B 0A F4 94 03 94 03 70 0E 2D 03 0D 95 01 83 01 6A 01 92 01
            6B 16 02 6B 0A F5 30 0D E0 93 06 FF 81 C8 14 6B 1C 6B 1D 73 02 3C
            B1 B1 B1 1B 80 74 85 07 16 03 1B 80 67 16 05 1B 80 6D 16 04 1B 80
            68 03 27 1B 1E 6B 0A 65 22 30 0D 6B 0A 65 23 B6 65 24 70 0E 2D 03
            0D 6B 0A 65 25 B4 6B 26 8A 10 60 03 28 14 B7 6F 1F 6F 20 2D 04 0D
            92 08 80 4E CB 1B 80 4B 94 02 9F 20 43 94 02 9F 20 FF B8 94 02 AD
            6B 1C 8A 10 0F 6B 0A 65 1E B0 6F 1F 6F 20 AF 2D 04 0D 85 08 AD B3
            8A 10 FF 94 16 03 83 02 83 01 83 00 9F 21 4D 16 03 6B 0A 65 21 BC
            6F 1F 6F 20 B1 2D 04 0D 92 08 FF 8B 93 08 FF B2 C8 14 B2 B2 B2 1B
            80 76 65 2B 6F 2C 65 2D B0 33 02 1E 03 2F 1B 1E 03 31 1B 23 03 33
            1B 33 AE 6F 29 25 2A 64 6B 0A 65 2E B4 24 06 66 63 65 30 96 0A 2D
            03 0D 14 B0 6B 26 8A 10 5B 03 32 14 B2 C8 5F 14 6F 1F 6F 20 B7 24
            06 50 63 65 34 B9 2D 03 0D 14 B2 2D 07 0D 85 06 16 03 1B 1C 16 05
            1B 23 16 04 1B 1F 94 02 9F 20 77 94 02 9F 20 6E 94 02 AD B4 8A 10
            FF A8 16 03 83 02 83 01 83 00 9F 21 63 16 03 16 01 6B 0A 65 35 30
            0D 93 08 0C 6B 0A 65 36 30 0D 6B 0A 65 37 30 0D 16 03 6B 0A 65 38
            30 0D 19 0C 19 05)
      SYSTEM::PREPARE-COUTPUT-FILE FFI::PREPARE-MODULE FFI::PARSE-C-FUNCTION 1.
      2. 3. 0. FFI::SPLIT-C-FUN-ARGLIST "g" FFI::PREPARE-C-TYPEDECL
      SYSTEM::*COUTPUT-STREAM*
      #Y(FFI::NOTE-C-CALL-IN-1
         #27Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              31 87 9E 19 04)
         "
global "
         #\Space)
      #Y(FFI::NOTE-C-CALL-IN-2
         #25Y(00 00 00 00 02 00 00 00 01 18 DA B0 31 87 AE B0 31 83 DB B0 31 87
              9E 19 04)
         #\( #\))
      COMMON-LISP::FORMAT FFI::TO-C-TYPEDECL FFI::FF-LANGUAGE-ANSI-C
      FFI::FLAG-SET-P
      #Y(FFI::NOTE-C-CALL-IN-3
         #17Y(00 00 00 00 01 00 00 00 01 17 DA AF 31 87 9E 19 03) #\()
      #Y(FFI::NOTE-C-CALL-IN-4
         #17Y(00 00 00 00 02 00 00 00 01 18 AE B0 31 83 9E 19 04))
      #Y(FFI::NOTE-C-CALL-IN-5
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03) ", ")
      #Y(FFI::NOTE-C-CALL-IN-6
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03) "void")
      #Y(FFI::NOTE-C-CALL-IN-7
         #17Y(00 00 00 00 01 00 00 00 01 17 DA AF 31 87 9E 19 03) #\))
      #Y(FFI::NOTE-C-CALL-IN-8
         #17Y(00 00 00 00 01 00 00 00 01 17 DA AF 31 87 9E 19 03) #\()
      #Y(FFI::NOTE-C-CALL-IN-9
         #17Y(00 00 00 00 02 00 00 00 01 18 AE B0 31 83 9E 19 04))
      #Y(FFI::NOTE-C-CALL-IN-10
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03) ", ")
      #Y(FFI::NOTE-C-CALL-IN-11
         #17Y(00 00 00 00 01 00 00 00 01 17 DA AF 31 87 9E 19 03) #\))
      #Y(FFI::NOTE-C-CALL-IN-12
         #27Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              31 87 9E 19 04)
         "
  "
         #\;)
      #Y(FFI::NOTE-C-CALL-IN-13
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "
{
  begin_callback();
")
      FFI::FF-FLAG-OUT FFI::FF-FLAG-IN-OUT
      #Y(FFI::NOTE-C-CALL-IN-14
         #39Y(00 00 00 00 03 00 00 00 01 19 DA B1 38 02 31 88 AF B1 31 83 DB B1
              38 02 31 88 AE B1 31 83 DC B1 38 02 31 88 9E 19 05)
         "  pushSTACK(convert_from_foreign(" ",&"
         "));
")
      FFI::PASS-OBJECT FFI::OBJECT-TO-C-VALUE
      #Y(FFI::NOTE-C-CALL-IN-15
         #40Y(00 00 00 00 03 00 00 00 01 19 DA B1 38 02 31 88 AF B1 31 83 DB B1
              31 87 B0 01 06 B5 2D 08 02 DD B1 38 02 31 88 9E 19 05)
         "  funcall(" #\, SYSTEM::DO-FORMAT-DECIMAL
         ");
")
      #Y(FFI::NOTE-C-CALL-IN-16
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         " {
")
      #Y(FFI::NOTE-C-CALL-IN-17
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 DB B0
              38 02 31 88 9E 19 04)
         "  var "
         ";
")
      "retval"
      #Y(FFI::NOTE-C-CALL-IN-18
         #37Y(00 00 00 00 03 00 00 00 01 19 DA B1 38 02 31 88 AF B1 31 83 DB B1
              31 87 AE B1 31 83 DC B1 38 02 31 88 9E 19 05)
         "  " #\(
         ",value1,&retval);
")
      FFI::FF-FLAG-MALLOC-FREE "convert_to_foreign_mallocing"
      "convert_to_foreign_nomalloc" FFI::CTYPE-TYPE FFI::C-PTR
      "~S: :OUT argument is not a pointer: ~S" SYSTEM::TEXT FFI::DEF-CALL-IN
      #Y(FFI::NOTE-C-CALL-IN-19
         #57Y(00 00 00 00 06 00 00 00 01 00 DA B4 38 02 31 88 B2 B4 31 83 B1 B4
              31 83 DB B4 31 87 B0 B4 31 83 DC B4 31 87 AF B4 31 83 DC B4 31 87
              AE B4 31 83 DD B4 38 02 31 88 9E 19 08)
         "  " #\( #\,
         ");
")
      ""
      #Y(FFI::NOTE-C-CALL-IN-20
         #32Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D 08
              01 DC B0 38 02 31 88 9E 19 04)
         "if (mv_count >= " SYSTEM::DO-FORMAT-DECIMAL ") ")
      "convert_to_foreign_mallocing" "convert_to_foreign_nomalloc" "value1"
      #Y(FFI::NOTE-C-CALL-IN-21
         #30Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D 08
              01 DC B0 31 87 9E 19 04)
         "mv_space[" SYSTEM::DO-FORMAT-DECIMAL #\])
      #Y(FFI::NOTE-C-CALL-IN-22
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "  end_callback();
")
      #Y(FFI::NOTE-C-CALL-IN-23
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "  return retval;
")
      #Y(FFI::NOTE-C-CALL-IN-24
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         " }
")
      #Y(FFI::NOTE-C-CALL-IN-25
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "}
")))
#Y(#:TOP-LEVEL-FORM-55
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::ARGVECTOR-TO-SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::ARGVECTOR-TO-SIGNATURE
      #18Y(00 00 00 00 01 00 00 00 00 02 DA AE 6F 01 30 02 19 02) :REQ-NUM
      FFI::COUNT-INARGUMENTS SYSTEM::MAKE-SIGNATURE))
#Y(#:TOP-LEVEL-FORM-56
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   FFI::COUNT-INARGUMENTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::COUNT-INARGUMENTS
      #43Y(00 00 00 00 01 00 00 00 00 02 AD 72 45 DA DB 1B 11 6B 02 B1 9F 5F 14
           8A 03 02 85 01 DE AD 82 02 36 00 AC AF 91 01 33 69 9E 19 05)
      0. 1. FFI::FF-FLAG-OUT FFI::FLAG-SET-P 2.))
#Y(#:TOP-LEVEL-FORM-57
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FOREIGN-FUNCTION-IN-ARG-COUNT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FOREIGN-FUNCTION-IN-ARG-COUNT
      #18Y(00 00 00 00 01 00 00 00 00 02 AD DA 72 29 2F 01 19 02) 3.
      FFI::COUNT-INARGUMENTS))
#Y(#:TOP-LEVEL-FORM-58
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::DEF-C-ENUM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::DEF-C-ENUM
      #99Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 0F 9F 5C 78 A0 5C
           79 B0 2F 02 63 DD AE 63 1B 23 AE 2F 01 19 03 87 01 00 20 0B 9D 5C 1D
           04 9D 5C 5B FA 87 00 00 DE AD B0 7B 03 84 03 DF AD 61 02 FA 83 01 AD
           8D 91 5E 16 02 6B 06 B0 AD E1 31 63 16 01 E2 AE 72 47 E3 B2 7B 02 7B
           01 33 02 23 5D 19 07)
      2. SYSTEM::MACRO-CALL-ERROR FFI::CHECK-SYMBOL 0. COMMON-LISP::DEFCONSTANT
      COMMON-LISP::1+ FFI::*C-TYPE-TABLE* FFI::INT COMMON-LISP::PROGN
      COMMON-LISP::QUOTE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-59
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   FFI::DEF-C-STRUCT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::DEF-C-STRUCT
      #52Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 1D 9F 5C 78 A0 5C
           79 DC DD AF DE B0 33 00 17 7C 02 DF B0 E0 B2 A3 7C 02 7B 03 61 03 19
           05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::PROGN COMMON-LISP::DEFSTRUCT
      #.#'COMMON-LISP::FIRST FFI::DEF-C-TYPE FFI::C-STRUCT)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-60
   #76Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 DE 2F 01 DE DF
        6F 03 32 80 E0 2F 01 E0 E1 6F 03 32 80 E2 2F 01 E2 E3 6F 03 32 80 E4 2F
        01 E4 E5 6F 03 32 80 E6 2F 01 E6 E7 6F 03 32 80 E8 2F 01 E8 E9 6F 03 32
        80 D3 19 01)
   FFI::ELEMENT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(FFI::ELEMENT
      #63Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 1A 9F 5C 78
           A0 5C 79 AD B0 80 57 01 14 DC C8 34 1C 0E DF AE 9F 7C 02 CB 34 19 05
           AE 2F 01 19 03 DC DE A0 5C 78 A0 7C 02 61 02 19 05)
      2. SYSTEM::MACRO-CALL-ERROR FFI::FOREIGN-VALUE
      #1=#Y(FFI::FOREIGN-PLACE-P
            #30Y(00 00 00 00 02 00 00 00 00 03 AE 32 02 1F 0D 94 02 9F 5A 1F 07
                 AE 72 45 C5 5A 19 03 19 03)
            2.)
      FFI::%ELEMENT FFI::ELEMENT
      #2=#Y(FFI::ERR
            #21Y(00 00 00 00 01 00 00 00 00 02 DA DB 6F 02 94 03 DD B1 33 03
                 1F)
            SYSTEM::SOURCE-PROGRAM-ERROR "~S is only allowed after ~S: ~S"
            SYSTEM::TEXT FFI::FOREIGN-VALUE))
   SYSTEM::MAKE-MACRO FFI::DEREF
   #Y(FFI::DEREF
      #58Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 2F 16 9F 5C 78
           AC AF 80 57 00 14 DC C8 34 1C 0D DF AD 7B 02 CB 34 19 04 AE 2F 01 19
           03 DC DE 9F 5C 78 7B 02 61 02 19 04)
      2. SYSTEM::MACRO-CALL-ERROR FFI::FOREIGN-VALUE #1# FFI::%DEREF FFI::DEREF
      #2#)
   FFI::SLOT
   #Y(FFI::SLOT
      #64Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 2F 1B 9F 5C 78
           A0 5C 5C 78 AD B0 80 57 01 14 DC C8 34 1C 0E DF AE AE 7B 03 CB 34 19
           05 AE 2F 01 19 03 DC DE A0 5C 78 AF 7B 03 61 02 19 05)
      3. SYSTEM::MACRO-CALL-ERROR FFI::FOREIGN-VALUE #1# FFI::%SLOT FFI::SLOT
      #2#)
   FFI::CAST
   #Y(FFI::CAST
      #67Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 2F 1B 9F 5C 78
           A0 5C 5C 78 AD B0 80 57 01 14 DC C8 34 1C 0E E0 AE AE 7B 03 CC 34 19
           05 AE 2F 01 19 03 DC DE A0 5C 78 DF B0 7B 02 7B 03 61 02 19 05)
      3. SYSTEM::MACRO-CALL-ERROR FFI::FOREIGN-VALUE #1# FFI::%CAST
      FFI::PARSE-C-TYPE FFI::CAST #2#)
   FFI::TYPEOF
   #Y(FFI::TYPEOF
      #58Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 2F 16 9F 5C 78
           AC AF 80 57 00 14 DC C8 34 1C 0D E0 AD 7B 02 CC 34 19 04 AE 2F 01 19
           03 DE DF 9F 5C 78 7B 02 61 02 19 04)
      2. SYSTEM::MACRO-CALL-ERROR FFI::FOREIGN-VALUE #1# SYSTEM::DEPARSE-C-TYPE
      FFI::FOREIGN-TYPE FFI::TYPEOF #2#)
   FFI::SIZEOF
   #Y(FFI::SIZEOF
      #69Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 2F 1F 9F 5C 78
           AC AF 80 57 00 14 DC C8 34 1C 16 AC E0 C8 34 1C 17 DE E1 9F 14 61 02
           14 61 02 19 04 AE 2F 01 19 03 DE DF 9F 5C 5B 1B 6C DE 9E 5C 5B 1B
           69)
      2. SYSTEM::MACRO-CALL-ERROR FFI::FOREIGN-VALUE #1# FFI::%SIZEOF
      FFI::FOREIGN-TYPE SYSTEM::DEPARSE-C-TYPE FFI::PARSE-C-TYPE)
   FFI::BITSIZEOF
   #Y(FFI::BITSIZEOF
      #69Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 2F 1F 9F 5C 78
           AC AF 80 57 00 14 DC C8 34 1C 16 AC E0 C8 34 1C 17 DE E1 9F 14 61 02
           14 61 02 19 04 AE 2F 01 19 03 DE DF 9F 5C 5B 1B 6C DE 9E 5C 5B 1B
           69)
      2. SYSTEM::MACRO-CALL-ERROR FFI::FOREIGN-VALUE #1# FFI::%BITSIZEOF
      FFI::FOREIGN-TYPE SYSTEM::DEPARSE-C-TYPE FFI::PARSE-C-TYPE))
#Y(#:TOP-LEVEL-FORM-61-1
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 31 52 DA DC 6F 03 31 51 3E 19
        01)
   CUSTOM::*FOREIGN-ENCODING* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
   (SYSTEM::FOREIGN-ENCODING) SYSTEM::MAKE-SYMBOL-MACRO)
#Y(#:TOP-LEVEL-FORM-61-2
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 DA DC DD 32 86 DA DE 63 2D 03
        05 C5 19 01)
   SYSTEM::FOREIGN-ENCODING SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER
   SYSTEM::SET-FOREIGN-ENCODING COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION)
