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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Wed Feb 11 12:32:02 2004 UTC revision 1.2 by pfdietz, Thu May 5 03:08:56 2005 UTC
# Line 94  Line 94 
94  (deftest acos.error.3  (deftest acos.error.3
95    (loop for x in *mini-universe*    (loop for x in *mini-universe*
96          unless (or (numberp x)          unless (or (numberp x)
97                     (eval `(signals-error (acos ',x) type-error)))                     (eval `(signals-type-error x ',x (acos x))))
98          collect x)          collect x)
99    nil)    nil)
   
   
   
   

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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