Parent Directory | Revision Log | 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))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |