/[gcl]/gcl/ansi-tests/eval.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/eval.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26