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