X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=lml.asd;h=b07bcb0be26cda36b709829af137a07e3a58890f;hb=4ac92d423163d88b24caedd2ad0af0c84324d775;hp=ed9244fb9c5d7592298f323ac77d62e446567c36;hpb=e741d288978f9a65554235ecb3115db8eef60b54;p=lml.git

diff --git a/lml.asd b/lml.asd
index ed9244f..b07bcb0 100644
--- a/lml.asd
+++ b/lml.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: lml.asd,v 1.10 2002/09/30 10:26:43 kevin Exp $
+;;;; $Id: lml.asd,v 1.15 2003/06/06 21:59:30 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -16,29 +16,29 @@
 ;;;; (http://www.gnu.org/licenses/gpl.html)
 ;;;; *************************************************************************
 
-(in-package :asdf)
+(in-package #:cl-user)
+(defpackage #:lml-system (:use #:asdf #:cl))
+(in-package #:lml-system)
 
-(defsystem :lml
-  :name "cl-lml"
-  :author "Kevin M. Rosenberg <kmr@debian.org>"
-  :version "1.0.7"
+(defsystem lml
+  :name "lml"
+  :author "Kevin M. Rosenberg <kevin@rosenberg.net>"
+  :version "2.4"
   :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
   :licence "GNU General Public License"
   :description "Lisp Markup Language"
   :long-description "LML provides creation of XHTML for Lisp programs."
   
-  :perform (load-op :after (op lml)
-	    (pushnew :lml cl:*features*))
-  
   :components
   ((:file "package")
    (:file "utils" :depends-on ("package"))
    (:file "files" :depends-on ("utils"))
-   (:file "lml" :depends-on ("files"))
-   (:file "stdsite" :depends-on ("lml"))
-   (:file "downloads" :depends-on ("lml"))
+   (:file "base" :depends-on ("files"))
+   (:file "read-macro" :depends-on ("base"))
+   (:file "stdsite" :depends-on ("base"))
+   (:file "downloads" :depends-on ("base"))
    ))
 
-(when (ignore-errors (find-class 'load-compiled-op))
-  (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :lml))))
-    (pushnew :lml cl:*features*)))
+(defmethod perform ((o test-op) (c (eql (find-system 'lml))))
+  (operate 'load-op 'lml-tests)
+  (operate 'test-op 'lml-tests))