r3357: remove load-compile-op from .asd file

diff --git a/debian/changelog b/debian/changelog
index 20f2cad893fafc173105bc45b9de2c490ebaca47..02142bad1558aeb6209cf6626ffc2f26da3482ae 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-pubmed (2.0.1-1) unstable; urgency=low
+
+  * Remove 'load-compiled-op from .asd file
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri,  8 Nov 2002 09:44:18 -0700
+

 cl-pubmed (2.0-1) unstable; urgency=low
 
   * Rename classes and accessors to be more friendly for importing into 
 cl-pubmed (2.0-1) unstable; urgency=low
 
   * Rename classes and accessors to be more friendly for importing into 

diff --git a/pubmed.asd b/pubmed.asd
index c50d5d840384541849ba58f5db4beada2d8410aa..07dfdab64013dd6ab87a96e1dc901bf8908bb821 100644 (file)
--- a/pubmed.asd
+++ b/pubmed.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2002
 ;;;;
 ;;;; 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.3 2002/11/08 16:51:40 kevin Exp $

 ;;;;
 ;;;; This file, part of cl-pubmed, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
 ;;;;
 ;;;; 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
 #+(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>"
 (defsystem :pubmed
   :name "cl-pubmed"
   :author "Kevin M. Rosenberg <kevin@rosenberg.net>"


@@ -39,9 +39,5 @@
   
   :depends-on (:kmrcl #-allegro :aserve))
 
   
   :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*)))
+