1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: xmlutils.asd
6 ;;;; Purpose: ASDF definition file for Xmlutils
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Sep 2002
10 ;;;; $Id: xmlutils.asd,v 1.3 2002/10/16 03:45:52 kevin Exp $
12 ;;;; This file, part of cl-xmlutils, is Copyright (c) 2002 by Kevin M. Rosenberg
14 ;;;; cl-xmlutils users are granted the rights to distribute and use this software
15 ;;;; as governed by the terms of the GNU Lesser General Public License
16 ;;;; (http://www.gnu.org/licenses/lgpl.html)
17 ;;;; *************************************************************************
21 #-allegro (require :acl-compat)
24 (eval-when (:compile-toplevel :load-toplevel :execute)
25 (defvar system::*stack-overflow-behavior* :warn)
26 (setq system::*stack-overflow-behavior* :warn))
31 :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
32 :licence "GNU Lesser General Public License"
33 :description "Franz's Test Harness Package"
34 :long-description "Xmlutils provides a library for parsing HTML and XML documents."
36 :perform (load-op :after (op xmlutils)
37 (pushnew :xmlutils cl:*features*))
42 (:file "pxml1" :depends-on ("pxml0"))
43 (:file "pxml2" :depends-on ("pxml1"))
44 (:file "pxml3" :depends-on ("pxml2"))
47 (when (ignore-errors (find-class 'load-compiled-op))
48 (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :xmlutils))))
49 (pushnew :xmlutils cl:*features*)))
51 (defmethod source-file-type ((c cl-source-file) (s (eql (find-system :xmlutils))))