[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Problem compiling Victoria Day PCL

We have been trying to install Victoria Day Pcl under Lucid Common Lisp
2.1.1.  It won't compile.  The error and a script are described below.
Has anyone else succeeded under this old version of Lucid?  Is there
a fix?  Thanks in advance for any suggestions.

--Larry Hall
hall@usfvax2.csee.usf.edu

 The error "undefined function" was found in the
file "walk.lisp".  After loading this file and compiling I get the error
"Package 'lucid-Common-lisp' not found".  We continued and finally get this
same
"undefined function" error again.   Also, I printed the search for the
missen
string flag by the error.  Finally, the listing of the /user1/clos/clos
directory is printed to this script file.  




Script started on Mon Jun 19 15:57:32 1989
% lisp
;;; Sun Common Lisp, Development Environment 2.1.1, 21-Mar-89
;;;
;;; Copyright (c) 1987 by Sun Microsystems, Inc.  All Rights Reserved
;;; Copyright (c) 1985, 1986, 1987 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 "defsys.lisp")
;;; Loading source file "defsys.lisp"
#P"/user1/clos/clos/defsys.lisp"
> (pcl::cokm  mi pile-pcl)
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 file
/user1/clos/clos/low.lisp
;;; Warning: Redefining macro %ASH which used to be defined in file
/user1/clos/clos/low.lisp
;;; Warning: Redefining macro MAKE-MEMORY-BLOCK which used to be defined in
file /user1/clos/clos/low.lisp
;;; Warning: Redefining macro OBJECT-CACHE-NO which used to be defined in
file /user1/clos/clos/low.lisp
;;; Warning: Redefining function SET-FUNCTION-NAME-1 which used to be
defined in file /user1/clos/clos/low.lisp
;;; Warning: Redefining function PRINTING-RANDOM-THING-INTERNAL which used
to be defined in file /user1/clos/clos/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...
Compiling POINTS...
;;; Reading input file #P"/user1/clos/clos/points.lisp"
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro MAKE-CPNODE...assembling...sharing
list...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPNODE-ENTRY...assembling...sharing
list...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPNODE-SUBNODES...assembling...sharing list...sharing
list...sharing code...emitting...done.
;;; Compiling function WALK-CPNODE...assembling...emitting...done.
;;; Compiling function MAP-CPNODE...assembling...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro MAKE-POINT-ENTRY...assembling...sharing
list...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro POINT-ENTRY-CLASSES...assembling...sharing
list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro POINT-ENTRY-PMO...assembling...sharing list...sharing
list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro POINT-ENTRY-FLAG...assembling...sharing list...sharing
list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro POINT-ENTRY-CROSS-INFO...assembling...sharing
list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro MAKE-COLUMN-ENTRY...assembling...sharing list...sharing
code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro COLUMN-ENTRY-CLASS...assembling...sharing
list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro COLUMN-ENTRY-PMO...assembling...sharing list...sharing
list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro COLUMN-ENTRY-FLAG...assembling...sharing list...sharing
list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro MAKE-CPD-ENTRY...assembling...sharing list...sharing
list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPD-ENTRY-CLASS...assembling...sharing list...sharing
list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPD-ENTRY-PRECEDENCE...assembling...sharing
list...sharing list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPD-ENTRY-MULTIPLE-SUPERS-P...assembling...sharing
list...sharing list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro MAKE-CPDI-ENTRY...assembling...sharing list...sharing
list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPDI-ENTRY-CLASS...assembling...sharing list...sharing
list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPDI-ENTRY-PRECEDENCE...assembling...sharing
list...sharing list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPDI-ENTRY-COUNT...assembling...sharing list...sharing
list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPDI-ENTRY-SUPERS...assembling...sharing list...sharing
list...sharing list...sharing code...emitting...done.
;;; Compiling toplevel form...assembling...emitting...done.
;;; Compiling macro CPDI-ENTRY-STATUS...assembling...sharing list...sharing
list...sharing code...emitting...done.
;;; Compiling function COMPUTE-COMBINATION-POINTS...
;;; Warning: Variable A is bound but its value is ignored.
;;;    assembling...emitting...done.
;;; Compiling function
COMPUTE-COLUMN-SPECIALIZERS...assembling...emitting...done.
;;; Compiling function ADJUST-POINTS-FOR-EQL-METHODS...tail merging...tail
merging...tail
merging...assembling...(assembling...)(assembling...(assembling...))emitting...done.
;;; Compiling function CROSS-COLUMNS...tail
merging...assembling...emitting...done.
;;; Compiling function CROSS-COLUMNS-MAIN...tail
merging...assembling...(assembling...sharing list...)emitting...done.
;;; Compiling function CROSS-COLUMNS-NULL-REST...tail merging...
;;; Expanding Dynamic Memory
assembling...(assembling...sharing list...)(assembling...sharing
list...)emitting...done.
;;; Compiling function FULL-ON-COLUMN-CROSS...tail
merging...assembling...emitting...done.
;;; Compiling function
CROSS-COLUMN-WITH-POINT...assembling...(assembling...)(assembling...)sharing
list...emitting...done.
;;; Compiling function CROSS-POINT-WITH-COLUMN...
>>Error: The function LUCID::AUGMENT-LEXENV-FVARS-DUMMY is undefined

