Hi,
I tried to tell the PCL implementors about this before
and never got any response. Perhaps the message got lost.
I've been trying to build the latest version of PCL
with the latest version of AKCL on Sun 3/50's and HP 9000/300
series computers. But I always run into the same problem,
a value-stack overflow.
I am using the "May Day PCL (REV 2)", augmented with
the file kcl-low.lisp from rescal.ics.utexas.edu in the pub directory.
I start up kcl and use the following input
(load "defsys.lisp")
(setq pcl::*pathname-extensions* '("lisp" . "o"))
(or (probe-file "kcl-patches.lisp-") ;replace kcl-patches.lisp by empty
file
(system "mv kcl-patches.lisp kcl-patches.lisp- ; echo >
kcl-patches.lisp"))
(pcl::compile-pcl)
:b
:vs
and get output below, which may help in debugging.
Any ideas?
Gary Leavens
??????trace follows??????
AKCL (Austin Kyoto Common Lisp) Version(1.478) Mon Jun 04 13:05:56 EDT
1990
Contains Enhancements by W. Schelter
Changes in version 1-455 definitely require recompilation of user files.
>Loading defsys.lisp
Finished loading defsys.lisp
T
>("lisp" . "o")
>#"/usr1/src/local/pcl/kcl-patches.lisp-"
>Loading binary of KCL-PATCHES...Building symbol table for
/usr/src/local/akcl/unixport/saved_kcl ..
Loading binary of PKG...
Loading binary of WALK...
Loading binary of ITERATE...
Loading binary of MACROS...
Loading binary of LOW...
Loading binary of KCL-LOW...
Loading binary of FIN...
Loading binary of DEFCLASS...
Loading binary of DEFS...
Error: Value stack overflow.
Error signalled by LOAD-DEFCLASS.
Broken at LOAD-DEFCLASS. Type :H for Help.
PCL>>Backtrace: > eval > compile-pcl > let > cond > operate-on-system >
let > let > labels > progn > loop > let > let > if > if > progn >
load-module > let* > load-binary > or > load > let > LOAD-DEFCLASS
NIL
PCL>> IHS[5]: #<compiled-function EVAL> ---> VS[25]
IHS[6]: (COMPILE-PCL (&OPTIONAL M) (LET () #)) ---> VS[29]
IHS[7]: LET ---> VS[33]
IHS[8]: COND ---> VS[33]
IHS[9]: (OPERATE-ON-SYSTEM (NAME MODE &OPTIONAL ARG ...) (LET # # #))
---> VS[40]
VS[40]: ((PRINT-ONLY NIL) (ARG NIL) (MODE :COMPILE) (NAME PCL))
VS[41]: NIL
VS[42]: ((OPERATE-ON-SYSTEM BLOCK #<@00251CF8>))
VS[43]: ((LET ((SYSTEM (GET-SYSTEM NAME)))
(UNLESS SYSTEM
(ERROR "Can't find system with name ~S." NAME))
(LET ((*SYSTEM-DIRECTORY* (FUNCALL (CAR SYSTEM)))
(MODULES (CADR SYSTEM)) (TRANSFORMATIONS NIL))
(LABELS ((LOAD-SOURCE (NAME PATHNAME)
(FORMAT T "~&Loading source of ~A..." NAME)
(OR PRINT-ONLY (LOAD PATHNAME)))
(LOAD-BINARY (NAME PATHNAME)
(FORMAT T "~&Loading binary of ~A..." NAME)
(OR PRINT-ONLY (LOAD PATHNAME)))
(LOAD-MODULE (M)
(LET* ((NAME (MODULE-NAME M))
(*LOAD-VERBOSE* NIL)
(BINARY (MAKE-BINARY-PATHNAME NAME)))
(LOAD-BINARY NAME BINARY)))
(COMPILE-MODULE (M)
(FORMAT T "~&Compiling ~A..."
(MODULE-NAME M))
(UNLESS PRINT-ONLY
(LET ((NAME (MODULE-NAME M)))
(COMPILE-FILE (MAKE-SOURCE-PATHNAME NAME)
:OUTPUT-FILE
(MAKE-PATHNAME :DEFAULTS
(MAKE-BINARY-PATHNAME NAME)
:VERSION :NEWEST)))))
(TRUE (&REST IGNORE) (DECLARE (IGNORE IGNORE))
'T))
(SETQ TRANSFORMATIONS
(ECASE MODE
(:COMPILE
(MAKE-TRANSFORMATIONS MODULES
#'COMPILE-FILTER
#'MAKE-COMPILE-TRANSFORMATION))
(:RECOMPILE
(MAKE-TRANSFORMATIONS MODULES #'TRUE
#'MAKE-COMPILE-TRANSFORMATION))
(:RECOMPILE-SOME
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(OR (MEMBER (MODULE-NAME M) ARG)
(COMPILE-FILTER M TRANSFORMS)))
#'MAKE-COMPILE-TRANSFORMATION))
(:QUERY-COMPILE
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(OR (COMPILE-FILTER M TRANSFORMS)
(Y-OR-N-P "Compile ~A?"
(MODULE-NAME M))))
#'MAKE-COMPILE-TRANSFORMATION))
(:CONFIRM-COMPILE
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(AND (COMPILE-FILTER M TRANSFORMS)
(Y-OR-N-P
"Go ahead and compile ~A?"
(MODULE-NAME M))))
#'MAKE-COMPILE-TRANSFORMATION))
(:LOAD (MAKE-TRANSFORMATIONS MODULES #'TRUE
#'MAKE-LOAD-TRANSFORMATION))
(:QUERY-LOAD
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(DECLARE (IGNORE TRANSFORMS))
(Y-OR-N-P "Load ~A?"
(MODULE-NAME M)))
#'MAKE-LOAD-WITHOUT-DEPENDENCIES-TRANSFORMATION))))
(PROGN
(LOOP
(WHEN (NULL TRANSFORMATIONS) (RETURN T))
(LET ((TRANSFORM (POP TRANSFORMATIONS)))
(ECASE (CAR TRANSFORM)
(:COMPILE (COMPILE-MODULE (CADR TRANSFORM)))
(:LOAD (LOAD-MODULE (CADR TRANSFORM)))))))))))
IHS[10]: LET ---> VS[44]
VS[44]: ((SYSTEM ((LAMBDA-CLOSURE () () () () *PCL-DIRECTORY*)
(#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>)
(REL-7-2-PATCHES TI-PATCHES PYR-PATCHES XEROX-PATCHES
KCL-PATCHES IBCL-PATCHES GCL-PATCHES PKG WALK
ITERATE MACROS LOW GENERA-LOW LUCID-LOW XEROX-LOW
TI-LOW VAXL-LOW KCL-LOW IBCL-LOW EXCL-LOW CMU-LOW
HP-LOW GOLD-LOW PYR-LOW CORAL-LOW FIN DEFCLASS
DEFS FNGEN LAP PLAP CPATCH QUADLAP CACHE DLAP
BOOT VECTOR SLOTS INIT STD-CLASS CPL BRAID FSC
METHODS COMBIN DFUN FIXUP DEFCOMBIN CTYPES
CONSTRUCT ENV COMPAT PRECOM1 PRECOM2 PRECOM4)))
(PRINT-ONLY NIL) (ARG NIL) (MODE :COMPILE) (NAME PCL))
VS[45]: NIL
VS[46]: ((OPERATE-ON-SYSTEM BLOCK #<@00251CF8>))
VS[47]: ((UNLESS SYSTEM
(ERROR "Can't find system with name ~S." NAME))
(LET ((*SYSTEM-DIRECTORY* (FUNCALL (CAR SYSTEM)))
(MODULES (CADR SYSTEM)) (TRANSFORMATIONS NIL))
(LABELS ((LOAD-SOURCE (NAME PATHNAME)
(FORMAT T "~&Loading source of ~A..." NAME)
(OR PRINT-ONLY (LOAD PATHNAME)))
(LOAD-BINARY (NAME PATHNAME)
(FORMAT T "~&Loading binary of ~A..." NAME)
(OR PRINT-ONLY (LOAD PATHNAME)))
(LOAD-MODULE (M)
(LET* ((NAME (MODULE-NAME M))
(*LOAD-VERBOSE* NIL)
(BINARY (MAKE-BINARY-PATHNAME NAME)))
(LOAD-BINARY NAME BINARY)))
(COMPILE-MODULE (M)
(FORMAT T "~&Compiling ~A..." (MODULE-NAME M))
(UNLESS PRINT-ONLY
(LET ((NAME (MODULE-NAME M)))
(COMPILE-FILE (MAKE-SOURCE-PATHNAME NAME)
:OUTPUT-FILE
(MAKE-PATHNAME :DEFAULTS
(MAKE-BINARY-PATHNAME NAME)
:VERSION :NEWEST)))))
(TRUE (&REST IGNORE) (DECLARE (IGNORE IGNORE)) 'T))
(SETQ TRANSFORMATIONS
(ECASE MODE
(:COMPILE
(MAKE-TRANSFORMATIONS MODULES #'COMPILE-FILTER
#'MAKE-COMPILE-TRANSFORMATION))
(:RECOMPILE
(MAKE-TRANSFORMATIONS MODULES #'TRUE
#'MAKE-COMPILE-TRANSFORMATION))
(:RECOMPILE-SOME
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(OR (MEMBER (MODULE-NAME M) ARG)
(COMPILE-FILTER M TRANSFORMS)))
#'MAKE-COMPILE-TRANSFORMATION))
(:QUERY-COMPILE
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(OR (COMPILE-FILTER M TRANSFORMS)
(Y-OR-N-P "Compile ~A?"
(MODULE-NAME M))))
#'MAKE-COMPILE-TRANSFORMATION))
(:CONFIRM-COMPILE
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(AND (COMPILE-FILTER M TRANSFORMS)
(Y-OR-N-P
"Go ahead and compile ~A?"
(MODULE-NAME M))))
#'MAKE-COMPILE-TRANSFORMATION))
(:LOAD (MAKE-TRANSFORMATIONS MODULES #'TRUE
#'MAKE-LOAD-TRANSFORMATION))
(:QUERY-LOAD
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(DECLARE (IGNORE TRANSFORMS))
(Y-OR-N-P "Load ~A?" (MODULE-NAME M)))
#'MAKE-LOAD-WITHOUT-DEPENDENCIES-TRANSFORMATION))))
(PROGN
(LOOP
(WHEN (NULL TRANSFORMATIONS) (RETURN T))
(LET ((TRANSFORM (POP TRANSFORMATIONS)))
(ECASE (CAR TRANSFORM)
(:COMPILE (COMPILE-MODULE (CADR TRANSFORM)))
(:LOAD (LOAD-MODULE (CADR TRANSFORM))))))))))
IHS[11]: LET ---> VS[48]
VS[48]: ((TRANSFORMATIONS
((:COMPILE
#<Module FNGEN>)
(:LOAD #<Module FNGEN>)
(:COMPILE
#<Module LAP>)
(:LOAD #<Module LAP>)
(:COMPILE
#<Module PLAP>)
(:LOAD #<Module PLAP>)
(:COMPILE
#<Module CACHE>)
(:LOAD #<Module CACHE>)
(:COMPILE
#<Module DLAP>)
(:LOAD #<Module DLAP>)
(:COMPILE
#<Module BOOT>)
(:LOAD #<Module BOOT>)
(:COMPILE
#<Module VECTOR>)
(:LOAD #<Module VECTOR>)
(:COMPILE
#<Module SLOTS>)
(:LOAD #<Module SLOTS>)
(:COMPILE
#<Module INIT>)
(:LOAD #<Module INIT>)
(:COMPILE
#<Module STD-CLASS>)
(:LOAD #<Module STD-CLASS>)
(:COMPILE
#<Module CPL>)
(:LOAD #<Module CPL>)
(:COMPILE
#<Module BRAID>)
(:LOAD #<Module BRAID>)
(:COMPILE
#<Module FSC>)
(:LOAD #<Module FSC>)
(:COMPILE
#<Module METHODS>)
(:LOAD #<Module METHODS>)
(:COMPILE
#<Module COMBIN>)
(:LOAD #<Module COMBIN>)
(:COMPILE
#<Module DFUN>)
(:LOAD #<Module DFUN>)
(:COMPILE
#<Module FIXUP>)
(:LOAD #<Module FIXUP>)
(:COMPILE
#<Module DEFCOMBIN>)
(:LOAD #<Module DEFCOMBIN>)
(:COMPILE
#<Module CTYPES>)
(:LOAD #<Module CTYPES>)
(:COMPILE
#<Module CONSTRUCT>)
(:LOAD #<Module CONSTRUCT>)
(:COMPILE
#<Module ENV>)
(:LOAD #<Module ENV>)
(:COMPILE
#<Module COMPAT>)
(:COMPILE
#<Module PRECOM1>)
(:LOAD #<Module PRECOM1>)
(:COMPILE
#<Module PRECOM2>)
(:LOAD #<Module PRECOM2>)
(:COMPILE
#<Module PRECOM4>)))
(MODULES (#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>))
(SYSTEM ((LAMBDA-CLOSURE () () () () *PCL-DIRECTORY*)
(#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>)
(REL-7-2-PATCHES TI-PATCHES PYR-PATCHES XEROX-PATCHES
KCL-PATCHES IBCL-PATCHES GCL-PATCHES PKG WALK
ITERATE MACROS LOW GENERA-LOW LUCID-LOW XEROX-LOW
TI-LOW VAXL-LOW KCL-LOW IBCL-LOW EXCL-LOW CMU-LOW
HP-LOW GOLD-LOW PYR-LOW CORAL-LOW FIN DEFCLASS
DEFS FNGEN LAP PLAP CPATCH QUADLAP CACHE DLAP
BOOT VECTOR SLOTS INIT STD-CLASS CPL BRAID FSC
METHODS COMBIN DFUN FIXUP DEFCOMBIN CTYPES
CONSTRUCT ENV COMPAT PRECOM1 PRECOM2 PRECOM4)))
(PRINT-ONLY NIL) (ARG NIL) (MODE :COMPILE) (NAME PCL))
VS[49]: NIL
VS[50]: ((OPERATE-ON-SYSTEM BLOCK #<@00251CF8>))
VS[51]: ((LABELS ((LOAD-SOURCE (NAME PATHNAME)
(FORMAT T "~&Loading source of ~A..." NAME)
(OR PRINT-ONLY (LOAD PATHNAME)))
(LOAD-BINARY (NAME PATHNAME)
(FORMAT T "~&Loading binary of ~A..." NAME)
(OR PRINT-ONLY (LOAD PATHNAME)))
(LOAD-MODULE (M)
(LET* ((NAME (MODULE-NAME M))
(*LOAD-VERBOSE* NIL)
(BINARY (MAKE-BINARY-PATHNAME NAME)))
(LOAD-BINARY NAME BINARY)))
(COMPILE-MODULE (M)
(FORMAT T "~&Compiling ~A..." (MODULE-NAME M))
(UNLESS PRINT-ONLY
(LET ((NAME (MODULE-NAME M)))
(COMPILE-FILE (MAKE-SOURCE-PATHNAME NAME)
:OUTPUT-FILE
(MAKE-PATHNAME :DEFAULTS
(MAKE-BINARY-PATHNAME NAME) :VERSION
:NEWEST)))))
(TRUE (&REST IGNORE) (DECLARE (IGNORE IGNORE)) 'T))
(SETQ TRANSFORMATIONS
(ECASE MODE
(:COMPILE
(MAKE-TRANSFORMATIONS MODULES #'COMPILE-FILTER
#'MAKE-COMPILE-TRANSFORMATION))
(:RECOMPILE
(MAKE-TRANSFORMATIONS MODULES #'TRUE
#'MAKE-COMPILE-TRANSFORMATION))
(:RECOMPILE-SOME
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(OR (MEMBER (MODULE-NAME M) ARG)
(COMPILE-FILTER M TRANSFORMS)))
#'MAKE-COMPILE-TRANSFORMATION))
(:QUERY-COMPILE
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(OR (COMPILE-FILTER M TRANSFORMS)
(Y-OR-N-P "Compile ~A?"
(MODULE-NAME M))))
#'MAKE-COMPILE-TRANSFORMATION))
(:CONFIRM-COMPILE
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(AND (COMPILE-FILTER M TRANSFORMS)
(Y-OR-N-P
"Go ahead and compile ~A?"
(MODULE-NAME M))))
#'MAKE-COMPILE-TRANSFORMATION))
(:LOAD (MAKE-TRANSFORMATIONS MODULES #'TRUE
#'MAKE-LOAD-TRANSFORMATION))
(:QUERY-LOAD
(MAKE-TRANSFORMATIONS MODULES
#'(LAMBDA (M TRANSFORMS)
(DECLARE (IGNORE TRANSFORMS))
(Y-OR-N-P "Load ~A?" (MODULE-NAME M)))
#'MAKE-LOAD-WITHOUT-DEPENDENCIES-TRANSFORMATION))))
(PROGN
(LOOP
(WHEN (NULL TRANSFORMATIONS) (RETURN T))
(LET ((TRANSFORM (POP TRANSFORMATIONS)))
(ECASE (CAR TRANSFORM)
(:COMPILE (COMPILE-MODULE (CADR TRANSFORM)))
(:LOAD (LOAD-MODULE (CADR TRANSFORM)))))))))
VS[52]: (LAMBDA-BLOCK-CLOSURE
((TRANSFORMATIONS
((:COMPILE
#<Module FNGEN>)
(:LOAD #<Module FNGEN>)
(:COMPILE
#<Module LAP>)
(:LOAD #<Module LAP>)
(:COMPILE
#<Module PLAP>)
(:LOAD #<Module PLAP>)
(:COMPILE
#<Module CACHE>)
(:LOAD #<Module CACHE>)
(:COMPILE
#<Module DLAP>)
(:LOAD #<Module DLAP>)
(:COMPILE
#<Module BOOT>)
(:LOAD #<Module BOOT>)
(:COMPILE
#<Module VECTOR>)
(:LOAD #<Module VECTOR>)
(:COMPILE
#<Module SLOTS>)
(:LOAD #<Module SLOTS>)
(:COMPILE
#<Module INIT>)
(:LOAD #<Module INIT>)
(:COMPILE
#<Module STD-CLASS>)
(:LOAD #<Module STD-CLASS>)
(:COMPILE
#<Module CPL>)
(:LOAD #<Module CPL>)
(:COMPILE
#<Module BRAID>)
(:LOAD #<Module BRAID>)
(:COMPILE
#<Module FSC>)
(:LOAD #<Module FSC>)
(:COMPILE
#<Module METHODS>)
(:LOAD #<Module METHODS>)
(:COMPILE
#<Module COMBIN>)
(:LOAD #<Module COMBIN>)
(:COMPILE
#<Module DFUN>)
(:LOAD #<Module DFUN>)
(:COMPILE
#<Module FIXUP>)
(:LOAD #<Module FIXUP>)
(:COMPILE
#<Module DEFCOMBIN>)
(:LOAD #<Module DEFCOMBIN>)
(:COMPILE
#<Module CTYPES>)
(:LOAD #<Module CTYPES>)
(:COMPILE
#<Module CONSTRUCT>)
(:LOAD #<Module CONSTRUCT>)
(:COMPILE
#<Module ENV>)
(:LOAD #<Module ENV>)
(:COMPILE
#<Module COMPAT>)
(:COMPILE
#<Module PRECOM1>)
(:LOAD #<Module PRECOM1>)
(:COMPILE
#<Module PRECOM2>)
(:LOAD #<Module PRECOM2>)
(:COMPILE
#<Module PRECOM4>)))
(MODULES (#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>))
(SYSTEM ((LAMBDA-CLOSURE () () () () *PCL-DIRECTORY*)
(#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>)
(REL-7-2-PATCHES TI-PATCHES PYR-PATCHES
XEROX-PATCHES KCL-PATCHES IBCL-PATCHES
GCL-PATCHES PKG WALK ITERATE MACROS LOW
GENERA-LOW LUCID-LOW XEROX-LOW TI-LOW
VAXL-LOW KCL-LOW IBCL-LOW EXCL-LOW CMU-LOW
HP-LOW GOLD-LOW PYR-LOW CORAL-LOW FIN
DEFCLASS DEFS FNGEN LAP PLAP CPATCH QUADLAP
CACHE DLAP BOOT VECTOR SLOTS INIT STD-CLASS
CPL BRAID FSC METHODS COMBIN DFUN FIXUP
DEFCOMBIN CTYPES CONSTRUCT ENV COMPAT PRECOM1
PRECOM2 PRECOM4)))
(PRINT-ONLY NIL) (ARG NIL) (MODE :COMPILE) (NAME PCL))
((TRUE FUNCTION
(LAMBDA-BLOCK-CLOSURE
((TRANSFORMATIONS
((:COMPILE
#<Module FNGEN>)
(:LOAD #<Module FNGEN>)
(:COMPILE
#<Module LAP>)
(:LOAD #<Module LAP>)
(:COMPILE
#<Module PLAP>)
(:LOAD #<Module PLAP>)
(:COMPILE
#<Module CACHE>)
(:LOAD #<Module CACHE>)
(:COMPILE
#<Module DLAP>)
(:LOAD #<Module DLAP>)
(:COMPILE
#<Module BOOT>)
(:LOAD #<Module BOOT>)
(:COMPILE
#<Module VECTOR>)
(:LOAD #<Module VECTOR>)
(:COMPILE
#<Module SLOTS>)
(:LOAD #<Module SLOTS>)
(:COMPILE
#<Module INIT>)
(:LOAD #<Module INIT>)
(:COMPILE
#<Module STD-CLASS>)
(:LOAD #<Module STD-CLASS>)
(:COMPILE
#<Module CPL>)
(:LOAD #<Module CPL>)
(:COMPILE
#<Module BRAID>)
(:LOAD #<Module BRAID>)
(:COMPILE
#<Module FSC>)
(:LOAD #<Module FSC>)
(:COMPILE
#<Module METHODS>)
(:LOAD #<Module METHODS>)
(:COMPILE
#<Module COMBIN>)
(:LOAD #<Module COMBIN>)
(:COMPILE
#<Module DFUN>)
(:LOAD #<Module DFUN>)
(:COMPILE
#<Module FIXUP>)
(:LOAD #<Module FIXUP>)
(:COMPILE
#<Module DEFCOMBIN>)
(:LOAD #<Module DEFCOMBIN>)
(:COMPILE
#<Module CTYPES>)
(:LOAD #<Module CTYPES>)
(:COMPILE
#<Module CONSTRUCT>)
(:LOAD #<Module CONSTRUCT>)
(:COMPILE
#<Module ENV>)
(:LOAD #<Module ENV>)
(:COMPILE
#<Module COMPAT>)
(:COMPILE
#<Module PRECOM1>)
(:LOAD #<Module PRECOM1>)
(:COMPILE
#<Module PRECOM2>)
(:LOAD #<Module PRECOM2>)
(:COMPILE
#<Module PRECOM4>)))
(MODULES (#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>))
(SYSTEM ((LAMBDA-CLOSURE () () () ()
*PCL-DIRECTORY*)
(#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>)
(REL-7-2-PATCHES TI-PATCHES
PYR-PATCHES XEROX-PATCHES
KCL-PATCHES IBCL-PATCHES
GCL-PATCHES PKG WALK ITERATE
MACROS LOW GENERA-LOW LUCID-LOW
XEROX-LOW TI-LOW VAXL-LOW KCL-LOW
IBCL-LOW EXCL-LOW CMU-LOW HP-LOW
GOLD-LOW PYR-LOW CORAL-LOW FIN
DEFCLASS DEFS FNGEN LAP PLAP
CPATCH QUADLAP CACHE DLAP BOOT
VECTOR SLOTS INIT STD-CLASS CPL
BRAID FSC METHODS COMBIN DFUN
FIXUP DEFCOMBIN CTYPES CONSTRUCT
ENV COMPAT PRECOM1 PRECOM2
PRECOM4)))
(PRINT-ONLY NIL) (ARG NIL) (MODE :COMPILE)
(NAME PCL))
((TRUE FUNCTION
(LAMBDA-BLOCK-CLOSURE
((TRANSFORMATIONS
((:COMPILE
#<Module FNGEN>)
(:LOAD
#<Module FNGEN>)
(:COMPILE
#<Module LAP>)
(:LOAD
#<Module LAP>)
(:COMPILE
#<Module PLAP>)
(:LOAD
#<Module PLAP>)
(:COMPILE
#<Module CACHE>)
(:LOAD
#<Module CACHE>)
(:COMPILE
#<Module DLAP>)
(:LOAD
#<Module DLAP>)
(:COMPILE
#<Module BOOT>)
(:LOAD
#<Module BOOT>)
(:COMPILE
#<Module VECTOR>)
(:LOAD
#<Module VECTOR>)
(:COMPILE
#<Module SLOTS>)
(:LOAD
#<Module SLOTS>)
(:COMPILE
#<Module INIT>)
(:LOAD
#<Module INIT>)
(:COMPILE
#<Module STD-CLASS>)
(:LOAD
#<Module STD-CLASS>)
(:COMPILE
#<Module CPL>)
(:LOAD
#<Module CPL>)
(:COMPILE
#<Module BRAID>)
(:LOAD
#<Module BRAID>)
(:COMPILE
#<Module FSC>)
(:LOAD
#<Module FSC>)
(:COMPILE
#<Module METHODS>)
(:LOAD
#<Module METHODS>)
(:COMPILE
#<Module COMBIN>)
(:LOAD
#<Module COMBIN>)
(:COMPILE
#<Module DFUN>)
(:LOAD
#<Module DFUN>)
(:COMPILE
#<Module FIXUP>)
(:LOAD
#<Module FIXUP>)
(:COMPILE
#<Module DEFCOMBIN>)
(:LOAD
#<Module DEFCOMBIN>)
(:COMPILE
#<Module CTYPES>)
(:LOAD
#<Module CTYPES>)
(:COMPILE
#<Module CONSTRUCT>)
(:LOAD
#<Module CONSTRUCT>)
(:COMPILE
#<Module ENV>)
(:LOAD
#<Module ENV>)
(:COMPILE
#<Module COMPAT>)
(:COMPILE
#<Module PRECOM1>)
(:LOAD
#<Module PRECOM1>)
(:COMPILE
#<Module PRECOM2>)
(:LOAD
#<Module PRECOM2>)
(:COMPILE
#<Module PRECOM4>)))
(MODULES
(#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>))
(SYSTEM
((LAMBDA-CLOSURE () () () ()
*PCL-DIRECTORY*)
(#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>)
(REL-7-2-PATCHES TI-PATCHES
PYR-PATCHES XEROX-PATCHES
KCL-PATCHES IBCL-PATCHES
GCL-PATCHES PKG WALK ITERATE
MACROS LOW GENERA-LOW LUCID-LOW
XEROX-LOW TI-LOW VAXL-LOW KCL-LOW
IBCL-LOW EXCL-LOW CMU-LOW HP-LOW
GOLD-LOW PYR-LOW CORAL-LOW FIN
DEFCLASS DEFS FNGEN LAP PLAP
CPATCH QUADLAP CACHE DLAP BOOT
VECTOR SLOTS INIT STD-CLASS CPL
BRAID FSC METHODS COMBIN DFUN
FIXUP DEFCOMBIN CTYPES CONSTRUCT
ENV COMPAT PRECOM1 PRECOM2
PRECOM4)))
(PRINT-ONLY NIL) (ARG NIL)
(MODE :COMPILE) (NAME PCL))
((TRUE FUNCTION
(LAMBDA-BLOCK-CLOSURE
((TRANSFORMATIONS
((:COMPILE
#<Module FNGEN>)
(:LOAD
#<Module FNGEN>)
(:COMPILE
#<Module LAP>)
(:LOAD
#<Module LAP>)
(:COMPILE
#<Module PLAP>)
(:LOAD
#<Module PLAP>)
(:COMPILE
#<Module CACHE>)
(:LOAD
#<Module CACHE>)
(:COMPILE
#<Module DLAP>)
(:LOAD
#<Module DLAP>)
(:COMPILE
#<Module BOOT>)
(:LOAD
#<Module BOOT>)
(:COMPILE
#<Module VECTOR>)
(:LOAD
#<Module VECTOR>)
(:COMPILE
#<Module SLOTS>)
(:LOAD
#<Module SLOTS>)
(:COMPILE
#<Module INIT>)
(:LOAD
#<Module INIT>)
(:COMPILE
#<Module STD-CLASS>)
(:LOAD
#<Module STD-CLASS>)
(:COMPILE
#<Module CPL>)
(:LOAD
#<Module CPL>)
(:COMPILE
#<Module BRAID>)
(:LOAD
#<Module BRAID>)
(:COMPILE
#<Module FSC>)
(:LOAD
#<Module FSC>)
(:COMPILE
#<Module METHODS>)
(:LOAD
#<Module METHODS>)
(:COMPILE
#<Module COMBIN>)
(:LOAD
#<Module COMBIN>)
(:COMPILE
#<Module DFUN>)
(:LOAD
#<Module DFUN>)
(:COMPILE
#<Module FIXUP>)
(:LOAD
#<Module FIXUP>)
(:COMPILE
#<Module DEFCOMBIN>)
(:LOAD
#<Module DEFCOMBIN>)
(:COMPILE
#<Module CTYPES>)
(:LOAD
#<Module CTYPES>)
(:COMPILE
#<Module CONSTRUCT>)
(:LOAD
#<Module CONSTRUCT>)
(:COMPILE
#<Module ENV>)
(:LOAD
#<Module ENV>)
(:COMPILE
#<Module COMPAT>)
(:COMPILE
#<Module PRECOM1>)
(:LOAD
#<Module PRECOM1>)
(:COMPILE
#<Module PRECOM2>)
(:LOAD
#<Module PRECOM2>)
(:COMPILE
#<Module PRECOM4>)))
(MODULES
(#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>))
(SYSTEM
((LAMBDA-CLOSURE () () () ()
*PCL-DIRECTORY*)
(#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>)
(REL-7-2-PATCHES TI-PATCHES
PYR-PATCHES XEROX-PATCHES
KCL-PATCHES IBCL-PATCHES
GCL-PATCHES PKG WALK ITERATE
MACROS LOW GENERA-LOW
LUCID-LOW XEROX-LOW TI-LOW
VAXL-LOW KCL-LOW IBCL-LOW
EXCL-LOW CMU-LOW HP-LOW
GOLD-LOW PYR-LOW CORAL-LOW FIN
DEFCLASS DEFS FNGEN LAP PLAP
CPATCH QUADLAP CACHE DLAP BOOT
VECTOR SLOTS INIT STD-CLASS
CPL BRAID FSC METHODS COMBIN
DFUN FIXUP DEFCOMBIN CTYPES
CONSTRUCT ENV COMPAT PRECOM1
PRECOM2 PRECOM4)))
(PRINT-ONLY NIL) (ARG NIL)
(MODE :COMPILE) (NAME PCL))
((TRUE FUNCTION
(LAMBDA-BLOCK-CLOSURE
((TRANSFORMATIONS
((:COMPILE
#<Module FNGEN>)
(:LOAD
#<Module FNGEN>)
(:COMPILE
#<Module LAP>)
(:LOAD
#<Module LAP>)
(:COMPILE
#<Module PLAP>)
(:LOAD
#<Module PLAP>)
(:COMPILE
#<Module CACHE>)
(:LOAD
#<Module CACHE>)
(:COMPILE
#<Module DLAP>)
(:LOAD
#<Module DLAP>)
(:COMPILE
#<Module BOOT>)
(:LOAD
#<Module BOOT>)
(:COMPILE
#<Module VECTOR>)
(:LOAD
#<Module VECTOR>)
(:COMPILE
#<Module SLOTS>)
(:LOAD
#<Module SLOTS>)
(:COMPILE
#<Module INIT>)
(:LOAD
#<Module INIT>)
(:COMPILE
#<Module STD-CLASS>)
(:LOAD
#<Module STD-CLASS>)
(:COMPILE
#<Module CPL>)
(:LOAD
#<Module CPL>)
(:COMPILE
#<Module BRAID>)
(:LOAD
#<Module BRAID>)
(:COMPILE
#<Module FSC>)
(:LOAD
#<Module FSC>)
(:COMPILE
#<Module METHODS>)
(:LOAD
#<Module METHODS>)
(:COMPILE
#<Module COMBIN>)
(:LOAD
#<Module COMBIN>)
(:COMPILE
#<Module DFUN>)
(:LOAD
#<Module DFUN>)
(:COMPILE
#<Module FIXUP>)
(:LOAD
#<Module FIXUP>)
(:COMPILE
#<Module DEFCOMBIN>)
(:LOAD
#<Module DEFCOMBIN>)
(:COMPILE
#<Module CTYPES>)
(:LOAD
#<Module CTYPES>)
(:COMPILE
#<Module CONSTRUCT>)
(:LOAD
#<Module CONSTRUCT>)
(:COMPILE
#<Module ENV>)
(:LOAD
#<Module ENV>)
(:COMPILE
#<Module COMPAT>)
(:COMPILE
#<Module PRECOM1>)
(:LOAD
#<Module PRECOM1>)
(:COMPILE
#<Module PRECOM2>)
(:LOAD
#<Module PRECOM2>)
(:COMPILE
#<Module PRECOM4>)))
(MODULES
(#<Module KCL-PATCHES>
#<Module PKG>
#<Module WALK>
#<Module ITERATE>
#<Module MACROS>
#<Module LOW>
#<Module KCL-LOW>
#<Module FIN>
#<Module DEFCLASS>
#<Module DEFS>
#<Module FNGEN>
#<Module LAP>
#<Module PLAP>
#<Module CACHE>
#<Module DLAP>
#<Module BOOT>
#<Module VECTOR>
#<Module SLOTS>
#<Module INIT>
#<Module STD-CLASS>
#<Module CPL>
#<Module BRAID>
#<Module FSC>
#<Module METHODS>
#<Module COMBIN>
#<Module DFUN>
#<Module FIXUP>
#<Module DEFCOMBIN>
#<Module CTYPES>
#<Module CONSTRUCT>
#<Module ENV>
#<Module COMPAT>
#<Module PRECOM1>
#<Module PRECOM2>
#<Module PRECOM4>))
(SYSTEM
and so on ....