/[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.1 by pfdietz, Mon Oct 7 12:31:17 2002 UTC revision 1.2 by pfdietz, Tue Oct 8 03:00:06 2002 UTC
# Line 39  Line 39 
39    (functionp '(lambda (x) x))    (functionp '(lambda (x) x))
40    nil)    nil)
41    
42  (deftest functionp.7  ;;; (deftest functionp.7
43    (not (functionp #'(setf car)))  ;;;  (not (functionp #'(setf car)))
44    nil)  ;;;   nil)
45    
46  (deftest functionp.8  (deftest functionp.8
47    (not (functionp #'(lambda (x) x)))    (not (functionp #'(lambda (x) x)))

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