/[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.16 by pfdietz, Tue May 27 14:25:01 2003 UTC revision 1.17 by pfdietz, Tue Jul 1 02:08:54 2003 UTC
# Line 376  Line 376 
376  ;;; Initializer forms are evaluated only when needed, and are  ;;; Initializer forms are evaluated only when needed, and are
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 (load eval)  (eval-when #+gcl (load eval)
380               #-gcl (:load-toplevel)
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.16  
changed lines
  Added in v.1.17

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