annotate nt/ad2c.sed @ 4608:1e3cf11fa27d

Make #$ truly read-only for Lisp; check this in the test suite. lisp/ChangeLog addition: 2009-02-10 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el : Check that #$ is not modifiable from Lisp, and that load-file-name is modifiable from Lisp. src/ChangeLog addition: 2009-02-10 Aidan Kehoe <kehoea@parhasard.net> * lread.c (Fload_internal): Make load-file-name-internal readonly for Lisp code; make load-file-name a modifiable copy. (init_lread): Initialised Vload_file_name_internal, Vload_file_name to nil on each post-dump start.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 10 Feb 2009 16:07:31 +0000
parents 4be1180a9e89
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
100
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
1 /^!/d
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
2 /^$/d
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
3 s/\\/\\\\/g
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
4 s/\\$//g
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
5 s/"/\\"/g
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
6 s/^/(String) "/
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
7 : test
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
8 /\\$/b slash
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
9 s/$/",/
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
10 p
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
11 d
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
12 : slash
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
13 n
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
14 /^!/d
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
15 /^$/d
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
16 s/"/\\"/g
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
17 s/\\\\/\\/g
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
18 s/\\n/\\\\n/g
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
19 s/\\t/\\\\t/g
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
20 s/\\f/\\\\f/g
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
21 s/\\b/\\\\b/g
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
22 b test