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