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

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

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

revision 1.4 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.5 by pfdietz, Mon Jan 13 23:19:51 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
 (deftest compiled-function-p.1  
   (some #'(lambda (obj)  
              (if (compiled-function-p obj)  
                  (not (typep obj 'compiled-function))  
                (typep obj 'compiled-function)))  
          *universe*)  
   nil)  
   
 (deftest compiled-function-p.2  
   (compiled-function-p '(lambda (x y) (cons y x)))  
   nil)  
   
 (deftest compiled-function-p.3  
   (not (compiled-function-p (compile nil '(lambda (y x) (cons x y)))))  
   nil)  
   
8  (deftest compile.1  (deftest compile.1
9    (progn    (progn
10      (fmakunbound 'compile.1-fn)      (fmakunbound 'compile.1-fn)

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

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