224 |
object. A proper fix will require rewriting sections of the lisp |
object. A proper fix will require rewriting sections of the lisp |
225 |
compiler to separate the calling procedures for functions returning |
compiler to separate the calling procedures for functions returning |
226 |
an object from functions returning a long. CM 20020801 */ |
an object from functions returning a long. CM 20020801 */ |
227 |
#if defined(__mc68020__) |
/* #if defined(__mc68020__) */ |
228 |
#define LCAST(a) (object)(*(long(*)())a) |
/* #define LCAST(a) (object)(*(long(*)())a) */ |
229 |
#else |
/* #else */ |
230 |
#define LCAST(a) (*a) |
#define LCAST(a) (*a) |
231 |
#endif |
/* #endif */ |
232 |
|
|
233 |
object |
object |
234 |
c_apply_n(object (*fn)(), int n, object *x) |
c_apply_n(object (*fn)(), int n, object *x) |