r5062: return from san diego

[pubmed.git] / pubmed.asd

diff --git a/pubmed.asd b/pubmed.asd
index f7657ceeb88391435828e0da4a02a72559990960..01cbbd41adc0ac198b73a4a6e7e7d5a7e26d44b8 100644 (file)
--- 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.4 2003/05/06 16:24:49 kevin Exp $
 ;;;;
 ;;;; This file, part of cl-pubmed, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -18,11 +18,11 @@
 
 (in-package :asdf)
 
-#+(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)
+#+(or allegro lispworks cmucl mcl openmcl scl clisp)
 (defsystem :pubmed
   :name "cl-pubmed"
   :author "Kevin M. Rosenberg <kevin@rosenberg.net>"
@@ -32,16 +32,9 @@
   :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 "src"))
   
   :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*)))
+