/[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.8 by pfdietz, Tue Jul 1 02:08:54 2003 UTC revision 1.9 by pfdietz, Tue Jul 1 13:06:30 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 #+gcl (eval compile)  (eval-when #+gcl (eval compile load)
31             #-gcl (:load-toplevel :compile-toplevel)             #-gcl (:load-toplevel :compile-toplevel :execute)
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.8  
changed lines
  Added in v.1.9

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