[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Problems compiling PCL under VAX LISP 3.0...
- To: CommonLoops.PA@Xerox.COM
- Subject: Problems compiling PCL under VAX LISP 3.0...
- From: cdwilli@algol.cs.umbc.edu (Chris Willianson (Guest of Al))
- Date: Thu, 11 Jan 90 19:40:23 EST
- Redistributed: CommonLoops.PA
I'm installing PCL on our VAX under VAX Lisp 3.0, VMS 5.1, but I've
run into compilation problems. I'm passing a description of what I've
done so far. (I know there's hope for all my efforts. Any help out
there? I'd greatly appreciate it!)
1. I edited *pcl-directory* in defsys.lsp to reflect the directory
where I had the code residing.
2. I loaded defsys.lsp, then evaluated (pcl::compile-pcl). All went
well compiling and loading the following files (I received no
errors and no warnings):
pkg
walk
iterate
macros
low
3. The next file to be compiled was vaxl-low.lsp. It compiled, but I
received warnings about two functions that are no longer defined in
VAX LISP:
SYSTEM::FUNCTION-LAMBDA-VARS and
SYSTEM::SLISP-COMPILED-FUNCTION-P.
* * * *
I looked in vaxl-low for any function definition changes that
occurred from version 2 to 3. SYSTEM::*CRITICAL-SECTION-P*,
SYSTEM::%SP-INTERRUPT-DEQUEUER, SYSTEM::INTERRUPT-QUEUED-P, and
SYSTEM::%SP-B-STORE are still defined. SYSTEM::%SP-POINTER->FIXNUM,
SYSTEM::FUNCTION-LAMBDA-VARS, AND SYSTEM::SLISP-COMPILED-FUNCTION-P
no longer have function definitions. SYSTEM::FUNCTION-LAMBDA-VARS
seems to have been replaced by SYSTEM::FUNCTION-LAMBDA-LIST and
SYSTEM::SLISP-COMPILED-FUNCTION-P by SYSTEM::COMPILE-FUNCTION-P. I
can't figure out what would have replaced SYSTEM::%SP-POINTER->FIXNUM.
Can anyone else from the following evaluation?
Lisp> (apropos 'fixnum '(system))
Symbols in package SYSTEM containing the string "FIXNUM":
SYSTEM::%SP-FIXNUM->LONG
SYSTEM::%SP-FIXNUM->LONGWORD
SYSTEM::%SP-SINGLE->FIXNUM
SYSTEM::FIXNUMP, has a definition
SYSTEM::%SP-FIXNUM->CHARACTER
SYSTEM::%SP-CHARACTER->FIXNUM
SYSTEM::%SP-FIXNUM->SINGLE
SYSTEM::FIXNUMIZE, has a definition
SYSTEM::%SP-LONG->FIXNUM
SYSTEM::%SP-FIXNUM->DOUBLE
SYSTEM::DUMP-FIXNUM, has a definition
SYSTEM::*PRINT-FIXNUM-BUFFER*, has a value
SYSTEM::%SP-DOUBLE->FIXNUM
SYSTEM::%SP-POINTER->FIXNUM
MOST-NEGATIVE-FIXNUM, has a value
MOST-POSITIVE-FIXNUM, has a value
FIXNUM)
* * * *
4. Compilation continued with no errors or warnings for fin.lsp.
I received several warnings for def.lsp, but they seem unrelated to
the problem. Had to do with symbols bound but not used.
The compiler had trouble with the next file, boot.lsp, because of the
flet of "ignoredp" inside "make-parameter-references." I got the
following error message:
Error in MAKE-PARAMETER-REFERENCES
Compile time fatal error while executing #:ADD-TO-&ENV-FOR-CLC-I2659
Error signalled by ERROR
Error message would have been:
"Invalid operation on lexical environment: #:G1541 #S(TYPE :NAME T :CODE 332
:BOXED-SIZE 0 :UNBOXED-SIZE 0 :CATEGORY :PREDEFINED-TYPE :COMMON NIL
:LAMBDA-LIST NIL :DEFTYPE-EXPANDER NIL :PRIMITIVE-TYPE NIL :PARENT-TYPE NIL
:NAMED NIL :INITIAL-OFFSET 0 :CONC-NAME NIL :CONSTRUCTOR NIL :COPIER NIL
:PRINT-FUNCTION NIL :SLOT-DESCRIPTORS #() :PREDICATE NIL :TYPEP-LIST NIL
:TYPE-OF NIL :ELEMENT-TYPE NIL :ELEMENT-SIZE 0 :OBJECT-LIST NIL :STANDARD-P
T :TYPEP-SYMBOL SYSTEM::TRUE :CANON-ARRAY-ELEMENT-TYPE T :CANON-TYPE
:SELF :TYPEP-TRANSFORM NIL :SPARE29 NIL :SPARE30 NIL :SPARE31 NIL :SPARE32
NIL)"
Surrounding forms:
(FLET ((IGNOREDP # #))
(GATHERING (#)
(ITERATE #
#
#)))
(BLOCK MAKE-PARAMETER-REFERENCES (FLET (#) (GATHERING # #)))
Boot.lsp did compile, though, and loaded.
5. The next problems came in file "vector." Something wrong with
function LOOKUP-PV-N:
Error in LOOKUP-PV-N
Compile time fatal error while executing #:ADD-TO-&ENV-FOR-CLC-I2659
Error signalled by ERROR
Error message would have been:
"Invalid operation on lexical environment: #:G1541 #S(TYPE :NAME T :CODE 332
:BOXED-SIZE 0 :UNBOXED-SIZE 0 :CATEGORY :PREDEFINED-TYPE :COMMON NIL
:LAMBDA-LIST NIL :DEFTYPE-EXPANDER NIL :PRIMITIVE-TYPE NIL :PARENT-TYPE NIL
:NAMED NIL :INITIAL-OFFSET 0 :CONC-NAME NIL :CONSTRUCTOR NIL :COPIER NIL
:PRINT-FUNCTION NIL :SLOT-DESCRIPTORS #() :PREDICATE NIL :TYPEP-LIST NIL
:TYPE-OF NIL :ELEMENT-TYPE NIL :ELEMENT-SIZE 0 :OBJECT-LIST NIL :STANDARD-P
T :TYPEP-SYMBOL SYSTEM::TRUE :CANON-ARRAY-ELEMENT-TYPE T :CANON-TYPE
:SELF :TYPEP-TRANSFORM NIL :SPARE29 NIL :SPARE30 NIL :SPARE31 NIL :SPARE32
NIL)"NIL
Surrounding forms:
(LET* ((CACHE *PV-CACHE-N*)
(MASK *PV-CACHE-N-MASK*)
(OFFSET #))
(DOPLIST (WRAPPER INSTANCE) WRAPPERS-AND-INSTANCES (SETQ OFFSET #))
(SETQ OFFSET (%LOGAND MASK OFFSET))...)
(BLOCK LOOKUP-PV-N
(LET* (#
#
#)
(DOPLIST # WRAPPERS-AND-INSTANCES #)
(SETQ OFFSET #)...))
However, the compiler continued. For the rest of this session, I
received errors relating the the problem of compiling
"make-parameter-references." The first of these errors came after the
error above:
LOOKUP-PV-MISS compiled.
Error between functions
Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
Error signalled by ERROR
Error message would have been:
"Undefined function called: MAKE-PARAMETER-REFERENCES
with args: (((CLASS STANDARD-CLASS) SLOTS PV) (CLASS SLOTS PV) NIL
LOOKUP-PV-MISS-1 (STANDARD-CLASS T T))
apparently called by:
#<Compiled Function EXPAND-DEFMETHOD-INTERNAL #x1B513F>"
INTERN-PV compiled...
This same error occurred a total of six times in compiling vector.lsp,
and it continued throughout the compilation, popping up in files
slots, init, defclass, and std-class. All these files loaded as a
binary version even with the errors, except for std-class. At this
point, I entered the debugger with the following error:
Loading binary of STD-CLASS...
Error in SYMBOL-FUNCTION:
Symbol has no global function definition: MAKE-INSTANCE
Control Stack Debugger
Apply #48: (SYMBOL-FUNCTION MAKE-INSTANCE)
Debug 1>
6. I knew I had to fix "make-parameter-references" before I could
continue, so I rewrote it on the unlikely chance that VAX Lisp 3.0 was
choking on the flet statement within. I rewrote the function, making
"ignoredp" a function in the top-level environment:
(defun ignoredp (symbol declarations) ; include "declarations" in
; parameter list
(dolist (decl (cdar declarations))
(when (and (eq (car decl) 'ignore)
(memq symbol (cdr decl)))
(return t))))
(defun make-parameter-references (specialized-lambda-list
required-parameters
declarations
generic-function-name
specializers)
(gathering ((references (collecting)))
(iterate ((s (list-elements specialized-lambda-list))
(p (list-elements required-parameters)))
(progn p)
(cond ((not (listp s)))
;; Call ignoredp with extra parameter.
((ignoredp (car s) declarations)
(warn "In defmethod ~S ~S, there is a~%~
redundant ignore declaration for the parameter ~S."
generic-function-name
specializers
(car s)))
(t
(gather (car s) references))))))
7. I saved boot.lsp with this change, deleted all binaries generated by
the compilation, and tried recompiling. I got rid of the errors
generated by "make-parameter-references," but I still ended up in the
debugger because of "lookup-pv-n." I also still had compilation
errors because of functions in vaxl-low.
8. I tried recompiling; a dribble, in all its details, and including a
backtrace in the debugger, follows.
Dribbling to DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]OUTPUT2.TEXT;1
Lisp>
(load "defsys")
; Loading contents of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]DEFSYS.LSP;3
; MODULE
; MAKE-MODULES
; MAKE-TRANSFORMATIONS
; MAKE-COMPILE-TRANSFORMATION
; MAKE-LOAD-TRANSFORMATION
; MAKE-LOAD-WITHOUT-DEPENDENCIES-TRANSFORMATION
; COMPILE-FILTER
; OPERATE-ON-SYSTEM
; MAKE-SOURCE-PATHNAME
; MAKE-BINARY-PATHNAME
; MAKE-PATHNAME-INTERNAL
; COMPILE-PCL
; LOAD-PCL
; BUG-REPORT-INFO
; RENAME-PCL
; Finished loading DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]DEFSYS.LSP;3
T
Lisp>
(pcl::compile-pcl)
Compiling PKG...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]PKG.LSP;1
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]PKG.LSP;1
0 Errors, 0 Warnings
Loading binary of PKG...
Compiling WALK...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]WALK.LSP;1
UNBOUND-LEXICAL-FUNCTION compiled.
WITH-AUGMENTED-ENVIRONMENT compiled.
WITH-AUGMENTED-ENVIRONMENT-INTERNAL compiled.
LOOKUP-MACRO-FUNCTION compiled.
ENVIRONMENT-MACRO compiled.
WITH-NEW-DEFINITION-IN-ENVIRONMENT compiled.
CONVERT-MACRO-TO-LAMBDA compiled.
WALKER-ENVIRONMENT-BIND compiled.
ENV-LOCK compiled.
WALKER-ENVIRONMENT-BIND-1 compiled.
ENV-WALK-FUNCTION compiled.
ENV-WALK-FORM compiled.
ENV-DECLARATIONS compiled.
ENV-LEXICAL-VARIABLES compiled.
NOTE-DECLARATION compiled.
NOTE-LEXICAL-BINDING compiled.
VARIABLE-LEXICAL-P compiled.
VARIABLE-DECLARATION compiled.
VARIABLE-SPECIAL-P compiled.
VARIABLE-GLOBALLY-SPECIAL-P compiled.
GET-WALKER-TEMPLATE-INTERNAL compiled.
DEFINE-WALKER-TEMPLATE compiled.
GET-WALKER-TEMPLATE compiled.
GET-IMPLEMENTATION-DEPENDENT-WALKER-TEMPLATE compiled.
; Starting full GC ...
; ... Full GC finished
WALK-FORM compiled.
NESTED-WALK-FORM compiled.
WALK-FORM-INTERNAL compiled.
WALK-TEMPLATE compiled.
WALK-TEMPLATE-HANDLE-REPEAT compiled.
WALK-TEMPLATE-HANDLE-REPEAT-1 compiled.
WALK-REPEAT-EVAL compiled.
RECONS compiled.
RELIST compiled.
RELIST* compiled.
RELIST-INTERNAL compiled.
WALK-DECLARATIONS compiled.
WALK-UNEXPECTED-DECLARE compiled.
WALK-ARGLIST compiled.
WALK-LET compiled.
WALK-LET* compiled.
WALK-PROG compiled.
WALK-PROG* compiled.
WALK-DO compiled.
WALK-DO* compiled.
WALK-LET/LET* compiled.
WALK-PROG/PROG* compiled.
WALK-DO/DO* compiled.
WALK-LET-IF compiled.
WALK-MULTIPLE-VALUE-BIND compiled.
WALK-BINDINGS-1 compiled.
; Starting full GC ...
; ... Full GC finished
WALK-BINDINGS-2 compiled.
WALK-LAMBDA compiled.
WALK-NAMED-LAMBDA compiled.
WALK-TAGBODY compiled.
WALK-TAGBODY-1 compiled.
WALK-COMPILER-LET compiled.
WALK-MACROLET compiled.
WALK-FLET compiled.
WALK-LABELS compiled.
WALK-IF compiled.
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]WALK.LSP;1
0 Errors, 0 Warnings
Loading binary of WALK...
Compiling ITERATE...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]ITERATE.LSP;1
ITERATE compiled.
SIMPLE-EXPAND-ITERATE-FORM compiled.
; Starting full GC ...
; ... Full GC finished
OPTIMIZE-ITERATE-FORM compiled.
EXPAND-INTO-LET compiled.
VARIABLES-FROM-LET compiled.
ITERATE-TRANSFORM-BODY compiled.
PARSE-DECLARATIONS compiled.
; Starting full GC ...
; ... Full GC finished
EXTRACT-SPECIAL-BINDINGS compiled.
FUNCTION-LAMBDA-P compiled.
RENAME-LET-BINDINGS compiled.
RENAME-VARIABLES compiled.
MV-SETQ compiled.
VARIABLE-SAME-P compiled.
MAYBE-WARN compiled.
INTERVAL compiled.
LIST-ELEMENTS compiled.
LIST-TAILS compiled.
ELEMENTS compiled.
PLIST-ELEMENTS compiled.
SEQUENCE-ACCESSOR compiled.
EACHTIME compiled.
WHILE compiled.
UNTIL compiled.
; Starting full GC ...
; ... Full GC finished
GATHERING compiled.
WITH-GATHERING compiled.
SIMPLE-EXPAND-GATHERING-FORM compiled.
OPTIMIZE-GATHERING-FORM compiled.
RENAME-AND-CAPTURE-VARIABLES compiled.
WALK-GATHERING-BODY compiled.
COLLECTING compiled.
JOINING compiled.
MAXIMIZING compiled.
MINIMIZING compiled.
SUMMING compiled.
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]ITERATE.LSP;1
0 Errors, 0 Warnings
Loading binary of ITERATE...
Compiling MACROS...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]MACROS.LSP;1
MEMQ compiled.
; Starting full GC ...
; ... Full GC finished
ASSQ compiled.
RASSQ compiled.
DELQ compiled.
POSQ compiled.
NEQ compiled.
MAKE-CAXR compiled.
MAKE-CDXR compiled.
TRUE compiled.
FALSE compiled.
ZERO compiled.
MAKE-PLIST compiled.
REMTAIL compiled.
ONCE-ONLY compiled.
EXTRACT-DECLARATIONS compiled.
MAKE-KEYWORD compiled.
STRING-APPEND compiled.
SYMBOL-APPEND compiled.
CHECK-MEMBER compiled.
ALIST-ENTRY compiled.
DESTRUCTURING-BIND compiled.
DESTRUCTURE compiled.
; Starting full GC ...
; ... Full GC finished
DESTRUCTURE-INTERNAL compiled.
COLLECTING-ONCE compiled.
DOPLIST compiled.
IF* compiled.
PRINTING-RANDOM-THING compiled.
PRINTING-RANDOM-THING-INTERNAL compiled.
CAPITALIZE-WORDS compiled.
LEGAL-CLASS-NAME-P compiled.
FIND-CLASS compiled.
|SETF FIND-CLASS| compiled.
FIND-WRAPPER compiled.
REDUCE-CONSTANT compiled.
GATHERING1 compiled.
*LIST-ELEMENTS compiled.
*LIST-TAILS compiled.
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]MACROS.LSP;1
0 Errors, 0 Warnings
The following are assumed to be functions, but were not
declared or defined:
CLASS-WRAPPER
Loading binary of MACROS...
Compiling LOW...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]LOW.LSP;1
%LOGAND compiled.
%LOGXOR compiled.
%+ compiled.
%- compiled.
%* compiled.
%/ compiled.
%1+ compiled.
%1- compiled.
%ZEROP compiled.
%= compiled.
; Starting full GC ...
; ... Full GC finished
%< compiled.
%> compiled.
%ASH compiled.
%MOD compiled.
%FLOOR compiled.
%SVREF compiled.
MAKE-%+ compiled.
REDUCE-VARIADIC-TO-BINARY compiled.
WITHOUT-INTERRUPTS compiled.
MAKE-MEMORY-BLOCK compiled.
MEMORY-BLOCK-REF compiled.
MAKE-CACHE-MASK compiled.
MAKE-MEMORY-BLOCK-MASK compiled.
CLEAR-MEMORY-BLOCK compiled.
BUILT-IN-WRAPPER-OF compiled.
BUILT-IN-CLASS-OF compiled.
CLASS-OF-1 compiled.
; Starting full GC ...
; ... Full GC finished
WRAPPER-OF-1 compiled.
WRAPPER-OF-2 compiled.
%%ALLOCATE-INSTANCE--CLASS compiled.
%IWMC-CLASS-CLASS-WRAPPER compiled.
%IWMC-CLASS-STATIC-SLOTS compiled.
|SETF %IWMC-CLASS-CLASS-WRAPPER| compiled.
|SETF %IWMC-CLASS-STATIC-SLOTS| compiled.
IWMC-CLASS-P compiled.
IWMC-CLASS-CLASS-WRAPPER compiled.
IWMC-CLASS-STATIC-SLOTS compiled.
PRINT-IWMC-CLASS compiled.
%ALLOCATE-INSTANCE--CLASS compiled.
%ALLOCATE-INSTANCE--CLASS-1 compiled.
%ALLOCATE-STATIC-SLOT-STORAGE--CLASS compiled.
CLASS-OF--CLASS compiled.
MAKE-CLASS-WRAPPER compiled.
WRAPPER-CACHE-NO compiled.
WRAPPER-INSTANCE-SLOTS-LAYOUT compiled.
WRAPPER-CLASS-SLOTS compiled.
WRAPPER-CLASS compiled.
VALIDATE-WRAPPER compiled.
INVALIDATE-WRAPPER compiled.
OBJECT-CACHE-NO compiled.
FUNCTION-PRETTY-ARGLIST compiled.
SET-FUNCTION-PRETTY-ARGLIST compiled.
SET-FUNCTION-NAME compiled.
SET-FUNCTION-NAME-1 compiled.
INTERN-FUNCTION-NAME compiled.
IN-THE-COMPILER-P compiled.
COMPILE-LAMBDA compiled.
COMPILE-LAMBDA-UNCOMPILED compiled.
; Starting full GC ...
; ... Full GC finished
COMPILE-LAMBDA-DEFERRED compiled.
DEFINE-FUNCTION-TEMPLATE compiled.
RESET-TEMPLATED-FUNCTION-TYPES compiled.
GET-TEMPLATED-FUNCTION-CONSTRUCTOR compiled.
PRE-MAKE-TEMPLATED-FUNCTION-CONSTRUCTOR compiled.
COMPILE-TEMPLATED-FUNCTION-CONSTRUCTORS compiled.
PRECOMPILE-RANDOM-CODE-SEGMENTS compiled.
PRE-MAKE-TEMPLATED-FUNCTION-CONSTRUCTOR-INTERNAL compiled.
DONT-COMPILE compiled.
COMPILE-TEMPLATED-FUNCTION-CONSTRUCTOR-CONSTRUCTORS compiled.
MAKE-TEMPLATED-FUNCTION-CONSTRUCTOR-CONSTRUCTOR compiled.
SHOW-TEMPLATED-FUNCTION-TYPES compiled.
RECORD-DEFINITION compiled.
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]LOW.LSP;1
0 Errors, 0 Warnings
The following are assumed to be functions, but were not
declared or defined:
CLASS-WRAPPER
Loading binary of LOW...
Compiling VAXL-LOW...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]VAXL-LOW.LSP;1
WITHOUT-INTERRUPTS compiled.
LOAD-TIME-EVAL compiled.
OBJECT-CACHE-NO compiled.
PRINTING-RANDOM-THING-INTERNAL compiled.
FUNCTION-ARGLIST compiled.
Warning in SET-FUNCTION-NAME-1
IGNORE bound but value not used.
SET-FUNCTION-NAME-1 compiled.
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]VAXL-LOW.LSP;1
0 Errors, 1 Warnings
The following are assumed to be functions, but were not
declared or defined:
SYSTEM::FUNCTION-LAMBDA-VARS SYSTEM::SLISP-COMPILED-FUNCTION-P
Loading binary of VAXL-LOW...
Compiling FIN...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]FIN.LSP;1
FUNCALLABLE-INSTANCE-DATA-POSITION compiled.
ALLOCATE-FUNCALLABLE-INSTANCE-1 compiled.
; Starting full GC ...
; ... Full GC finished
FUNCALLABLE-INSTANCE-P compiled.
SET-FUNCALLABLE-INSTANCE-FUNCTION compiled.
MAKE-TRAMPOLINE compiled.
FUNCALLABLE-INSTANCE-DATA-1 compiled.
CALLED-FIN-WITHOUT-FUNCTION compiled.
FUNCALLABLE-INSTANCE-CLASS compiled.
FUNCALLABLE-INSTANCE-WRAPPER compiled.
FUNCALLABLE-INSTANCE-STATIC-SLOTS compiled.
ALLOCATE-FUNCALLABLE-INSTANCE compiled.
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]FIN.LSP;1
0 Errors, 0 Warnings
Loading binary of FIN...
Compiling DEFS...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]DEFS.LSP;1
GET-SETF-FUNCTION-NAME compiled.
DO-STANDARD-DEFSETF compiled.
DO-STANDARD-DEFSETF-1 compiled.
DO-DEFSETF compiled.
DO-STANDARD-DEFSETFS compiled.
; Starting full GC ...
; ... Full GC finished
MAKE-SETF-METHOD-LAMBDA-LIST compiled.
PARSE-GSPEC compiled.
UNENCAPSULATED-FDEFINITION compiled.
FDEFINE-CAREFULLY compiled.
GBOUNDP compiled.
GMAKUNBOUND compiled.
GDEFINITION compiled.
|SETF GDEFINITION| compiled.
GET-SETF-FUNCTION compiled.
|SETF GET-SETF-FUNCTION| compiled.
Warning in DO-SATISFIES-DEFTYPE
EXPAND-FN bound but value not used.
Surrounding forms:
(LET* ((SPECIFIER `#)
(EXPAND-FN #'#))
(OR (EVAL `#)))
(BLOCK DO-SATISFIES-DEFTYPE
(LET* (#
#)
(OR #)))
Warning in DO-SATISFIES-DEFTYPE
EXPAND-FN bound but value not used.
Surrounding forms:
(LET* ((SPECIFIER `#)
(EXPAND-FN #'#))
(OR (EVAL `#)))
(BLOCK DO-SATISFIES-DEFTYPE
(LET* (#
#)
(OR #)))
DO-SATISFIES-DEFTYPE compiled.
MAKE-TYPE-PREDICATE-NAME compiled.
Warning in DEFINE-EARLY-SETFS-AND-TYPE-PREDICATES
SUPERS bound but value not used.
Surrounding forms:
(DESTRUCTURING-BIND (IGNORE NAME SUPERS SLOTS . OPTIONS) DEFCLASS
(UNLESS (MEMQ NAME '#) (DO-SATISFIES-DEFTYPE NAME #)) ...)
(TAGBODY
(GO #:G5339)
#:G5338
(DESTRUCTURING-BIND (IGNORE NAME SUPERS SLOTS . OPTIONS) DEFCLASS
(UNLESS # #) ...)...)
(LET* ((#:G5337 #)
(DEFCLASS #))
(DECLARE (LIST #:G5337))
(TAGBODY
(GO #:G5339)
#:G5338
(DESTRUCTURING-BIND # DEFCLASS # ...)...))
DEFINE-EARLY-SETFS-AND-TYPE-PREDICATES compiled.
Warning in #:DEFSETF-SLOT-VALUE-ALWAYS
DEFAULT bound but value not used.
Surrounding forms:
(LET* ()
(LET* (#
#
#)
(BLOCK SLOT-VALUE-ALWAYS `#)))
(FUNCALL #'(LAMBDA (SYSTEM::%ACCESS-ARGLIST NEW-VALUE) (LET* # #))
SYSTEM::NEW-ACCESS-FORM SYSTEM::NEWVAL-VAR)
(VALUES SYSTEM::DUMMIES (CDR SYSTEM::ACCESS-FORM)
(LIST SYSTEM::NEWVAL-VAR) ...)
; Starting full GC ...
; ... Full GC finished
VARIABLE-CLASS compiled.
SPECIALIZER-CASE compiled.
SPECIALIZER-ECASE compiled.
SPECIALIZER-CROSS-CASE compiled.
SPECIALIZER-EQ compiled.
; Starting full GC ...
; ... Full GC finished
SPECIALIZER-ASSOC compiled.
SUB-SPECIALIZER-P compiled.
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]DEFS.LSP;1
0 Errors, 4 Warnings
The following are assumed to be functions, but were not
declared or defined:
CLASS-PRECEDENCE-LIST CLASS-OF
Loading binary of DEFS...
Compiling BOOT...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]BOOT.LSP;2
REDIRECT-EARLY-FUNCTION-INTERNAL compiled.
DEFGENERIC compiled.
EXPAND-DEFGENERIC compiled.
LOAD-DEFGENERIC compiled.
DEFMETHOD compiled.
METHOD-PROTOTYPE-FOR-GF compiled.
EXPAND-DEFMETHOD compiled.
; Starting full GC ...
; ... Full GC finished
EXPAND-DEFMETHOD-INTERNAL compiled.
; Starting full GC ...
; ... Full GC finished
ADD-LEXICAL-FUNCTIONS-TO-METHOD-LAMBDA compiled.
IGNOREDP compiled.
MAKE-PARAMETER-REFERENCES compiled.
METHOD-FUNCTION-PLIST compiled.
|SETF METHOD-FUNCTION-PLIST| compiled.
METHOD-FUNCTION-GET compiled.
|SETF METHOD-FUNCTION-GET| compiled.
METHOD-FUNCTION-ISL compiled.
METHOD-FUNCTION-NEEDS-NEXT-METHODS-P compiled.
LOAD-DEFMETHOD compiled.
LOAD-DEFMETHOD-INTERNAL compiled.
MAKE-METHOD-SPEC compiled.
ENSURE-GENERIC-FUNCTION compiled.
EARLY-ENSURE-GF-INTERNAL compiled.
EARLY-GF-P compiled.
EARLY-GF-METHODS compiled.
EARLY-GF-DISCRIMINATOR-CODE compiled.
REAL-ENSURE-GF-INTERNAL compiled.
; Starting full GC ...
; ... Full GC finished
EARLY-MAKE-A-METHOD compiled.
REAL-MAKE-A-METHOD compiled.
EARLY-METHOD-SPECIALIZERS compiled.
EARLY-METHOD-QUALIFIERS compiled.
EARLY-ADD-NAMED-METHOD compiled.
ADD-METHOD compiled.
REMOVE-METHOD compiled.
GET-METHOD compiled.
EARLY-UPDATE-DISCRIMINATOR-CODE compiled.
EARLY-GET-CPL compiled.
EARLY-SORT-METHODS compiled.
EARLY-DFUN compiled.
; Starting full GC ...
; ... Full GC finished
FIX-EARLY-GENERIC-FUNCTIONS compiled.
MAKE-TOP-LEVEL-FORM compiled.
MAKE-PROGN compiled.
PARSE-DEFMETHOD compiled.
PARSE-SPECIALIZERS compiled.
UNPARSE-SPECIALIZERS compiled.
PARSE-METHOD-OR-SPEC compiled.
SPECIALIZED-LAMBDA-LIST-PARAMETERS compiled.
SPECIALIZED-LAMBDA-LIST-LAMBDA-LIST compiled.
SPECIALIZED-LAMBDA-LIST-SPECIALIZERS compiled.
; Starting full GC ...
; ... Full GC finished
PARSE-SPECIALIZED-LAMBDA-LIST compiled.
WITH-SLOTS compiled.
WITH-ACCESSORS compiled.
EXPAND-WITH-SLOTS compiled.
EXPAND-WITH-SLOTS-INTERNAL compiled.
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]BOOT.LSP;2
0 Errors, 0 Warnings
The following are assumed to be functions, but were not
declared or defined:
GENERIC-FUNCTION-P CLASS-PROTOTYPE GENERIC-FUNCTION-METHOD-CLASS
CLASS-NAME CLASS-OF CAN-OPTIMIZE-ACCESS OPTIMIZE-SLOT-VALUE
OPTIMIZE-SET-SLOT-VALUE OPTIMIZE-STANDARD-INSTANCE-ACCESS
SORT-SLOTS-INTO-ISL ADD-PV-BINDING INTERN-SLOT-LISTS ADD-NAMED-METHOD
MAKE-INSTANCE MAKE-A-METHOD REAL-GET-METHOD BOOTSTRAP-GET-SLOT
ALLOCATE-INSTANCE CLASS-WRAPPER CLASS-NO-OF-INSTANCE-SLOTS
INITIALIZE-INSTANCE REAL-ADD-METHOD SET-SLOT-VALUE
|SETF GENERIC-FUNCTION-NAME| CLASSP METHOD-TYPE-SPECIFIERS METHOD-P
METHOD-GENERIC-FUNCTION GENERIC-FUNCTION-NAME METHOD-QUALIFIERS
COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO
Loading binary of BOOT...
Compiling VECTOR...
Starting compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]VECTOR.LSP;1
; Starting full GC ...
; ... Full GC finished
GET-NEXT-WRAPPER-CACHE-NO compiled.
MAKE-WRAPPER-CACHE-MASK compiled.
SHIFT-WRAPPER-CACHE-LOCATION compiled.
COMPUTE-LINE-SIZE compiled.
COMPUTE-WRAPPER-CACHE-LOCATION compiled.
COMPUTE-WRAPPER-CACHE-LOCATION-1 compiled.
COMPUTE-WRAPPER-CACHE-LOCATION-2 compiled.
; Starting full GC ...
; ... Full GC finished
COMPUTE-WRAPPER-CACHE-LOCATION-FROM-LINE compiled.
INSTANCE-SLOT-POSITION compiled.
MAKE-INTERN-LIST-TABLE compiled.
INTERN-IN-LIST-TABLE compiled.
INTERN-SLOT-LISTS-1 compiled.
INTERN-SLOT-LISTS-2 compiled.
INTERN-SLOT-LISTS compiled.
LOOKUP-PV compiled.
; Starting full GC ...
; ... Full GC finished
LOOKUP-PV-1 compiled.
LOOKUP-PV-2 compiled.
; Starting full GC ...
; ... Full GC finished
LOOKUP-PV-3 compiled.
Error in LOOKUP-PV-N
Compile time fatal error while executing #:ADD-TO-&ENV-FOR-CLC-I2659
Error signalled by ERROR
Error message would have been:
"Invalid operation on lexical environment: #:G1541 #S(TYPE :NAME T :CODE 332
:BOXED-SIZE 0 :UNBOXED-SIZE 0 :CATEGORY :PREDEFINED-TYPE :COMMON NIL
:LAMBDA-LIST NIL :DEFTYPE-EXPANDER NIL :PRIMITIVE-TYPE NIL :PARENT-TYPE NIL
:NAMED NIL :INITIAL-OFFSET 0 :CONC-NAME NIL :CONSTRUCTOR NIL :COPIER NIL
:PRINT-FUNCTION NIL :SLOT-DESCRIPTORS #() :PREDICATE NIL :TYPEP-LIST NIL
:TYPE-OF NIL :ELEMENT-TYPE NIL :ELEMENT-SIZE 0 :OBJECT-LIST NIL :STANDARD-P
T :TYPEP-SYMBOL SYSTEM::TRUE :CANON-ARRAY-ELEMENT-TYPE T :CANON-TYPE :SELF
:TYPEP-TRANSFORM NIL :SPARE29 NIL :SPARE30 NIL :SPARE31 NIL :SPARE32 NIL)"
Surrounding forms:
(LET* ((CACHE *PV-CACHE-N*)
(MASK *PV-CACHE-N-MASK*)
(OFFSET #))
(DOPLIST (WRAPPER INSTANCE) WRAPPERS-AND-INSTANCES (SETQ OFFSET #))
(SETQ OFFSET (%LOGAND MASK OFFSET))...)
(BLOCK LOOKUP-PV-N
(LET* (#
#
#)
(DOPLIST # WRAPPERS-AND-INSTANCES #)
(SETQ OFFSET #)...))
LOOKUP-PV-MISS compiled.
Error between functions
Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
Error signalled by ERROR
Error message would have been:
"Undefined function called: SYSTEM::SLISP-COMPILED-FUNCTION-P
with args:
(#<Interpreted Function LOOKUP-PV-MISS-1 (LAMBDA (CLASS SLOTS PV)
(DECLARE (CLASS CLASS STANDARD-CLASS)) (PROGN CLASS) (BLOCK
LOOKUP-PV-MISS-1 (LET ((WRAPPER (CLASS-WRAPPER CLASS))) (DO* ((#:G9135
SLOTS (CDR #:G9135)) (SLOT (CAR #:G9135) (CAR #:G9135))) ((ENDP
#:G9135) NIL) (DECLARE (LIST #:G9135)) (SETQ PV (CONS (LET ((POS 0))
(BLOCK LOOP (DO* ((#:G9136 (LET NIL (DECLARE (OPTIMIZE (SPEED 3)
(SAFETY 0)) (INLINE SVREF)) (SVREF (THE SIMPLE-VECTOR WRAPPER) (THE
FIXNUM 1))) (CDR #:G9136)) (SN (CAR #:G9136) (CAR #:G9136))) ((ENDP
#:G9136) NIL) (DECLARE (LIST #:G9136)) (IF (EQ SLOT SN) (PROGN
(RETURN-FROM LOOP POS)) NIL) (SETQ POS (+ POS 1))))) PV))) PV)))>)
apparently called by: #<Compiled Function SET-FUNCTION-NAME-1 #x1B5095>"
INTERN-PV compiled.
MAKE-PERMUTATION-VECTOR compiled.
CAN-OPTIMIZE-ACCESS compiled.
Error between functions
Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
Error signalled by ERROR
Error message would have been:
"Undefined function called: SYSTEM::SLISP-COMPILED-FUNCTION-P
with args:
(#<Interpreted Function OPTIMIZE-SLOT-VALUE (LAMBDA (CLASS FORM)
(DECLARE (CLASS CLASS STANDARD-CLASS)) (PROGN CLASS) (BLOCK
OPTIMIZE-SLOT-VALUE (LET (SLOT-NAME INSTANCE .DESTRUCTURE-FORM.) (SETQ
.DESTRUCTURE-FORM. FORM) (PROGN (SETQ .DESTRUCTURE-FORM. (CDR
.DESTRUCTURE-FORM.)) (SETQ INSTANCE (PROG1 (CAR .DESTRUCTURE-FORM.)
(SETQ .DESTRUCTURE-FORM. (CDR .DESTRUCTURE-FORM.))))) (PROGN (SETQ
SLOT-NAME (CAR .DESTRUCTURE-FORM.)) NIL) (LET NIL (DECLARE (OPTIMIZE
(SPACE 2))) (LIST (QUOTE STANDARD-INSTANCE-ACCESS) INSTANCE (LIST
(QUOTE QUOTE) (REDUCE-CONSTANT SLOT-NAME)))))))>)
apparently called by: #<Compiled Function SET-FUNCTION-NAME-1 #x1B5095>"
Error between functions
Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
Error signalled by ERROR
Error message would have been:
"Undefined function called: SYSTEM::SLISP-COMPILED-FUNCTION-P
with args: (#<Interpreted Function OPTIMIZE-SET-SLOT-VALUE (LAMBDA
(CLASS FORM) (DECLARE (CLASS CLASS STANDARD-CLASS)) (PROGN CLASS)
(BLOCK OPTIMIZE-SET-SLOT-VALUE (LET (NEW-VALUE SLOT-NAME INSTANCE
.DESTRUCTURE-FORM.) (SETQ .DESTRUCTURE-FORM. FORM) (PROGN (SETQ
.DESTRUCTURE-FORM. (CDR .DESTRUCTURE-FORM.)) (SETQ INSTANCE (PROG1
(CAR .DESTRUCTURE-FORM.) (SETQ .DESTRUCTURE-FORM. (CDR
.DESTRUCTURE-FORM.))))) (PROGN (SETQ SLOT-NAME (CAR
.DESTRUCTURE-FORM.)) (SETQ .DESTRUCTURE-FORM. (CDR
.DESTRUCTURE-FORM.))) (PROGN (SETQ NEW-VALUE (CAR .DESTRUCTURE-FORM.))
NIL) (LET NIL (DECLARE (OPTIMIZE (SPACE 2))) (LIST (QUOTE
STANDARD-INSTANCE-ACCESS) INSTANCE (LIST (QUOTE QUOTE)
(REDUCE-CONSTANT SLOT-NAME)) NEW-VALUE)))))>)
apparently called by: #<Compiled Function SET-FUNCTION-NAME-1 #x1B5095>"
; Starting full GC ...
; ... Full GC finished
OPTIMIZE-STANDARD-INSTANCE-ACCESS compiled.
Error between functions
Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
Error signalled by ERROR
Error message would have been:
"Undefined function called: SYSTEM::SLISP-COMPILED-FUNCTION-P
with args:
(#<Interpreted Function OPTIMIZE-STANDARD-INSTANCE-ACCESS-INTERNAL
(LAMBDA (CLASS) (DECLARE (CLASS CLASS STANDARD-CLASS)) (PROGN CLASS)
(BLOCK OPTIMIZE-STANDARD-INSTANCE-ACCESS-INTERNAL (QUOTE
STD-INSTANCE-ACCESS-PV)))>)
apparently called by: #<Compiled Function SET-FUNCTION-NAME-1 #x1CC64D>"
SORT-SLOTS-INTO-ISL compiled.
COMPUTE-PRIMARY-PV-CACHE-SIZE compiled.
Error in ADD-PV-BINDING
Compile time fatal error while executing #:ADD-TO-&ENV-FOR-CLC-I2659
Error signalled by ERROR
Error message would have been:
"Invalid operation on lexical environment: #:G1541 #S(TYPE :NAME T
:CODE 332 :BOXED-SIZE 0 :UNBOXED-SIZE 0 :CATEGORY :PREDEFINED-TYPE
:COMMON NIL :LAMBDA-LIST NIL :DEFTYPE-EXPANDER NIL :PRIMITIVE-TYPE NIL
:PARENT-TYPE NIL :NAMED NIL :INITIAL-OFFSET 0 :CONC-NAME NIL
:CONSTRUCTOR NIL :COPIER NIL :PRINT-FUNCTION NIL :SLOT-DESCRIPTORS #()
:PREDICATE NIL :TYPEP-LIST NIL :TYPE-OF NIL :ELEMENT-TYPE NIL
:ELEMENT-SIZE 0 :OBJECT-LIST NIL :STANDARD-P T :TYPEP-SYMBOL
SYSTEM::TRUE :CANON-ARRAY-ELEMENT-TYPE T :CANON-TYPE :SELF
:TYPEP-TRANSFORM NIL :SPARE29 NIL :SPARE30 NIL :SPARE31 NIL :SPARE32
NIL)"
Surrounding forms:
(FLET ((PARAMETER-CLASS # #))
(LET* (#
#
#
# ...)
(NCONC PLIST #)
(MULTIPLE-VALUE-BIND # # #)))
(BLOCK ADD-PV-BINDING
(FLET (#)
(LET* #
#
#)))
Error between functions
Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
Error signalled by ERROR
Error message would have been:
"Undefined function called: SYSTEM::SLISP-COMPILED-FUNCTION-P
with args:
(#<Interpreted Function WRAPPER-FETCHER (LAMBDA (CLASS) (DECLARE
(CLASS CLASS STANDARD-CLASS)) (PROGN CLASS) (BLOCK WRAPPER-FETCHER
(QUOTE IWMC-CLASS-CLASS-WRAPPER)))>)
apparently called by: #<Compiled Function SET-FUNCTION-NAME-1 #x1CC64D>"
Error between functions
Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
Error signalled by ERROR
Error message would have been:
"Undefined function called: SYSTEM::SLISP-COMPILED-FUNCTION-P
with args:
(#<Interpreted Function SLOTS-FETCHER (LAMBDA (CLASS) (DECLARE (CLASS
CLASS STANDARD-CLASS)) (PROGN CLASS) (BLOCK SLOTS-FETCHER (QUOTE
IWMC-CLASS-STATIC-SLOTS)))>)
apparently called by: #<Compiled Function SET-FUNCTION-NAME-1 #x1CC64D>"
Error between functions
Compile time fatal error while executing SYSTEM::%SP-BAD-FUNCTION-ERROR
Error signalled by ERROR
Error message would have been:
"Undefined function called: SYSTEM::SLISP-COMPILED-FUNCTION-P
with args:
(#<Interpreted Function RAW-INSTANCE-ALLOCATOR (LAMBDA (CLASS)
(DECLARE (CLASS CLASS STANDARD-CLASS)) (PROGN CLASS) (BLOCK
RAW-INSTANCE-ALLOCATOR (QUOTE %%ALLOCATE-INSTANCE--CLASS)))>)
apparently called by: #<Compiled Function SET-FUNCTION-NAME-1 #x1CC64D>"
PRIMARY-PV-CACHE-MISS compiled.
; Starting full GC ...
; ... Full GC finished
STD-INSTANCE-ACCESS-PV compiled.
FSC-INSTANCE-ACCESS-PV compiled.
STD-INSTANCE-ACCESS-PV-INTERNAL compiled.
PV-ACCESS-TRAP compiled.
Finished compilation of file DISK$SCRATCH:[SCRATCH.WILLIAMSON.PCL]VECTOR.LSP;1
9 Errors, 0 Warnings
Errors were detected in the following functions:
LOOKUP-PV-N ADD-PV-BINDING
The following are assumed to be functions, but were not
declared or defined:
WRAPPER-OF OBSOLETE-INSTANCE-TRAP LOOKUP-PV-MISS-1 CLASS-WRAPPER
OPTIMIZE-STANDARD-INSTANCE-ACCESS-INTERNAL CLASS-OF
|SETF SLOT-VALUE-USING-CLASS| SLOT-VALUE-USING-CLASS
Loading binary of VECTOR...
Error in SYSTEM::%SP-BAD-FUNCTION-ERROR:
Undefined function called: SYSTEM::SLISP-COMPILED-FUNCTION-P
with args: (#<Compiled Function #:TOP-LEVEL-FORM-I9573 #x1B6FD3>)
apparently called by: #<Compiled Function SET-FUNCTION-NAME-1 #x1B4FE5>
Control Stack Debugger
Apply #50:
(SET-FUNCTION-NAME-1 #<Compiled Function #:TOP-LEVEL-FORM-I9573
#x1B6FD3> |(METHOD LOOKUP-PV-MISS-1 (STANDARD-CLASS T T))| (METHOD
LOOKUP-PV-MISS-1 (STANDARD-CLASS T T)))
Debug 1> backtrace
-- Backtrace start --
Apply #50: (SET-FUNCTION-NAME-1 #<Compiled Function
#:TOP-LEVEL-FORM-I9573 #x1B6FD3> |(METHOD LOOKUP-PV-MISS-1
(STANDARD-CLASS T T))| (METHOD LOOKUP-PV-MISS-1 (STANDARD-CLASS T T)))
Apply #49: (SET-FUNCTION-NAME #<Compiled Function
#:TOP-LEVEL-FORM-I9573 #x1B6FD3> (METHOD LOOKUP-PV-MISS-1
(STANDARD-CLASS T T))) Apply #48: (LOAD-DEFMETHOD STANDARD-METHOD
LOOKUP-PV-MISS-1 NIL (STANDARD-CLASS T T) (CLASS SLOTS PV) NIL NIL NIL
#<Compiled Function #:TOP-LEVEL-FORM-I9573 #x1B6FD3>) Apply #44: (LOAD
#S(PATHNAME :HOST "VX8300" :DEVICE "DISK$SCRATCH" :DIRECTORY
"SCRATCH.WILLIAMSON.PCL" :NAME "vector" :TYPE "FAS" :VERSION NIL))
Eval #43: (LOAD PATHNAME) Eval #42: (IF PRINT-ONLY PRINT-ONLY (LOAD
PATHNAME)) Eval #41: (OR PRINT-ONLY (LOAD PATHNAME)) Eval #40:
(SYSTEM::IMPLICIT-PROGN (FORMAT T "~&Loading binary of ~A..." NAME)
(OR PRINT-ONLY (LOAD PATHNAME))) Eval #39: (BLOCK LOAD-BINARY (FORMAT
T "~&Loading binary of ~A..." NAME) (OR PRINT-ONLY (LOAD PATHNAME)))
Apply #37: (LOAD-BINARY VECTOR #S(PATHNAME :HOST "VX8300" :DEVICE
"DISK$SCRATCH" :DIRECTORY "SCRATCH.WILLIAMSON.PCL" :NAME "vector"
:TYPE "FAS" :VERSION NIL)) Eval #36: (LOAD-BINARY NAME BINARY) Eval
#35: (IF (DOLIST (TRANS TRANSFORMATIONS) (AND (EQ (CAR TRANS)
:COMPILE) (EQ (CADR TRANS) M) (RETURN TRANS))) (COND ((NULL
(PROBE-FILE BINARY)) (LOAD-SOURCE NAME SOURCE)) ((NULL (PROBE-FILE
SOURCE)) (LOAD-BINARY NAME BINARY)) ((NOT (YES-OR-NO-P "The definition
of this system requires ~
that the module ~A be loaded now even~%~
though it will later be compiled. Should ~
the existing binary version be loaded ~%~
instead of the source?" NAME))
(LOAD-SOURCE NAME SOURCE)) (T (LOAD-BINARY NAME BINARY))) (LOAD-BINARY
NAME BINARY)) Eval #34: (LET* ((NAME (MODULE-NAME M)) (*LOAD-VERBOSE*
NIL) (SOURCE (MAKE-SOURCE-PATHNAME NAME)) (BINARY
(MAKE-BINARY-PATHNAME NAME))) (IF (DOLIST (TRANS TRANSFORMATIONS) (AND
(EQ (CAR TRANS) :COMPILE) (EQ (CADR TRANS) M) (RETURN TRANS))) (COND
((NULL (PROBE-FILE BINARY)) (LOAD-SOURCE NAME SOURCE)) ((NULL
(PROBE-FILE SOURCE)) (LOAD-BINARY NAME BINARY)) ((NOT (YES-OR-NO-P
"The definition of this system requires ~
that the module ~A be loaded now even~%~
though it will later be compiled. Should ~
the existing binary version be loaded ~%~
instead of the source?" NAME))
(LOAD-SOURCE NAME SOURCE)) (T (LOAD-BINARY NAME BINARY))) (LOAD-BINARY
NAME BINARY))) Eval #33: (BLOCK LOAD-MODULE (LET* ((NAME (MODULE-NAME
M)) (*LOAD-VERBOSE* NIL) (SOURCE (MAKE-SOURCE-PATHNAME NAME)) (BINARY
(MAKE-BINARY-PATHNAME NAME))) (IF (DOLIST (TRANS TRANSFORMATIONS) (AND
(EQ (CAR TRANS) :COMPILE) (EQ (CADR TRANS) M) (RETURN TRANS))) (COND
((NULL (PROBE-FILE BINARY)) (LOAD-SOURCE NAME SOURCE)) ((NULL
(PROBE-FILE SOURCE)) (LOAD-BINARY NAME BINARY)) ((NOT (YES-OR-NO-P
"The definition of this system requires ~
that the module ~A be loaded now even~%~
though it will later be compiled. Should ~
the existing binary version be loaded ~%~
instead of the source?" NAME))
(LOAD-SOURCE NAME SOURCE)) (T (LOAD-BINARY NAME BINARY))) (LOAD-BINARY
NAME BINARY)))) Apply #31: (LOAD-MODULE #<Module VECTOR>) Eval #30:
(LOAD-MODULE (CADR TRANSFORM)) Eval #29: (IF (EQL #:G610 (QUOTE
:LOAD)) (LOAD-MODULE (CADR TRANSFORM)) (ERROR "The value of ~S must be
one of the following: ~
~{~S~^, ~}~%Its value is: ~S"
(QUOTE (CAR TRANSFORM)) (QUOTE (:COMPILE :LOAD)) (CAR TRANSFORM)))
Eval #28: (IF (EQL #:G610 (QUOTE :COMPILE)) (COMPILE-MODULE (CADR
TRANSFORM)) (IF (EQL #:G610 (QUOTE :LOAD)) (LOAD-MODULE (CADR
TRANSFORM)) (ERROR "The value of ~S must be one of the following: ~
~{~S~^, ~}~%Its value is: ~S" (QUOTE (CAR TRANSFORM))
(QUOTE (:COMPILE :LOAD)) (CAR TRANSFORM)))) Eval #27: (COND ((EQL
#:G610 (QUOTE :COMPILE)) (COMPILE-MODULE (CADR TRANSFORM))) ((EQL
#:G610 (QUOTE :LOAD)) (LOAD-MODULE (CADR TRANSFORM))) (T (ERROR "The
value of ~S must be one of the following: ~
~{~S~^, ~}~%Its value is: ~S" (QUOTE (CAR TRANSFORM))
(QUOTE (:COMPILE :LOAD)) (CAR TRANSFORM)))) Eval #26: (LET ((#:G610
(CAR TRANSFORM))) (COND ((EQL #:G610 (QUOTE :COMPILE)) (COMPILE-MODULE
(CADR TRANSFORM))) ((EQL #:G610 (QUOTE :LOAD)) (LOAD-MODULE (CADR
TRANSFORM))) (T (ERROR "The value of ~S must be one of the following:
~
~{~S~^, ~}~%Its value is: ~S"
(QUOTE (CAR TRANSFORM)) (QUOTE (:COMPILE :LOAD)) (CAR TRANSFORM)))))
Eval #25: (ECASE (CAR TRANSFORM) (:COMPILE (COMPILE-MODULE (CADR
TRANSFORM))) (:LOAD (LOAD-MODULE (CADR TRANSFORM)))) Eval #24: (LET
((TRANSFORM (POP TRANSFORMATIONS))) (ECASE (CAR TRANSFORM) (:COMPILE
(COMPILE-MODULE (CADR TRANSFORM))) (:LOAD (LOAD-MODULE (CADR
TRANSFORM))))) Eval #23: (TAGBODY #:G608 (WHEN (NULL TRANSFORMATIONS)
(RETURN T)) (LET ((TRANSFORM (POP TRANSFORMATIONS))) (ECASE (CAR
TRANSFORM) (:COMPILE (COMPILE-MODULE (CADR TRANSFORM))) (:LOAD
(LOAD-MODULE (CADR TRANSFORM))))) (GO #:G608)) Eval #22: (BLOCK NIL
(TAGBODY #:G608 (WHEN (NULL TRANSFORMATIONS) (RETURN T)) (LET
((TRANSFORM (POP TRANSFORMATIONS))) (ECASE (CAR TRANSFORM) (:COMPILE
(COMPILE-MODULE (CADR TRANSFORM))) (:LOAD (LOAD-MODULE (CADR
TRANSFORM))))) (GO #:G608))) Eval #21: (LOOP (WHEN (NULL
TRANSFORMATIONS) (RETURN T)) (LET ((TRANSFORM (POP TRANSFORMATIONS)))
(ECASE (CAR TRANSFORM) (:COMPILE (COMPILE-MODULE (CADR TRANSFORM)))
(:LOAD (LOAD-MODULE (CADR TRANSFORM)))))) Eval #20: (PROGN (LOOP (WHEN
(NULL TRANSFORMATIONS) (RETURN T)) (LET ((TRANSFORM (POP
TRANSFORMATIONS))) (ECASE (CAR TRANSFORM) (:COMPILE (COMPILE-MODULE
(CADR TRANSFORM))) (:LOAD (LOAD-MODULE (CADR TRANSFORM))))))) Eval
#19: (SYSTEM::IMPLICIT-PROGN (SETQ TRANSFORMATIONS (ECASE MODE
(:COMPILE (MAKE-TRANSFORMATIONS MODULES (FUNCTION COMPILE-FILTER)
(FUNCTION MAKE-COMPILE-TRANSFORMATION))) (:RECOMPILE
(MAKE-TRANSFORMATIONS MODULES (FUNCTION TRUE) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:RECOMPILE-SOME (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (MEMBER (MODULE-NAME M)
ARG) (COMPILE-FILTER M TRANSFORMS)))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:QUERY-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Compile ~A?" (MODULE-NAME M))))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:CONFIRM-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (AND (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Go ahead and compile ~A?" (MODULE-NAME M)))))
(FUNCTION MAKE-COMPILE-TRANSFORMATION))) (:LOAD (MAKE-TRANSFORMATIONS
MODULES (FUNCTION TRUE) (FUNCTION MAKE-LOAD-TRANSFORMATION)))
(:QUERY-LOAD (MAKE-TRANSFORMATIONS MODULES (FUNCTION (LAMBDA (M
TRANSFORMS) (DECLARE (IGNORE TRANSFORMS)) (Y-OR-N-P "Load ~A?"
(MODULE-NAME M)))) (FUNCTION
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)))))))) Eval
#18: (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) (SOURCE (MAKE-SOURCE-PATHNAME NAME)) (BINARY
(MAKE-BINARY-PATHNAME NAME))) (IF (DOLIST (TRANS TRANSFORMATIONS) (AND
(EQ (CAR TRANS) :COMPILE) (EQ (CADR TRANS) M) (RETURN TRANS))) (COND
((NULL (PROBE-FILE BINARY)) (LOAD-SOURCE NAME SOURCE)) ((NULL
(PROBE-FILE SOURCE)) (LOAD-BINARY NAME BINARY)) ((NOT (YES-OR-NO-P
"The definition of this system requires ~
that the module ~A be loaded now even~%~
though it will later be compiled. Should ~
the existing binary version be loaded ~%~
instead of the source?" NAME))
(LOAD-SOURCE NAME SOURCE)) (T (LOAD-BINARY NAME BINARY))) (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)) (QUOTE T))) (SETQ
TRANSFORMATIONS (ECASE MODE (:COMPILE (MAKE-TRANSFORMATIONS MODULES
(FUNCTION COMPILE-FILTER) (FUNCTION MAKE-COMPILE-TRANSFORMATION)))
(:RECOMPILE (MAKE-TRANSFORMATIONS MODULES (FUNCTION TRUE) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:RECOMPILE-SOME (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (MEMBER (MODULE-NAME M)
ARG) (COMPILE-FILTER M TRANSFORMS)))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:QUERY-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Compile ~A?" (MODULE-NAME M))))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:CONFIRM-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (AND (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Go ahead and compile ~A?" (MODULE-NAME M)))))
(FUNCTION MAKE-COMPILE-TRANSFORMATION))) (:LOAD (MAKE-TRANSFORMATIONS
MODULES (FUNCTION TRUE) (FUNCTION MAKE-LOAD-TRANSFORMATION)))
(:QUERY-LOAD (MAKE-TRANSFORMATIONS MODULES (FUNCTION (LAMBDA (M
TRANSFORMS) (DECLARE (IGNORE TRANSFORMS)) (Y-OR-N-P "Load ~A?"
(MODULE-NAME M)))) (FUNCTION
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)))))))) Eval
#17: (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) (SOURCE
(MAKE-SOURCE-PATHNAME NAME)) (BINARY (MAKE-BINARY-PATHNAME NAME))) (IF
(DOLIST (TRANS TRANSFORMATIONS) (AND (EQ (CAR TRANS) :COMPILE) (EQ
(CADR TRANS) M) (RETURN TRANS))) (COND ((NULL (PROBE-FILE BINARY))
(LOAD-SOURCE NAME SOURCE)) ((NULL (PROBE-FILE SOURCE)) (LOAD-BINARY
NAME BINARY)) ((NOT (YES-OR-NO-P "The definition of this system
requires ~
that the module ~A be loaded now even~%~
though it will later be compiled. Should ~
the existing binary version be loaded ~%~
instead of the source?" NAME))
(LOAD-SOURCE NAME SOURCE)) (T (LOAD-BINARY NAME BINARY))) (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)) (QUOTE T))) (SETQ
TRANSFORMATIONS (ECASE MODE (:COMPILE (MAKE-TRANSFORMATIONS MODULES
(FUNCTION COMPILE-FILTER) (FUNCTION MAKE-COMPILE-TRANSFORMATION)))
(:RECOMPILE (MAKE-TRANSFORMATIONS MODULES (FUNCTION TRUE) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:RECOMPILE-SOME (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (MEMBER (MODULE-NAME M)
ARG) (COMPILE-FILTER M TRANSFORMS)))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:QUERY-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Compile ~A?" (MODULE-NAME M))))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:CONFIRM-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (AND (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Go ahead and compile ~A?" (MODULE-NAME M)))))
(FUNCTION MAKE-COMPILE-TRANSFORMATION))) (:LOAD (MAKE-TRANSFORMATIONS
MODULES (FUNCTION TRUE) (FUNCTION MAKE-LOAD-TRANSFORMATION)))
(:QUERY-LOAD (MAKE-TRANSFORMATIONS MODULES (FUNCTION (LAMBDA (M
TRANSFORMS) (DECLARE (IGNORE TRANSFORMS)) (Y-OR-N-P "Load ~A?"
(MODULE-NAME M)))) (FUNCTION
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))))))))) Eval
#16: (SYSTEM::IMPLICIT-PROGN (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) (SOURCE (MAKE-SOURCE-PATHNAME NAME)) (BINARY
(MAKE-BINARY-PATHNAME NAME))) (IF (DOLIST (TRANS TRANSFORMATIONS) (AND
(EQ (CAR TRANS) :COMPILE) (EQ (CADR TRANS) M) (RETURN TRANS))) (COND
((NULL (PROBE-FILE BINARY)) (LOAD-SOURCE NAME SOURCE)) ((NULL
(PROBE-FILE SOURCE)) (LOAD-BINARY NAME BINARY)) ((NOT (YES-OR-NO-P
"The definition of this system requires ~
that the module ~A be loaded now even~%~
though it will later be compiled. Should ~
the existing binary version be loaded ~%~
instead of the source?" NAME))
(LOAD-SOURCE NAME SOURCE)) (T (LOAD-BINARY NAME BINARY))) (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)) (QUOTE T))) (SETQ
TRANSFORMATIONS (ECASE MODE (:COMPILE (MAKE-TRANSFORMATIONS MODULES
(FUNCTION COMPILE-FILTER) (FUNCTION MAKE-COMPILE-TRANSFORMATION)))
(:RECOMPILE (MAKE-TRANSFORMATIONS MODULES (FUNCTION TRUE) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:RECOMPILE-SOME (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (MEMBER (MODULE-NAME M)
ARG) (COMPILE-FILTER M TRANSFORMS)))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:QUERY-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Compile ~A?" (MODULE-NAME M))))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:CONFIRM-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (AND (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Go ahead and compile ~A?" (MODULE-NAME M)))))
(FUNCTION MAKE-COMPILE-TRANSFORMATION))) (:LOAD (MAKE-TRANSFORMATIONS
MODULES (FUNCTION TRUE) (FUNCTION MAKE-LOAD-TRANSFORMATION)))
(:QUERY-LOAD (MAKE-TRANSFORMATIONS MODULES (FUNCTION (LAMBDA (M
TRANSFORMS) (DECLARE (IGNORE TRANSFORMS)) (Y-OR-N-P "Load ~A?"
(MODULE-NAME M)))) (FUNCTION
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)))))))))) Eval
#15: (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) (SOURCE (MAKE-SOURCE-PATHNAME NAME)) (BINARY
(MAKE-BINARY-PATHNAME NAME))) (IF (DOLIST (TRANS TRANSFORMATIONS) (AND
(EQ (CAR TRANS) :COMPILE) (EQ (CADR TRANS) M) (RETURN TRANS))) (COND
((NULL (PROBE-FILE BINARY)) (LOAD-SOURCE NAME SOURCE)) ((NULL
(PROBE-FILE SOURCE)) (LOAD-BINARY NAME BINARY)) ((NOT (YES-OR-NO-P
"The definition of this system requires ~
that the module ~A be loaded now even~%~
though it will later be compiled. Should ~
the existing binary version be loaded ~%~
instead of the source?" NAME))
(LOAD-SOURCE NAME SOURCE)) (T (LOAD-BINARY NAME BINARY))) (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)) (QUOTE T))) (SETQ
TRANSFORMATIONS (ECASE MODE (:COMPILE (MAKE-TRANSFORMATIONS MODULES
(FUNCTION COMPILE-FILTER) (FUNCTION MAKE-COMPILE-TRANSFORMATION)))
(:RECOMPILE (MAKE-TRANSFORMATIONS MODULES (FUNCTION TRUE) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:RECOMPILE-SOME (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (MEMBER (MODULE-NAME M)
ARG) (COMPILE-FILTER M TRANSFORMS)))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:QUERY-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Compile ~A?" (MODULE-NAME M))))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:CONFIRM-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (AND (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Go ahead and compile ~A?" (MODULE-NAME M)))))
(FUNCTION MAKE-COMPILE-TRANSFORMATION))) (:LOAD (MAKE-TRANSFORMATIONS
MODULES (FUNCTION TRUE) (FUNCTION MAKE-LOAD-TRANSFORMATION)))
(:QUERY-LOAD (MAKE-TRANSFORMATIONS MODULES (FUNCTION (LAMBDA (M
TRANSFORMS) (DECLARE (IGNORE TRANSFORMS)) (Y-OR-N-P "Load ~A?"
(MODULE-NAME M)))) (FUNCTION
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)))))))))) Eval
#14: (BLOCK OPERATE-ON-SYSTEM (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) (SOURCE (MAKE-SOURCE-PATHNAME
NAME)) (BINARY (MAKE-BINARY-PATHNAME NAME))) (IF (DOLIST (TRANS
TRANSFORMATIONS) (AND (EQ (CAR TRANS) :COMPILE) (EQ (CADR TRANS) M)
(RETURN TRANS))) (COND ((NULL (PROBE-FILE BINARY)) (LOAD-SOURCE NAME
SOURCE)) ((NULL (PROBE-FILE SOURCE)) (LOAD-BINARY NAME BINARY)) ((NOT
(YES-OR-NO-P "The definition of this system requires ~
that the module ~A be loaded now even~%~
though it will later be compiled. Should ~
the existing binary version be loaded ~%~
instead of the source?" NAME))
(LOAD-SOURCE NAME SOURCE)) (T (LOAD-BINARY NAME BINARY))) (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)) (QUOTE T))) (SETQ
TRANSFORMATIONS (ECASE MODE (:COMPILE (MAKE-TRANSFORMATIONS MODULES
(FUNCTION COMPILE-FILTER) (FUNCTION MAKE-COMPILE-TRANSFORMATION)))
(:RECOMPILE (MAKE-TRANSFORMATIONS MODULES (FUNCTION TRUE) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:RECOMPILE-SOME (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (MEMBER (MODULE-NAME M)
ARG) (COMPILE-FILTER M TRANSFORMS)))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:QUERY-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (OR (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Compile ~A?" (MODULE-NAME M))))) (FUNCTION
MAKE-COMPILE-TRANSFORMATION))) (:CONFIRM-COMPILE (MAKE-TRANSFORMATIONS
MODULES (FUNCTION (LAMBDA (M TRANSFORMS) (AND (COMPILE-FILTER M
TRANSFORMS) (Y-OR-N-P "Go ahead and compile ~A?" (MODULE-NAME M)))))
(FUNCTION MAKE-COMPILE-TRANSFORMATION))) (:LOAD (MAKE-TRANSFORMATIONS
MODULES (FUNCTION TRUE) (FUNCTION MAKE-LOAD-TRANSFORMATION)))
(:QUERY-LOAD (MAKE-TRANSFORMATIONS MODULES (FUNCTION (LAMBDA (M
TRANSFORMS) (DECLARE (IGNORE TRANSFORMS)) (Y-OR-N-P "Load ~A?"
(MODULE-NAME M)))) (FUNCTION
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)))))))))))
Apply #12: (OPERATE-ON-SYSTEM PCL :COMPILE 798405 #\NULL) Eval #11:
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE) Eval #10: (IF (NULL M)
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE) (IF (EQ M :PRINT)
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE NIL T) (IF (EQ M :QUERY)
(OPERATE-ON-SYSTEM (QUOTE PCL) :QUERY-COMPILE) (IF (EQ M :CONFIRM)
(OPERATE-ON-SYSTEM (QUOTE PCL) :CONFIRM-COMPILE) (IF (EQ M (QUOTE T))
(OPERATE-ON-SYSTEM (QUOTE PCL) :RECOMPILE) (IF (LISTP M)
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE-FROM M) (IF (SYMBOLP M)
(OPERATE-ON-SYSTEM (QUOTE PCL) :RECOMPILE-SOME (SYSTEM::BACKQUOTE
((SYSTEM::UNQUOTE M)))) NIL))))))) Eval #9: (COND ((NULL M)
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE)) ((EQ M :PRINT)
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE NIL T)) ((EQ M :QUERY)
(OPERATE-ON-SYSTEM (QUOTE PCL) :QUERY-COMPILE)) ((EQ M :CONFIRM)
(OPERATE-ON-SYSTEM (QUOTE PCL) :CONFIRM-COMPILE)) ((EQ M (QUOTE T))
(OPERATE-ON-SYSTEM (QUOTE PCL) :RECOMPILE)) ((LISTP M)
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE-FROM M)) ((SYMBOLP M)
(OPERATE-ON-SYSTEM (QUOTE PCL) :RECOMPILE-SOME (SYSTEM::BACKQUOTE
((SYSTEM::UNQUOTE M)))))) Eval #8: (BLOCK COMPILE-PCL (COND ((NULL M)
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE)) ((EQ M :PRINT)
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE NIL T)) ((EQ M :QUERY)
(OPERATE-ON-SYSTEM (QUOTE PCL) :QUERY-COMPILE)) ((EQ M :CONFIRM)
(OPERATE-ON-SYSTEM (QUOTE PCL) :CONFIRM-COMPILE)) ((EQ M (QUOTE T))
(OPERATE-ON-SYSTEM (QUOTE PCL) :RECOMPILE)) ((LISTP M)
(OPERATE-ON-SYSTEM (QUOTE PCL) :COMPILE-FROM M)) ((SYMBOLP M)
(OPERATE-ON-SYSTEM (QUOTE PCL) :RECOMPILE-SOME (SYSTEM::BACKQUOTE
((SYSTEM::UNQUOTE M))))))) Apply #6: (COMPILE-PCL 798493) Eval #5:
(COMPILE-PCL) Apply #3: (EVAL (COMPILE-PCL))
-- Backtrace end --
Apply #50: (SET-FUNCTION-NAME-1 #<Compiled
Function #:TOP-LEVEL-FORM-I9573 #x1B6FD3> |(METHOD LOOKUP-PV-MISS-1
(STANDARD-CLASS T T))| (METHOD LOOKUP-PV-MISS-1 (STANDARD-CLASS T T)))
Debug 1> (dribble)
* * *
Chris Williamson