PATCH: flush obsolete ACL kruft from cl-ilisp.lisp

   ILISP has no business setting excl:*cltl1-in-package-compatibility-p*
-- and it's no longer needed in any case.  Plus a few other ACL cleanups
while I was there.

					-- Bob Rogers
					   http://rgrjr.dyndns.org/

------------------------------------------------------------------------
Index: cl-ilisp.lisp
===================================================================
RCS file: /cvsroot/ilisp/ILISP/cl-ilisp.lisp,v
retrieving revision 1.14
diff -u -r1.14 cl-ilisp.lisp
--- cl-ilisp.lisp	5 Sep 2002 13:33:03 -0000	1.14
+++ cl-ilisp.lisp	10 Sep 2002 20:11:19 -0000
@@ -36,12 +36,6 @@
 ;;;
 ;;;
 
-
-#+(or allegro-v4.0 allegro-v4.1)
-(eval-when (compile load eval)
-  (setq excl:*cltl1-in-package-compatibility-p* t))
-
-
 (in-package :ilisp)
 
 ;;;
@@ -162,9 +156,8 @@
   handlers
   (if (macro-function 'handler-case)
       `(handler-case ,expression ,@handlers)
-      #+allegro `(excl::handler-case ,expression ,@handlers)
       #+lucid `(lucid::handler-case ,expression ,@handlers)
-      #-(or allegro lucid) expression))
+      #-lucid expression))
 
 
 ;;; ilisp-readtable-case --
@@ -173,15 +166,12 @@
 ;;; READTABLE-CASE is ANSI.  However, I feel magnanimous today, so I
 ;;; leave the check in to make it easier for non conforming
 ;;; implementations.
+;;; [but a #+allegro case is no longer needed.  -- rgr, 10-Sep-02.]
 
 (defun ilisp-readtable-case (readtable)
   (if (fboundp 'readtable-case)
       (readtable-case readtable)
-      #+allegro (case excl:*current-case-mode*
-		  (:case-insensitive-upper :upcase)
-		  (:case-insensitive-lower :downcase)
-		  (otherwise :preserve))
-      #-allegro :upcase))
+      :upcase))
 
 ;;;
 (defmacro ilisp-errors (form)


-------------------------------------------------------
This sf.net email is sponsored by: OSDN - Tired of that same old
cell phone?  Get a new here for FREE!
https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390