Path: utzoo!attcan!uunet!ingr!b14!clark
From: clark@b14.ingr.com (Clark Williams)
Newsgroups: comp.lang.lisp
Subject: Problems porting KCL/AKCL
Keywords: KCL AKCL problems porting Intergraph
Message-ID: <130@b14.ingr.com>
Date: 16 Dec 88 20:12:16 GMT
Reply-To: clark@b14.ingr.com (Clark Williams)
Followup-To: comp.lang.lisp
Organization: Intergraph Corp., Huntsville, AL
Lines: 83

I am trying to bring up AKCL on an Intergraph Interpro 240 workstation. This
machine runs System V release 3.1 on the Intergraph Clipper chip set.

AKCL is dying while trying to load code, prior to dumping a saved_kcl. I have
dug deep enough to find that the problem starts when raw_kcl is loading the
file autoload.lsp, and occurs at the following bit of code:

	 (defvar *type-list*
	     '(cons
	     fixnum bignum ratio short-float long-float complex
	     character symbol package hash-table
	     array vector string bit-vector
	     structure stream random-state readtable pathname
	     cfun cclosure spice))

The output from an attempt to build KCL is:

	     KCl (Kyoto Common Lisp)  June 1987  8192 pages
	     In Autoload.lsp
	     NEXT STATEMENT is (defvar *type-list*)!!!
	     Error: #<OBJNULL> is not of type SYMBOL.
	     Error signalled by SYSTEM:*MAKE-SPECIAL.

	     Error: 0 is an illegal frs index.
	     Error signalled by SYSTEM:UNIVERSAL-ERROR-HANDLER.

     [ Many instances of the above error deleted ]

	     Unrecoverable error: bind stack overflow.
	     sh: 1947 abort - core dumped

However, if I change the 'defvar' to look like this:

	    (defvar *type-list*)
	    (setq *type-list* 
		    '(cons
		      fixnum bignum ratio short-float long-float complex
		      character symbol package hash-table
		      array vector string bit-vector
		      structure stream random-state readtable pathname
		      cfun cclosure spice))

I get the following DIFFERENT error output:

	    KCl (Kyoto Common Lisp)  June 1987  8192 pages
	    In Autoload.lsp
	    NEXT STATEMENT is (defvar *type-list*)!!!

	    >#<"COMPILER" package>

	    COMPILER>#<"SYSTEM" package>

	    SYSTEM>#<"USER" package>

	    >#<"LISP" package>

	    LISP>#<"SLOOP" package>

	    SLOOP>#<"USER" package>

	    >
	    Error: Cannot find the external symbol *SYSTEM-DIRECTORY* in #<"SYSTEM" package>.
	    Error signalled by READ.

	    Broken at READ.  Type :H for Help.

     [ Many other strange and wonderful error messages deleted ]



Has ANYONE ever seen this sort of error when porting KCL/AKCL? I do not have 
a clue as to where to begin looking for the problem. Hash table routines?
Package routines? Ouija board routines? Oops, I mean binding routines?
I would appreciate any suggestions (even the ones telling me to junk this 
mother! ;-)


	
-- 
                        _   /|       |    Clark Williams
          Ack Thippfft! \'o.O`       |    Intergraph Corp.
                        =(___)=      |    ...uunet!ingr!b14!clark
                           U         |    (205) 772-6881