[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
May Day PCL won't compile in HP Lucid 3.0
- To: commonloops-request@arisia.Xerox.COM
- Subject: May Day PCL won't compile in HP Lucid 3.0
- From: Steve Strassmann <straz@MEDIA-LAB.MEDIA.MIT.EDU>
- Date: Tue, 15 May 90 02:54:23 EDT
- Cc: hp-support@lucid.com, Common-Lisp-Object-System@sail.stanford.edu
What is the correct address for PCL bug reports like this one?
I hesitate to mail it to CommonLoops@Xerox.com, for fear that will go
to too broad an audience, but there doesn't seem to be anything else
advertised in the get-pcl.text file that comes with PCL. And
bug-CommonLoops@Xerox.com doesn't exist.
Anyway, on with the bug report:
This error occurs on an HP 835, HP-UX 7.0, Lucid 3.0, base-lisp, with
no lisp-init file loaded.
I cannot compile the "5/1/90 May Day PCL (REV 2)" release of PCL,
using either Lucid's production or development compiler. Below are two
transcripts, from a compile-pcl session with each, because they stop
in different places.
I deleted pcl/*.hbin before doing each of these sessions.
Also, there's a bunch of package export warnings from lucid-low that
could be cleaned up.
------------------------------------------------------------------------------
;;; HP Common Lisp, Development Environment, 29 January 1990.
;;; HP-9000, Series 800, Product no. HP92640, Rev. X.00.01
;;;
;;; Copyright (c) 1988, 1989 by Hewlett-Packard, Co., All Rights Reserved.
;;; Copyright (c) 1985, 1986, 1987, 1988, 1989 by Lucid, Inc., All Rights Reserved.
;;;
;;; This software product contains confidential and trade secret
;;; information belonging to Hewlett-Packard. It may not be copied
;;; for any reason other than for archival and backup purposes.
> (proclaim '(optimize (safety 1) (speed 3) (compilation-speed 0)))
T
> (report-compiler-options)
;;; Compiler options are:
;;; TARGET....................PA
;;; EGC........................T
;;; SHOW-OPTIMIZATIONS.......NIL
;;; UNDEF-WARNINGS.............T
;;; WARNINGS...................T
;;; DOCUMENTATION..............T
;;; READ-SAFETY..............NIL
;;; WRITE-SAFETY.............NIL
;;; BOUNDS-CHECK.............NIL
;;; FILE-MESSAGES..............T
;;; MESSAGES.................NIL
;;; FAST-ENTRY...............NIL
;;; TAIL-MERGE.................T
;;; NOTINLINE................NIL
;;; Compiler optimizations are:
;;; SPEED......................3
;;; SAFETY.....................1
;;; SPACE......................0
;;; COMPILATION-SPEED..........0
> (load "/lisp/pcl/defsys.lisp")
;;; Loading source file "defsys.lisp"
#P"/lisp/pcl/defsys.lisp"
> (pcl::compile-pcl)
Compiling PKG...
;;; You are using the compiler in production mode (compilation-speed = 0)
;;; Generation of argument count checking code is enabled (safety = 1)
;;; Optimization of tail calls is enabled (speed = 3)
;;; Reading source file "pkg.lisp"
;;; Writing binary file "pkg.hbin"
Loading binary of PKG...
Compiling WALK...
;;; Reading source file "walk.lisp"
;;; Writing binary file "walk.hbin"
Loading binary of WALK...
Compiling ITERATE...
;;; Reading source file "iterate.lisp"
;;; Writing binary file "iterate.hbin"
Loading binary of ITERATE...
Compiling MACROS...
;;; Reading source file "macros.lisp"
;;; Writing binary file "macros.hbin"
Loading binary of MACROS...
Compiling LOW...
;;; Reading source file "low.lisp"
;;; Writing binary file "low.hbin"
Loading binary of LOW...
Compiling LUCID-LOW...
;;; Reading source file "lucid-low.lisp"
;;; Warning: %POINTER is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: DEFSTRUCT-SIMPLE-PREDICATE is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: ARGLIST is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: NAMED-LAMBDA is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: *PRINT-STRUCTURE* is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: NEW-STRUCTURE is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: STRUCTURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDUREP is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-SYMBOL is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: SET-PROCEDURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Writing binary file "lucid-low.hbin"
Loading binary of LUCID-LOW...
;;; Warning: %POINTER is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: DEFSTRUCT-SIMPLE-PREDICATE is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: ARGLIST is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: NAMED-LAMBDA is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: *PRINT-STRUCTURE* is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: NEW-STRUCTURE is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: STRUCTURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDUREP is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-SYMBOL is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: SET-PROCEDURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
Compiling FIN...
;;; Reading source file "fin.lisp"
;;; Writing binary file "fin.hbin"
Loading binary of FIN...
Compiling DEFCLASS...
;;; Reading source file "defclass.lisp"
;;; While compiling EXPAND-DEFCLASS
;;; Warning: Free variable *DEFCLASS-TIMES* assumed to be special
;;; Writing binary file "defclass.hbin"
Loading binary of DEFCLASS...
Compiling DEFS...
;;; Reading source file "defs.lisp"
;;; Writing binary file "defs.hbin"
Loading binary of DEFS...
Compiling FNGEN...
;;; Reading source file "fngen.lisp"
;;; Writing binary file "fngen.hbin"
Loading binary of FNGEN...
Compiling LAP...
;;; Reading source file "lap.lisp"
;;; Writing binary file "lap.hbin"
Loading binary of LAP...
Compiling PLAP...
;;; Reading source file "plap.lisp"
>>Error: LUCID::T0 should be a LIST
LUCID:COMPILE-FORM:
Required arg 0 (FORM): (LUCID-COMMON-LISP:DEFINE-FUNCTION (QUOTE LAP-OPCODE) (FUNCTION (LAMBDA # #)))
Required arg 1 (MODE): LUCID::TOPLEVEL
Required arg 2 (OUTPUT): #<Compiled-Function LUCID::ASSEMBLE-FORM 2D887E>
Rest arg 3 (OUTARGS): (#<Compiled-Function LUCID::BACKEND-OUTPUT 3F14FE> #<Stream OSI-BUFFERED-STREAM "/lisp/pcl/plap.hbin" 4057B53E> #<Structure LUCID::FASLSTATE 4058F10E>)
:C 0: Use a new value
:A 1: Abort to Lisp Top Level
-> :b
LUCID:COMPILE-FORM <- LUCID:COMPILE-FORM <- COMPILE-FILE <- COMPILE-MODULE <- OPERATE-ON-SYSTEM <- COMPILE-PCL <- EVAL <- SYSTEM:ENTER-TOP-LEVEL
->
------------------------------------------------------------------------------
;;; HP Common Lisp, Development Environment, 29 January 1990.
;;; HP-9000, Series 800, Product no. HP92640, Rev. X.00.01
;;;
;;; Copyright (c) 1988, 1989 by Hewlett-Packard, Co., All Rights Reserved.
;;; Copyright (c) 1985, 1986, 1987, 1988, 1989 by Lucid, Inc., All Rights Reserved.
;;;
;;; This software product contains confidential and trade secret
;;; information belonging to Hewlett-Packard. It may not be copied
;;; for any reason other than for archival and backup purposes.
> (proclaim '(optimize (safety 3) (speed 1) (compilation-speed 3)))
T
> (report-compiler-options)
;;; Compiler options are:
;;; TARGET....................PA
;;; EGC........................T
;;; SHOW-OPTIMIZATIONS.......NIL
;;; UNDEF-WARNINGS.............T
;;; WARNINGS...................T
;;; DOCUMENTATION..............T
;;; READ-SAFETY................T
;;; WRITE-SAFETY...............T
;;; BOUNDS-CHECK...............T
;;; FILE-MESSAGES..............T
;;; MESSAGES.................NIL
;;; FAST-ENTRY...............NIL
;;; TAIL-MERGE...............NIL
;;; NOTINLINE................NIL
;;; Compiler optimizations are:
;;; SPEED......................1
;;; SAFETY.....................3
;;; SPACE......................0
;;; COMPILATION-SPEED..........3
> (load "/lisp/pcl/defsys.lisp")
;;; Loading source file "defsys.lisp"
#P"/lisp/pcl/defsys.lisp"
> (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)
;;; Elimination of unnecessary variables is disabled (speed = 1)
;;; Reading source file "pkg.lisp"
;;; Writing binary file "pkg.hbin"
Loading binary of PKG...
Compiling WALK...
;;; Reading source file "walk.lisp"
;;; Writing binary file "walk.hbin"
Loading binary of WALK...
Compiling ITERATE...
;;; Reading source file "iterate.lisp"
;;; Writing binary file "iterate.hbin"
Loading binary of ITERATE...
Compiling MACROS...
;;; Reading source file "macros.lisp"
;;; Writing binary file "macros.hbin"
Loading binary of MACROS...
Compiling LOW...
;;; Reading source file "low.lisp"
;;; Writing binary file "low.hbin"
Loading binary of LOW...
Compiling LUCID-LOW...
;;; Reading source file "lucid-low.lisp"
;;; Warning: %POINTER is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: DEFSTRUCT-SIMPLE-PREDICATE is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: ARGLIST is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: NAMED-LAMBDA is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: *PRINT-STRUCTURE* is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: NEW-STRUCTURE is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: STRUCTURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDUREP is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-SYMBOL is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: SET-PROCEDURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Writing binary file "lucid-low.hbin"
Loading binary of LUCID-LOW...
;;; Warning: %POINTER is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: DEFSTRUCT-SIMPLE-PREDICATE is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: ARGLIST is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: NAMED-LAMBDA is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: *PRINT-STRUCTURE* is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: NEW-STRUCTURE is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: STRUCTURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDUREP is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-SYMBOL is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
;;; Warning: SET-PROCEDURE-REF is being imported from the LUCID package into
;;; the "PCL" package, but it isn't external in LUCID.
Compiling FIN...
;;; Reading source file "fin.lisp"
;;; Writing binary file "fin.hbin"
Loading binary of FIN...
Compiling DEFCLASS...
;;; Reading source file "defclass.lisp"
;;; While compiling EXPAND-DEFCLASS
;;; Warning: Free variable *DEFCLASS-TIMES* assumed to be special
;;; Writing binary file "defclass.hbin"
Loading binary of DEFCLASS...
Compiling DEFS...
;;; Reading source file "defs.lisp"
;;; Writing binary file "defs.hbin"
Loading binary of DEFS...
Compiling FNGEN...
;;; Reading source file "fngen.lisp"
;;; Writing binary file "fngen.hbin"
Loading binary of FNGEN...
Compiling LAP...
;;; Reading source file "lap.lisp"
;;; Writing binary file "lap.hbin"
Loading binary of LAP...
Compiling PLAP...
;;; Reading source file "plap.lisp"
;;; Writing binary file "plap.hbin"
Loading binary of PLAP...
Compiling CACHE...
;;; Reading source file "cache.lisp"
;;; While compiling EXPAND-CACHE
;;; Warning: Variable IGNORE is bound but not referenced
;;; Writing binary file "cache.hbin"
Loading binary of CACHE...
Compiling DLAP...
;;; Reading source file "dlap.lisp"
;;; Writing binary file "dlap.hbin"
Loading binary of DLAP...
Compiling BOOT...
;;; Reading source file "boot.lisp"
;;; Writing binary file "boot.hbin"
Loading binary of BOOT...
Compiling VECTOR...
;;; Reading source file "vector.lisp"
;;; Writing binary file "vector.hbin"
Loading binary of VECTOR...
Compiling SLOTS...
;;; Reading source file "slots.lisp"
;;; Writing binary file "slots.hbin"
Loading binary of SLOTS...
Compiling INIT...
;;; Reading source file "init.lisp"
;;; Writing binary file "init.hbin"
Loading binary of INIT...
Compiling STD-CLASS...
;;; Reading source file "std-class.lisp"
;;; While compiling ENSURE-CLASS-VALUES
;;; Warning: Variable PROTO is bound but not referenced
;;; While compiling (DEFMETHOD SHARED-INITIALIZE :BEFORE (STD-CLASS T))
;;; Warning: Variable DIRECT-SUPERCLASSES is bound but not referenced
;;; While compiling (DEFMETHOD REINITIALIZE-INSTANCE :BEFORE (STD-CLASS))
;;; Warning: Variable DIRECT-SLOTS is bound but not referenced
;;; While compiling (DEFMETHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T))
;;; Warning: Variable INITARGS is bound but not referenced
;;; Writing binary file "std-class.hbin"
Loading binary of STD-CLASS...
;;; Expanding Reserved Memory
;;; GC: 217926 words [871704 bytes] of dynamic storage in use.
;;; 240824 words [963296 bytes] of free storage available before a GC.
;;; 699574 words [2798296 bytes] of free storage available if GC is disabled.
Compiling CPL...
;;; Reading source file "cpl.lisp"
;;; Writing binary file "cpl.hbin"
Loading binary of CPL...
Compiling BRAID...
;;; Reading source file "braid.lisp"
;;; Writing binary file "braid.hbin"
Loading binary of BRAID...
Compiling FSC...
;;; Reading source file "fsc.lisp"
;;; Writing binary file "fsc.hbin"
Loading binary of FSC...
Compiling METHODS...
;;; Reading source file "methods.lisp"
;;; While compiling (DEFMETHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T))
;;; Warning: Variable SLOT-NAMES is bound but not referenced
;;; While compiling (DEFMETHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))
;;; Warning: Variable DOCUMENTATION is bound but not referenced
;;; While compiling COMPUTE-PRECEDENCE
;;; Warning: Variable NREQ is bound but not referenced
;;; While compiling REAL-ADD-METHOD
;;; Warning: Variable LAMBDA-LIST is bound but not referenced
;;; Writing binary file "methods.hbin"
Loading binary of METHODS...
Compiling COMBIN...
;;; Reading source file "combin.lisp"
;;; Writing binary file "combin.hbin"
Loading binary of COMBIN...
Compiling DFUN...
;;; Reading source file "dfun.lisp"
;;; Writing binary file "dfun.hbin"
Loading binary of DFUN...
Compiling FIXUP...
;;; Reading source file "fixup.lisp"
>>Error: The value of X, :METHOD-COMBINATION, should be a LIST
CAR:
Required arg 0 (X): :METHOD-COMBINATION
:C 0: Use a new value
:A 1: Abort to Lisp Top Level
-> :b
CAR <- |(METHOD COMPUTE-DEFAULT-INITARGS (STD-CLASS T T))| <- UPDATE-CLASS <- |(METHOD FINALIZE-INHERITANCE (STD-CLASS))| <- |(METHOD ALLOCATE-INSTANCE (FUNCALLABLE-STANDARD-CLASS))| <- (:INTERNAL EARLY-DFUN DO-MAIN-COMBINED-METHOD) <- EARLY-DFUN <- (:INTERNAL EARLY-UPDATE-DISCRIMINATOR-CODE 1) <- FIX-EARLY-GENERIC-FUNCTIONS <- EVAL <- LUCID:COMPILE-FORM <- COMPILE-FILE <- COMPILE-MODULE <- OPERATE-ON-SYSTEM <- COMPILE-PCL <- EVAL <- SYSTEM:ENTER-TOP-LEVEL
->