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)))