X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=lml.asd;fp=lml.asd;h=0e5c4b5ae7178406b9338e3990c4a6afb9c2c3c0;hb=a77a3f28b733bb260a3c4dc8760d65da2d5c9e39;hp=fadf607ce6622369618908c307b9032397c640b3;hpb=e096a26b30542ee3d768d1c6ade28cc34303cb6a;p=lml.git

diff --git a/lml.asd b/lml.asd
index fadf607..0e5c4b5 100644
--- a/lml.asd
+++ b/lml.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: lml.asd,v 1.8 2002/09/19 23:32:37 kevin Exp $
+;;;; $Id: lml.asd,v 1.9 2002/09/20 06:37:38 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -21,7 +21,7 @@
 (defsystem :lml
   :name "cl-lml"
   :author "Kevin M. Rosenberg <kmr@debian.org>"
-  :version "1.0.5"
+  :version "1.0.7"
   :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
   :licence "GNU General Public License"
   :description "Lisp Markup Language"
@@ -41,3 +41,7 @@
 
 (defmethod source-file-type  ((c cl-source-file) (s (eql (find-system 'lml)))) 
    "cl")
+
+(when (ignore-errors (find-class 'load-compiled-op))
+  (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :lml))))
+    (pushnew :lml cl:*features*)))