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

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

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

revision 1.2 by pfdietz, Tue Aug 5 02:45:06 2003 UTC revision 1.3 by pfdietz, Mon Sep 1 21:40:11 2003 UTC
# Line 14  Line 14 
14  (deftest min.error.2  (deftest min.error.2
15    (loop for x in *mini-universe*    (loop for x in *mini-universe*
16          unless (or (realp x)          unless (or (realp x)
17                     (eq (classify-error** `(classify-error (min ',x)))                     (eq (eval `(classify-error (min ',x)))
18                         'type-error))                         'type-error))
19          collect x)          collect x)
20    nil)    nil)

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

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