From: Eric Ho
Subject: compile broke in clue/intrinsics.lisp
Date: 
Message-ID: <EHO.89Sep7160407@word.Princeton.EDU>
I've got this patch to PCL from TI and after I've applied it to PCL, I still
can't compile clue/intrinsics.lisp.

Here is the patch that I referred to :-

==========================================
>From ·········@dsg.csc.ti.com Wed Sep  6 21:45:52 1989
>To: ···@clarity (Eric Ho)
>Subject: Re: defcontact.lisp bug ?  & intrinsics.lisp (compile long) ??
>Date: Wed, 6 Sep 89  20:04:35 CDT
>
>   > Also, how come that compiling intrinsics.lisp is taking me ages -- I'm doing
>   > it on a Sun-4/260HM-40 running SunOS 4.0.1 & Sun Common Lisp 3.0 + X11R3.
>
>Probably because you're seeing a well-known PCL bug. See below for the fix.
>
>-------------
>Date: Wed, 2 Aug 1989 19:42:01 PDT
>From: Sayuri Nishimura <······@sumex-aim.stanford.edu>
>Subject: Re: compiling clue with victoria day pcl 
>To:   ······@cs.ucla.edu (S. Mujica)
>
>This is a patch to Victoria Day pcl which is given by Gregor that should 
>fix your problem. I had the same problem.
>sayuri
>
>26-May-89 21:11:08-GMT,6116;000000000001
>From: ·········@xerox.com
>Subject: EQL bug in Victoria Day PCL
>To: ··············@xerox.com
>
>There is a bug in Victoria Day PCL with certain uses of EQL
>specializers.  I believe that this bug could also strike people doing
>simple meta-level programming, but have not heard any reports of such.  
>
>The following patch should deal with this problem.  You can either put
>this in a separate file and compile and load that on top of PCL, or you
>can make the changes to the PCL sources and recompile.
>
>;from file defs.lisp (this is an addition)
>(defvar *notice-methods-change-force-p* ())
>
>;from file boot.lisp
>(defun fix-early-generic-functions (&optional noisyp)
>  (allocate-instance (find-class 'standard-generic-function));Be sure this
>	......
>	......
>	    (set-function-name gf gf-spec)
>	    (setf (generic-function-name gf) gf-spec)
>	    (real-add-method gf method)
>	    (setf (gdefinition gf-spec) gf)))))))
>
>;from file methods.lisp
>(defun notice-methods-change (generic-function)
>  (let ((old-discriminator-code
>	......
>	......
>		     (apply old-discriminator-code args)
>		     (error "Tried to call an invalid generic function ~
>                              that never was valid at all."))
>		 (notice-methods-change-2 generic-function args)))))))
>-------

==========================================

Here is a transcript of my (compile-clue) :-
I'm doing the built by rlogin to cognito and do the compile in GNU Emacs.

==========================================
[Local lisp host]

SunOS Release 4.0 (COGNITO) #1: Tue Jun 27 18:52:36 EDT 1989

** Cognito is a Dataless Sun-4/260HM-40 -- Warp factor 2 **

;;; 
;;; Sun Common Lisp, Development Environment 3.0.0, 27 October 1988
;;; Sun-4 Version for SunOS 4.0 
;;;
;;; Copyright (c) 1985, 1986, 1987, 1988 by Sun Microsystems, Inc., All Rights Reserved
;;; Copyright (c) 1985, 1986, 1987, 1988 by Lucid, Inc., All Rights Reserved
;;;
;;; This software product contains confidential and trade secret
;;; information belonging to Sun Microsystems.  It may not be copied
;;; for any reason other than for archival and backup purposes.

