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

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

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

revision 1.2 by pfdietz, Sat Jan 17 18:38:50 2004 UTC revision 1.3 by pfdietz, Fri May 6 13:34:41 2005 UTC
# Line 10  Line 10 
10  ;;; Error tests  ;;; Error tests
11    
12  (deftest logeqv.error.1  (deftest logeqv.error.1
13    (loop for x in *mini-universe*    (check-type-error #'logeqv #'integerp)
         unless (or (integerp x)  
                    (eval `(signals-error (logeqv ',x) type-error)))  
         collect x)  
14    nil)    nil)
15    
16  (deftest logeqv.error.2  (deftest logeqv.error.2
17    (loop for x in *mini-universe*    (check-type-error #'(lambda (x) (logeqv 0 x)) #'integerp)
         unless (or (integerp x)  
                    (eval `(signals-error (logeqv 0 ',x) type-error)))  
         collect x)  
18    nil)    nil)
19    
20  ;;; Non-error tests  ;;; Non-error tests

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