X-Git-Url: http://git.kpe.io/?p=pubmed.git;a=blobdiff_plain;f=pubmed.asd;h=86b611879fa8dde20a548035b9ec43f6b44667ec;hp=f7657ceeb88391435828e0da4a02a72559990960;hb=eeb5a7ef4b756d4b1d99e3eb8da563ca48047417;hpb=d335b5cf5b01963d8d65cefda7906f7df544cf4f

diff --git a/pubmed.asd b/pubmed.asd
index f7657ce..86b6118 100644
--- a/pubmed.asd
+++ b/pubmed.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2002
 ;;;;
-;;;; $Id: pubmed.asd,v 1.1 2002/10/26 17:06:07 kevin Exp $
+;;;; $Id: pubmed.asd,v 1.6 2003/06/12 02:38:39 kevin Exp $
 ;;;;
 ;;;; This file, part of cl-pubmed, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -16,32 +16,28 @@
 ;;;; (http://www.gnu.org/licenses/lgpl.html)
 ;;;; *************************************************************************
 
-(in-package :asdf)
+(in-package #:cl-user)
+(defpackage #:pubmed-system (:use #:asdf #:cl))
+(in-package #:pubmed-system)
 
-#+(allegro common-lisp-controller) (c-l-c::clc-require :aserve)
-#+(allegro (not common-lisp-controller)) (require :aserve)
+
+#+(and allegro common-lisp-controller) (c-l-c::clc-require :aserve)
+#+(and allegro (not common-lisp-controller)) (require :aserve)
 
 ;; only define system on implementations that aserve is available
-#+(or allegro lispworks cmucl mcl openmcl)
-(defsystem :pubmed
+(defsystem pubmed
   :name "cl-pubmed"
   :author "Kevin M. Rosenberg <kevin@rosenberg.net>"
-  :version "1.0"
+  :version "2.1"
   :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
   :licence "GNU Lesser General Public License"
   :description "Library for querying the PubMed medical literature database"
   :long-description "This library has functions for querying the PubMed medical literature database and parsing the XML results into Common Lisp objects."
   
-  :perform (load-op :after (op pubmed)
-	    (pushnew :pubmed cl:*features*))
-  
-  :components ((:file "pubmed"))
+  :components ((:file "package")
+	       (:file "pubmed-src" :depends-on ("package")))
   
   :depends-on (:kmrcl #-allegro :aserve))
 
-;; only define system on implementations that aserve is available
-#+(or allegro lispworks cmucl mcl openmcl)
-(when (ignore-errors (find-class 'load-compiled-op))
-  (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :pubmed))))
-    (pushnew :pubmed cl:*features*)))
+