;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: lml.asd,v 1.8 2002/09/19 23:32:37 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; (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.5"
+(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"))
))
-(defmethod source-file-type ((c cl-source-file) (s (eql (find-system 'lml))))
- "cl")
+(defmethod perform ((o test-op) (c (eql (find-system 'lml))))
+ (operate 'load-op 'lml-tests)
+ (operate 'test-op 'lml-tests))