Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Sat Jan 17 12:44:01 2004 UTC | revision 1.5 by pfdietz, Mon May 2 11:21:41 2005 UTC | |
---|---|---|
# | Line 47 | Line 47 |
47 | t) | t) |
48 | ||
49 | (deftest eval.error.3 | (deftest eval.error.3 |
50 | (signals-error (eval (list (gensym))) undefined-function) | (let ((v (gensym))) |
51 | (eval `(signals-error (eval (list ',v)) undefined-function | |
52 | :name ,v))) | |
53 | t) | t) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |