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

Diff of /gcl/ansi-tests/logandc2.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 logandc2.error.1  (deftest logandc2.error.1
13    (loop for x in *mini-universe*    (check-type-error #'(lambda (x) (logandc2 x 0)) #'integerp)
         unless (or (integerp x)  
                    (eval `(signals-error (logandc2 ',x 0) type-error)))  
         collect x)  
14    nil)    nil)
15    
16  (deftest logandc2.error.2  (deftest logandc2.error.2
17    (loop for x in *mini-universe*    (check-type-error #'(lambda (x) (logandc2 0 x)) #'integerp)
         unless (or (integerp x)  
                    (eval `(signals-error (logandc2 0 ',x) type-error)))  
         collect x)  
18    nil)    nil)
19    
20  (deftest logandc2.error.3  (deftest logandc2.error.3

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