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

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

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

revision 1.10 by pfdietz, Fri Jan 24 04:22:54 2003 UTC revision 1.11 by pfdietz, Mon Feb 17 11:54:02 2003 UTC
# Line 80  Line 80 
80    (flet ((%f () nil)) (not-mv (functionp #'%f)))    (flet ((%f () nil)) (not-mv (functionp #'%f)))
81    nil)    nil)
82    
83    (deftest functionp.order.1
84      (let ((i 0))
85        (values
86         (notnot (functionp (progn (incf i) #'cons)))
87         i))
88      t 1)
89    
90  (deftest functionp.error.1  (deftest functionp.error.1
91    (classify-error (functionp))    (classify-error (functionp))
92    program-error)    program-error)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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