Mercurial > hg > xemacs-beta
comparison src/lstream.h @ 5118:e0db3c197671 ben-lisp-object
merge up to latest default branch, doesn't compile yet
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Sat, 26 Dec 2009 21:18:49 -0600 |
parents | 1e7cc382eb16 |
children | d1247f3cc363 |
comparison
equal
deleted
inserted
replaced
5117:3742ea8250b5 | 5118:e0db3c197671 |
---|---|
28 | 28 |
29 /************************************************************************/ | 29 /************************************************************************/ |
30 /* definition of Lstream object */ | 30 /* definition of Lstream object */ |
31 /************************************************************************/ | 31 /************************************************************************/ |
32 | 32 |
33 DECLARE_LRECORD (lstream, struct lstream); | 33 DECLARE_LISP_OBJECT (lstream, struct lstream); |
34 #define XLSTREAM(x) XRECORD (x, lstream, struct lstream) | 34 #define XLSTREAM(x) XRECORD (x, lstream, struct lstream) |
35 #define wrap_lstream(p) wrap_record (p, lstream) | 35 #define wrap_lstream(p) wrap_record (p, lstream) |
36 #define LSTREAMP(x) RECORDP (x, lstream) | 36 #define LSTREAMP(x) RECORDP (x, lstream) |
37 /* #define CHECK_LSTREAM(x) CHECK_RECORD (x, lstream) | 37 /* #define CHECK_LSTREAM(x) CHECK_RECORD (x, lstream) |
38 Lstream pointers should never escape to the Lisp level, so | 38 Lstream pointers should never escape to the Lisp level, so |