> (load "voodoo.lisp")
;;; Loading source file "voodoo.lisp"
;;; Warning: File "voodoo.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "defsystem.lisp"
;;; Warning: File "defsystem.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading foreign object file "socket.o"
;;; Reading library file "/lib/libc.a"
;;; Reading library file "/lib/libc.a"
;;; Loading binary file "depdefs.sbin"
;;; Loading binary file "clx.sbin"
;;; Loading binary file "dependent.sbin"
;;; Loading binary file "buffer.sbin"
;;; Loading binary file "display.sbin"
;;; Loading binary file "gcontext.sbin"
;;; Loading binary file "requests.sbin"
;;; Loading binary file "input.sbin"
;;; Loading binary file "fonts.sbin"
;;; Loading binary file "graphics.sbin"
;;; Loading binary file "text.sbin"
;;; Loading binary file "attributes.sbin"
;;; Loading binary file "translate.sbin"
;;; Loading binary file "keysyms.sbin"
;;; Loading binary file "manager.sbin"
;;; Loading binary file "image.sbin"
;;; Loading binary file "resource.sbin"
;;; Loading source file "defsys.lisp"
Loading binary of PKG...
Loading binary of WALK...
Loading binary of ITERATE...
Loading binary of MACROS...
Loading binary of LOW...
Loading binary of LUCID-LOW...
;;; Warning: Redefining macro %LOGAND which used to be defined in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
;;; Warning: Redefining macro %ASH which used to be defined in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
;;; Warning: Redefining macro WITHOUT-INTERRUPTS which used to be defined in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
;;; Warning: Redefining macro MAKE-MEMORY-BLOCK which used to be defined in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
;;; Warning: Redefining function IWMC-CLASS-P which used to be defined in structure IWMC-CLASS in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
;;; Warning: Redefining macro OBJECT-CACHE-NO which used to be defined in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
;;; Warning: Redefining function SET-FUNCTION-NAME-1 which used to be defined in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
;;; Warning: Redefining function PRINTING-RANDOM-THING-INTERNAL which used to be defined in "/usr/local/sclisp-3.0/pcl-new/macros.lisp"
Loading binary of FIN...
Loading binary of DEFS...
Loading binary of BOOT...
Loading binary of VECTOR...
Loading binary of SLOTS...
Loading binary of INIT...
Loading binary of DEFCLASS...
Loading binary of STD-CLASS...
Loading binary of POINTS...
Loading binary of BRAID1...
Loading binary of FSC...
Loading binary of METHODS...
Loading binary of COMBIN...
Loading binary of DCODE...
Loading binary of PRECOM1...
Loading binary of PRECOM2...
Loading binary of PRECOM3...
Loading binary of PRECOM4...
Loading binary of FIXUP...
;;; You are using the compiler in development mode (compilation-speed = 3)
;;; Generation of full safety checking code is enabled (safety = 3)
;;; Optimization of tail calls is disabled (speed = 2)
;;; Warning: Redefining function PRINT-IWMC-CLASS which used to be defined in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
;;; Warning: Redefining function CHECK-INITARGS-1 which used to be defined in "init.lisp"
Loading binary of CONSTRUCT...
Loading binary of ENV...
Loading binary of HIGH...
;;; Warning: Redefining function BUILT-IN-WRAPPER-OF which used to be defined in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
;;; Warning: Redefining function BUILT-IN-CLASS-OF which used to be defined in "/usr/local/sclisp-3.0/pcl-new/low.lisp"
Loading binary of COMPAT...
;;; Loading source file "defsystem.lisp"
;;; Warning: Redefining function CLX-FOREIGN-FILES which used to be defined in "/usr/local/sclisp-3.0/clx-ti/defsystem.lisp"
; Loading   /usr/lisp/clx/macros.sbin
; Loading   /usr/lisp/clx/bufmac.sbin
; Compiling /usr/lisp/clue/clue.lisp
;;; Reading source file "/usr/lisp/clue/clue.lisp"
;;; Writing binary file "/usr/lisp/clue/clue.sbin"
; Loading   /usr/lisp/clue/clue.sbin
; Compiling /usr/lisp/clue/clx-patch.lisp
;;; Reading source file "/usr/lisp/clue/clx-patch.lisp"
;;; Writing binary file "/usr/lisp/clue/clx-patch.sbin"
; Loading   /usr/lisp/clue/clx-patch.sbin
;;; Warning: Redefining function CREATE-WINDOW which used to be defined in "/people/eho/clx-ti/requests.lisp"
; Compiling /usr/lisp/clue/window-doc.lisp
;;; Reading source file "/usr/lisp/clue/window-doc.lisp"
;;; Writing binary file "/usr/lisp/clue/window-doc.sbin"
; Loading   /usr/lisp/clue/window-doc.sbin
; Compiling /usr/lisp/clue/gc-cache.lisp
;;; Reading source file "/usr/lisp/clue/gc-cache.lisp"
;;; While compiling FIND-GCONTEXT
;;; Warning: Variable DISPLAY is bound but not referenced
;;; Writing binary file "/usr/lisp/clue/gc-cache.sbin"
; Loading   /usr/lisp/clue/gc-cache.sbin
; Compiling /usr/lisp/clue/defcontact.lisp
;;; Reading source file "/usr/lisp/clue/defcontact.lisp"
;;; Writing binary file "/usr/lisp/clue/defcontact.sbin"
;;; While compiling top level forms
;;; Warning: The following function is not known to be defined:
;;;          CONVERT was referenced by DO-CONVERT
; Loading   /usr/lisp/clue/defcontact.sbin
; Compiling /usr/lisp/clue/intrinsics.lisp
;;; Reading source file "/usr/lisp/clue/intrinsics.lisp"
>>Error: The value of ARRAY, NIL, should be of type (ARRAY * (*))

LUCID-RUNTIME-SUPPORT:1DIM-AREF-SUBR:
:C  0: Use a new value
:A  1: Abort to Lisp Top Level

-> :a
Abort to Lisp Top Level
;;; Compilation of file "/usr/lisp/clue/intrinsics.lisp" aborted,
;;; object file not written
;;; Warning: The following functions are not known to be defined:
;;;          MAKE-CONTACT was referenced by OPEN-CONTACT-DISPLAY
;;;          GET-CONTACT-RESOURCE-TABLE was referenced by
;;;             top level forms
;;; Abnormal exit of load "voodoo.lisp"
Back to Lisp Top Level

> (quit)

Process lisp finished

==========================================

Here is my voodoo.lisp :-
==========================================
;;;; |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;;;;
;;;; Title: 	
;;;;
;;;; Created:	Wed Sep  6 15:36:41 1989 
;;;;
;;;; Author:	Operator <····@cognito> 
;;;;
;;;; Comment:	
;;;;
;;;; |||||||||||||||||||||||||||||||||||||||||||||||||||||||||

;;; ==========================================

(cd "/usr/lisp/clx")
(load "defsystem")
(load-clx)

(cd "/usr/lisp/pcl")
(load "defsys")
(pcl::load-pcl)

(cd "/usr/lisp/clue")
(load "defsystem")
(compile-clue)

;;; ==========================================

;;;; |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;;;;		   END  OF  /usr/lisp/clue/voodoo.lisp
;;;; ||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 


Any pointers will be much appreciated.
--

Eric Ho
Cognitive Science Lab.,		Princeton University
voice = 609-258-2987		email = ···@confidence.princeton.edu
	609-258-2819 (messages)		···@bogey.princeton.edu

regards.

-eric-