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

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

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

revision 1.3 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.4 by pfdietz, Mon Jan 13 23:19:51 2003 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest complement.1  (deftest complement.1
9    (not (funcall (cl::complement #'identity) nil))    (not (funcall (complement #'identity) nil))
10    nil)    nil)
11    
12  (deftest complement.2  (deftest complement.2
13    (funcall (cl::complement #'identity) t)    (funcall (complement #'identity) t)
14    nil)    nil)
15    
16  (deftest complement.3  (deftest complement.3
# Line 24  Line 24 
24      (loop for i from 2 to (min 256 (1- call-arguments-limit))      (loop for i from 2 to (min 256 (1- call-arguments-limit))
25            always (progn            always (progn
26                     (push #\a x)                     (push #\a x)
27                     (apply (cl::complement #'char=) x))))                     (apply (complement #'char=) x))))
28    t)    t)
29    
30  (deftest complement.5  (deftest complement.5
31    (classify-error (complement))    (classify-error (complement))
32    program-error)    program-error)
33    
   
34  (deftest complement.6  (deftest complement.6
35    (classify-error (complement #'not t))    (classify-error (complement #'not t))
36    program-error)    program-error)

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

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