/[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.11 by pfdietz, Mon Feb 17 11:54:02 2003 UTC revision 1.12 by pfdietz, Tue Jul 1 02:08:54 2003 UTC
# Line 46  Line 46 
46    (functionp '(lambda (x) x))    (functionp '(lambda (x) x))
47    nil)    nil)
48    
49  (eval-when (eval compile)  (eval-when #+gcl (eval compile)
50               #-gcl (:load-toplevel :compile-toplevel)
51    (ignore-errors    (ignore-errors
52      (defun (setf functionp-7-accessor) (y x) (setf (car x) y) y)))      (defun (setf functionp-7-accessor) (y x) (setf (car x) y) y)))
53    

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

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