annotate nt/ad2c.sed @ 4728:d0ea57eb3de4

Don't error if handed a string and a non-string, #'equalp. tests/ChangeLog addition: 2009-11-01 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Check that (equal "hi there" [hi there]) gives nil, instead of erroring; fixes a bug Ben introduced in 2002. lisp/ChangeLog addition: 2009-11-01 Aidan Kehoe <kehoea@parhasard.net> * cl-extra.el (equalp): Don't error if handed a string and a non-string.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 01 Nov 2009 15:05:46 +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