[lgtk-cvs] CVS update: lgtk/lgtk-examples.asd lgtk/lgtk.asd

[Mario Mommer]

Update of /project/lgtk/cvsroot/lgtk
In directory common-lisp.net:/tmp/cvs-serv30494

Modified Files:
	lgtk-examples.asd lgtk.asd 
Log Message:
Each asd has its own package and does not clutter cl-user.

Date: Wed Oct 29 12:43:37 2003
Author: mmommer

Index: lgtk/lgtk-examples.asd
diff -u lgtk/lgtk-examples.asd:1.1.1.1 lgtk/lgtk-examples.asd:1.2
--- lgtk/lgtk-examples.asd:1.1.1.1	Mon Oct 27 14:14:40 2003
+++ lgtk/lgtk-examples.asd	Wed Oct 29 12:43:37 2003
@@ -5,6 +5,12 @@
 ;; This code comes under the terms of the modified BSD license ("sans
 ;; advertising clause"). See the file COPYING for details.
 
+
+(defpackage #:lgtk-examples-asd
+  (:use :cl :asdf))
+
+(in-package :lgtk-examples-asd)
+
 (defsystem lgtk-examples
 
   :components


Index: lgtk/lgtk.asd
diff -u lgtk/lgtk.asd:1.1.1.1 lgtk/lgtk.asd:1.2
--- lgtk/lgtk.asd:1.1.1.1	Mon Oct 27 14:14:41 2003
+++ lgtk/lgtk.asd	Wed Oct 29 12:43:37 2003
@@ -5,6 +5,11 @@
 ;; This code comes under the terms of the modified BSD license ("sans
 ;; advertising clause"). See the file COPYING for details.
 
+(defpackage #:lgtk-asd
+  (:use :cl :asdf))
+
+(in-package :lgtk-asd)
+
 ;; Split a string at whitespace.
 (defun splitatspc (str)
   (labels ((whitespace-p (c)