kmrcl.asd

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          kmrcl.asd
   6 ;;;; Purpose:       ASDF system definition for KMRCL package
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Apr 2000
   9 ;;;;
  10 ;;;; $Id: kmrcl.asd,v 1.11 2002/10/15 22:41:53 kevin Exp $
  11 ;;;;
  12 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; KMRCL users are granted the rights to distribute and use this software
  15 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  17 ;;;; *************************************************************************
  18
  19 #+allegro (require :pxml)
  20 #+allegro (require :aserve)
  21
  22 (in-package :asdf)
  23
  24 (defsystem :kmrcl
  25     :perform (load-op :after (op kmrcl)
  26                       (pushnew :kmrcl cl:*features*))
  27
  28     :components
  29     ((:file "package")
  30      (:file "genutils" :depends-on ("package"))
  31      (:file "strings" :depends-on ("package"))
  32      #+(or allegro lispworks) (:file "equal" :depends-on ("package"))
  33      (:file "buff-input" :depends-on ("genutils"))
  34      (:file "telnet-server" :depends-on ("genutils"))
  35      (:file "pipes" :depends-on ("package"))
  36      (:file "random" :depends-on ("package"))
  37      (:file "cl-symbols" :depends-on ("package"))
  38      #+allegro (:file "attrib-class" :depends-on ("package"))
  39      (:file "web-utils" :depends-on ("package"))
  40      (:file "xml-utils" :depends-on ("package"))
  41      #+(or allegro lispworks cmu sbcl) (:file "ml-class" :depends-on ("strings" "genutils"))
  42      #+(or allegro aserve) (:file "web-utils-aserve" :depends-on ("strings" "genutils"))
  43      )
  44     #+(or lispworks cmu)
  45     :depends-on
  46     #+(or lispworks cmu)
  47     (:aserve)
  48     )
  49
  50 (when (ignore-errors (find-class 'load-compiled-op))
  51   (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :kmrcl))))
  52     (pushnew :kmrcl cl:*features*)))
  53