(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL") (IL:FILECREATED " 9-Nov-93 01:46:20" ("compiled on " IL:|{DSK}export>lispcore>sources>CLTL2>PROFILE.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" IL:|in| "Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42") (IL:FILECREATED " 8-Apr-92 22:04:29" IL:|{DSK}local>lde>lispcore>sources>PROFILE.;2| 12225 IL:|changes| IL:|to:| (PROFILES "COMMON-LISP") (IL:VARS IL:PROFILECOMS) IL:|previous| IL:|date:| "16-May-90 21:15:43" IL:|{DSK}local>lde>lispcore>sources>PROFILE.;1|) (IL:RPAQQ IL:PROFILECOMS ((IL:* IL:|;;| "The profile type") (IL:DEFINE-TYPES PROFILES) (IL:FUNCTIONS DEFPROFILE) (IL:TYPES PROFILE) (IL:STRUCTURES PROFILE-CLAUSE VARIABLE-DEFINITION) (IL:VARIABLES *PROFILE* *PROFILE-NAME* *PROFILE-VARIABLES* *PROFILES*) (IL:FUNCTIONS FIND-VARIABLE-DEFINITION IN-PROFILE INSTALL-PROFILE MAKE-VARIABLE-DEFINITION PROFILIZE PROFILE-ENTRY-VALUE PROFILE-ENTRY-VALUE-NAME PROFILE-NAME PROFILE-P PROFILE-VALUE-TYPE-CHECK SETF-PROFILE-ENTRY-VALUE SETF-PROFILE-ENTRY-VALUE-NAME SETF-PROFILE-NAME MAKE-PROFILE COPY-PROFILE RESTORE-PROFILE SAVE-PROFILE WITH-PROFILE FIND-PROFILE SETF-FIND-PROFILE LIST-ALL-PROFILES PROFILE-VALUES PROFILE-VARIABLES) ( IL:SETFS FIND-PROFILE PROFILE-ENTRY-VALUE PROFILE-ENTRY-VALUE-NAME PROFILE-NAME) (PROFILES "READ-PRINT" "LISP" "INTERLISP" "OLD-INTERLISP-T" "XEROX-COMMON-LISP" "COMMON-LISP") (IL:DECLARE\: IL:DONTCOPY IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:PROFILE))) (IL:SET-DOCUMENTATION (QUOTE PROFILES) (QUOTE IL:DEFINE-TYPES) (QUOTE "interaction profiles")) (IL:SETQ IL:PRETTYDEFMACROS (ADJOIN (QUOTE (PROFILES X (IL:P IL:* (%DEFINE-TYPE-FILE-DEFINITIONS ( QUOTE PROFILES) (QUOTE X))))) IL:PRETTYDEFMACROS :TEST (QUOTE EQUAL))) (IL:SETQ IL:PRETTYTYPELST (ADJOIN (QUOTE (CHANGEDPROFILESLST PROFILES "interaction profiles")) IL:PRETTYTYPELST :TEST (QUOTE EQUAL))) (PROCLAIM (QUOTE (GLOBAL CHANGEDPROFILESLST))) (OR (BOUNDP (QUOTE CHANGEDPROFILESLST)) (SETQ CHANGEDPROFILESLST NIL)) (COND ((NOT (GETHASH (QUOTE PROFILES) *DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE PROFILES) *DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE EQUAL) :SIZE 50 :REHASH-SIZE 50)))) (IL:SETQ IL:FILEPKGTYPES (ADJOIN (QUOTE PROFILES) IL:FILEPKGTYPES)) (IL:PUTPROP (QUOTE PROFILES) (QUOTE IL:GETDEF) (QUOTE %DEFINE-TYPE-GETDEF)) (IL:PUTPROP (QUOTE PROFILES) (QUOTE IL:DELDEF) (QUOTE %DEFINE-TYPE-DELDEF)) (IL:PUTPROP (QUOTE PROFILES) (QUOTE IL:PUTDEF) (QUOTE %DEFINE-TYPE-PUTDEF)) (IL:PUTPROP (QUOTE PROFILES) (QUOTE IL:FILEGETDEF) (QUOTE %DEFINE-TYPE-FILEGETDEF)) (IL:PUTPROP (QUOTE PROFILES) (QUOTE IL:FILEPKGCONTENTS) (QUOTE IL:NILL)) (IL:PUTPROP (QUOTE DEFPROFILE) (QUOTE :DEFINER-FOR) (QUOTE PROFILES)) (IL:PUTPROP (QUOTE PROFILES) (QUOTE :DEFINED-BY) (ADJOIN (QUOTE DEFPROFILE) (GET (QUOTE PROFILES) ( QUOTE :DEFINED-BY)))) |definition-expander-DEFPROFILE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ HHId IIh]\NQM__gggOJ_h__OCOhhggOgOhhh MLK&Kh\N^_gOh_OOO&_Oh__O_(121 STRING 20 STRING) (148 QUOTE 100 QUOTE 93 PROFILE 88 INSTALL-PROFILE 58 MAKE-PROFILE 53 PROFILE 48 LET) () (IL:PUTPROP (QUOTE DEFPROFILE) (QUOTE :DEFINITION-EXPANDER) (QUOTE |definition-expander-DEFPROFILE|)) |name-fn-DEFPROFILE| :D8 (IL:L (0 WHOLE)) @d (11 STRING) NIL () (IL:PUTPROP (QUOTE DEFPROFILE) (QUOTE :DEFINITION-NAME) (QUOTE |name-fn-DEFPROFILE|)) (IL:SET-DOCUMENTATION (QUOTE DEFPROFILE) (QUOTE FUNCTION) "Creates a new named profile. name . clauses or (name (:nicknames n1 n2...)) clauses") (IL:SETQ IL:PRETTYPRINTMACROS (ADJOIN (QUOTE (DEFPROFILE . PPRINT-DEFINER)) IL:PRETTYPRINTMACROS :TEST (QUOTE EQUAL))) |expand-DEFPROFILE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @AgggHIhNIL (20 DEFPROFILE 15 PROFILES 10 DEFINER) () (IL:SETF-MACRO-FUNCTION (QUOTE DEFPROFILE) (QUOTE |expand-DEFPROFILE|)) |type-expand-PROFILE| :D8 (IL:L (0 SI::%$$TYPE-FORM)) oNIL NIL ( 4 (SATISFIES PROFILE-P)) (IL:PUTPROP (QUOTE PROFILE) (QUOTE :TYPE-EXPANDER) (QUOTE |type-expand-PROFILE|)) |typep-evaluate-PROFILE| :D8 (IL:L (0 SI::%$$OBJECT)) @ (5 PROFILE-P) NIL () (CL::PUTHASH (QUOTE PROFILE) CL::*TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-PROFILE|)) (CL::SET-PARSED-STRUCTURE (QUOTE PROFILE-CLAUSE) T (QUOTE (CL::PS PROFILE-CLAUSE NIL (VARIABLE NAME TYPE COERCION-FUNCTION NAME-FUNCTION) LIST NIL NIL "PROFILE-CLAUSE-" NIL NIL CL::DEFAULT-STRUCTURE-PRINTER COPY-PROFILE-CLAUSE NIL 0 NIL ((VARIABLE NIL T NIL 0 PROFILE-CLAUSE-VARIABLE) (NAME NIL T NIL 1 PROFILE-CLAUSE-NAME) (TYPE NIL T NIL 2 PROFILE-CLAUSE-TYPE) (COERCION-FUNCTION NIL T NIL 3 PROFILE-CLAUSE-COERCION-FUNCTION) (NAME-FUNCTION NIL T NIL 4 PROFILE-CLAUSE-NAME-FUNCTION)) NIL NIL NIL NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) PROFILE-CLAUSE-VARIABLE :D8 (IL:L (0 PROFILE-CLAUSE)) @NIL NIL () PROFILE-CLAUSE-NAME :D8 (IL:L (0 PROFILE-CLAUSE)) @NIL NIL () PROFILE-CLAUSE-TYPE :D8 (IL:L (0 PROFILE-CLAUSE)) @NIL NIL () PROFILE-CLAUSE-COERCION-FUNCTION :D8 (IL:L (0 PROFILE-CLAUSE)) @NIL NIL () PROFILE-CLAUSE-NAME-FUNCTION :D8 (IL:L (0 PROFILE-CLAUSE)) @NIL NIL () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PROFILE-CLAUSE)) COPY-PROFILE-CLAUSE :D8 (IL:L (0 PROFILE-CLAUSE)) Gl jH@ kH@ lH@ lH@ lH@ H(67 CL::%SET-NTH 53 CL::%SET-NTH 40 CL::%SET-NTH 28 CL::%SET-NTH 18 CL::%SET-NTH 6 MAKE-LIST) NIL () (CL::SET-PARSED-STRUCTURE (QUOTE VARIABLE-DEFINITION) T (QUOTE (CL::PS VARIABLE-DEFINITION NIL ( VARIABLE TYPE COERCION-FUNCTION NAME-FUNCTION) LIST NIL NIL "VARIABLE-DEFINITION-" NIL NIL CL::DEFAULT-STRUCTURE-PRINTER COPY-VARIABLE-DEFINITION NIL 0 NIL ((VARIABLE NIL T NIL 0 VARIABLE-DEFINITION-VARIABLE) (TYPE NIL T NIL 1 VARIABLE-DEFINITION-TYPE) (COERCION-FUNCTION NIL T NIL 2 VARIABLE-DEFINITION-COERCION-FUNCTION) (NAME-FUNCTION NIL T NIL 3 VARIABLE-DEFINITION-NAME-FUNCTION )) NIL NIL NIL NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) VARIABLE-DEFINITION-VARIABLE :D8 (IL:L (0 VARIABLE-DEFINITION)) @NIL NIL () VARIABLE-DEFINITION-TYPE :D8 (IL:L (0 VARIABLE-DEFINITION)) @NIL NIL () VARIABLE-DEFINITION-COERCION-FUNCTION :D8 (IL:L (0 VARIABLE-DEFINITION)) @NIL NIL () VARIABLE-DEFINITION-NAME-FUNCTION :D8 (IL:L (0 VARIABLE-DEFINITION)) @NIL NIL () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE VARIABLE-DEFINITION)) COPY-VARIABLE-DEFINITION :D8 (IL:L (0 VARIABLE-DEFINITION)) 9l jH@ kH@ lH@ lH@ H(53 CL::%SET-NTH 40 CL::%SET-NTH 28 CL::%SET-NTH 18 CL::%SET-NTH 6 MAKE-LIST) NIL () (PROCLAIM (QUOTE (SPECIAL *PROFILE*))) (IL:SETQ *PROFILE* "XCL") (IL:SET-DOCUMENTATION (QUOTE *PROFILE*) (QUOTE VARIABLE) "The default or current profile.") (PROCLAIM (QUOTE (SPECIAL *PROFILE-NAME*))) (IL:SETQ *PROFILE-NAME* NIL) (PROCLAIM (QUOTE (SPECIAL *PROFILE-VARIABLES*))) (IL:SETQ *PROFILE-VARIABLES* (QUOTE ((*PROFILE-NAME* T IDENTITY IDENTITY) (*EVAL-FUNCTION* (MEMBER IL:EVAL EVAL) IDENTITY IDENTITY) (*EXEC-PROMPT* STRING STRING IDENTITY) (*DEBUGGER-PROMPT* STRING STRING IDENTITY) (*READTABLE* READTABLE IL:FIND-READTABLE IL:READTABLE-NAME) (*READ-BASE* (INTEGER 2 36) IDENTITY IDENTITY) (*READ-SUPPRESS* (MEMBER NIL T) IDENTITY IDENTITY) (*PACKAGE* PACKAGE FIND-PACKAGE PACKAGE-NAME) (*READ-DEFAULT-FLOAT-FORMAT* (MEMBER SINGLE-FLOAT DOUBLE-FLOAT LONG-FLOAT SHORT-FLOAT) IDENTITY IDENTITY) (*PRINT-ESCAPE* (MEMBER NIL T) IDENTITY IDENTITY) (*PRINT-PRETTY* ( MEMBER NIL T) IDENTITY IDENTITY) (*PRINT-CIRCLE* (MEMBER NIL T) IDENTITY IDENTITY) (*PRINT-BASE* ( INTEGER 2 36) IDENTITY IDENTITY) (*PRINT-RADIX* (MEMBER NIL T) IDENTITY IDENTITY) (*PRINT-CASE* ( MEMBER :DOWNCASE :UPCASE :CAPITALIZE) IDENTITY IDENTITY) (*PRINT-GENSYM* (MEMBER NIL T) IDENTITY IDENTITY) (*PRINT-LEVEL* (OR NULL FIXNUM) IDENTITY IDENTITY) (*PRINT-LENGTH* (OR NULL FIXNUM) IDENTITY IDENTITY) (*PRINT-ARRAY* (MEMBER NIL T) IDENTITY IDENTITY) (*PRINT-STRUCTURE* (MEMBER NIL T) IDENTITY IDENTITY)))) (PROCLAIM (QUOTE (GLOBAL *PROFILES*))) (OR (BOUNDP (QUOTE *PROFILES*)) (SETQ *PROFILES* (MAKE-HASH-TABLE :TEST (QUOTE EQUAL)))) (IL:SET-DOCUMENTATION (QUOTE *PROFILES*) (QUOTE VARIABLE) "Where profiles live.") FIND-VARIABLE-DEFINITION :D8 (IL:L (0 VARIABLE) IL:F 2 *PROFILE-VARIABLES*) RHd@IIHXNIL NIL () IN-PROFILE :D8 (IL:L (0 PROFILE) IL:F 0 *PROFILE*) @ cd (13 RESTORE-PROFILE 5 PROFILIZE) NIL () (IL:SET-DOCUMENTATION (QUOTE IN-PROFILE) (QUOTE FUNCTION) "Makes profile the current profile and resets *profile*") INSTALL-PROFILE :D8 (IL:L (2 PROFILE-NICKNAMES 1 PROFILE-NAME 0 PROFILE)) :ABHdYd g oI I@ HX(50 SETF-FIND-PROFILE 42 WARN 30 FBOUNDP 17 FIND-PROFILE) (25 WARN) ( 36 "Resetting profile ~s.") MAKE-VARIABLE-DEFINITION :D8 (IL:L (0 CLAUSE) IL:F 3 *PROFILE-VARIABLES*) ;0oYH XdScHZg@b@J@bHI(16 NREVERSE) (31 IGNORE) ( 7 (NIL IGNORE T IDENTITY IDENTITY)) (IL:SET-DOCUMENTATION (QUOTE MAKE-VARIABLE-DEFINITION) (QUOTE FUNCTION) "Add a new profile variable entry based on clauses. clauses is bounded by a keyword or nil.") PROFILIZE :D8 (IL:L (0 NAME-OR-PROFILE)) G@!HYZ J@ o@ I @gHoh (68 IL:CHECK-TYPE-FAIL 46 PROFILE-P 39 ERROR 26 FIND-PROFILE 11 STRINGP) (55 NAME-OR-PROFILE 18 IL:LITATOM) ( 61 (OR (OR STRING SYMBOL) PROFILE) 33 "Not the name of an existing profile ~s") PROFILE-ENTRY-VALUE :D8 (IL:L (0 IL:|-args-|) IL:F 2 *PROFILE*) &ekalHRla Id (35 GETF 30 EVAL 23 PROFILIZE) NIL () (IL:SET-DOCUMENTATION (QUOTE PROFILE-ENTRY-VALUE) (QUOTE FUNCTION) "Returns the value of the variable in the current profile or its binding.") PROFILE-ENTRY-VALUE-NAME :D8 (IL:L (0 IL:|-args-|) IL:F 4 *PROFILE*) 6eka!lHTlaI J Id kK(48 GETF 43 EVAL 36 PROFILIZE 25 FIND-VARIABLE-DEFINITION) NIL () (IL:SET-DOCUMENTATION (QUOTE PROFILE-ENTRY-VALUE-NAME) (QUOTE FUNCTION) "Get the name of the value in a variable or the name of the current binding.") PROFILE-NAME :D8 (IL:L (0 IL:|-args-|) IL:F 2 *PROFILE*) !ekHRkagI (30 PROFILE-ENTRY-VALUE 25 PROFILIZE) (19 *PROFILE-NAME*) () (IL:SET-DOCUMENTATION (QUOTE PROFILE-NAME) (QUOTE FUNCTION) "Returns the name of the profile as a string.") PROFILE-P :D8 (IL:L (0 OBJECT)) @@d3@@ kji(17 LENGTH) NIL () (IL:SET-DOCUMENTATION (QUOTE PROFILE-P) (QUOTE FUNCTION) "Returns true if the object seems to be a profile. Is true only of profiles, never their names.") PROFILE-VALUE-TYPE-CHECK :D8 (IL:L (1 VALUE 0 DEFINITION) IL:F 2 *QUERY-IO*) V@@AI AHAkHbdI oo@AI Ro  b(80 EVAL 75 READ 69 FORMAT 57 CERROR 34 TYPEP 16 TYPEP) NIL ( 64 "Give new value expression (will be evaluated)~%" 47 "Profile slot ~s's value ~s not a(n) ~s" 42 "Give new value") (IL:SET-DOCUMENTATION (QUOTE PROFILE-VALUE-TYPE-CHECK) (QUOTE FUNCTION) "Returns correct or corrected value.") SETF-PROFILE-ENTRY-VALUE :D8 (IL:L (2 VALUE 1 PROFILE 0 VARIABLE)) DA b@ 1BH A@BIJKhKo@BH JK (65 IL:LISTPUT 55 IL:ASSERT-FAIL 25 TYPEP 13 FIND-VARIABLE-DEFINITION 5 PROFILIZE) NIL ( 47 "Profile slot ~s's value ~s not a(n) ~s") SETF-PROFILE-ENTRY-VALUE-NAME :D8 (IL:L (2 NAME 1 PROFILE 0 VARIABLE)) "A b@A@ BkH (31 SETF-PROFILE-ENTRY-VALUE 15 FIND-VARIABLE-DEFINITION 5 PROFILIZE) NIL () SETF-PROFILE-NAME :D8 (IL:L (1 NAME 0 PROFILE)) g@A (16 SETF-PROFILE-ENTRY-VALUE 11 STRING) (4 *PROFILE-NAME*) () MAKE-PROFILE :D8 (IL:L (0 IL:|-args-|)) } ekaaHl2 OOOhJ^/gIKOa_OOh__Ok_O&__OM O L KMKN(112 PROFILE-VALUE-TYPE-CHECK 107 EVAL 101 MAKE-VARIABLE-DEFINITION 92 FIND-VARIABLE-DEFINITION) (36 *PROFILE-NAME*) () (IL:SET-DOCUMENTATION (QUOTE MAKE-PROFILE) (QUOTE FUNCTION) "Creates a profile with slots described by the clauses. Clauses is an alist of variables and values, similar to defstruct's." ) COPY-PROFILE :D8 (IL:L (0 IL:|-args-|) IL:F 1 *PROFILE*) ekHQka (21 COPY-SEQ 16 PROFILIZE) NIL () (IL:SET-DOCUMENTATION (QUOTE COPY-PROFILE) (QUOTE FUNCTION) "Copies the given profile.") RESTORE-PROFILE :D8 (IL:L (0 IL:|-args-|) IL:F 4 *PROFILE*) <ekHTka!I Yd I KJIKJ KJ(50 SET 34 PROFILE-VALUES 27 PROFILE-VARIABLES 20 PROFILIZE) NIL () (IL:SET-DOCUMENTATION (QUOTE RESTORE-PROFILE) (QUOTE FUNCTION) "Set profile variables from given profile.") SAVE-PROFILE :D8 (IL:L (0 IL:|-args-|) IL:F 4 *PROFILE*) ,ekHTka!I d[ KJI(29 EVAL 20 PROFILIZE) NIL () (IL:SET-DOCUMENTATION (QUOTE SAVE-PROFILE) (QUOTE FUNCTION) "Save current values of bindings into profile.") |expand-WITH-PROFILE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) :@!HHggIhhogooJhNIL (36 PROGV 20 *PROFILE* 15 LET) ( 46 (PROFILE-VALUES *PROFILE*) 41 (PROFILE-VARIABLES *PROFILE*) 31 (SETQ *PROFILE* (PROFILIZE *PROFILE*))) (IL:SETF-MACRO-FUNCTION (QUOTE WITH-PROFILE) (QUOTE |expand-WITH-PROFILE|)) (IL:SET-DOCUMENTATION (QUOTE WITH-PROFILE) (QUOTE FUNCTION) "Bind all the special IO variables to the values in the profile and execute the body forms.") FIND-PROFILE :D8 (IL:L (0 NAME)) @ ` (15 GETHASH 5 STRING) (10 *PROFILES*) () SETF-FIND-PROFILE :D8 (IL:L (1 PROFILE 0 NAME)) &@ bA b@`A A@ @(34 SETF-PROFILE-NAME 27 CL::PUTHASH 13 PROFILIZE 5 STRING) (21 *PROFILES*) () LIST-ALL-PROFILESA0001 :D8 (IL:L (1 VALUE 0 NAME) IL:F 2 PROFILES) ARHdIIIcNIL NIL () LIST-ALL-PROFILES :D8 (IL:P 0 PROFILES) 5Pg` HhZIJ JKL&Lh[IY(33 PROFILE-NAME 17 MAPHASH) (12 *PROFILES* 7 LIST-ALL-PROFILESA0001) () PROFILE-VALUES :D8 (IL:L (0 PROFILE)) 0@ dIHhZH&J(8 PROFILIZE) NIL () PROFILE-VARIABLES :D8 (IL:L (0 IL:|-args-|) IL:F 5 *PROFILE*) /ekHUka0I dKJh\J&L(23 PROFILIZE) NIL () (CL::SET-SETF-INVERSE (QUOTE FIND-PROFILE) (QUOTE SETF-FIND-PROFILE)) (CL::SET-SETF-INVERSE (QUOTE PROFILE-ENTRY-VALUE) (QUOTE SETF-PROFILE-ENTRY-VALUE)) (CL::SET-SETF-INVERSE (QUOTE PROFILE-ENTRY-VALUE-NAME) (QUOTE SETF-PROFILE-ENTRY-VALUE-NAME)) (CL::SET-SETF-INVERSE (QUOTE PROFILE-NAME) (QUOTE SETF-PROFILE-NAME)) (LET ((PROFILE (MAKE-PROFILE "READ-PRINT" (QUOTE (*READTABLE* "LISP")) (QUOTE (*READ-BASE* 10)) (QUOTE (*READ-SUPPRESS* NIL)) (QUOTE (*PACKAGE* "USER")) (QUOTE (*READ-DEFAULT-FLOAT-FORMAT* (QUOTE SINGLE-FLOAT))) (QUOTE (*PRINT-ESCAPE* T)) (QUOTE (*PRINT-PRETTY* NIL)) (QUOTE (*PRINT-CIRCLE* NIL)) ( QUOTE (*PRINT-BASE* 10)) (QUOTE (*PRINT-RADIX* NIL)) (QUOTE (*PRINT-CASE* :UPCASE)) (QUOTE ( *PRINT-GENSYM* T)) (QUOTE (*PRINT-LEVEL* NIL)) (QUOTE (*PRINT-LENGTH* NIL)) (QUOTE (*PRINT-ARRAY* NIL) ) (QUOTE (*PRINT-STRUCTURE* NIL))))) (INSTALL-PROFILE PROFILE "READ-PRINT" (QUOTE NIL))) (LET ((PROFILE (MAKE-PROFILE "LISP" (QUOTE (*READTABLE* "LISP")) (QUOTE (*PACKAGE* "USER")) (QUOTE ( *EVAL-FUNCTION* (QUOTE EVAL))) (QUOTE (*EXEC-PROMPT* "> ")) (QUOTE (*DEBUGGER-PROMPT* ": "))))) ( INSTALL-PROFILE PROFILE "LISP" (QUOTE NIL))) (LET ((PROFILE (MAKE-PROFILE "INTERLISP" (QUOTE (*READTABLE* "INTERLISP")) (QUOTE (*PACKAGE* "INTERLISP")) (QUOTE (*EVAL-FUNCTION* (QUOTE IL:EVAL))) (QUOTE (*EXEC-PROMPT* "_ ")) (QUOTE ( *DEBUGGER-PROMPT* "_: "))))) (INSTALL-PROFILE PROFILE "INTERLISP" (QUOTE ("IL")))) (LET ((PROFILE (MAKE-PROFILE "OLD-INTERLISP-T" (QUOTE (*READTABLE* "OLD-INTERLISP-T")) (QUOTE ( *PACKAGE* "INTERLISP")) (QUOTE (*EVAL-FUNCTION* (QUOTE IL:EVAL))) (QUOTE (*EXEC-PROMPT* "_ ")) (QUOTE (*DEBUGGER-PROMPT* "_: "))))) (INSTALL-PROFILE PROFILE "OLD-INTERLISP-T" (QUOTE NIL))) (LET ((PROFILE (MAKE-PROFILE "XEROX-COMMON-LISP" (QUOTE (*READTABLE* "XCL")) (QUOTE (*PACKAGE* "CL-USER")) (QUOTE (*EVAL-FUNCTION* (QUOTE EVAL))) (QUOTE (*EXEC-PROMPT* "> ")) (QUOTE ( *DEBUGGER-PROMPT* ": "))))) (INSTALL-PROFILE PROFILE "XEROX-COMMON-LISP" (QUOTE ("XCL")))) (LET ((PROFILE (MAKE-PROFILE "COMMON-LISP" (QUOTE (*READTABLE* "LISP")) (QUOTE (*PACKAGE* "CL-USER")) (QUOTE (*EVAL-FUNCTION* (QUOTE EVAL))) (QUOTE (*EXEC-PROMPT* "> ")) (QUOTE (*DEBUGGER-PROMPT* ": ")))) ) (INSTALL-PROFILE PROFILE "COMMON-LISP" (QUOTE ("CL")))) (IL:PUTPROPS IL:PROFILE IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "XCL")) (IL:PUTPROPS IL:PROFILE IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:PROFILE IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1992)) NIL