1. xemacs
  2. ilisp

Source

ilisp / ilisp-pkg.lisp

Diff from to

File ilisp-pkg.lisp

  • Ignore whitespace
 ;;; incorporate DEFPACKAGE in their standard builds.
 ;;; Marco Antoniotti <marcoxa@icsi.berkeley.edu> 19960715
 ;;;
+;;; "The use of keyword and uninterned symbol names in the package
+;;; definition is a result of internecine wars during the ANSI
+;;; definition process. The solution to make CL case insensitive and
+;;; have the reader use uppercase appears, with the power of
+;;; hindsight, short-sighted. However, the backwardly incompatible
+;;; solution provided by Franz Inc seems a sub-optimal fix."
+;;; 27 March 2002 Will Deakin
 
 #-(and nil gcl)
-(defpackage "ILISP" (:use "COMMON-LISP" #+:CMU "CONDITIONS")
+(defpackage :ilisp (:use :common-lisp #+:CMU :conditions)
   ;; The following symbols should properly 'shadow' the inherited
   ;; ones.
-  (:export "ILISP-ERRORS"
-	   "ILISP-SAVE"
-	   "ILISP-RESTORE"
-	   "ILISP-SYMBOL-NAME"
-	   "ILISP-FIND-SYMBOL"
-	   "ILISP-FIND-PACKAGE"
-	   "ILISP-EVAL"
-	   "ILISP-COMPILE"
-	   "ILISP-DESCRIBE"
-	   "ILISP-INSPECT"
-	   "ILISP-ARGLIST"
-	   "ILISP-DOCUMENTATION"
-	   "ILISP-MACROEXPAND"
-	   "ILISP-MACROEXPAND-1"
-	   "ILISP-TRACE"
-	   "ILISP-UNTRACE"
-	   "ILISP-COMPILE-FILE-EXTENSION"
-	   "ILISP-COMPILE-FILE"
-	   "ILISP-CASIFY"
-	   "ILISP-MATCHING-SYMBOLS"
-	   "ILISP-CALLERS"
-	   "ILISP-SOURCE-FILES"
-	   "ILISP-PRINT-INFO-MESSAGE"
+  (:export #:ilisp-errors
+           #:ilisp-save
+           #:ilisp-restore
+           #:ilisp-symbol-name
+           #:ilisp-find-symbol
+           #:ilisp-find-package
+           #:ilisp-eval
+           #:ilisp-compile
+           #:ilisp-describe
+           #:ilisp-inspect
+           #:ilisp-arglist
+           #:ilisp-documentation
+           #:ilisp-macroexpand
+           #:ilisp-macroexpand-1
+           #:ilisp-trace
+           #:ilisp-untrace
+           #:ilisp-compile-file-extension
+           #:ilisp-compile-file
+           #:ilisp-casify
+           #:ilisp-matching-symbols
+           #:ilisp-callers
+           #:ilisp-source-files
+           #:ilisp-print-info-message
+           #+:SBCL #:sbcl-trace
+           #+:CMU #:cmulisp-trace
+           #+(or :SBCL :CMU) #:source-file
 	   )
   )
 ;;; ILISP --