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

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

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

revision 1.1 by pfdietz, Sun Feb 22 13:33:58 2004 UTC revision 1.2 by pfdietz, Sun Jun 26 14:52:06 2005 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest packagep.1  (deftest packagep.1
9    (loop    (check-type-predicate #'packagep 'package)
10     for x in *universe* count    nil)
    (unless (eqt (not (packagep x))  
                 (not (typep x 'package)))  
            (format t  
                    "(packagep ~S) = ~S, (typep x 'package) = ~S~%"  
                    x (packagep x) x (typep x 'package))  
            t))  
   0)  
11    
12  ;;; *package* is always a package  ;;; *package* is always a package
13    

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