cgit.sxemacs.org Git - packages/blob - xemacs-packages/ilisp/ilisp-pkg.lisp

   1 ;;; -*- Mode: Lisp -*-
   2
   3 ;;; ilisp-pkg.lisp --
   4 ;;; ANSI CL DEFPACKAGE definition for ILISP.
   5 ;;;
   6 ;;; Common Lisp initializations
   7 ;;;
   8 ;;; Author: Marco Antoniotti, marcoxa@cs.nyu.edu
   9 ;;;
  10 ;;; This file is part of ILISP.
  11 ;;; Please refer to the file COPYING for copyrights and licensing
  12 ;;; information.
  13 ;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
  14 ;;; of present and past contributors.
  15 ;;;
  16 ;;; $Id: ilisp-pkg.lisp,v 1.4 2002-05-30 13:59:20 wbd Exp $
  17
  18 ;;;----------------------------------------------------------------------------
  19 ;;; Prologue
  20
  21 #+(or allegro-v4.0 allegro-v4.1)
  22 (eval-when (compile load eval)
  23   (setq excl:*cltl1-in-package-compatibility-p* t))
  24
  25
  26 ;;;----------------------------------------------------------------------------
  27 ;;; Definitions
  28
  29 ;;; ILISP package --
  30
  31 ;;;
  32 ;;; GCL 2.2 doesn't have defpackage (yet) so we need to put the export
  33 ;;; here. (toy@rtp.ericsson.se)
  34 ;;;
  35 ;;; Please note that while the comment and the fix posted by Richard
  36 ;;; Toy are correct, they are deprecated by at least one of the ILISP
  37 ;;; maintainers. :) By removing the 'nil' in the following #+, you
  38 ;;; will fix the problem but will not do a good service to the CL
  39 ;;; community.  The right thing to do is to install DEFPACKAGE in your
  40 ;;; GCL and to write the GCL maintainers and to ask them to
  41 ;;; incorporate DEFPACKAGE in their standard builds.
  42 ;;; Marco Antoniotti <marcoxa@icsi.berkeley.edu> 19960715
  43 ;;;
  44 ;;; "The use of keyword and uninterned symbol names in the package
  45 ;;; definition is a result of internecine wars during the ANSI
  46 ;;; definition process. The solution to make CL case insensitive and
  47 ;;; have the reader use uppercase appears, with the power of
  48 ;;; hindsight, short-sighted. However, the backwardly incompatible
  49 ;;; solution provided by Franz Inc seems a sub-optimal fix."
  50 ;;; 27 March 2002 Will Deakin
  51
  52 #-(and nil gcl)
  53 (defpackage :ilisp (:use :common-lisp #+:CMU :conditions)
  54   ;; The following symbols should properly 'shadow' the inherited
  55   ;; ones.
  56   (:export #:ilisp-errors
  57            #:ilisp-save
  58            #:ilisp-restore
  59            #:ilisp-symbol-name
  60            #:ilisp-find-symbol
  61            #:ilisp-find-package
  62            #:ilisp-eval
  63            #:ilisp-compile
  64            #:ilisp-describe
  65            #:ilisp-inspect
  66            #:ilisp-arglist
  67            #:ilisp-documentation
  68            #:ilisp-macroexpand
  69            #:ilisp-macroexpand-1
  70            #:ilisp-trace
  71            #:ilisp-untrace
  72            #:ilisp-compile-file-extension
  73            #:ilisp-compile-file
  74            #:ilisp-casify
  75            #:ilisp-matching-symbols
  76            #:ilisp-callers
  77            #:ilisp-source-files
  78            #:ilisp-print-info-message
  79            #+:SBCL #:sbcl-trace
  80            #+:CMU #:cmulisp-trace
  81            #+(or :SBCL :CMU) #:source-file
  82            )
  83   )
  84 ;;; ILISP --
  85
  86 ;;; end of file -- ilisp-pkg.lisp --