From: Christopher M. Whatley
Subject: Building PCL under AKCL
Date: 
Message-ID: <CHARI.91Aug19201802@sonia.ma.utexas.edu>
Since a couple of people have asked this lately, I thought I would
post something about this. This works with the 1990 version of pcl
with AKCL 1-599 or greater. Here is a patch that should be applied to
kcl-low.lisp after you make fixed-for-akcl below. This only seems to
cause problems with gcc on the NeXT. 

*** kcl-low.lisp.orig   Tue May  1 13:35:09 1990
--- kcl-low.lisp        Tue Aug  6 00:05:21 1991
***************
*** 151,157 ****
    fn)

  #+akcl (clines "#define AKCL206")
!
  (clines "
  object set_cclosure (result_cc,value_cc,available_size)
  object result_cc,value_cc; int available_size;
--- 151,157 ----
    fn)

  #+akcl (clines "#define AKCL206")
! (defentry %set-cclosure (object object int) (object set_cclosure))
  (clines "
  object set_cclosure (result_cc,value_cc,available_size)
  object result_cc,value_cc; int available_size;

Now, here is a makefile that worked for me...

# makefile by Schelter for use with akcl (version 492) and pcl (may 1 1990).
# to compile type 'make'.  Later to make a saved image type make saved_pcl
LISP=akcl

PRELIMS= '(in-package "PCL")(setq *pathname-extensions* (cons "lisp" "o"))' \
	'(setq *pcl-directory* (truename "./"))(use-fast-links nil)(load "defsys.lisp") '

# for may1 1990 pcl:
pcl-90: fixed-for-akcl 
	echo '(setq compiler::*compile-ordinaries* t)' \
	$(PRELIMS)'(pcl::compile-pcl)' | ${LISP}

# patch the kcl-low.lisp--just a little C error. 
fixed-for-akcl:
	mv kcl-low.lisp kcl-low.lisp.orig
	cat kcl-low.lisp.orig | sed -e "s:->cc_env:->cc.cc_env:g" > kcl-low.lisp
	date > fixed-for-akcl

saved_pcl:
	echo ${PRELIMS} '(load "/u/chari/clx/provide.l")' '(pcl::load-pcl)'  \
	'(si::save-system "saved_pcl")' | ${LISP}

--


-- 
	 Chris Whatley - The UNIX Guy - UT-Austin Mathematics
     E-mail: ·····@{math,emx,cs}.utexas.edu, ·····@gnu.ai.mit.edu
	    (NeXT Mail format acceptable but not desired)
		   Ph: 512/471-7107(O),499-0475(H)

"I shall not cause harm to any vehicle, nor the personal contents
thereof, nor through inaction let that vehicle or the personal
contents thereof come to harm."
					-- The Repo Code