(DEFINE-FILE-INFO PACKAGE "XCL-USER" READTABLE "XCL" BASE 10) (IL:FILECREATED "14-Sep-94 18:29:22" ("compiled on " IL:|{DSK}lispusers>SEDIT-PROFILE.;1|) "28-Jul-94 17:28:46" IL:|bcompl'd| IL:|in| "Medley 25-Aug-94 ..." IL:|dated| "25-Aug-94 10:02:49") (IL:FILECREATED " 5-May-88 10:47:42" IL:|{EG:PARC:XEROX}LISP>MEDLEY>SEDIT-PROFILE.;2| 5216 IL:|changes| IL:|to:| (IL:FNS SEDIT::SETUP-PROFILE) IL:|previous| IL:|date:| " 5-May-88 09:59:40" IL:|{EG:PARC:XEROX}LISP>MEDLEY>SEDIT-PROFILE.;1|) SEDIT::SETUP-PROFILE :D8 (IL:P 1 TYPE IL:P 0 SEDIT::NAME IL:I 1 SEDIT::CONTEXT IL:I 0 SEDIT::PROFILE IL:F 2 *READ-BASE* IL:F 3 *READ-SUPPRESS* IL:F 4 *PRINT-GENSYM* IL:F 5 *PACKAGE* IL:F 6 *READTABLE* IL:F 7 *PRINT-ESCAPE* IL:F 8 *PRINT-PRETTY* IL:F 9 *PRINT-ARRAY* IL:F 10 *PRINT-CIRCLE* IL:F 11 *PRINT-BASE* IL:F 12 *PRINT-RADIX* IL:F 13 *PRINT-STRUCTURE*) O AÉAÉ l chcHI c HI c ichcdcWl ðhðcichcdc@ (76 SAVE-PROFILE 41 SEDIT::PROFILE-READTABLE 32 SEDIT::PROFILE-PACKAGE) (13 SEDIT::EDIT-CONTEXT 5 SEDIT::EDIT-CONTEXT) () (IL:PRETTYCOMPRINT IL:SEDIT-PROFILECOMS) (IL:RPAQQ IL:SEDIT-PROFILECOMS ((IL:* IL:|;;;| "Patch to SEdit that makes SEdit use the package and readtable for the file that contains an item, rather than the package of the name of the item and the current readtable." ) (IL:FUNCTIONS SEDIT::PROFILE-PACKAGE SEDIT::PROFILE-READTABLE) (IL:* IL:|;;| "A hacked version of an SEdit function that uses the above functions") (IL:FNS SEDIT::SETUP-PROFILE) ( IL:* IL:|;;| "") (IL:DECLARE\: IL:DONTEVAL@LOAD IL:EVAL@COMPILE IL:DONTCOPY (IL:FILES IL:SEDIT-DECLS) (IL:GLOBALVARS IL:*DEFAULT-MAKEFILE-ENVIRONMENT*)) (IL:* IL:|;;| "") (IL:DECLARE\: IL:DONTCOPY (IL:PROPS (IL:SEDIT-PROFILE IL:MAKEFILE-ENVIRONMENT) (IL:SEDIT-PROFILE IL:FILETYPE))))) (DEFUN SEDIT::PROFILE-PACKAGE (IL:NAME TYPE) "What package should be used when editing the item?" ( LABELS ((IL:COERCE-TO-PACKAGE (IL:X) (COND ((NULL IL:X) NIL) ((PACKAGEP IL:X) IL:X) ((CONSP IL:X) ( IL:COERCE-TO-PACKAGE (EVAL IL:X))) ((OR (STRINGP IL:X) (SYMBOLP IL:X)) (FIND-PACKAGE IL:X)) (T NIL))) (IL:MAKEFILE-ENVIRONMENT-PACKAGE (IL:MFE) (COND (IL:MFE (IL:COERCE-TO-PACKAGE (GETF IL:MFE :PACKAGE))) (T NIL)))) (OR (IGNORE-ERRORS (OR (AND IL:NAME (NOT (IL:MEMB TYPE (QUOTE (IL:PROPLST IL:|Expression|) ))) (LET ((IL:FILES (IL:WHEREIS IL:NAME TYPE))) (COND (IL:FILES (OR (DOLIST (IL:FILE (IL:WHEREIS IL:NAME TYPE)) (LET ((IL:FILE-PACKAGE (IL:MAKEFILE-ENVIRONMENT-PACKAGE (GET IL:FILE (QUOTE IL:MAKEFILE-ENVIRONMENT))))) (COND (IL:FILE-PACKAGE (RETURN IL:FILE-PACKAGE)) (T NIL)))) (IL:IF ( IL:LITATOM IL:NAME) IL:THEN (SYMBOL-PACKAGE IL:NAME) IL:ELSE NIL) (IL:MAKEFILE-ENVIRONMENT-PACKAGE IL:*DEFAULT-MAKEFILE-ENVIRONMENT*)))))) (AND IL:NAME (SYMBOLP IL:NAME) (SYMBOL-PACKAGE IL:NAME)) ( IL:MAKEFILE-ENVIRONMENT-PACKAGE IL:*DEFAULT-MAKEFILE-ENVIRONMENT*))) *PACKAGE*))) (DEFUN SEDIT::PROFILE-READTABLE (IL:NAME TYPE) "What readtable should be used when editing the item?" (LABELS ((IL:COERCE-TO-READTABLE (IL:X) (COND ((NULL IL:X) NIL) ((READTABLEP IL:X) IL:X) ((CONSP IL:X) (IL:COERCE-TO-READTABLE (EVAL IL:X))) ((OR (STRINGP IL:X) (SYMBOLP IL:X)) (IL:FIND-READTABLE IL:X)) ( T NIL)))) (OR (AND IL:NAME (NOT (IL:MEMB TYPE (QUOTE (IL:PROPLST IL:|Expression|)))) (LET ((IL:FILES ( IL:WHEREIS IL:NAME TYPE))) (WHEN IL:FILES (IL:COERCE-TO-READTABLE (GETF (OR (GET (FIRST IL:FILES) ( QUOTE IL:MAKEFILE-ENVIRONMENT)) IL:*DEFAULT-MAKEFILE-ENVIRONMENT*) :READTABLE))))) *READTABLE*))) (IL:PUTPROPS IL:SEDIT-PROFILE IL:COPYRIGHT ("Xerox Corporation" 1988)) NIL