🚀 go-pugleaf

Help!!

I tried to compile PCL (rev4) on Lucid version 4.0 running on a
MIPS processor. I followed the instruction in "defsys.lisp" very
closely. When it tried to load "braid.mbin" while doing (pcl::compile-pcl),
it ran into the following problem:

	Loading binary of BRAID...
	>>Trap: Interrupt: illegal instruction

	0:
	:C  0: Try loading #P"/u2/alee/pcl/mayday/zbin/braid.mbin" again
	:A  1: Abort to Lisp Top Level

	->

I tried several things like trying to load it again, compiling it again,
but with no success.

I am including a simplified version of the log of what went on below.
Did anyone out there try this and make it work? Any help would be greatly
appreciated.

Thanks,

-Art Lee
 Dept. of Computer Science
 University of Utah
 Salt Lake City, Utah 84112
 alee@cs.utah.edu

---------------------------cut here----------------------------------------
;;; Lucid Common Lisp/MIPS
;;; Development Environment Version 4.0 Beta 2, 9 July 1990
;;; Copyright (C) 1985, 1986, 1987, 1988, 1989, 1990 by Lucid, Inc.
;;; All Rights Reserved
;;;
;;; This software product contains confidential and trade secret information
;;; belonging to Lucid, Inc.  It may not be copied for any reason other than
;;; for archival and backup purposes.
;;;
;;; Lucid Common Lisp is a trademark of Lucid, Inc.
;;; MIPS is a trademark of MIPS Computer Systems, Inc.
;;;
;;; This is a preliminary version to be used for testing purposes only.

;;; Loading source file "/u2/alee/lisp-init.lisp"

