diff options
Diffstat (limited to 'nyqsrc/seqext.h')
| -rw-r--r-- | nyqsrc/seqext.h | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/nyqsrc/seqext.h b/nyqsrc/seqext.h new file mode 100644 index 0000000..0727e77 --- /dev/null +++ b/nyqsrc/seqext.h @@ -0,0 +1,14 @@ +/* seqext.h -- header for seq extensions for xlisp */ + + +void seqext_init(); +void seqext_symbols(); +boolean seqp(); + +extern xtype_desc seq_desc; +extern LVAL s_seq; + +#define cvptrbool(v) ((LVAL) ((v) ? s_true : NIL)) +#define cvseq(v) ((LVAL) ((v) ? cvextern(seq_desc, (void *)(v)) : NIL)) +#define xlgaseq() (testarg(typearg(seqp))) +#define getseq(x) ((seq_type) getinst(x)) |