/[gcl]/gcl/ansi-tests/not-and-null.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/not-and-null.lsp

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

revision 1.1 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 23:19:51 2003 UTC
# Line 17  Line 17 
17    (some #'(lambda (x) (and x (null x))) *universe*)    (some #'(lambda (x) (and x (null x))) *universe*)
18    nil)    nil)
19    
20    (deftest null.4
21        (not (some #'null
22                   `(1 a 1.2 "a" #\w (a) ,*terminal-io*
23                       #'car (make-array '(10)))))
24      t)
25    
26    (deftest null.error.1
27      (classify-error (null))
28      program-error)
29    
30    (deftest null.error.2
31      (classify-error (null nil nil))
32      program-error)
33    
34  (deftest not.1  (deftest not.1
35    (not nil)    (not nil)
36    t)    t)
# Line 29  Line 43 
43    (some #'(lambda (x) (and x (not x))) *universe*)    (some #'(lambda (x) (and x (not x))) *universe*)
44    nil)    nil)
45    
46    (deftest not.4
47        (not (some #'not
48                   `(1 a 1.2 "a" #\w (a) ,*terminal-io*
49                       #'car (make-array '(10)))))
50      t)
51    
52    
53    (deftest not.error.1
54      (classify-error (not))
55      program-error)
56    
57    (deftest not.error.2
58      (classify-error (not nil nil))
59      program-error)

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