Sun Common Lisp 2.1.3 pcl problem

[egdorf%zaphod@LANL.GOV (Skip Egdorf @ Los Alamos National Laboratory)]

There is a problem with "5/5/89  Cinco de Mayo PCL" retrieved
May 11 (so the new fixes are in place) when used with Lucid
version 2.1.3.

Sun still distributes Lucid 2.1.3 as well as Lucid 3.0.2.
This seems to be due to unavailability of things like SPE
or third-party stuff like KEE on 3.0 yet. For (I guess)
similar reasons, I still use both Sun Common Lisp 2.1.3 and
3.0.2.

Pcl uses #+Lucid in a few places where #+Lcl3.0 should
really be used. In particular, the package Lucid-Common-Lisp
exists only in 3.0.
This problem existed in three places in 5/5 pcl, and only two
in the version retrieved today, so maybe the problem is known.

In any case, two fixes to defs.lisp and boot.lisp allow pcl to
compile, load, and run test.lisp under Sun Common Lisp 2.1.3
tested on a Sun-3/60 running SunOS 4.0.1.

% diff boot.lisp boot.lisp.orig
955,959c955,956
< 	 #+ (and :Lucid :Lcl3.0)
< 	 (lucid-common-lisp:*redefinition-action* nil)
< 	 #+ (and :Lucid (not :Lcl3.0))
< 	 (system:*redefinition-action* nil)
< 	)
---
> 	 #+Lucid
> 	 (lucid-common-lisp:*redefinition-action* nil))

%diff defs.lisp defs.lisp.orig
381,384c381
<   #+Lcl3.0 (let ((lucid-common-lisp::*redefinition-action* nil))
< 	    (setf (symbol-function symbol) new-definition))
<   #+(and :Lucid (not :Lcl3.0))
<   	  (let ((system::*redefinition-action* nil))
---
>   #+Lucid (let ((lucid-common-lisp::*redefinition-action* nil))

Until 2.1.3 goes away forever...

					Skip Egdorf
					hwe@lanl.gov