[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-common.lisp

[Heinrich Konrad Taube]

Update of /project/lambda-gtk/cvsroot/lambda-gtk
In directory common-lisp.net:/tmp/cvs-serv12088

Modified Files:
	lambda-gtk-common.lisp 
Log Message:
put generated package exports inside eval-when
Date: Tue Dec  6 18:42:53 2005
Author: htaube

Index: lambda-gtk/lambda-gtk-common.lisp
diff -u lambda-gtk/lambda-gtk-common.lisp:1.2 lambda-gtk/lambda-gtk-common.lisp:1.3
--- lambda-gtk/lambda-gtk-common.lisp:1.2	Mon Dec 13 03:51:23 2004
+++ lambda-gtk/lambda-gtk-common.lisp	Tue Dec  6 18:42:52 2005
@@ -595,6 +595,7 @@
   (let ((*print-case* ':downcase))
     (terpri fil)
     (format fil postlude-string)
+    (format fil "~%(eval-when (:load-toplevel :execute)~%")
     (when g-exports
       (pprint `(export ',(reverse g-exports) :g)
               fil))
@@ -612,5 +613,5 @@
               fil))
     (terpri fil)
     (pprint '(pushnew ':gtk *features*) fil)
-    (format fil "~%~%;;; end generated output~%~%")
+    (format fil "~%)~%~%;;; end generated output~%~%")
     (values)))