/[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.2 by pfdietz, Fri Jan 24 04:22:54 2003 UTC revision 1.3 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 21  Line 21 
21    (notnot-mv (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    t)    t)
23    
24    (deftest compiled-function-p.order.1
25      (let ((i 0))
26        (values
27         (compiled-function-p (progn (incf i) '(lambda () nil)))
28         i))
29      nil 1)
30    
31  (deftest compiled-function-p.error.1  (deftest compiled-function-p.error.1
32    (classify-error (compiled-function-p))    (classify-error (compiled-function-p))
33    program-error)    program-error)

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