doc/declt.cl

   1 ;;; declt.cl --- Declt availability checking script
   2
   3 ;; Copyright (C) 2011 Didier Verna
   4
   5 ;; Author:        Didier Verna <didier@lrde.epita.fr>
   6 ;; Maintainer:    Didier Verna <didier@lrde.epita.fr>
   7
   8 ;; This file is part of Clon.
   9
  10 ;; Permission to use, copy, modify, and distribute this software for any
  11 ;; purpose with or without fee is hereby granted, provided that the above
  12 ;; copyright notice and this permission notice appear in all copies.
  13
  14 ;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  15 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  16 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  17 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  18 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  19 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  20 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  21
  22
  23 ;;; Commentary:
  24
  25 ;; Contents management by FCM version 0.1.
  26
  27
  28 ;;; Code:
  29
  30 (with-open-file (stream "declt.inc" :direction :output :if-exists :supersede)
  31   (princ "TEXI_REF :=" stream)
  32   (handler-case
  33       (progn (asdf:operate 'asdf:load-op :com.dvlsoft.declt)
  34              (princ " reference.texi" stream))
  35   (asdf:missing-component ()
  36     (format *error-output* "~
  37 *********************************************************************
  38 * WARNING: ASDF component COM.DVLSOFT.DECLT not found.              *
  39 * The Clon reference manual will not be generated.                  *
  40 *********************************************************************")))
  41   (terpri stream))
  42
  43 (sb-ext:quit)
  44
  45
  46 ;;; declt.cl ends here