> (in-package 'user)
#<Package "USER" 10018946>

> (proclaim '(optimize (speed 0) (safety 3) (compilation-speed 3)))
T

;;; I first tried with the following optimize parameters before I tried
;;; the above. It gave me the same problem.
;;; (proclaim '(optimize (speed 3) (safety 0) (compilation-speed 0)))

> (setq *load-if-source-only* :load-source)
:LOAD-SOURCE

> (setq *load-if-source-newer* :load-binary)
:LOAD-BINARY

> (lcl:change-memory-management :growth-limit 1500)
T

> (lcl:change-memory-management :growth-rate 45)
T

> (setq *load-binary-pathname-types* (list "dbin"))
("dbin")

> (cd "/cdrs2/software-dist/mips/lucid/4.0beta2/patches")
#P"/import/roma/cdrs2/software-dist/mips/lucid/4.0beta2/patches/"

> (load "bug-5482")
;;; Loading binary file "bug-5482.dbin"
;;; Warning: Redefining function COLLECT-COMMON-SYMBOLS whose source-file was not recorded
#P"/import/roma/cdrs2/software-dist/mips/lucid/4.0beta2/patches/bug-5482.dbin"

> (load "bug-5648")
;;; Loading binary file "bug-5648.dbin"
;;; Warning: Redefining function EPHEMERAL-GC whose source-file was not recorded
#P"/import/roma/cdrs2/software-dist/mips/lucid/4.0beta2/patches/bug-5648.dbin"

> (setq *load-binary-pathname-types* (list "mbin"))
("mbin")

> (cd "/u2/alee/pcl/mayday/")
#P"/import/roma/u2/alee/pcl/mayday/"

> (load "defsys.lisp")
;;; Loading source file "defsys.lisp"
#P"/import/roma/u2/alee/pcl/mayday/defsys.lisp"

> *load-binary-pathname-types*
("mbin")

> pcl::*pathname-extensions*
("lisp" . "mbin")

> (pcl::compile-pcl)
Compiling PKG...
;;; You are using the compiler in development mode (compilation-speed = 3)
;;; Generation of full safety checking code is enabled (safety = 3)
;;; Generation of inline code is disabled (speed = 0)
;;; Reading source file "/u2/alee/pcl/mayday/pkg.lisp"
;;; Writing binary file "/u2/alee/pcl/mayday/zbin/pkg.mbin"
Loading binary of PKG...
Compiling WALK...
Loading binary of WALK...
Compiling ITERATE...
Loading binary of ITERATE...
Compiling MACROS...
Loading binary of MACROS...
Compiling LOW...
Loading binary of LOW...
Compiling LUCID-LOW...
Loading binary of LUCID-LOW...
Compiling FIN...
Loading binary of FIN...
Compiling DEFCLASS...
Loading binary of DEFCLASS...
Compiling DEFS...
Loading binary of DEFS...
Compiling FNGEN...
Loading binary of FNGEN...
Compiling LAP...
Loading binary of LAP...
Compiling PLAP...
Loading binary of PLAP...
Compiling CACHE...
Loading binary of CACHE...
Compiling DLAP...
Loading binary of DLAP...
Compiling BOOT...
Loading binary of BOOT...
Compiling VECTOR...
Loading binary of VECTOR...
Compiling SLOTS...
Loading binary of SLOTS...
Compiling INIT...
Loading binary of INIT...
Compiling STD-CLASS...
Loading binary of STD-CLASS...
Compiling CPL...
Loading binary of CPL...
Compiling BRAID...
;;; Reading source file "/u2/alee/pcl/mayday/braid.lisp"
;;; Writing binary file "/u2/alee/pcl/mayday/zbin/braid.mbin"
Loading binary of BRAID...
>>Trap: Interrupt: illegal instruction

0:
:C  0: Try loading #P"/u2/alee/pcl/mayday/zbin/braid.mbin" again
:A  1: Abort to Lisp Top Level

-> :b
0 <-
 BOOTSTRAP-META-BRAID <-
 unnamed function <-
 LUCID-COMMON-LISP:FASLOAD <-
 (:INTERNAL LOAD LUCID::LOAD-BINARY-FILE) <-
 LOAD <-
 LOAD-BINARY <-
 LOAD-MODULE <-
 OPERATE-ON-SYSTEM <-
 COMPILE-PCL <-
 EVAL <-
 SYSTEM:ENTER-TOP-LEVEL
-> :n
BOOTSTRAP-META-BRAID:
-> :v
BOOTSTRAP-META-BRAID:
   Local 0: 12
   Local 1: #<#<std-instance> 2023633766>
   Local 2: #<Simple-Vector T 12 104F383E>
   Local 3: #<#<std-instance> 2023634366>
   Local 4: #<Simple-Vector T 12 104F393E>
   Local 5: #<#<std-instance> 2023634766>
   Local 6: #<#<std-instance> 2023635076>
   Local 7: #<Simple-Vector T 12 104F3A86>
   Local 8: #<Simple-Vector T 12 104F3B3E>
   Local 9: (EARLY-CLASS-DEFINITION EQL-SPECIALIZER #P"/import/roma/u2/alee/pcl/mayday/defs.lisp" STANDARD-CLASS (SPECIALIZER) ((:NAME OBJECT :READERS (EQL-SPECIALIZER-OBJECT) :WRITERS NIL :INITARGS (:OBJECT))) NIL)
   Local 10: ((EARLY-CLASS-DEFINITION EQL-SPECIALIZER #P"/import/roma/u2/alee/pcl/mayday/defs.lisp" STANDARD-CLASS (SPECIALIZER) ((:NAME OBJECT :READERS (EQL-SPECIALIZER-OBJECT) :WRITERS NIL :INITARGS (:OBJECT))) NIL) (EARLY-CLASS-DEFINITION STANDARD-EFFECTIVE-SLOT-DEFINITION #P"/import/roma/u2/alee/pcl/mayday/defs.lisp" STANDARD-CLASS (STANDARD-SLOT-DEFINITION EFFECTIVE-SLOT-DEFINITION) NIL NIL) (EARLY-CLASS-DEFINITION STANDARD-DIRECT-SLOT-DEFINITION #P"/import/roma/u2/alee/pcl/mayday/defs.lisp" STANDARD-





CLASS (STANDARD-SLOT-DEFINITION DIRECT-SLOT-DEFINITION) NIL NIL) (EARLY-CLASS-DEFINITION STANDARD-SLOT-DEFINITION #P"/import/roma/u2/alee/pcl/mayday/defs.lisp" STANDARD-CLASS (SLOT-DEFINITION) ((:INITFUNCTION #<Compiled-Function FALSE 100CB826> :NAME NAME :READERS (SLOTD-NAME) :WRITERS ((SETF SLOTD-NAME)) :INITARGS NIL :INITFORM NIL) (:INITFUNCTION #<Compiled-Function (:INTERNAL LUCID::%TOPLEVEL-THUNK 1) 1031129E> :NAME INITFORM :READERS (SLOTD-INITFORM) :WRITERS ((SETF SLO!
TD-INITFORM)) :INITARGS NIL :INIT
   Local 11: EQL-SPECIALIZER
   Local 12: STANDARD-CLASS
   Local 13: #<#<std-instance> 2023635776>
   Local 14: #<Simple-Vector T 12 104F3C0E>
   Local 15: :INITIAL-ELEMENT
   Local 16: 68060403
-> :n
unnamed function:
-> :n
LUCID-COMMON-LISP:FASLOAD:
   Required arg 0 (FILENAME): #P"/u2/alee/pcl/mayday/zbin/braid.mbin"
   Keyword arg 1 (VERBOSE): NIL
   Keyword arg 2 (PRINT): NIL
   Keyword arg 3 (IF-DOES-NOT-EXIST): :ERROR
   Keyword arg 4 (DEFAULT-PATHNAME): ".mbin"
   Keyword arg 5 (CODE-AREA): #<Area "Readonly-Non-Pointer-Area" 10018356>
   Keyword arg 6 (PROCEDURE-AREA): #<Area "Readonly-Pointer-Area" 1001832E>
   Keyword arg 7 (PROCEDURE-CONTENTS-POINTER-AREA): #<Area "Readonly-Pointer-Area" 1001832E>
   Keyword arg 8 (PROCEDURE-CONTENTS-NON-POINTER-AREA): #<Area "Readonly-Non-Pointer-Area" 10018356>
   Keyword arg 9 (SYMBOL-NAME-AREA): #<Area "Readonly-Non-Pointer-Area" 10018356>
   Keyword arg 10 (OTHER-AREA): #<Area "Ephemeral Level 0" 101B79EE>
-> :v
LUCID-COMMON-LISP:FASLOAD:
   Required arg 0 (FILENAME): #P"/u2/alee/pcl/mayday/zbin/braid.mbin"
   Keyword arg 1 (VERBOSE): NIL
   Keyword arg 2 (PRINT): NIL
   Keyword arg 3 (IF-DOES-NOT-EXIST): :ERROR
   Keyword arg 4 (DEFAULT-PATHNAME): ".mbin"
   Keyword arg 5 (CODE-AREA): #<Area "Readonly-Non-Pointer-Area" 10018356>
   Keyword arg 6 (PROCEDURE-AREA): #<Area "Readonly-Pointer-Area" 1001832E>
   Keyword arg 7 (PROCEDURE-CONTENTS-POINTER-AREA): #<Area "Readonly-Pointer-Area" 1001832E>
   Keyword arg 8 (PROCEDURE-CONTENTS-NON-POINTER-AREA): #<Area "Readonly-Non-Pointer-Area" 10018356>
   Keyword arg 9 (SYMBOL-NAME-AREA): #<Area "Readonly-Non-Pointer-Area" 10018356>
   Keyword arg 10 (OTHER-AREA): #<Area "Ephemeral Level 0" 101B79EE>
   Local 11: #<Package "USER" 10018946>
   Local 12: #P"/u2/alee/pcl/mayday/zbin/braid.mbin"
   Special binding for variables: (*PACKAGE*)
   Local 13: #<Stream OSI-BUFFERED-STREAM "/u2/alee/pcl/mayday/zbin/braid.mbin" 104EFB26>
   Local 14: T
   Unwind-protect
   Multiple-value-prog1
   Local 15: #P"/import/roma/u2/alee/pcl/mayday/zbin/braid.mbin"
   Special binding for variables: (LUCID-COMMON-LISP:*SOURCE-PATHNAME* LUCID-COMMON-LISP:*LOAD-PATHNAME* LUCID::*FASLOAD-STREAM*)

;;;
;;; This might be useful
;;;

-> (lisp-implementation-version)
"Lucid Common Lisp, Development Environment Version 4.0 Beta 2, 9 July 1990"
-> pcl::*pcl-system-date*
"5/1/90  May Day PCL (REV 4)"
->

---------end of log---------------