/[gcl]/gcl/ansi-tests/cons-test-06.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-06.lsp

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

revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.3 by pfdietz, Mon Jan 13 23:19:51 2003 UTC
# Line 42  Line 42 
42  (deftest endp.error.5  (deftest endp.error.5
43    (classify-error (endp nil nil))    (classify-error (endp nil nil))
44    program-error)    program-error)
   
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
 ;;; null  
   
 (deftest null-1  
     (null nil)  
   t)  
   
 (deftest null-2  
     (not (some #'null  
                `(1 a 1.2 "a" #\w (a) ,*terminal-io*  
                    #'car (make-array '(10)))))  
   t)  
   
 (deftest null.error.1  
   (classify-error (null))  
   program-error)  
   
 (deftest null.error.2  
   (classify-error (null nil nil))  
   program-error)  
   
 (deftest not-1  
     (not nil)  
   t)  
   
 (deftest not-2  
     (not (some #'not  
                `(1 a 1.2 "a" #\w (a) ,*terminal-io*  
                    #'car (make-array '(10)))))  
   t)  
   
 (deftest not.error.1  
   (classify-error (not))  
   program-error)  
   
 (deftest not.error.2  
   (classify-error (not nil nil))  
   program-error)  
   
 (deftest typep-nil-null  
     (not (not (typep nil 'null)))  
   t)  
   
 (deftest typep-t-null  
     (typep t 'null)  
   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