/[gcl]/gcl/ansi-tests/structures-02.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/structures-02.lsp

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

revision 1.17 by pfdietz, Tue Jul 1 02:08:54 2003 UTC revision 1.18 by pfdietz, Tue Jul 1 13:06:30 2003 UTC
# Line 377  Line 377 
377  ;;; evaluated in the lexical environment in which they were defined  ;;; evaluated in the lexical environment in which they were defined
378    
379  (eval-when #+gcl (load eval)  (eval-when #+gcl (load eval)
380             #-gcl (:load-toplevel)             #-gcl (:load-toplevel :execute)
381    (let ((x nil))    (let ((x nil))
382      (flet ((%f () x)      (flet ((%f () x)
383            (%g (y) (setf x y)))            (%g (y) (setf x y)))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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