- defsymbol(&Q_byte, "byte");
- defsymbol(&Q_unsigned_byte, "unsigned-byte");
- defsymbol(&Q_char, "char");
- defsymbol(&Q_unsigned_char, "unsigned-char");
- defsymbol(&Q_short, "short");
- defsymbol(&Q_unsigned_short, "unsigned-short");
- defsymbol(&Q_int, "int");
- defsymbol(&Q_unsigned_int, "unsigned-int");
- defsymbol(&Q_long, "long");
- defsymbol(&Q_unsigned_long, "unsigned-long");
- defsymbol(&Q_float, "float");
- defsymbol(&Q_double, "double");
- defsymbol(&Q_void, "void");
- defsymbol(&Q_pointer, "pointer");
- defsymbol(&Q_struct, "struct");
- defsymbol(&Q_union, "union");
- defsymbol(&Q_array, "array");
- defsymbol(&Q_function, "function");
- defsymbol(&Q_c_string, "c-string");
- defsymbol(&Q_c_data, "c-data");
-
- defsymbol(&Qffiobjectp, "ffiobjectp");
-
- defsymbol(&Qffi_translate_to_foreign, "ffi-translate-to-foreign");
- defsymbol(&Qffi_translate_from_foreign, "ffi-translate-from-foreign");
-
- defsymbol(&Q_ffi_callback, "ffi-callback");
+ DEFSYMBOL(Qarray);
+ DEFSYMBOL(Qbyte);
+ DEFSYMBOL(Qc_data);
+ DEFSYMBOL(Qc_string);
+ DEFSYMBOL(Qdouble);
+ DEFSYMBOL(Qlong);
+ DEFSYMBOL(Qstruct);
+ DEFSYMBOL(Qunion);
+ DEFSYMBOL(Qunsigned_byte);
+ DEFSYMBOL(Qunsigned_char);
+ DEFSYMBOL(Qunsigned_int);
+ DEFSYMBOL(Qunsigned_long);
+ DEFSYMBOL(Qunsigned_short);
+
+ /* ### This is broken, the lrecord needs to be called ffi_object,
+ and then this would be a DEFSYMBOL_MULTIWORD_PREDICATE(). Not
+ doing it in this commit, though. */
+ defsymbol(&Qffiobjectp, "ffi-object-p");
+
+ DEFSYMBOL(Qffi_translate_to_foreign);
+ DEFSYMBOL(Qffi_translate_from_foreign);
+
+ DEFSYMBOL(Qffi_callback);