[mcclim-cvs] CVS mcclim

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv26737

Modified Files:
	mcclim-gif-bitmaps.asd mcclim-jpeg-bitmaps.asd 
Log Message:
Patch from Cyrus Harmon that removes two unnecessary packages, and which
fixes a typo in mcclim-jpeg-bitmaps. 



--- /project/mcclim/cvsroot/mcclim/mcclim-gif-bitmaps.asd	2008/04/14 16:46:37	1.1
+++ /project/mcclim/cvsroot/mcclim/mcclim-gif-bitmaps.asd	2009/06/07 10:32:18	1.2
@@ -18,12 +18,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
 ;;; Boston, MA  02111-1307  USA.
 
-(cl:defpackage :mcclim-gif-bitmaps.system
-  (:use :asdf :cl))
-
-(cl:in-package :mcclim-gif-bitmaps.system)
-
-(defsystem :mcclim-gif-bitmaps
-           :description "Support for GIF images in McCLIM bitmap reading functions."
-           :depends-on (:mcclim :skippy)
-           :components ((:file "gif" :pathname #P"Extensions/Bitmap-formats/gif")))
+(asdf:defsystem :mcclim-gif-bitmaps
+  :description "Support for GIF images in McCLIM bitmap reading functions."
+  :depends-on (:mcclim :skippy)
+  :components ((:file "gif" :pathname #P"Extensions/Bitmap-formats/gif")))
--- /project/mcclim/cvsroot/mcclim/mcclim-jpeg-bitmaps.asd	2008/04/14 16:46:37	1.1
+++ /project/mcclim/cvsroot/mcclim/mcclim-jpeg-bitmaps.asd	2009/06/07 10:32:18	1.2
@@ -18,12 +18,8 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
 ;;; Boston, MA  02111-1307  USA.
 
-(cl:defpackage :mcclim-gif-bitmaps.system
-  (:use :asdf :cl))
+(asdf:defsystem :mcclim-jpeg-bitmaps
+  :description "Support for JPEG images in McCLIM bitmap reading functions."
+  :depends-on (:mcclim :cl-jpeg)
+  :components ((:file "jpeg" :pathname #P"Extensions/Bitmap-formats/jpeg")))
 
-(cl:in-package :mcclim-gif-bitmaps.system)
-
-(defsystem :mcclim-jpeg-bitmaps
-           :description "Support for JPEG images in McCLIM bitmap reading functions."
-           :depends-on (:mcclim :cl-jpeg)
-           :components ((:file "gif" :pathname #P"Extensions/Bitmap-formats/jpeg")))