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)