/[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.18 by pfdietz, Tue Jul 1 13:06:30 2003 UTC revision 1.19 by pfdietz, Sat Jul 12 13:46:01 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 #+gcl (load eval)  (eval-when (:load-toplevel :execute)
            #-gcl (:load-toplevel :execute)  
380    (let ((x nil))    (let ((x nil))
381      (flet ((%f () x)      (flet ((%f () x)
382            (%g (y) (setf x y)))            (%g (y) (setf x y)))

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

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