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.13 2002/10/17 00:25:05 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 #+(or lispworks cmu) (ignore-errors (require :aserve))
  22
  23 (in-package :asdf)
  24
  25 (defsystem :kmrcl
  26     :perform (load-op :after (op kmrcl)
  27                       (pushnew :kmrcl cl:*features*))
  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 scl) (:file "ml-class" :depends-on ("strings" "genutils"))
  42      #+(or allegro aserve) (:file "web-utils-aserve" :depends-on ("strings" "genutils"))
  43      ))
  44
  45 (when (ignore-errors (find-class 'load-compiled-op))
  46   (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :kmrcl))))
  47     (pushnew :kmrcl cl:*features*)))
  48