Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Sun Jun 20 20:06:23 2004 UTC | revision 1.7 by pfdietz, Mon Nov 29 13:23:38 2004 UTC | |
---|---|---|
# | Line 215 | Line 215 |
215 | #(a b c d e) | #(a b c d e) |
216 | 4) | 4) |
217 | ||
218 | (deftest pushnew.order.3 | |
219 | (let ((x '(a b c))) | |
220 | (values | |
221 | (pushnew (progn (setq x '(d e)) 'z) x) | |
222 | x)) | |
223 | (z d e) (z d e)) | |
224 | ||
225 | (deftest pushnew.error.1 | (deftest pushnew.error.1 |
226 | (signals-error | (signals-error |
227 | (let ((x '(a b))) | (let ((x '(a b))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |