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

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

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

revision 1.2 by pfdietz, Tue Oct 8 03:00:06 2002 UTC revision 1.3 by pfdietz, Tue Oct 8 03:06:25 2002 UTC
# Line 39  Line 39 
39    (typep '(lambda (x) x) 'function)    (typep '(lambda (x) x) 'function)
40    nil)    nil)
41    
42  ;;; (deftest function.7  (defun function-7-accessor-fn (x y) (setf (car x) y) y)
43  ;;;  (not (typep #'(setf car) 'function))  (defsetf function-7-accessor function-7-accessor-fn)
44  ;;;  nil)  
45    (deftest function.7
46      (not (typep #'(setf function-7-accessor) 'function))
47      nil)
48    
49  (deftest function.8  (deftest function.8
50    (not (typep #'(lambda (x) x) 'function))    (not (typep #'(lambda (x) x) 'function))

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