r5062: return from san diego

[pubmed.git] / pubmed.asd

diff --git a/pubmed.asd b/pubmed.asd
index c50d5d840384541849ba58f5db4beada2d8410aa..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.2 2002/10/31 01:54:12 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
 ;;;;
@@ -22,7 +22,7 @@
 #+(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*)))
+