/[gcl]/gcl/ansi-tests/compiled-function-p.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/compiled-function-p.lsp

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

revision 1.1 by pfdietz, Mon Jan 13 23:19:51 2003 UTC revision 1.2 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 7  Line 7 
7    
8  (deftest compiled-function-p.1  (deftest compiled-function-p.1
9    (some #'(lambda (obj)    (some #'(lambda (obj)
10               (if (compiled-function-p obj)               (if (check-values (compiled-function-p obj))
11                   (not (typep obj 'compiled-function))                   (not (typep obj 'compiled-function))
12                 (typep obj 'compiled-function)))                 (typep obj 'compiled-function)))
13           *universe*)           *universe*)
# Line 18  Line 18 
18    nil)    nil)
19    
20  (deftest compiled-function-p.3  (deftest compiled-function-p.3
21    (not (compiled-function-p (compile nil '(lambda (y x) (cons x y)))))    (notnot-mv (compiled-function-p (compile nil '(lambda (y x) (cons x y)))))
22    nil)    t)
23    
24  (deftest compiled-function-p.error.1  (deftest compiled-function-p.error.1
25    (classify-error (compiled-function-p))    (classify-error (compiled-function-p))

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