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

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

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

revision 1.7 by pfdietz, Mon Feb 17 04:22:04 2003 UTC revision 1.8 by pfdietz, Tue Jul 1 02:08:54 2003 UTC
# Line 27  Line 27 
27    (not-mv (fboundp 'fboundp-5-fn))    (not-mv (fboundp 'fboundp-5-fn))
28    nil)    nil)
29    
30  (eval-when (eval compile)  (eval-when #+gcl (eval compile)
31               #-gcl (:load-toplevel :compile-toplevel)
32    (ignore-errors    (ignore-errors
33      (defun (setf fboundp-6-accessor) (y x) (setf (car x) y))))      (defun (setf fboundp-6-accessor) (y x) (setf (car x) y))))
34    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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