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