annotate nt/xemacs.dsw @ 5772:cd4f5f1f1f4c

Add #'write-sequence, on the model of #'write-char, API from Common Lisp. src/ChangeLog addition: 2013-12-17 Aidan Kehoe <kehoea@parhasard.net> * lisp.h: * lisp.h (PARSE_KEYWORDS_8): Correct this in cases where we can have noticeably fewer arguments than KEYWORDS_OFFSET, check whether nargs > pk_offset. Declare check_sequence_range in this header. * print.c: * print.c (Fwrite_sequence) New: Write a sequence to a stream, in the same way #'write-char and #'terpri do. API from Common Lisp, not GNU, so while there is some char-int confoundance, it's more limited than usual with GNU APIs. * print.c (syms_of_print): Make it available. * sequence.c (check_sequence_range): Export this to other files. lisp/ChangeLog addition: 2013-12-17 Aidan Kehoe <kehoea@parhasard.net> * cl-extra.el: * cl-extra.el (write-string): New. * cl-extra.el (write-line): New. Add these here, implemented in terms of #'write-sequence in print.c. tests/ChangeLog addition: 2013-12-17 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Up max-lisp-eval-depth when compiling this file, some of what we're doing in testing #'write-sequence is demanding. * automated/lisp-tests.el (make-circular-list): New argument VALUE, the car of the conses to create. * automated/lisp-tests.el: Test #'write-sequence, #'write-string, #'write-line with function, buffer and marker STREAMs; test argument types, keyword argument ranges and values.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 17 Dec 2013 19:29:10 +0200
parents 2a199f37e01f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3363
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
1 Microsoft Developer Studio Workspace File, Format Version 6.00
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
2 # WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
3
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
4 ###############################################################################
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
5
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
6 Project: "xemacs"=".\xemacs.dsp" - Package Owner=<4>
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
7
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
8 Package=<5>
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
9 {{{
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
10 }}}
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
11
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
12 Package=<4>
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
13 {{{
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
14 }}}
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
15
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
16 ###############################################################################
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
17
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
18 Global:
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
19
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
20 Package=<5>
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
21 {{{
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
22 }}}
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
23
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
24 Package=<3>
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
25 {{{
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
26 }}}
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
27
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
28 ###############################################################################
2a199f37e01f [xemacs-hg @ 2006-04-26 21:22:22 by adrian]
adrian
parents: 442
diff changeset
29