WALKER::WITH-AUGMENTED-ENVIRONMENT-INTERNAL:
   Required arg 0 (ENV): ((#<Structure LUCID::%VARIABLE 7500D3> #<Structure
LUCID::%VARIABLE 7500A3> #<Structure LUCID::%ANODE 75004B>) (NIL
#<Structure LUCID::%ANODE 75004B>) (#<Structure LUCID::%BLOCK 750143>) NIL
NIL (#<Structure LUCID::%DECL 75061B> #
<Structure LUCID::%DECL 7505B3>) NIL LUCID::%ALPHALEX)
   Required arg 1 (FUNCTIONS): ((WALK-COLUMN (PENTRY PCLASSES CNODE
SUPER-CROSSED-PMO SUPER-CPMO) (LET* # #)) (WALK-POINT (PNODE) (LET* # #)))
   Required arg 2 (MACROS): NIL

:A    Abort to Lisp Top Level
:C    Try calling LUCID::AUGMENT-LEXENV-FVARS-DUMMY again
-> :c
Try calling LUCID::AUGMENT-LEXENV-FVARS-DUMMY again
>>Error: The function LUCID::AUGMENT-LEXENV-FVARS-DUMMY is undefined

WALKER::WITH-AUGMENTED-ENVIRONMENT-INTERNAL:
   Required arg 0 (ENV): ((#<Structure LUCID::%VARIABLE 7500D3> #<Structure
LUCID::%VARIABLE 7500A3> #<Structure LUCID::%ANODE 75004B>) (NIL
#<Structure LUCID::%ANODE 75004B>) (#<Structure LUCID::%BLOCK 750143>) NIL
NIL (#<Structure LUCID::%DECL 75061B> #
<Structure LUCID::%DECL 7505B3>) NIL LUCID::%ALPHALEX)
   Required arg 1 (FUNCTIONS): ((WALK-COLUMN (PENTRY PCLASSES CNODE
SUPER-CROSSED-PMO SUPER-CPMO) (LET* # #)) (WALK-POINT (PNODE) (LET* # #)))
   Required arg 2 (MACROS): NIL

:A    Abort to Lisp Top Level
:C    Try calling LUCID::AUGMENT-LEXENV-FVARS-DUMMY again
-> :a
;;; Compilation aborted, object file not written
Back to Lisp Top Level

> (quit)
pandora% exit
pandora% 
script done on Mon Jun 19 16:20:31 1989


Script started on Mon Jun 19 16:14:49 1989
pandora% cd /user1/clos/clos
pandora% grep lucid::augment-lexenv-fvars *
grep: Read error on archive: Is a directory
grep: Read error on check: Is a directory
grep: Read error on doc: Is a directory
grep: Read error on reflect: Is a directory
grep: Read error on text: Is a directory
walk.lisp:(defun lucid::augment-lexenv-fvars-dummy (lexical vars)
walk.lisp:  (lucid::augment-lexenv-fvars-aux lexical vars '() '() 'flet
'()))
walk.lisp:	     (setq env (lucid::augment-lexenv-fvars-dummy env
function-names)))
grep: Read error on web: Is a directory
pandora% exit
pandora% 
script done on Mon Jun 19 16:20:55 1989