/[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.12 by pfdietz, Tue Jul 1 13:06:30 2003 UTC revision 1.13 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 47  Line 47 
47    (typep '(lambda (x) x) 'function)    (typep '(lambda (x) x) 'function)
48    nil)    nil)
49    
50  (eval-when #+gcl (eval compile)  (report-and-ignore-errors
51             #-gcl (:load-toplevel :compile-toplevel :execute)   (defun (setf function-7-accessor) (y x) (setf (car x) y) y))
   (ignore-errors  
     (defun (setf function-7-accessor) (y x) (setf (car x) y) y)))  
52    
53  (deftest function.7  (deftest function.7
54    (not-mv (typep #'(setf function-7-accessor) 'function))    (not-mv (typep #'(setf function-7-accessor) 'function))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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