home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / foreign1.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  63.3 KB  |  1,477 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1
  3.    #18Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 D9 30 E4 19 01) "FFI" ("LISP")
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  6.    (DEF-C-TYPE DEF-C-VAR DEF-C-CALL-OUT DEF-CALL-OUT DEF-C-CALL-IN DEF-CALL-IN
  7.      C-LINES NIL BOOLEAN CHARACTER CHAR UCHAR SHORT USHORT INT UINT LONG ULONG
  8.      UINT8 SINT8 UINT16 SINT16 UINT32 SINT32 UINT64 SINT64 SINGLE-FLOAT
  9.      DOUBLE-FLOAT C-POINTER C-STRING C-STRUCT C-UNION C-ARRAY C-ARRAY-MAX
  10.      C-FUNCTION C-PTR C-PTR-NULL C-ARRAY-PTR DEF-C-ENUM DEF-C-STRUCT ELEMENT
  11.      DEREF SLOT CAST TYPEOF SIZEOF BITSIZEOF VALIDP
  12.   ))
  13. #Y(#:TOP-LEVEL-FORM-3-1
  14.    #21Y(00 00 00 00 00 00 00 00 00 01 D8 D9 70 D9 37 01 30 DD 3D 19 01)
  15.    "*COUTPUT-FILE*" "COMPILER"
  16.   )
  17. #Y(#:TOP-LEVEL-FORM-3-2
  18.    #21Y(00 00 00 00 00 00 00 00 00 01 D8 D9 70 D9 37 01 30 DD 3D 19 01)
  19.    "*COUTPUT-STREAM*" "COMPILER"
  20.   )
  21. #Y(#:TOP-LEVEL-FORM-3-3
  22.    #21Y(00 00 00 00 00 00 00 00 00 01 D8 D9 70 D9 37 01 30 DD 3D 19 01)
  23.    "*FFI-MODULE*" "COMPILER"
  24.   )
  25. #Y(#:TOP-LEVEL-FORM-3-4
  26.    #21Y(00 00 00 00 00 00 00 00 00 01 D8 D9 70 D9 37 01 30 DD 3D 19 01)
  27.    "FINALIZE-COUTPUT-FILE" "COMPILER"
  28.   )
  29. #Y(#:TOP-LEVEL-FORM-3-5
  30.    #21Y(00 00 00 00 00 00 00 00 00 01 D8 D9 70 D9 37 01 30 DD 3D 19 01)
  31.    "DEPARSE-C-TYPE" "SYSTEM"
  32.   )
  33. #Y(#:TOP-LEVEL-FORM-3-6
  34.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 70 D9 37 01 30 DD 19 01)
  35.    "FOREIGN-FUNCTION-SIGNATURE" "SYSTEM"
  36.   )
  37. #Y(#:TOP-LEVEL-FORM-4
  38.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) C-IDENT-P
  39.    SYSTEM::REMOVE-OLD-DEFINITIONS
  40.    #Y(C-IDENT-P
  41.       #49Y(00 00 00 00 01 00 00 00 00 02 AB 71 4A D8 32 01 30 1E 1C D9 AC 32 00
  42.            28 1E 15 DA AC D8 70 35 DB 32 02 0B 58 1E 09 AB DC 37 01 30 68 58 19
  43.            02 19 02
  44.           )
  45.       0.
  46.       #Y(C-IDENT-P-1
  47.          #43Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 32 02 0B 1D 17 DA AC DB 32
  48.               02 0B 1D 0F DC AC DD 32 02 0B 1D 07 DE AC 32 01 07 19 02 19 02
  49.              )
  50.          #\A #\Z #\a #\z #\0 #\9 #\_
  51.         )
  52.       #\0 #\9
  53.       #.(LET*
  54.           ((RESERVED-LIST
  55.               '("auto" "break" "case" "char" "continue" "default" "do" "double"
  56.                  "else" "enum" "extern" "float" "for" "goto" "if" "int" "long"
  57.                  "register" "return" "short" "sizeof" "static" "struct"
  58.                  "switch" "typedef" "union" "unsigned" "void" "while"
  59.            )   )
  60.             (RESERVED-TABLE (MAKE-HASH-TABLE :TEST #'EQUAL))
  61.           )
  62.           (DOLIST (W RESERVED-LIST) (SETF (GETHASH W RESERVED-TABLE) 'T))
  63.           RESERVED-TABLE
  64.   )  )  )
  65. #Y(#:TOP-LEVEL-FORM-5
  66.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  67.    TO-C-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
  68.    #Y(TO-C-STRING
  69.       #71Y(03 00 01 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 9B 2A 01 37 01 31
  70.            78 0B 00 00 52 1D D8 67 03 00 30 8D 62 AD 6C 01 01 67 05 00 32 00 26
  71.            D8 67 03 00 30 8D 67 02 00 31 79 53 08 00 00 00 00 14 37 01 31 7F 54
  72.            19 04
  73.           )
  74.       #\"
  75.       #Y(TO-C-STRING-1
  76.          #66Y(00 00 00 00 01 00 00 00 00 02 AB 23 01 15 AB 23 06 1E AB 23 09 23
  77.               AB 23 07 1F 9C 14 68 00 01 30 8D 19 02 DA DB DC 6D 03 05 68 01 01
  78.               AD 32 02 1E DF 68 00 01 30 8D CB 1A 62 DF 68 00 01 30 8D 9C 1A 59
  79.              )
  80.          NIL #\Null
  81.          "Cannot map string ~S to C since it contains a character ~S"
  82.          "Kann String ~S nicht nach C abbilden, denn es enthΣlt ein Zeichen ~S."
  83.          "Ne peux convertir la chaεne ~S en langage C α cause d'un caractΦre ~S."
  84.          SYSTEM::LANGUAGE #\Newline #\\ #\n #\"
  85.   )  )  )
  86. #Y(#:TOP-LEVEL-FORM-6
  87.    #29Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 09 D9 37 05 C5 F9 70 67
  88.         30 56 C4 19 01
  89.        )
  90.    (SPECIAL *C-TYPE-TABLE*) *C-TYPE-TABLE* #.#'EQ
  91.   )
  92. #Y(#:TOP-LEVEL-FORM-7
  93.    #35Y(00 00 00 00 00 00 00 00 00 01 D8 62 1A 0E 86 01 00 6A 01 AB AB AD 30 69
  94.         16 01 82 01 AB 8C 97 6E 00 19 03
  95.        )
  96.    (NIL BOOLEAN CHARACTER CHAR UCHAR SHORT USHORT INT UINT LONG ULONG UINT8
  97.      SINT8 UINT16 SINT16 UINT32 SINT32 UINT64 SINT64 SINGLE-FLOAT DOUBLE-FLOAT
  98.      C-POINTER C-STRING
  99.    )
  100.    *C-TYPE-TABLE*
  101.   )
  102. #Y(#:TOP-LEVEL-FORM-8
  103.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  104.    PARSE-C-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
  105.    #Y(PARSE-C-TYPE
  106.       #1094Y(03 00 01 00 01 00 01 00 00 08 3C 01 9D 20 33 AC 8D 09 14 DD DE DF
  107.              6D 03 04 9E 14 32 01 1E D9 DA DB 6D 03 04 A0 1A 73 AC 6A 00 37 01
  108.              30 68 41 02 92 00 6B 92 03 09 6A 00 AE AB AE 30 69 16 01 9C 19 05
  109.              9D 5A 25 08 83 F8 E1 AD 71 4A 72 02 35 E2 AB 72 02 35 37 07 70 1C
  110.              52 81 43 92 05 09 6A 00 B0 AB AF 30 69 16 01 93 06 AD CE 5F 62 A2
  111.              5B 78 1A 31 E5 E6 E7 6D 03 04 D3 1A 81 7F D7 1A 81 0E 03 16 1A 81
  112.              09 93 00 9B 1F 68 AA 71 4A 24 0C 62 93 00 8E 09 5D 9B 5B 77 37 01
  113.              6B FF 6D 83 02 16 01 82 00 9B 20 5F 16 01 AA 7F A8 00 AD AB E2 62
  114.              37 02 31 50 16 01 E9 EA A3 5B 78 72 00 26 AD D6 5F A1 5B 77 A2 5B
  115.              77 AA 23 11 FF B0 AA 23 15 FF AF EA A4 5B 78 72 00 17 62 AB 1A 3F
  116.              AE 62 B2 B2 1A 1F 16 03 1A 20 93 01 9C 1F 77 93 01 AB 71 8E 6A 1B
  117.              70 D8 AB 7A 02 AF 7F A7 04 16 02 82 01 82 00 9C 20 62 16 02 AA 30
  118.              A8 16 01 5C 1A 80 76 93 00 37 01 71 92 83 02 16 01 82 00 9B 20 71
  119.              16 01 AA 7F A8 00 62 EF F0 AD F1 B2 F2 37 01 80 86 04 1C 07 14 CF
  120.              5E FA 1B FF A3 37 01 71 92 F4 AB F5 64 1E B7 7A 02 7A 02 7A 02 7A
  121.              01 62 B4 B4 1A 22 16 03 1A 23 93 01 9C 1F 77 93 01 64 1F 64 20 B3
  122.              64 1E AF 7A 02 7A 03 AC 7A 03 83 04 16 02 82 01 82 00 9C 20 5F 16
  123.              02 AA 7F A8 00 AD 7A 01 32 02 23 61 02 16 01 14 7A 04 7A 02 30 5F
  124.              16 03 16 01 F6 AD CF 5F 3D 53 05 00 00 03 1C 14 1A 06 05 00 00 03
  125.              1C 0C 6A 00 66 00 00 03 AB 62 30 69 16 01 54 92 03 81 7B 1A 81 6F
  126.              AC 71 4A 71 9A E4 AB 72 02 35 37 07 70 1C 52 80 6B 92 05 09 6A 00
  127.              B0 AB AF 30 69 16 01 93 06 AD CE 5F 62 94 07 9B 1F 30 93 00 9B 1F
  128.              0B AA 71 4A 24 0C 05 93 00 8D 09 10 64 21 64 22 64 23 6D 03 04 03
  129.              24 14 AC 32 02 1E 9B 5B 77 37 01 6B FE 02 83 02 16 01 82 00 1A 4D
  130.              16 01 AA 7F A8 00 AD AB E4 62 37 02 31 50 16 01 E9 EA 94 08 72 00
  131.              26 AD D6 5F 3D 53 05 00 00 03 1C 14 1A 06 05 00 00 03 1C 0C 6A 00
  132.              66 00 00 03 AB 62 30 69 16 01 54 92 03 80 E5 1A 80 D9 AC 71 4A 23
  133.              0A 04 AC 03 25 33 9D 5B 5B 77 AA 8D 0E 04 AA 60 01 F6 64 26 AB 8F
  134.              00 28 04 AD 03 25 33 E4 AB 71 4A 72 02 35 37 07 70 1C 52 2E 92 05
  135.              09 6A 00 B0 AB AF 30 69 16 01 64 27 AD CE 5F A1 5B 77 37 01 6B FD
  136.              75 AD D6 5F AC AE E4 62 37 02 31 50 3D 53 05 00 00 03 1C 14 1A 06
  137.              05 00 00 03 1C 0C 6A 00 66 00 00 03 AB 62 30 69 16 01 54 92 03 80
  138.              6F 1A 80 63 AC 71 4A 23 0A 04 AC 03 25 33 9D 5B 5B 77 AA 8E 0F 06
  139.              E3 AB 8F 01 31 04 AD 03 25 33 E2 37 07 70 1C 52 2A 92 05 09 6A 00
  140.              B0 AB AF 30 69 16 01 64 28 AD CE 5F A1 5B 77 37 01 6B FD 0A AD D6
  141.              5F AD AD CF 5F 3D 53 05 00 00 03 1C 14 1A 06 05 00 00 03 1C 0C 6A
  142.              00 66 00 00 03 AB 62 30 69 16 01 54 92 03 09 6A 00 AE AB AD 30 69
  143.              16 01 15 19 04 94 02 64 29 AE 6D 03 2A AD 6F 2B 92 02 80 FB 1A 80
  144.              EF AC 71 4A 23 0C 04 AC 03 25 33 E4 37 07 70 1C 52 26 92 04 09 6A
  145.              00 AF AB AF 30 69 16 01 64 2C AD CE 5F A0 5B 77 37 01 6B FC 9B AD
  146.              D6 5F 3D 53 05 00 00 02 1C 14 1A 06 05 00 00 02 1C 0C 6A 00 66 00
  147.              00 02 AB 62 30 69 16 01 54 92 02 80 AA 1A 80 9E AC 71 4A 23 0C 04
  148.              AC 03 25 33 E4 37 07 70 1C 52 26 92 04 09 6A 00 AF AB AF 30 69 16
  149.              01 64 2D AD CE 5F A0 5B 77 37 01 6B FC 4A AD D6 5F 3D 53 05 00 00
  150.              02 1C 14 1A 06 05 00 00 02 1C 0C 6A 00 66 00 00 02 AB 62 30 69 16
  151.              01 54 92 02 80 59 1A 80 4D AC 71 4A 23 0C 04 AC 03 25 33 E4 37 07
  152.              70 1C 52 26 92 04 09 6A 00 AF AB AF 30 69 16 01 64 2E AD CE 5F A0
  153.              5B 77 37 01 6B FB F9 AD D6 5F 3D 53 05 00 00 02 1C 14 1A 06 05 00
  154.              00 02 1C 0C 6A 00 66 00 00 02 AB 62 30 69 16 01 54 92 02 09 6A 00
  155.              AD AB AD 30 69 16 01 15 19 03 AC 03 25 33 19 03
  156.             )
  157.       *C-TYPE-TABLE* "Incomplete FFI type ~S is not allowed here."
  158.       "UnvollstΣndiger FFI-Typ ~S ist hier nicht erlaubt."
  159.       "Le type de FFI ~S n'est pas complet, ce qui n'est pas permis ici."
  160.       SYSTEM::LANGUAGE "FFI type should be a symbol, not ~S"
  161.       "FFI-Typ mu▀ ein Symbol sein, nicht ~S."
  162.       "Un type FFi doit Ωtre un symbole et non ~S"
  163.       #S(HASH-TABLE EQ (C-ARRAY-PTR . 929.) (C-PTR-NULL . 848.) (C-PTR . 767.)
  164.          (C-FUNCTION . 749.) (C-ARRAY-MAX . 638.) (C-ARRAY . 520.)
  165.          (C-UNION . 370.) (C-STRUCT . 2.)
  166.         )
  167.       -2. 3. 0. 2. "Invalid ~S component: ~S" "Ungⁿltige ~S-Komponente: ~S"
  168.       "Composant de ~S inadmissible: ~S" C-STRUCT VECTOR #.#'FIRST 1.
  169.       #.#'VECTOR LIST #.#'LIST FUNCTION LAMBDA (DECLARE (COMPILE))
  170.       SYSTEM::DEFSTRUCT-DESCRIPTION SYSTEM::*KEYWORD-PACKAGE* LET
  171.       CLOS:MAKE-INSTANCE QUOTE SETF CLOS:SLOT-VALUE "Invalid ~S component: ~S"
  172.       "Ungⁿltige ~S-Komponente: ~S" "Composant de ~S inadmissible: ~S" C-UNION
  173.       #Y(PARSE-C-TYPE-INVALID
  174.          #20Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA 6D 03 03 AC 32 01 1E)
  175.          "Invalid FFI type: ~S" "Ungⁿltiger FFI-Typ: ~S"
  176.          "Type FFI inadmissible: ~S" SYSTEM::LANGUAGE
  177.         )
  178.       #Y(PARSE-C-TYPE-1
  179.          #24Y(00 00 00 00 01 00 00 00 00 02 AB 31 0F 1E 07 D8 AC 32 01 31 19 02
  180.               19 02
  181.              )
  182.          0.
  183.         )
  184.       C-ARRAY C-ARRAY-MAX (:ARGUMENTS :RETURN-TYPE :LANGUAGE) PARSE-OPTIONS
  185.       PARSE-C-FUNCTION C-PTR C-PTR-NULL C-ARRAY-PTR
  186.   )  )
  187. #Y(#:TOP-LEVEL-FORM-9
  188.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  189.    PARSE-OPTIONS SYSTEM::REMOVE-OLD-DEFINITIONS
  190.    #Y(PARSE-OPTIONS
  191.       #73Y(00 00 00 00 03 00 00 00 00 04 62 AE 62 AB 8B 97 33 86 01 00 1F 1D 93
  192.            00 B0 37 03 8C B8 15 93 00 AD 37 03 8C BF 17 DC DD DE 6D 03 03 93 01
  193.            A1 14 32 02 1E D8 D9 DA 6D 03 03 AF 9D 1A 72 AA 83 02 82 01 1A 49 16
  194.            02 15 19 04
  195.           )
  196.       "Invalid option in ~S: ~S" "Ungⁿltige Option in ~S: ~S"
  197.       "Option invalide dans ~S: ~S" SYSTEM::LANGUAGE
  198.       "Only one ~S option is allowed: ~S" "Nur eine ~S-Option ist erlaubt: ~S"
  199.       "Une seule option ~S est permise: ~S"
  200.   )  )
  201. #Y(#:TOP-LEVEL-FORM-10
  202.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  203.    PARSE-C-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS
  204.    #Y(PARSE-C-FUNCTION
  205.       #329Y(00 00 00 00 02 00 00 00 00 03 D8 D9 AE 37 03 30 BF 5B 5A 1B 01 00
  206.             14 6E 02 62 DB B0 37 03 30 BF 5B 1C 04 14 1A 80 BE 62 1A 80 BA DE
  207.             DF E0 6D 03 09 B1 AC 32 02 1E 9C 5B 5B 5A 1A 2F 9D 5B 5B 5B 5A 1A
  208.             3C AB CF 5E 25 0D 31 D2 1A 33 93 00 AA 8E 0E 59 93 00 8E 09 54 DC
  209.             AB 71 4A DD 90 02 31 4B 9B 5B 77 6E 02 9C 5B 5B 1B 4C CD 14 9D 5B
  210.             5B 5B 1B 4A AB 23 0B 53 AB 8D 27 49 AA 23 0E 4B D3 14 AC 9D 25 11
  211.             07 CF 1A 17 0E 12 1A 13 EC ED AE EE EF F0 F1 F2 6D 03 09 F3 F4 03
  212.             1D 1A 20 0E 13 14 9D 25 1E 07 CF 1A 2D 0E 1F 1A 29 EC ED AE EE 64
  213.             21 F0 F1 F2 6D 03 09 64 22 64 23 03 24 14 6D 03 09 A4 1A 80 5C CF
  214.             16 01 1A 80 68 0E 20 16 01 1A 80 61 0E 20 14 72 02 35 60 02 16 02
  215.             F6 AD 7F A6 02 16 01 82 00 9B 20 FF 63 16 01 AA 7F A8 00 64 25 71
  216.             2E D9 B0 37 03 70 BF 9B 5B 5B 1C 34 9B 5B 5B 77 AA 23 10 FF BE AA
  217.             23 26 40 EC ED AC EE 64 27 F0 F1 F2 6D 03 09 64 28 64 29 64 2A 6D
  218.             03 09 A2 14 32 06 1F 64 2C 94 01 37 05 03 2D F7 31 4E 1A 0E CF F6
  219.             64 2B B1 37 03 70 BF 91 00 67 0E 2E F6 72 02 35 32 04 00 19 03
  220.            )
  221.       C-FUNCTION :RETURN-TYPE PARSE-C-TYPE :ARGUMENTS 2. 4.
  222.       "Invalid parameter specification in ~S: ~S"
  223.       "Ungⁿltige Parameter-Spezifikation in ~S: ~S"
  224.       "SpΘcification invalide d'argument dans ~S: ~S" SYSTEM::LANGUAGE :IN
  225.       C-STRING 0.
  226.       #S(HASH-TABLE EQ (C-ARRAY-PTR . 1.) (C-PTR-NULL . 1.) (C-PTR . 1.)) :OUT
  227.       :ALLOCA :NONE
  228.       #S(HASH-TABLE EQ (:READ-WRITE . 25.) (:IN-OUT . 25.) (:WRITE-ONLY . 4.)
  229.          (:OUT . 4.) (:READ-ONLY . 1.) (:IN . 1.)
  230.         )
  231.       FF-FLAG-OUT FF-FLAG-IN-OUT TYPE-ERROR :DATUM :EXPECTED-TYPE
  232.       (MEMBER :IN :READ-ONLY :OUT :WRITE-ONLY :IN-OUT :READ-WRITE)
  233.       #1="~A~%The value is: ~S" #2="~A~%Der Wert ist: ~S"
  234.       #3="~A~%La valeur est : ~S"
  235.       "The value of ARGMODE must be one of :IN, :READ-ONLY, :OUT, :WRITE-ONLY, :IN-OUT, :READ-WRITE"
  236.       "Der Wert von ARGMODE mu▀ einer der folgenden sein: :IN, :READ-ONLY, :OUT, :WRITE-ONLY, :IN-OUT, :READ-WRITE"
  237.       "La valeur de ARGMODE doit Ωtre l'une des suivantes : :IN, :READ-ONLY, :OUT, :WRITE-ONLY, :IN-OUT, :READ-WRITE"
  238.       #S(HASH-TABLE EQ (:MALLOC-FREE . 47.) (:ALLOCA . 4.) (:NONE . 1.))
  239.       FF-FLAG-ALLOCA FF-FLAG-MALLOC-FREE (MEMBER :NONE :ALLOCA :MALLOC-FREE)
  240.       "The value of ARGALLOC must be one of :NONE, :ALLOCA, :MALLOC-FREE"
  241.       "Der Wert von ARGALLOC mu▀ einer der folgenden sein: :NONE, :ALLOCA, :MALLOC-FREE"
  242.       "La valeur de ARGALLOC doit Ωtre l'une des suivantes : :NONE, :ALLOCA, :MALLOC-FREE"
  243.       SIMPLE-VECTOR :MALLOC-FREE (MEMBER :NONE :MALLOC-FREE)
  244.       "The value of (THIRD RETTYPE) must be one of :NONE, :MALLOC-FREE"
  245.       "Der Wert von (THIRD RETTYPE) mu▀ einer der folgenden sein: :NONE, :MALLOC-FREE"
  246.       "La valeur de (THIRD RETTYPE) doit Ωtre l'une des suivantes : :NONE, :MALLOC-FREE"
  247.       :LANGUAGE #.#'+
  248.       #Y(PARSE-C-FUNCTION-1
  249.          #47Y(00 00 00 00 01 00 00 00 00 02 AB 23 00 19 AB 23 02 19 DC DD AD DE
  250.               DF E0 E1 E2 6D 03 0B E4 E5 E6 6D 03 0B B2 32 06 1F 0E 01 19 02 0E
  251.               03 19 02
  252.              )
  253.          :C FF-LANGUAGE-C :STDC FF-LANGUAGE-ANSI-C TYPE-ERROR :DATUM
  254.          :EXPECTED-TYPE (MEMBER :C :STDC) #1# #2# #3# SYSTEM::LANGUAGE
  255.          "The value of LANG must be one of :C, :STDC"
  256.          "Der Wert von LANG mu▀ einer der folgenden sein: :C, :STDC"
  257.          "La valeur de LANG doit Ωtre l'une des suivantes : :C, :STDC"
  258.         )
  259.       FF-LANGUAGE-C
  260.   )  )
  261. #Y(#:TOP-LEVEL-FORM-11
  262.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  263.    PARSE-FOREIGN-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
  264.    #Y(PARSE-FOREIGN-NAME
  265.       #37Y(00 00 00 00 01 00 00 00 00 02 AB 8E 0A 0F AB 87 04 10 DD DE CA 14 6D
  266.            03 03 AC 32 01 1E D8 D9 C5 1A 73 9C 19 02
  267.           )
  268.       "The name must be a string, not ~S"
  269.       "Der Name mu▀ ein String sein, nicht ~S."
  270.       "Le nom doit Ωtre une chaεne et non ~S." SYSTEM::LANGUAGE C-IDENT-P
  271.       "The name ~S is not a valid C identifier"
  272.       "Der Name ~S ist kein gⁿltiger C-Identifier."
  273.       "Le nom ~S n'est pas valable en langage C."
  274.   )  )
  275. #Y(#:TOP-LEVEL-FORM-12
  276.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  277.    CHECK-SYMBOL SYSTEM::REMOVE-OLD-DEFINITIONS
  278.    #Y(CHECK-SYMBOL
  279.       #37Y(00 00 00 00 01 00 01 00 00 08 3A 01 04 9D 5B 5A F7 AB 8E 09 03 00 19
  280.            03 D8 D9 DA DB 6D 03 04 93 04 AE 32 02 1F
  281.           )
  282.       PROGRAM-ERROR "~S: this is not a symbol: ~S"
  283.       "~S: Das ist kein Symbol: ~S" "~S : Ceci n'est pas un symbole: ~S"
  284.       SYSTEM::LANGUAGE
  285.   )  )
  286. #Y(#:TOP-LEVEL-FORM-13
  287.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  288.    DEF-C-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  289.    #Y(DEF-C-TYPE
  290.       #54Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 1F 9D 5B 77 9E 5B
  291.            5B 77 AE 2E 02 DB DC DD DE AE 7A 02 DE B0 7A 02 7A 03 DE AF 7A 02 60
  292.            04 19 05 AC 2E 01 19 03
  293.           )
  294.       3. SYSTEM::MACRO-CALL-ERROR CHECK-SYMBOL EVAL-WHEN (LOAD COMPILE EVAL)
  295.       PARSE-C-TYPE QUOTE
  296.   )  )
  297. #Y(#:TOP-LEVEL-FORM-14
  298.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  299.    DEPARSE-C-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
  300.    #Y(DEPARSE-C-TYPE
  301.       #34Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 00 0B 00 00 9B 2A 01 AA 2B 00
  302.            01 0B 00 00 AD 06 01 00 33 19 04
  303.           )
  304.       #Y(SYSTEM::DEPARSE-C-TYPE-DEPARSE
  305.          #445Y(00 00 00 00 01 00 00 00 00 02 AB 68 01 01 D9 37 02 30 BF 5B 1D
  306.                81 A4 AB 8D 09 19 AB C5 5E 14 7A 01 AC 9C 79 07 01 01 5C 0C 01
  307.                01 AC C5 5E 14 9B 25 03 81 56 AB 9D 79 07 01 01 5C 0C 01 01 9C
  308.                19 02 C9 1A 13 CB 1A 10 AB AE C7 5E 14 AA DD 8D 04 70 AA DF 8D
  309.                04 6E 00 F6 E0 29 14 6C 09 01 B1 CD 5E 14 B2 E3 37 01 71 48 32
  310.                01 26 5C 1A 81 44 AB E0 29 14 6C 0C 01 B0 CD 5E 14 B1 DC 37 01
  311.                71 48 32 01 26 1A 81 2D AA DA 31 46 1A 18 AB AE CD 5E 14 6B FF
  312.                76 AF DC 37 01 71 48 AA 71 4A 23 0A 66 AA E0 31 2E F6 60 02 1A
  313.                81 09 AB AE CD 5E 14 6B FF 58 AF C7 5E 14 60 02 1A 80 F8 D5 1A
  314.                80 55 D7 1A 80 51 03 17 1A 80 63 03 19 1A 80 5E 03 1A 1A 80 89
  315.                03 1E 1A 80 96 03 20 1A 80 A0 AB E5 AF C7 5E 14 E0 71 2E E2 62
  316.                92 02 80 51 93 02 9E 5B 77 62 E6 AF 6D 03 0F 6A 10 70 D8 AC 6B
  317.                FF 0C AC 6A 11 72 02 3D 8E 94 FF B3 AC 6A 13 72 02 3D 8E 94 FF
  318.                AD 03 15 14 AD 6A 16 72 02 3D 8E 94 FF A4 AD 6A 18 72 02 3D 8E
  319.                94 FF 9F 03 1A 14 7A 04 83 02 16 02 9D 5B 5B F8 84 01 91 02 FF
  320.                AF AA 31 4C 16 02 F6 7A 02 F3 B0 CD 5E 14 6B FE BE B1 CE 5E 14
  321.                6A 18 72 02 3D 8D 94 FF 74 03 19 14 7A 03 F4 B1 CE 5E 14 6A 1D
  322.                72 02 3D 8E 94 FF 66 00 14 B2 CE 5E 14 6A 1F 72 02 3D 8E 94 FF
  323.                5C 00 14 32 02 23 79 60 03 1A 2E AB AE CD 1A 22 64 21 64 22 AC
  324.                64 23 64 24 64 25 64 26 64 27 6D 03 28 64 29 64 2A 64 2B 6D 03
  325.                28 B1 32 06 1F AB AE CD 5E 14 6B FE 59 60 01 14 30 AF 16 01 15
  326.                19 02 19 02
  327.               )
  328.          NIL #.#'EQ 0.
  329.          #S(HASH-TABLE EQ (C-ARRAY-PTR . 375.) (C-PTR-NULL . 339.)
  330.             (C-PTR . 339.) (C-FUNCTION . 170.) (C-ARRAY-MAX . 120.)
  331.             (C-ARRAY . 90.) (C-UNION . 61.) (C-STRUCT . 21.)
  332.            )
  333.          2. #.#'VECTOR VECTOR #.#'LIST LIST
  334.          #Y(SYSTEM::DEPARSE-C-TYPE-DEPARSE-1
  335.             #20Y(00 00 00 00 02 00 00 00 00 03 AC AC 07 00 01 73 60 02 19 03)
  336.             NIL
  337.            )
  338.          1. 3.
  339.          #Y(SYSTEM::DEPARSE-C-TYPE-DEPARSE-2
  340.             #20Y(00 00 00 00 02 00 00 00 00 03 AC AC 07 00 01 73 60 02 19 03)
  341.             NIL
  342.            )
  343.          :ARGUMENTS
  344.          #Y(SYSTEM::DEPARSE-C-TYPE-DEPARSE-3
  345.             #26Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AD 01 06 B3 2C
  346.                  08 01 9C 19 04
  347.                 )
  348.             "arg" SYSTEM::DO-FORMAT-DECIMAL
  349.            )
  350.          FORMAT SYSTEM::*KEYWORD-PACKAGE* FF-FLAG-OUT :OUT FF-FLAG-IN-OUT
  351.          :IN-OUT :IN FF-FLAG-ALLOCA :ALLOCA FF-FLAG-MALLOC-FREE :MALLOC-FREE
  352.          :NONE :RETURN-TYPE :LANGUAGE FF-LANGUAGE-C (:C) FF-LANGUAGE-ANSI-C
  353.          (:STDC) TYPE-ERROR :DATUM :EXPECTED-TYPE
  354.          (MEMBER C-STRUCT C-UNION C-ARRAY C-ARRAY-MAX C-FUNCTION C-PTR
  355.            C-PTR-NULL C-ARRAY-PTR
  356.          )
  357.          "~A~%The value is: ~S" "~A~%Der Wert ist: ~S" "~A~%La valeur est : ~S"
  358.          SYSTEM::LANGUAGE
  359.          "The value of (SVREF CTYPE 0) must be one of C-STRUCT, C-UNION, C-ARRAY, C-ARRAY-MAX, C-FUNCTION, C-PTR, C-PTR-NULL, C-ARRAY-PTR"
  360.          "Der Wert von (SVREF CTYPE 0) mu▀ einer der folgenden sein: C-STRUCT, C-UNION, C-ARRAY, C-ARRAY-MAX, C-FUNCTION, C-PTR, C-PTR-NULL, C-ARRAY-PTR"
  361.          "La valeur de (SVREF CTYPE 0) doit Ωtre l'une des suivantes : C-STRUCT, C-UNION, C-ARRAY, C-ARRAY-MAX, C-FUNCTION, C-PTR, C-PTR-NULL, C-ARRAY-PTR"
  362.   )  )  )
  363. #Y(#:TOP-LEVEL-FORM-15
  364.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
  365.        )
  366.    (SPECIAL *FFI-MODULE*) *FFI-MODULE*
  367.   )
  368. #Y(#:TOP-LEVEL-FORM-16
  369.    #393Y(00 00 00 00 00 00 00 00 00 01 00 2A 02 C3 0B 00 00 C4 0B 00 01 DA 2E
  370.          03 DA AB 6C 04 01 31 84 DD DE DF 63 DA E0 E1 E2 E3 E4 67 0A 00 7A 01
  371.          E5 63 62 72 07 00 E6 E7 E8 67 0B 01 7A 01 E9 63 62 72 07 00 D5 7B 04
  372.          67 06 00 67 07 01 72 06 00 31 8A 16 01 DD 2E 13 EC 30 5E ED 2E 03 ED
  373.          EE EF 31 8A ED F0 31 84 F1 30 5E F2 2E 03 F2 EE F3 31 8A F2 F4 31 84
  374.          F5 30 5E 64 1E 30 5E 64 1F 2E 03 64 1F EE 64 20 31 8A 64 1F 64 21 31
  375.          84 64 22 30 5E 64 23 30 5E 64 24 2E 03 64 24 EE 64 25 31 8A 64 24 64
  376.          26 31 84 64 27 30 5E 64 28 30 5E 64 29 2E 03 64 29 EE 64 2A 31 8A 64
  377.          29 64 2B 31 84 64 2C 30 5E 64 2D 30 5E 64 2E 2E 03 64 2E EE 64 2F 31
  378.          8A 64 2E 64 30 31 84 64 31 30 5E 64 32 30 5E 64 33 2E 03 64 33 EE 64
  379.          34 31 8A 64 33 64 35 31 84 64 36 30 5E 64 37 30 5E 64 38 2E 03 64 38
  380.          EE 64 39 31 8A 64 38 64 3A 31 84 64 1F 64 3B 64 3C 03 3D 79 31 8A 64
  381.          1F 64 3E 62 2C 03 3F 64 24 64 3B 64 3C 03 40 79 31 8A 64 24 64 3E 62
  382.          2C 03 3F 64 29 64 3B 64 3C 03 41 79 31 8A 64 29 64 3E 62 2C 03 3F 64
  383.          2E 64 3B 64 3C 03 42 79 31 8A 64 2E 64 3E 62 2C 03 3F 64 33 64 3B 64
  384.          3C 03 43 79 31 8A 64 33 64 3E 62 2C 03 3F 64 38 64 3B 64 3C 03 44 79
  385.          31 8A 64 38 64 3E 62 2C 03 3F DD 64 45 62 2C 03 3F DD 64 46 31 8B C8
  386.          19 01
  387.         )
  388.    #Y(DEFAULT-OBJECT-TABLE
  389.       #18Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 30 67 19 01) #.#'EQUAL
  390.      )
  391.    #Y(DEFAULT-TYPE-TABLE
  392.       #18Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 30 67 19 01) #.#'EQ
  393.      )
  394.    MAKE-FFI-MODULE SYSTEM::REMOVE-OLD-DEFINITIONS
  395.    #Y(MAKE-FFI-MODULE
  396.       #83Y(00 00 00 00 00 00 00 00 80 1B 06 00 01 00 3C 06 3C 05 3A 04 06 68 00
  397.            01 35 00 FA 3A 03 06 68 00 02 35 00 F9 3C 02 3C 01 DF E0 71 34 E1 AB
  398.            E2 B4 31 33 E1 AB E3 B3 31 33 E1 AB E4 B2 31 33 E1 AB E5 B1 31 33 E1
  399.            AB E6 B0 31 33 E1 AB E7 AF 31 33 15 19 07
  400.           )
  401.       NIL :NAME :C-NAME :OBJECT-TABLE :TYPE-TABLE :VARIABLE-LIST :FUNCTION-LIST
  402.       #1=(FFI-MODULE) 7. FFI-MODULE 1. 2. 3. 4. 5. 6.
  403.      )
  404.    FFI-MODULE SYSTEM::DEFSTRUCT-DESCRIPTION #1#
  405.    #(NAME (:NAME) 1. (NIL) NIL T NIL) #(C-NAME (:C-NAME) 2. (NIL) NIL T NIL)
  406.    OBJECT-TABLE (:OBJECT-TABLE) 3.
  407.    (SVREF (GET 'FFI-MODULE 'SYSTEM::DEFSTRUCT-DESCRIPTION) 4.) TYPE-TABLE
  408.    (:TYPE-TABLE) 4. (SVREF (GET 'FFI-MODULE 'SYSTEM::DEFSTRUCT-DESCRIPTION) 5.)
  409.    (#(VARIABLE-LIST (:VARIABLE-LIST) 5. (NIL) 'NIL T NIL)
  410.      #(FUNCTION-LIST (:FUNCTION-LIST) 6. (NIL) 'NIL T NIL)
  411.    )
  412.    CLOS::DEFINE-STRUCTURE-CLASS (INLINE FFI-MODULE-P) FFI-MODULE-P
  413.    SYSTEM::INLINE-EXPANSION
  414.    ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN FFI-MODULE-P))
  415.      (BLOCK FFI-MODULE-P (SYSTEM::%STRUCTURE-TYPE-P 'FFI-MODULE SYSTEM::OBJECT)
  416.    ) )
  417.    #Y(FFI-MODULE-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02)
  418.       FFI-MODULE
  419.      )
  420.    (INLINE COPY-FFI-MODULE) COPY-FFI-MODULE
  421.    ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-FFI-MODULE))
  422.      (BLOCK COPY-FFI-MODULE (SYSTEM::%COPY-STRUCTURE STRUCTURE))
  423.    )
  424.    #Y(COPY-FFI-MODULE #15Y(00 00 00 00 01 00 00 00 00 02 AB 31 35 19 02))
  425.    (FUNCTION FFI-MODULE-NAME (FFI-MODULE) T) (INLINE FFI-MODULE-NAME)
  426.    FFI-MODULE-NAME
  427.    (#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN FFI-MODULE-NAME))
  428.      (BLOCK FFI-MODULE-NAME
  429.        (THE T (SYSTEM::%STRUCTURE-REF 'FFI-MODULE SYSTEM::OBJECT 1.))
  430.    ) )
  431.    #Y(FFI-MODULE-NAME #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  432.       FFI-MODULE 1.
  433.      )
  434.    (FUNCTION FFI-MODULE-C-NAME (FFI-MODULE) T) (INLINE FFI-MODULE-C-NAME)
  435.    FFI-MODULE-C-NAME
  436.    (#2# (DECLARE (SYSTEM::IN-DEFUN FFI-MODULE-C-NAME))
  437.      (BLOCK FFI-MODULE-C-NAME
  438.        (THE T (SYSTEM::%STRUCTURE-REF 'FFI-MODULE SYSTEM::OBJECT 2.))
  439.    ) )
  440.    #Y(FFI-MODULE-C-NAME
  441.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FFI-MODULE 2.
  442.      )
  443.    (FUNCTION FFI-MODULE-OBJECT-TABLE (FFI-MODULE) T)
  444.    (INLINE FFI-MODULE-OBJECT-TABLE) FFI-MODULE-OBJECT-TABLE
  445.    (#2# (DECLARE (SYSTEM::IN-DEFUN FFI-MODULE-OBJECT-TABLE))
  446.      (BLOCK FFI-MODULE-OBJECT-TABLE
  447.        (THE T (SYSTEM::%STRUCTURE-REF 'FFI-MODULE SYSTEM::OBJECT 3.))
  448.    ) )
  449.    #Y(FFI-MODULE-OBJECT-TABLE
  450.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FFI-MODULE 3.
  451.      )
  452.    (FUNCTION FFI-MODULE-TYPE-TABLE (FFI-MODULE) T)
  453.    (INLINE FFI-MODULE-TYPE-TABLE) FFI-MODULE-TYPE-TABLE
  454.    (#2# (DECLARE (SYSTEM::IN-DEFUN FFI-MODULE-TYPE-TABLE))
  455.      (BLOCK FFI-MODULE-TYPE-TABLE
  456.        (THE T (SYSTEM::%STRUCTURE-REF 'FFI-MODULE SYSTEM::OBJECT 4.))
  457.    ) )
  458.    #Y(FFI-MODULE-TYPE-TABLE
  459.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FFI-MODULE 4.
  460.      )
  461.    (FUNCTION FFI-MODULE-VARIABLE-LIST (FFI-MODULE) T)
  462.    (INLINE FFI-MODULE-VARIABLE-LIST) FFI-MODULE-VARIABLE-LIST
  463.    (#2# (DECLARE (SYSTEM::IN-DEFUN FFI-MODULE-VARIABLE-LIST))
  464.      (BLOCK FFI-MODULE-VARIABLE-LIST
  465.        (THE T (SYSTEM::%STRUCTURE-REF 'FFI-MODULE SYSTEM::OBJECT 5.))
  466.    ) )
  467.    #Y(FFI-MODULE-VARIABLE-LIST
  468.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FFI-MODULE 5.
  469.      )
  470.    (FUNCTION FFI-MODULE-FUNCTION-LIST (FFI-MODULE) T)
  471.    (INLINE FFI-MODULE-FUNCTION-LIST) FFI-MODULE-FUNCTION-LIST
  472.    (#2# (DECLARE (SYSTEM::IN-DEFUN FFI-MODULE-FUNCTION-LIST))
  473.      (BLOCK FFI-MODULE-FUNCTION-LIST
  474.        (THE T (SYSTEM::%STRUCTURE-REF 'FFI-MODULE SYSTEM::OBJECT 6.))
  475.    ) )
  476.    #Y(FFI-MODULE-FUNCTION-LIST
  477.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) FFI-MODULE 6.
  478.      )
  479.    SYSTEM::SETF-EXPANDER -1.
  480.    #Y(SETF-FFI-MODULE-NAME
  481.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  482.       SYSTEM::%STRUCTURE-STORE 'FFI-MODULE 1.
  483.      )
  484.    SETF SYSTEM::%SET-DOCUMENTATION
  485.    #Y(SETF-FFI-MODULE-C-NAME
  486.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  487.       SYSTEM::%STRUCTURE-STORE 'FFI-MODULE 2.
  488.      )
  489.    #Y(SETF-FFI-MODULE-OBJECT-TABLE
  490.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  491.       SYSTEM::%STRUCTURE-STORE 'FFI-MODULE 3.
  492.      )
  493.    #Y(SETF-FFI-MODULE-TYPE-TABLE
  494.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  495.       SYSTEM::%STRUCTURE-STORE 'FFI-MODULE 4.
  496.      )
  497.    #Y(SETF-FFI-MODULE-VARIABLE-LIST
  498.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  499.       SYSTEM::%STRUCTURE-STORE 'FFI-MODULE 5.
  500.      )
  501.    #Y(SETF-FFI-MODULE-FUNCTION-LIST
  502.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  503.       SYSTEM::%STRUCTURE-STORE 'FFI-MODULE 6.
  504.      )
  505.    STRUCTURE SYSTEM::STRUCTURE-PRINT
  506.   )
  507. #Y(#:TOP-LEVEL-FORM-17
  508.    #25Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 30 57 D8 DA 6E 03 30 56 C3 19
  509.         01
  510.        )
  511.    *NAME* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P (FFI-MODULE-NAME *FFI-MODULE*)
  512.    SYSTEM::MAKE-SYMBOL-MACRO
  513.   )
  514. #Y(#:TOP-LEVEL-FORM-18
  515.    #25Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 30 57 D8 DA 6E 03 30 56 C3 19
  516.         01
  517.        )
  518.    *C-NAME* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
  519.    (FFI-MODULE-C-NAME *FFI-MODULE*) SYSTEM::MAKE-SYMBOL-MACRO
  520.   )
  521. #Y(#:TOP-LEVEL-FORM-19
  522.    #25Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 30 57 D8 DA 6E 03 30 56 C3 19
  523.         01
  524.        )
  525.    *OBJECT-TABLE* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
  526.    (FFI-MODULE-OBJECT-TABLE *FFI-MODULE*) SYSTEM::MAKE-SYMBOL-MACRO
  527.   )
  528. #Y(#:TOP-LEVEL-FORM-20
  529.    #25Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 30 57 D8 DA 6E 03 30 56 C3 19
  530.         01
  531.        )
  532.    *TYPE-TABLE* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
  533.    (FFI-MODULE-TYPE-TABLE *FFI-MODULE*) SYSTEM::MAKE-SYMBOL-MACRO
  534.   )
  535. #Y(#:TOP-LEVEL-FORM-21
  536.    #25Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 30 57 D8 DA 6E 03 30 56 C3 19
  537.         01
  538.        )
  539.    *VARIABLE-LIST* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
  540.    (FFI-MODULE-VARIABLE-LIST *FFI-MODULE*) SYSTEM::MAKE-SYMBOL-MACRO
  541.   )
  542. #Y(#:TOP-LEVEL-FORM-22
  543.    #25Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 30 57 D8 DA 6E 03 30 56 C3 19
  544.         01
  545.        )
  546.    *FUNCTION-LIST* SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
  547.    (FFI-MODULE-FUNCTION-LIST *FFI-MODULE*) SYSTEM::MAKE-SYMBOL-MACRO
  548.   )
  549. #Y(#:TOP-LEVEL-FORM-23
  550.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  551.    TO-MODULE-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
  552.    #Y(TO-MODULE-NAME
  553.       #18Y(00 00 00 00 01 00 00 00 00 02 D8 D9 AD 32 00 26 19 02) STRING
  554.       #Y(TO-MODULE-NAME-1
  555.          #43Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 8F 02 0B 17 DA AC DB 8F 02
  556.               0B 10 DC AC DD 8F 02 0B 09 AB DE 8F 01 07 03 C9 19 02 9C 19 02
  557.              )
  558.          #\A #\Z #\a #\z #\0 #\9 #\_
  559.   )  )  )
  560. #Y(#:TOP-LEVEL-FORM-24
  561.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) TO-C-NAME
  562.    SYSTEM::REMOVE-OLD-DEFINITIONS
  563.    #Y(TO-C-NAME
  564.       #77Y(03 00 01 00 01 00 00 00 00 02 AB 7F 4F 01 D8 AC 8F 00 27 06 AB 37 02
  565.            7F 4C 01 AB 87 01 2C 00 2A 01 37 01 31 78 0B 00 00 52 13 14 DA 2F 03
  566.            62 AD 6C 04 01 B0 32 00 26 67 02 00 31 79 53 08 00 00 00 00 14 37 01
  567.            31 7F 54 19 03 9C 19 02
  568.           )
  569.       #.#'LOWER-CASE-P C-IDENT-P
  570.       #Y(TO-C-NAME-1
  571.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  572.          "_lisp__"
  573.         )
  574.       FORMAT
  575.       #Y(TO-C-NAME-2
  576.          #38Y(00 00 00 00 01 00 00 00 00 02 AB 8C 1E 04 AB 8B 26 0C 68 00 01 D9
  577.               AD 70 27 2C 03 02 19 02 AB 68 00 01 30 8D 19 02
  578.              )
  579.          NIL
  580.          #Y(TO-C-NAME-2-1
  581.             #27Y(00 00 00 00 02 00 00 00 01 18 D8 AE 30 8D AD 01 02 D9 01 03 B3
  582.                  2C 08 02 9C 19 04
  583.                 )
  584.             #\_ 2. SYSTEM::DO-FORMAT-HEXADECIMAL
  585.            )
  586.          FORMAT
  587.   )  )  )
  588. #Y(#:TOP-LEVEL-FORM-25
  589.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  590.    PREPARE-C-TYPEDECL SYSTEM::REMOVE-OLD-DEFINITIONS
  591.    #Y(PREPARE-C-TYPEDECL
  592.       #73Y(00 00 00 00 01 00 00 00 00 02 AB 6A 00 D9 AB DA 80 32 00 37 01 8C 68
  593.            03 00 19 02 AB 8E 27 09 AB 71 4A 8E 95 03 AB C6 5E 25 04 6D DD 71 92
  594.            71 8E 6A 06 DF AE AD 6F 08 2C 03 09 6A 00 D9 AB DA 80 32 00 AD AB AD
  595.            30 69 19 04
  596.           )
  597.       *FFI-MODULE* FFI-MODULE 4. 0.
  598.       #S(HASH-TABLE EQ (C-ARRAY-MAX . 1.) (C-ARRAY . 1.) (C-UNION . 1.)
  599.          (C-STRUCT . 1.)
  600.         )
  601.       "g" *COUTPUT-STREAM*
  602.       #Y(PREPARE-C-TYPEDECL-1
  603.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  604.               37 02 30 8E 9C 19 04
  605.              )
  606.          "
  607. typedef "
  608.          ";
  609. "
  610.         )
  611.       TO-C-TYPEDECL FORMAT
  612.   )  )
  613. #Y(#:TOP-LEVEL-FORM-26
  614.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  615.    TO-C-TYPEDECL SYSTEM::REMOVE-OLD-DEFINITIONS
  616.    #Y(TO-C-TYPEDECL
  617.       #293Y(00 00 00 00 02 00 00 00 00 03 9D 25 00 80 6C 62 C4 1A 80 FD 62 C6
  618.             1A 80 F8 62 C7 1A 80 F3 62 C8 1A 80 EE 62 C9 1A 80 E9 62 CA 1A 80
  619.             E4 62 CB 1A 80 DF 62 CC 1A 80 DA 62 CD 1A 80 D5 62 CE 1A 80 D0 62
  620.             CF 1A 80 CB 62 D0 1A 80 C6 62 D1 1A 80 C1 62 D2 1A 80 BC 62 D3 1A
  621.             80 B7 62 D4 1A 80 B2 62 D5 1A 80 AD 62 D6 1A 80 A8 62 EF AE 6A 14
  622.             ED AB EE 80 32 00 37 01 70 68 1A 80 66 AC 6A 14 ED AB EE 80 32 00
  623.             37 01 8B 68 60 AC 8E 27 0A AC 71 4A 8E 95 04 AC 03 18 5E 25 19 80
  624.             7D 62 F2 62 AF F3 31 2E 5B 5B 78 9B 1F 33 93 00 AA F4 71 92 71 8E
  625.             6B FF 57 83 02 16 01 82 00 1A 6A 62 F5 62 AF F3 31 2E 5B 78 1A 12
  626.             93 00 AA 64 1E 71 92 71 8E 6B FF 38 83 02 16 01 82 00 9B 20 6B 16
  627.             01 AA 7F A8 00 AE 2C 04 02 19 03 AC 03 1F 5E 14 62 64 20 AE B0 F3
  628.             31 2E 5B 5B 1A 0D AC 03 1F 5E 14 62 64 21 AE B0 03 22 5E 14 6D 04
  629.             02 28 02 05 FE FC 62 03 23 14 AD 2C 03 02 19 03 64 24 64 25 64 26
  630.             6D 03 27 AD 32 01 1E
  631.            )
  632.       #S(HASH-TABLE EQ (C-STRING . 87.) (C-POINTER . 87.) (DOUBLE-FLOAT . 82.)
  633.          (SINGLE-FLOAT . 77.) (UINT64 . 72.) (SINT64 . 67.) (UINT32 . 62.)
  634.          (SINT32 . 57.) (ULONG . 52.) (LONG . 47.) (UINT . 42.) (INT . 37.)
  635.          (UINT16 . 32.) (USHORT . 32.) (SINT16 . 27.) (SHORT . 27.)
  636.          (UINT8 . 22.) (UCHAR . 22.) (SINT8 . 17.) (CHAR . 17.)
  637.          (CHARACTER . 12.) (BOOLEAN . 7.) (NIL . 2.)
  638.         )
  639.       #Y(TO-C-TYPEDECL-1
  640.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  641.               04
  642.              )
  643.          "void "
  644.         )
  645.       FORMAT
  646.       #Y(TO-C-TYPEDECL-2
  647.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  648.               04
  649.              )
  650.          "int "
  651.         )
  652.       #Y(TO-C-TYPEDECL-3
  653.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  654.               04
  655.              )
  656.          "char "
  657.         )
  658.       #Y(TO-C-TYPEDECL-4
  659.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  660.               04
  661.              )
  662.          "sint8 "
  663.         )
  664.       #Y(TO-C-TYPEDECL-5
  665.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  666.               04
  667.              )
  668.          "uint8 "
  669.         )
  670.       #Y(TO-C-TYPEDECL-6
  671.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  672.               04
  673.              )
  674.          "sint16 "
  675.         )
  676.       #Y(TO-C-TYPEDECL-7
  677.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  678.               04
  679.              )
  680.          "uint16 "
  681.         )
  682.       #Y(TO-C-TYPEDECL-8
  683.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  684.               04
  685.              )
  686.          "int "
  687.         )
  688.       #Y(TO-C-TYPEDECL-9
  689.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  690.               04
  691.              )
  692.          "unsigned int "
  693.         )
  694.       #Y(TO-C-TYPEDECL-10
  695.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  696.               04
  697.              )
  698.          "long "
  699.         )
  700.       #Y(TO-C-TYPEDECL-11
  701.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  702.               04
  703.              )
  704.          "unsigned long "
  705.         )
  706.       #Y(TO-C-TYPEDECL-12
  707.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  708.               04
  709.              )
  710.          "sint32 "
  711.         )
  712.       #Y(TO-C-TYPEDECL-13
  713.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  714.               04
  715.              )
  716.          "uint32 "
  717.         )
  718.       #Y(TO-C-TYPEDECL-14
  719.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  720.               04
  721.              )
  722.          "sint64 "
  723.         )
  724.       #Y(TO-C-TYPEDECL-15
  725.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  726.               04
  727.              )
  728.          "uint64 "
  729.         )
  730.       #Y(TO-C-TYPEDECL-16
  731.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  732.               04
  733.              )
  734.          "float "
  735.         )
  736.       #Y(TO-C-TYPEDECL-17
  737.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  738.               04
  739.              )
  740.          "double "
  741.         )
  742.       #Y(TO-C-TYPEDECL-18
  743.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  744.               04
  745.              )
  746.          "void* "
  747.         )
  748.       *FFI-MODULE* FFI-MODULE 4.
  749.       #Y(TO-C-TYPEDECL-19
  750.          #25Y(00 00 00 00 03 00 00 00 01 19 AD AF 30 89 D8 AF 30 8D AC AF 30 89
  751.               9C 19 05
  752.              )
  753.          #\Space
  754.         )
  755.       0.
  756.       #S(HASH-TABLE EQ (C-ARRAY-PTR . 117.) (C-PTR-NULL . 117.) (C-PTR . 117.)
  757.          (C-FUNCTION . 117.) (C-ARRAY-MAX . 95.) (C-ARRAY . 78.)
  758.          (C-UNION . 34.) (C-STRUCT . 2.)
  759.         )
  760.       #Y(TO-C-TYPEDECL-20
  761.          #51Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD 1A 0D 93 00 82
  762.               01 B0 30 89 D9 B0 37 02 30 8E AA 8C 97 6F 16 01 DA AF 37 02 30 8E
  763.               AC AF 30 89 9C 19 05
  764.              )
  765.          "struct { " "; " "} "
  766.         )
  767.       LIST "g"
  768.       #Y(TO-C-TYPEDECL-21
  769.          #51Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD 1A 0D 93 00 82
  770.               01 B0 30 89 D9 B0 37 02 30 8E AA 8C 97 6F 16 01 DA AF 37 02 30 8E
  771.               AC AF 30 89 9C 19 05
  772.              )
  773.          "union { " "; " "} "
  774.         )
  775.       "g" 1.
  776.       #Y(TO-C-TYPEDECL-22
  777.          #52Y(00 00 00 00 03 00 00 00 01 19 D8 AF 30 8D AD AF 30 89 D9 AF 30 8D
  778.               AC 1A 12 DA B0 30 8D AF 01 06 93 07 82 08 2C 08 03 DC B0 30 8D AA
  779.               8C 97 6A 16 01 9C 19 05
  780.              )
  781.          #\( #\) #\[ SYSTEM::DO-FORMAT-DECIMAL #\]
  782.         )
  783.       #Y(TO-C-TYPEDECL-23
  784.          #38Y(00 00 00 00 03 00 00 00 01 19 D8 AF 30 8D AD AF 30 89 D9 AF 37 02
  785.               30 8E AE 01 06 B3 2C 08 02 DB AF 30 8D 9C 19 05
  786.              )
  787.          #\( ")[" SYSTEM::DO-FORMAT-DECIMAL #\]
  788.         )
  789.       2.
  790.       #Y(TO-C-TYPEDECL-24
  791.          #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 9C 19
  792.               04
  793.              )
  794.          "void* "
  795.         )
  796.       "illegal foreign data type ~S" "ungⁿltiger Typ fⁿr externe Daten: ~S"
  797.       "type invalide de donnΘes externes : ~S" SYSTEM::LANGUAGE
  798.   )  )
  799. #Y(#:TOP-LEVEL-FORM-27
  800.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  801.    PREPARE-MODULE SYSTEM::REMOVE-OLD-DEFINITIONS
  802.    #Y(PREPARE-MODULE
  803.       #52Y(00 00 00 00 00 00 00 00 00 01 0E 00 1B 23 6A 01 37 01 70 EE DA AB DB
  804.            AD 6E 04 2C 04 05 16 01 0F 00 6A 06 DF 6A 00 E0 AB E1 80 32 00 2C 03
  805.            0A 19 01 00 19 01
  806.           )
  807.       *FFI-MODULE* *COUTPUT-FILE* :NAME :C-NAME TO-MODULE-NAME MAKE-FFI-MODULE
  808.       *COUTPUT-STREAM*
  809.       #Y(PREPARE-MODULE-1
  810.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  811.               37 02 30 8E 9C 19 04
  812.              )
  813.          "extern object module__"
  814.          "__object_tab[];
  815. "
  816.         )
  817.       FFI-MODULE 2. FORMAT
  818.   )  )
  819. #Y(#:TOP-LEVEL-FORM-28
  820.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  821.    FINALIZE-COUTPUT-FILE SYSTEM::REMOVE-OLD-DEFINITIONS
  822.    #Y(FINALIZE-COUTPUT-FILE
  823.       #468Y(00 00 00 00 00 00 00 00 00 01 0E 00 1B 22 00 19 01 6A 01 E3 6A 00
  824.             DD AB DE 80 32 00 2C 03 03 6A 01 E4 6A 00 DD AB DE 80 32 00 2C 03
  825.             03 1A 80 8C 6A 01 DA 2F 03 6A 01 DC 6A 00 DD AB DE 80 32 00 2C 03
  826.             03 6A 01 DF 6A 00 DD AB DE 80 32 00 2C 03 03 6A 01 E0 6A 00 DD AB
  827.             DE 80 32 00 2C 03 03 6A 01 E1 2F 03 6A 00 DD AB E2 80 32 00 70 6D
  828.             AA 8D 94 FF 9E 00 2A 01 AB 37 07 30 1C 0B 00 00 6A 01 E5 6A 00 DD
  829.             AB DE 80 32 00 AE 2C 04 03 6A 01 E6 6A 00 DD AB DE 80 32 00 AE 2C
  830.             04 03 6A 00 DD AB E2 80 32 00 AB 6C 0F 01 AB 30 6B 16 01 62 E8 67
  831.             02 00 32 00 26 6A 01 E9 2F 03 16 01 6A 01 EA 6A 00 DD AB DE 80 32
  832.             00 AD 2C 04 03 16 01 6A 01 EB 2F 03 6A 00 6A 00 DD AB EC 80 32 00
  833.             37 06 03 15 F8 03 16 F7 71 58 71 4C DD AC EC AD 31 33 16 02 6A 00
  834.             DD AB EC 80 32 00 62 1A 12 86 01 00 6A 01 EF 9D 5B 77 93 03 6F 18
  835.             2C 03 03 82 01 AB 8C 97 6A 16 02 6A 00 6A 00 DD AB F1 80 32 00 37
  836.             06 03 15 F8 03 16 F7 71 58 71 4C DD AC F1 AD 31 33 16 02 6A 00 DD
  837.             AB F1 80 32 00 62 1A 1B 86 01 00 6A 01 F2 9D 5B 77 03 1B 5E 14 62
  838.             F4 93 05 6D 03 03 6F 18 2C 03 03 82 01 AB 8C 97 61 16 02 6A 01 F5
  839.             6A 00 DD AB DE 80 32 00 2C 03 03 6A 01 64 1E 6A 00 DD AB DE 80 32
  840.             00 2C 03 03 6A 00 DD AB EC 80 32 00 62 1A 18 86 01 00 6A 01 64 1F
  841.             93 02 93 03 6E 20 9F 5B 5B 77 93 05 2C 06 03 82 01 AB 8C 97 64 16
  842.             02 6A 00 DD AB F1 80 32 00 62 1A 18 86 01 00 6A 01 64 21 93 02 93
  843.             03 6E 20 9F 5B 77 CD 5E 14 2C 05 03 82 01 AB 8C 97 64 16 02 6A 01
  844.             64 22 2F 03 19 01
  845.            )
  846.       *FFI-MODULE* *COUTPUT-STREAM*
  847.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-1
  848.          #16Y(00 00 00 00 01 00 00 00 01 17 AC 30 90 9C 19 03)
  849.         )
  850.       FORMAT
  851.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-2
  852.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  853.               37 02 30 8E 9C 19 04
  854.              )
  855.          "subr_ module__"
  856.          "__subr_tab[1];
  857. "
  858.         )
  859.       FFI-MODULE 2.
  860.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-3
  861.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  862.               37 02 30 8E 9C 19 04
  863.              )
  864.          "uintC module__"
  865.          "__subr_tab_size = 0;
  866. "
  867.         )
  868.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-4
  869.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  870.               37 02 30 8E 9C 19 04
  871.              )
  872.          "subr_initdata module__"
  873.          "__subr_tab_initdata[1];
  874. "
  875.         )
  876.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-5
  877.          #16Y(00 00 00 00 01 00 00 00 01 17 AC 30 90 9C 19 03)
  878.         )
  879.       3.
  880.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-6
  881.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  882.               37 02 30 8E 9C 19 04
  883.              )
  884.          "object module__"
  885.          "__object_tab[1];
  886. "
  887.         )
  888.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-7
  889.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  890.               37 02 30 8E 9C 19 04
  891.              )
  892.          "object_initdata module__"
  893.          "__object_tab_initdata[1];
  894. "
  895.         )
  896.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-8
  897.          #42Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 89 D9 AF
  898.               37 02 30 8E AE 01 06 B3 2C 08 02 DB AF 37 02 30 8E 9C 19 05
  899.              )
  900.          "object module__" "__object_tab[" SYSTEM::DO-FORMAT-DECIMAL
  901.          "];
  902. "
  903.         )
  904.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-9
  905.          #42Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 89 D9 AF
  906.               37 02 30 8E AE 01 06 B3 2C 08 02 DB AF 37 02 30 8E 9C 19 05
  907.              )
  908.          "object_initdata module__" "__object_tab_initdata["
  909.          SYSTEM::DO-FORMAT-DECIMAL
  910.          "] = {
  911. "
  912.         )
  913.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-10
  914.          #25Y(00 00 00 00 02 00 00 00 00 03 68 00 01 94 02 93 03 AC 9D 5F 16 02
  915.               00 19 03
  916.              )
  917.          NIL
  918.         )
  919.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-11
  920.          #21Y(00 00 00 00 01 00 00 00 00 02 6A 00 D9 AD 6E 02 2C 03 03 19 02)
  921.          *COUTPUT-STREAM*
  922.          #Y(SYSTEM::FINALIZE-COUTPUT-FILE-11-1
  923.             #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9
  924.                  AE 37 02 30 8E 9C 19 04
  925.                 )
  926.             "  { "
  927.             " },
  928. "
  929.            )
  930.          TO-C-STRING FORMAT
  931.         )
  932.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-12
  933.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  934.          "};
  935. "
  936.         )
  937.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-13
  938.          #42Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 89 D9 AF
  939.               37 02 30 8E AE 01 06 B3 2C 08 02 DB AF 37 02 30 8E 9C 19 05
  940.              )
  941.          "uintC module__" "__object_tab_size = " SYSTEM::DO-FORMAT-DECIMAL
  942.          ";
  943. "
  944.         )
  945.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-14
  946.          #16Y(00 00 00 00 01 00 00 00 01 17 AC 30 90 9C 19 03)
  947.         )
  948.       5. #.#'FIRST #.#'EQUAL
  949.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-15
  950.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  951.               37 02 30 8E 9C 19 04
  952.              )
  953.          "extern "
  954.          ";
  955. "
  956.         )
  957.       TO-C-TYPEDECL 6.
  958.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-16
  959.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  960.               37 02 30 8E 9C 19 04
  961.              )
  962.          "extern "
  963.          ";
  964. "
  965.         )
  966.       1.
  967.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-17
  968.          #27Y(00 00 00 00 02 00 00 00 01 18 D8 AE 30 8D AC AE 30 89 D9 AE 37 02
  969.               30 8E 9C 19 04
  970.              )
  971.          #\( ")()"
  972.         )
  973.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-18
  974.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  975.               37 02 30 8E 9C 19 04
  976.              )
  977.          "
  978. void module__"
  979.          "__init_function_1(module)
  980.   var module_* module;
  981. { }
  982. "
  983.         )
  984.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-19
  985.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  986.               37 02 30 8E 9C 19 04
  987.              )
  988.          "
  989. void module__"
  990.          "__init_function_2(module)
  991.   var module_* module;
  992. {
  993. "
  994.         )
  995.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-20
  996.          #58Y(00 00 00 00 05 00 00 00 01 00 D8 B1 37 02 30 8E AF B1 30 89 D9 B1
  997.               30 8D AE B1 30 89 D9 B1 30 8D B0 01 06 B4 2C 08 02 DB B1 37 02 30
  998.               8E AC B1 30 89 DC B1 37 02 30 8E 9C 19 07
  999.              )
  1000.          "  register_foreign_variable(&" #\, SYSTEM::DO-FORMAT-DECIMAL
  1001.          ",sizeof("
  1002.          "));
  1003. "
  1004.         )
  1005.       TO-C-STRING
  1006.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-21
  1007.          #48Y(00 00 00 00 04 00 00 00 01 1A D8 B0 37 02 30 8E AE B0 30 89 D9 B0
  1008.               30 8D AD B0 30 89 D9 B0 30 8D AF 01 06 B3 2C 08 02 DB B0 37 02 30
  1009.               8E 9C 19 06
  1010.              )
  1011.          "  register_foreign_function(&" #\, SYSTEM::DO-FORMAT-DECIMAL
  1012.          ");
  1013. "
  1014.         )
  1015.       #Y(SYSTEM::FINALIZE-COUTPUT-FILE-22
  1016.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  1017.          "}
  1018. "
  1019.   )  )  )
  1020. #Y(#:TOP-LEVEL-FORM-29
  1021.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NEW-OBJECT
  1022.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1023.    #Y(NEW-OBJECT
  1024.       #76Y(00 00 00 00 02 00 00 00 00 03 92 02 12 AB 6A 00 D9 AB DA 80 32 00 37
  1025.            01 70 68 91 00 29 16 01 6A 00 D9 AB DA 80 32 00 70 6D 91 03 1D 37 01
  1026.            31 92 14 6A 00 D9 AB DA 80 32 00 AE 9E 79 AC AC AC 30 69 16 03 15 19
  1027.            03 5B 19 04 9D 1A 64
  1028.           )
  1029.       *FFI-MODULE* FFI-MODULE 3.
  1030.   )  )
  1031. #Y(#:TOP-LEVEL-FORM-30
  1032.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1033.    PASS-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS
  1034.    #Y(PASS-OBJECT
  1035.       #29Y(00 00 00 00 01 00 00 00 00 02 63 0E 00 10 01 AF 37 0B 7C 01 63 30 8A
  1036.            11 14 2F 02 19 02
  1037.           )
  1038.       SYSTEM::*KEYWORD-PACKAGE* *PACKAGE* NEW-OBJECT
  1039.   )  )
  1040. #Y(#:TOP-LEVEL-FORM-31
  1041.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1042.    OBJECT-TO-C-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
  1043.    #Y(OBJECT-TO-C-VALUE
  1044.       #26Y(00 00 00 00 01 00 00 00 00 02 62 D8 6A 01 DA AB DB 80 32 00 AE 2C 04
  1045.            04 19 02
  1046.           )
  1047.       #Y(OBJECT-TO-C-VALUE-1
  1048.          #40Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 89 D9 AF
  1049.               37 02 30 8E AE 01 06 B3 2C 08 02 DB AF 30 8D 9C 19 05
  1050.              )
  1051.          "module__" "__object_tab[" SYSTEM::DO-FORMAT-DECIMAL #\]
  1052.         )
  1053.       *FFI-MODULE* FFI-MODULE 2. FORMAT
  1054.   )  )
  1055. #Y(#:TOP-LEVEL-FORM-32
  1056.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1057.    C-LINES SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1058.    #Y(C-LINES
  1059.       #40Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 11 9D 5B 77 9E 5B
  1060.            78 DA DB DC AE 9F 7B 02 60 03 19 05 AC 2E 01 19 03
  1061.           )
  1062.       2. SYSTEM::MACRO-CALL-ERROR EVAL-WHEN (COMPILE) DO-C-LINES
  1063.   )  )
  1064. #Y(#:TOP-LEVEL-FORM-33
  1065.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-C-LINES
  1066.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1067.    #Y(DO-C-LINES
  1068.       #28Y(00 00 00 00 01 00 00 00 01 17 2D 00 1B 03 00 19 03 2D 01 98 02 6A 03
  1069.            AE 9F 9A 02 03
  1070.           )
  1071.       SYSTEM::PREPARE-COUTPUT-FILE PREPARE-MODULE FORMAT *COUTPUT-STREAM*
  1072.   )  )
  1073. #Y(#:TOP-LEVEL-FORM-34
  1074.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1075.    FOREIGN-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
  1076.    #Y(FOREIGN-NAME
  1077.       #24Y(00 00 00 00 02 00 00 00 00 03 91 01 05 AC 2E 01 19 03 5B 77 2E 00 19
  1078.            03
  1079.           )
  1080.       PARSE-FOREIGN-NAME TO-C-NAME
  1081.   )  )
  1082. #Y(#:TOP-LEVEL-FORM-35
  1083.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1084.    DEF-C-VAR SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1085.    #Y(DEF-C-VAR
  1086.       #245Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 80 9D 9D 5B 77
  1087.             9E 5B 78 AE 2E 02 AA DB B0 6D 03 04 AC DD AC 37 03 70 BF 6F 06 DF
  1088.             AC 37 03 8C BF 80 82 5B 77 E6 AD 37 03 30 BF 5B 77 91 00 80 81 D3
  1089.             14 E9 AF 37 03 70 BF 9B 5B 1B 80 86 D3 F6 72 02 35 64 1F 64 20 64
  1090.             21 64 22 64 23 B2 7A 02 64 23 B2 7A 02 64 23 B1 7A 02 7A 04 7A 03
  1091.             64 24 64 23 B4 7A 02 64 25 64 26 64 27 64 23 B5 7A 02 64 28 64 23
  1092.             B6 7A 02 7A 02 7A 03 7A 02 7A 04 64 29 B4 64 2A 64 26 64 2B 64 23
  1093.             B9 7A 02 03 2C 7B 02 7A 02 7A 02 7A 03 64 23 B5 7A 02 60 05 19 0A
  1094.             AC 2E 01 19 03 E0 E1 E2 E3 6D 03 0C E5 DF B4 32 03 1F 0E 0F 1A FF
  1095.             7B D3 16 01 1A FF 82 0E 14 16 01 1A FF 7B 9B 5B 77 AA 23 12 6C AA
  1096.             23 13 6E ED EE AC EF F0 F1 F2 F3 6D 03 0C F4 F5 64 1E 6D 03 0C B1
  1097.             32 06 1F
  1098.            )
  1099.       2. SYSTEM::MACRO-CALL-ERROR CHECK-SYMBOL (:NAME :TYPE :READ-ONLY :ALLOC)
  1100.       PARSE-OPTIONS :NAME FOREIGN-NAME :TYPE PROGRAM-ERROR
  1101.       "~S: ~S option missing in ~S" "~S: ~S-Option fehlt in ~S."
  1102.       "~S: option ~S manque dans ~S" SYSTEM::LANGUAGE DEF-C-VAR :READ-ONLY
  1103.       FV-FLAG-READONLY 0. :ALLOC :NONE :MALLOC-FREE FV-FLAG-MALLOC-FREE
  1104.       TYPE-ERROR :DATUM :EXPECTED-TYPE (MEMBER :NONE :MALLOC-FREE)
  1105.       "~A~%The value is: ~S" "~A~%Der Wert ist: ~S" "~A~%La valeur est : ~S"
  1106.       "The value of (SECOND ALLOC) must be one of :NONE, :MALLOC-FREE"
  1107.       "Der Wert von (SECOND ALLOC) mu▀ einer der folgenden sein: :NONE, :MALLOC-FREE"
  1108.       "La valeur de (SECOND ALLOC) doit Ωtre l'une des suivantes : :NONE, :MALLOC-FREE"
  1109.       PROGN EVAL-WHEN (SYSTEM::COMPILE-ONCE-ONLY) NOTE-C-VAR QUOTE SYSTEM::%PUT
  1110.       'FOREIGN-VARIABLE LOAD-TIME-VALUE LOOKUP-FOREIGN-VARIABLE PARSE-C-TYPE
  1111.       DEFINE-SYMBOL-MACRO FOREIGN-VALUE GET ('FOREIGN-VARIABLE)
  1112.   )  )
  1113. #Y(#:TOP-LEVEL-FORM-36
  1114.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NOTE-C-VAR
  1115.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1116.    #Y(NOTE-C-VAR
  1117.       #43Y(00 00 00 00 03 00 00 00 00 04 2D 00 1B 03 00 19 04 2D 01 AD AD 6E 02
  1118.            AD 7A 03 6A 03 AB DC AC DD 31 32 79 DC AC DD AD 31 33 19 07
  1119.           )
  1120.       SYSTEM::PREPARE-COUTPUT-FILE PREPARE-MODULE PARSE-C-TYPE *FFI-MODULE*
  1121.       FFI-MODULE 5.
  1122.   )  )
  1123. #Y(#:TOP-LEVEL-FORM-37
  1124.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1125.        )
  1126.    FOREIGN-VALUE SYSTEM::SETF-EXPANDER SET-FOREIGN-VALUE SETF
  1127.    SYSTEM::%SET-DOCUMENTATION
  1128.   )
  1129. #Y(#:TOP-LEVEL-FORM-38
  1130.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1131.    DEF-C-CALL-OUT SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1132.    #Y(DEF-C-CALL-OUT
  1133.       #40Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 11 9D 5B 77 9E 5B
  1134.            78 DA AC AC DB 32 02 23 61 02 19 05 AC 2E 01 19 03
  1135.           )
  1136.       2. SYSTEM::MACRO-CALL-ERROR DEF-CALL-OUT ((:LANGUAGE :C))
  1137.   )  )
  1138. #Y(#:TOP-LEVEL-FORM-39
  1139.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1140.    DEF-CALL-OUT SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1141.    #Y(DEF-CALL-OUT
  1142.       #135Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 80 6F 9D 5B 77
  1143.             9E 5B 78 AE 2E 02 AA DB B0 6D 03 04 AC DD AC 37 03 70 BF 6F 06 DD
  1144.             AC 37 03 70 BF AC 37 07 80 51 01 DF E0 E1 E2 E3 AF 7A 02 E3 B1 7A
  1145.             02 E3 B7 7A 02 7A 04 7A 03 E4 62 E5 E3 B3 7A 02 7A 02 E0 E6 E7 E3
  1146.             B6 7A 02 7A 02 7A 03 E8 E3 B5 7A 02 E9 E3 B4 7A 02 EA E3 B7 7A 02
  1147.             E3 BD 7A 02 7A 03 7A 03 7A 03 7A 05 E3 B1 7A 02 60 04 19 07 AC 2E
  1148.             01 19 03
  1149.            )
  1150.       2. SYSTEM::MACRO-CALL-ERROR CHECK-SYMBOL
  1151.       (:NAME :ARGUMENTS :RETURN-TYPE :LANGUAGE) PARSE-OPTIONS :NAME
  1152.       FOREIGN-NAME PROGN EVAL-WHEN (SYSTEM::COMPILE-ONCE-ONLY) NOTE-C-FUN QUOTE
  1153.       LET SYSTEM::REMOVE-OLD-DEFINITIONS (COMPILE) SYSTEM::C-DEFUN
  1154.       SYSTEM::%PUTD LOOKUP-FOREIGN-FUNCTION PARSE-C-FUNCTION
  1155.   )  )
  1156. #Y(#:TOP-LEVEL-FORM-40
  1157.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NOTE-C-FUN
  1158.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1159.    #Y(NOTE-C-FUN
  1160.       #43Y(00 00 00 00 03 00 00 00 00 04 2D 00 1B 03 00 19 04 2D 01 AD AD AD 6F
  1161.            02 7A 02 6A 03 AB DC AC DD 31 32 79 DC AC DD AD 31 33 19 07
  1162.           )
  1163.       SYSTEM::PREPARE-COUTPUT-FILE PREPARE-MODULE PARSE-C-FUNCTION *FFI-MODULE*
  1164.       FFI-MODULE 6.
  1165.   )  )
  1166. #Y(#:TOP-LEVEL-FORM-41
  1167.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1168.    DEF-C-CALL-IN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1169.    #Y(DEF-C-CALL-IN
  1170.       #40Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 11 9D 5B 77 9E 5B
  1171.            78 DA AC AC DB 32 02 23 61 02 19 05 AC 2E 01 19 03
  1172.           )
  1173.       2. SYSTEM::MACRO-CALL-ERROR DEF-CALL-IN ((:LANGUAGE :C))
  1174.   )  )
  1175. #Y(#:TOP-LEVEL-FORM-42
  1176.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1177.    DEF-CALL-IN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1178.    #Y(DEF-CALL-IN
  1179.       #92Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 80 44 9D 5B 77 9E
  1180.            5B 78 AE 2E 02 AA DB B0 6D 03 04 AC DD AC 37 03 70 BF 6F 06 DD AC 37
  1181.            03 70 BF AC 37 07 80 51 01 DF E0 E1 E2 E3 B2 7A 02 E3 B0 7A 02 E3 B2
  1182.            7A 02 E3 B8 7A 02 7A 05 7A 03 E3 B0 7A 02 60 03 19 07 AC 2E 01 19 03
  1183.           )
  1184.       2. SYSTEM::MACRO-CALL-ERROR CHECK-SYMBOL
  1185.       (:NAME :ARGUMENTS :RETURN-TYPE :LANGUAGE) PARSE-OPTIONS :NAME
  1186.       FOREIGN-NAME PROGN EVAL-WHEN (SYSTEM::COMPILE-ONCE-ONLY) NOTE-C-CALL-IN
  1187.       QUOTE
  1188.   )  )
  1189. #Y(#:TOP-LEVEL-FORM-43
  1190.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1191.    NOTE-C-CALL-IN SYSTEM::REMOVE-OLD-DEFINITIONS
  1192.    #Y(NOTE-C-CALL-IN
  1193.       #641Y(00 00 00 00 04 00 00 00 00 05 2D 00 1B 03 00 19 05 2D 01 AC AC 6F
  1194.             02 AA C6 5E 14 AB C7 5E 14 AC C8 5E 14 DE 62 1A 0C AD 9D 5E 14 83
  1195.             00 DC AC 81 02 35 01 AB AE 71 4A 90 01 32 6C AA 31 4C 16 01 F6 DB
  1196.             62 1A 0C AE 9D 5E 14 83 00 DC AC 81 02 35 01 AB AF 71 4A 90 01 32
  1197.             6C AA 31 4C 16 01 F6 62 AC 1A 80 4D 14 AB 92 01 1E 6A 09 E8 93 03
  1198.             93 03 6F 0D 2C 03 0C 9C 5B 1C 05 6A 09 E9 2F 0C 94 01 82 01 69 01
  1199.             91 01 62 16 02 1A 0D 6A 09 E7 2F 0C 91 02 51 6A 09 EA 2F 0C 6A 09
  1200.             EB 2F 0C 1A 80 78 C9 1A 80 7F 93 00 DF 71 92 71 8E 83 02 16 01 82
  1201.             00 9B 20 70 16 01 AA 7F A8 00 AF 2E 08 6A 09 E2 B1 62 E3 B9 6D 03
  1202.             0C 6F 0D 2C 03 0C AD 6A 0E 72 02 3D 8E 94 FF B5 6A 09 EC 2F 0C AA
  1203.             92 00 16 6A 09 ED 93 02 2C 03 0C 9B 5B 1C 05 6A 09 EE 2F 0C 82 00
  1204.             91 00 6A 16 01 6A 09 EF 2F 0C AC AB 92 01 15 6A 09 F0 93 03 93 03
  1205.             6F 0D 2C 03 0C 94 01 82 01 69 01 91 01 6B 16 02 6A 09 F1 2F 0C DE
  1206.             92 06 FF 7E C6 14 AE AE AE 1A 80 82 84 06 16 03 1A 80 75 16 05 1A
  1207.             80 7B 16 04 1A 80 76 03 25 1A 21 6A 09 64 20 2F 0C 6A 09 64 21 B3
  1208.             64 22 6F 0D 2C 03 0C 6A 09 64 23 B1 6A 24 72 02 3D 8D 94 5D 03 26
  1209.             14 B4 6E 1C 6E 1D 2C 04 0C 91 07 80 59 C9 1A 80 56 93 02 9D 1F 40
  1210.             93 02 9D 1F FF B5 93 02 AB 6A 1A 72 02 3D 8E 94 0E 6A 09 F3 AE 6E
  1211.             1C 6E 1D AD 2C 04 0C 84 07 AB 6A 1A 6A 1E 72 02 3B 72 02 3D 8E 94
  1212.             FF 86 16 03 82 02 82 01 82 00 9D 20 42 16 03 6A 09 64 1F B9 6E 1C
  1213.             6E 1D AE 2C 04 0C 91 07 FF 7D 92 07 FF A7 C6 14 AF AF AF 1A 80 93
  1214.             64 28 64 29 64 2A 6D 03 2B 64 2C AE 32 02 1E 03 2E 1A 2A 03 30 1A
  1215.             32 03 32 1A 80 41 AC 8E 27 60 AC 71 4A 24 04 5A AC C9 5E 14 24 27
  1216.             53 6A 09 64 2D B2 23 06 5A 62 64 2F 95 0A 2C 03 0C 14 AE 6A 24 72
  1217.             02 3D 8D 94 4C 03 31 14 B0 C6 5E 14 6E 1C 6E 1D B5 23 06 41 62 64
  1218.             33 B7 2C 03 0C 14 B0 2C 07 0C 84 06 16 03 1A 25 16 05 1A 2C 16 04
  1219.             1A 28 93 02 9D 1F 77 93 02 9D 1F 6E 93 02 AB 6A 1A 6A 1E 72 02 3B
  1220.             72 02 3D 8E 94 FF 91 16 03 82 02 82 01 82 00 9D 20 5A 16 03 16 01
  1221.             92 07 0C 6A 09 64 34 2F 0C 6A 09 64 35 2F 0C 16 02 6A 09 64 36 2F
  1222.             0C 19 0C
  1223.            )
  1224.       SYSTEM::PREPARE-COUTPUT-FILE PREPARE-MODULE PARSE-C-FUNCTION 1. 2. 3. 0.
  1225.       "g" PREPARE-C-TYPEDECL *COUTPUT-STREAM*
  1226.       #Y(NOTE-C-CALL-IN-1
  1227.          #27Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  1228.               30 8D 9C 19 04
  1229.              )
  1230.          "
  1231. global "
  1232.          #\Space
  1233.         )
  1234.       #Y(NOTE-C-CALL-IN-2
  1235.          #25Y(00 00 00 00 02 00 00 00 01 18 D8 AE 30 8D AC AE 30 89 D9 AE 30 8D
  1236.               9C 19 04
  1237.              )
  1238.          #\( #\)
  1239.         )
  1240.       FORMAT TO-C-TYPEDECL FF-LANGUAGE-ANSI-C
  1241.       #Y(NOTE-C-CALL-IN-3
  1242.          #17Y(00 00 00 00 01 00 00 00 01 17 D8 AD 30 8D 9C 19 03) #\(
  1243.         )
  1244.       #Y(NOTE-C-CALL-IN-4
  1245.          #17Y(00 00 00 00 02 00 00 00 01 18 AC AE 30 89 9C 19 04)
  1246.         )
  1247.       #Y(NOTE-C-CALL-IN-5
  1248.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03) ", "
  1249.         )
  1250.       #Y(NOTE-C-CALL-IN-6
  1251.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03) "void"
  1252.         )
  1253.       #Y(NOTE-C-CALL-IN-7
  1254.          #17Y(00 00 00 00 01 00 00 00 01 17 D8 AD 30 8D 9C 19 03) #\)
  1255.         )
  1256.       #Y(NOTE-C-CALL-IN-8
  1257.          #17Y(00 00 00 00 01 00 00 00 01 17 D8 AD 30 8D 9C 19 03) #\(
  1258.         )
  1259.       #Y(NOTE-C-CALL-IN-9
  1260.          #17Y(00 00 00 00 02 00 00 00 01 18 AC AE 30 89 9C 19 04)
  1261.         )
  1262.       #Y(NOTE-C-CALL-IN-10
  1263.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03) ", "
  1264.         )
  1265.       #Y(NOTE-C-CALL-IN-11
  1266.          #17Y(00 00 00 00 01 00 00 00 01 17 D8 AD 30 8D 9C 19 03) #\)
  1267.         )
  1268.       #Y(NOTE-C-CALL-IN-12
  1269.          #27Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  1270.               30 8D 9C 19 04
  1271.              )
  1272.          "
  1273.   "
  1274.          #\;
  1275.         )
  1276.       #Y(NOTE-C-CALL-IN-13
  1277.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  1278.          "
  1279. {
  1280. "
  1281.         )
  1282.       FF-FLAG-OUT
  1283.       #Y(NOTE-C-CALL-IN-14
  1284.          #39Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 89 D9 AF
  1285.               37 02 30 8E AC AF 30 89 DA AF 37 02 30 8E 9C 19 05
  1286.              )
  1287.          "  pushSTACK(convert_from_foreign(" ",&"
  1288.          "));
  1289. "
  1290.         )
  1291.       PASS-OBJECT OBJECT-TO-C-VALUE FF-FLAG-IN-OUT
  1292.       #Y(NOTE-C-CALL-IN-15
  1293.          #40Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 89 D9 AF
  1294.               30 8D AE 01 06 B3 2C 08 02 DB AF 37 02 30 8E 9C 19 05
  1295.              )
  1296.          "  funcall(" #\, SYSTEM::DO-FORMAT-DECIMAL
  1297.          ");
  1298. "
  1299.         )
  1300.       #Y(NOTE-C-CALL-IN-16
  1301.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  1302.          " {
  1303. "
  1304.         )
  1305.       #Y(NOTE-C-CALL-IN-17
  1306.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 D9 AE
  1307.               37 02 30 8E 9C 19 04
  1308.              )
  1309.          "  var "
  1310.          ";
  1311. "
  1312.         )
  1313.       "retval"
  1314.       #Y(NOTE-C-CALL-IN-18
  1315.          #37Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 89 D9 AF
  1316.               30 8D AC AF 30 89 DA AF 37 02 30 8E 9C 19 05
  1317.              )
  1318.          "  " #\(
  1319.          ",value1,&retval);
  1320. "
  1321.         )
  1322.       FF-FLAG-MALLOC-FREE "convert_to_foreign_nomalloc"
  1323.       "convert_to_foreign_mallocing" C-PTR
  1324.       "~S: :OUT argument is not a pointer: ~S"
  1325.       "~S: :OUT-Argument ist kein Pointer: ~S"
  1326.       "~S : paramΦtre :OUT n'est pas indirecte: ~S" SYSTEM::LANGUAGE
  1327.       DEF-CALL-IN
  1328.       #Y(NOTE-C-CALL-IN-19
  1329.          #57Y(00 00 00 00 06 00 00 00 01 00 D8 B2 37 02 30 8E B0 B2 30 89 AF B2
  1330.               30 89 D9 B2 30 8D AE B2 30 89 DA B2 30 8D AD B2 30 89 DA B2 30 8D
  1331.               AC B2 30 89 DB B2 37 02 30 8E 9C 19 08
  1332.              )
  1333.          "  " #\( #\,
  1334.          ");
  1335. "
  1336.         )
  1337.       ""
  1338.       #Y(NOTE-C-CALL-IN-20
  1339.          #32Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AD 01 06 B3 2C 08
  1340.               01 DA AE 37 02 30 8E 9C 19 04
  1341.              )
  1342.          "if (mv_count >= " SYSTEM::DO-FORMAT-DECIMAL ") "
  1343.         )
  1344.       "convert_to_foreign_nomalloc" "convert_to_foreign_mallocing" "value1"
  1345.       #Y(NOTE-C-CALL-IN-21
  1346.          #30Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AD 01 06 B3 2C 08
  1347.               01 DA AE 30 8D 9C 19 04
  1348.              )
  1349.          "mv_space[" SYSTEM::DO-FORMAT-DECIMAL #\]
  1350.         )
  1351.       #Y(NOTE-C-CALL-IN-22
  1352.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  1353.          "  return retval;
  1354. "
  1355.         )
  1356.       #Y(NOTE-C-CALL-IN-23
  1357.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  1358.          " }
  1359. "
  1360.         )
  1361.       #Y(NOTE-C-CALL-IN-24
  1362.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  1363.          "}
  1364. "
  1365.   )  )  )
  1366. #Y(#:TOP-LEVEL-FORM-44
  1367.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1368.    FOREIGN-FUNCTION-SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS
  1369.    #Y(FOREIGN-FUNCTION-SIGNATURE
  1370.       #52Y(00 00 00 00 01 00 00 00 00 02 AB D8 71 2F AA 71 4A D9 DA 1A 14 6A 03
  1371.            AE 9D 5E 14 72 02 3D 8E 94 02 84 01 DC AB 81 02 35 00 AA AD 90 01 32
  1372.            66 16 01 15 19 04
  1373.           )
  1374.       3. 0. 1. FF-FLAG-OUT 2.
  1375.   )  )
  1376. #Y(#:TOP-LEVEL-FORM-45
  1377.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1378.    DEF-C-ENUM SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1379.    #Y(DEF-C-ENUM
  1380.       #90Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 0F 9D 5B 77 9E 5B
  1381.            78 AE 2E 02 62 DB AC 62 1A 23 AC 2E 01 19 03 86 01 00 1F 0B 9B 5B 1C
  1382.            04 9B 5B 5A F8 86 00 00 DC AB AE 7A 03 83 03 DD AB 60 02 F8 82 01 AB
  1383.            8C 97 5E 16 02 DE AC 71 4C DF B0 7A 02 7A 01 32 02 23 5C 19 07
  1384.           )
  1385.       2. SYSTEM::MACRO-CALL-ERROR CHECK-SYMBOL 0. DEFCONSTANT 1+ PROGN QUOTE
  1386.   )  )
  1387. #Y(#:TOP-LEVEL-FORM-46
  1388.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1389.    DEF-C-STRUCT SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1390.    #Y(DEF-C-STRUCT
  1391.       #52Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 1D 9D 5B 77 9E 5B
  1392.            78 DA DB AD DC AE 32 00 17 7B 02 DD AE DE B0 A1 7B 02 7A 03 60 03 19
  1393.            05 AC 2E 01 19 03
  1394.           )
  1395.       2. SYSTEM::MACRO-CALL-ERROR PROGN DEFSTRUCT #.#'FIRST DEF-C-TYPE C-STRUCT
  1396.   )  )
  1397. #Y(#:TOP-LEVEL-FORM-47
  1398.    #58Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 DC 2E 01 DC DA
  1399.         C8 79 31 84 DE 2E 01 DE DA CA 79 31 84 E0 2E 01 E0 DA CC 79 31 84 E2 2E
  1400.         01 E2 DA CE 79 31 84 CD 19 01
  1401.        )
  1402.    ELEMENT SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1403.    #Y(ELEMENT
  1404.       #70Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 21 9D 5B 77
  1405.            9E 5B 78 AB AE 7F 5C 01 1F 0B 93 01 24 02 06 AB 71 4A 23 00 0E DC AC
  1406.            9D 7B 02 C8 33 19 05 AC 2E 01 19 03 DA DB 9E 5B 77 9E 7B 02 60 02 19
  1407.            05
  1408.           )
  1409.       2. SYSTEM::MACRO-CALL-ERROR FOREIGN-VALUE %ELEMENT ELEMENT
  1410.       #1=#Y(ERR
  1411.             #24Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA DB 6D 03 04 93 03 DD AF
  1412.                  32 03 1F
  1413.                 )
  1414.             PROGRAM-ERROR "~S is only allowed after ~S: ~S"
  1415.             "~S ist nur nach ~S erlaubt: ~S" "~S n'est permis qu'aprΦs ~S: ~S"
  1416.             SYSTEM::LANGUAGE FOREIGN-VALUE
  1417.      )     )
  1418.    DEREF
  1419.    #Y(DEREF
  1420.       #65Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 1D 9D 5B 77
  1421.            AA AD 7F 5C 00 1F 0B 93 00 24 02 06 AA 71 4A 23 00 0D DC AB 7A 02 C8
  1422.            33 19 04 AC 2E 01 19 03 DA DB 9D 5B 77 7A 02 60 02 19 04
  1423.           )
  1424.       2. SYSTEM::MACRO-CALL-ERROR FOREIGN-VALUE %DEREF DEREF #1#
  1425.      )
  1426.    SLOT
  1427.    #Y(SLOT
  1428.       #71Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 22 9D 5B 77
  1429.            9E 5B 5B 77 AB AE 7F 5C 01 1F 0B 93 01 24 02 06 AB 71 4A 23 03 0E DD
  1430.            AC AC 7A 03 C9 33 19 05 AC 2E 01 19 03 DA DC 9E 5B 77 AD 7A 03 60 02
  1431.            19 05
  1432.           )
  1433.       3. SYSTEM::MACRO-CALL-ERROR FOREIGN-VALUE 2. %SLOT SLOT #1#
  1434.      )
  1435.    CAST
  1436.    #Y(CAST
  1437.       #74Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 22 9D 5B 77
  1438.            9E 5B 5B 77 AB AE 7F 5C 01 1F 0B 93 01 24 02 06 AB 71 4A 23 03 0E DE
  1439.            AC AC 7A 03 CA 33 19 05 AC 2E 01 19 03 DA DC 9E 5B 77 DD AE 7A 02 7A
  1440.            03 60 02 19 05
  1441.           )
  1442.       3. SYSTEM::MACRO-CALL-ERROR FOREIGN-VALUE 2. %CAST PARSE-C-TYPE CAST #1#
  1443.      )
  1444.    TYPEOF
  1445.    #Y(TYPEOF
  1446.       #65Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 1D 9D 5B 77
  1447.            AA AD 7F 5C 00 1F 0B 93 00 24 02 06 AA 71 4A 23 00 0D DD AB 7A 02 C9
  1448.            33 19 04 AC 2E 01 19 03 DB DC 9D 5B 77 7A 02 60 02 19 04
  1449.           )
  1450.       2. SYSTEM::MACRO-CALL-ERROR FOREIGN-VALUE DEPARSE-C-TYPE FOREIGN-TYPE
  1451.       TYPEOF #1#
  1452.   )  )
  1453. #Y(#:TOP-LEVEL-FORM-48
  1454.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1455.    SIZEOF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1456.    #Y(SIZEOF
  1457.       #84Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 2E 9D 5B 77
  1458.            AA AD 7F 5C 00 1F 0B 93 00 24 02 06 AA 71 4A 23 00 1E 9B 1F 0B 93 00
  1459.            24 05 06 AA 71 4A 23 00 17 DB DE 9D 14 60 02 14 60 02 19 04 AC 2E 01
  1460.            19 03 DB DC 9D 5B 5A 1A 6C DB 9C 5B 5A 1A 69
  1461.           )
  1462.       2. SYSTEM::MACRO-CALL-ERROR FOREIGN-VALUE %SIZEOF FOREIGN-TYPE
  1463.       DEPARSE-C-TYPE PARSE-C-TYPE
  1464.   )  )
  1465. #Y(#:TOP-LEVEL-FORM-49
  1466.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1467.    BITSIZEOF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1468.    #Y(BITSIZEOF
  1469.       #84Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 2E 9D 5B 77
  1470.            AA AD 7F 5C 00 1F 0B 93 00 24 02 06 AA 71 4A 23 00 1E 9B 1F 0B 93 00
  1471.            24 05 06 AA 71 4A 23 00 17 DB DE 9D 14 60 02 14 60 02 19 04 AC 2E 01
  1472.            19 03 DB DC 9D 5B 5A 1A 6C DB 9C 5B 5A 1A 69
  1473.           )
  1474.       2. SYSTEM::MACRO-CALL-ERROR FOREIGN-VALUE %BITSIZEOF FOREIGN-TYPE
  1475.       DEPARSE-C-TYPE PARSE-C-TYPE
  1476.   )  )
  1477.