(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "26-Jan-98 13:30:19" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>sources>RESOURCE.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 21:31:50" {DSK}local>lde>lispcore>sources>RESOURCE.;2 12730 changes to%: (VARS RESOURCECOMS) previous date%: "11-Aug-87 18:19:35" {DSK}local>lde>lispcore>sources>RESOURCE.;1) \GR.METHODEXPANDER :D8 (P 2 RVAR P 1 DEF P 0 NAME I 1 METHOD I 0 X) 3@@!Hg YA'YgHg ZAdgQghggJhhgJgJgJohhigHhhhhg-ghggJhhgJ@hhAdgggJhogoH  I@ IoH@hI oAoH I (304 ERROR 298 CONCAT 280 SUBPAIR 257 APPLY 249 FNTYP 243 SHOULDNT 237 ERROR 45 PACK* 19 GETDEF) (224 NEW 207 QUOTE 202 /SETTOPVAL 193 INIT 171 SETQ 159 GLOBALVARS 154 DECLARE 148 LET 140 FREE 118 NEWRESOURCE 97 SETQ 91 PROG1 85 COND 73 GLOBALVARS 68 DECLARE 62 LET 53 GET 40 .GLOBALRESOURCE 34 \ 14 RESOURCES) ( 292 " method for " 286 "Bad resource " 267 (RESOURCENAME ARGS) 231 "No NEW method for resource" 216 (NIL) 103 (NIL)) \GR.WITHRESOURCEMAC :D8 (P 1 FORMS P 0 NAMES I 0 X) @ddh@ "gHIIggI0HdgJdhMLh^L&Nh 0HdgKhMLh^L&N(90 CL:APPEND 15 \DECL.COMNT.PROCESS) (106 GETRESOURCE 57 FREERESOURCE 39 PROGN 34 PROG1 23 LAMBDA) () \GR.GETDEFFN :D8 (I 1 TYPE I 0 NAME) @`NIL (5 GLOBAL.RESOURCES) () \GR.PUTDEFFN :D8 (I 2 DEF I 1 TYPE I 0 NAME) @@d3@l@h Bdg'gBhbBBg'o@ B@A j@g@`b*@g BA@AB g,g@B` @g g @(183 MARKASCHANGED 172 EVAL 167 \GR.METHODEXPANDER 155 /SETTOPVAL 128 /RPLACD 112 EVAL 107 \GR.METHODEXPANDER 77 \GR.DELDEFFN 67 ERROR 18 ERRORX) (178 DEFINED 162 INIT 149 GLOBAL.RESOURCES 141 GLOBAL.RESOURCES 134 CHANGED 102 INIT 91 GLOBAL.RESOURCES 85 RESOURCES 54 NEW 36 NEW 29 NEW) ( 61 "No NEW method for resource") \GR.DELDEFFN :D8 (P 0 DEF I 1 TYPE I 0 NAME) o@@d3@l@h @`HN@gg gH` Hg'g@g g i(107 /SETTOPVAL 97 PACK* 70 /SETTOPVAL 65 REMOVE 48 MARKASCHANGED 18 ERRORX) (102 NOBIND 92 .GLOBALRESOURCE 86 \ 78 GET 60 GLOBAL.RESOURCES 54 GLOBAL.RESOURCES 43 DELETED 38 RESOURCES 25 GLOBAL.RESOURCES) () \GR.CONTENTS :D8 (I 2 TYPE I 1 NAME I 0 COM) wBgn@dg bAdidMi,Ad3@%@Hh6iAIdIiHX0@ddIHhZH&J(28 EVAL) (18 * 5 RESOURCES) () \GR.GvarInitLst :D8 (I 0 NAME) +ggo@o ho(30 MKATOM 25 CONCAT) (9 QUOTE 4 /SETTOPVAL) ( 38 ((LIST NIL)) 20 ".LST" 14 "\RESOURCE.") \GR.MAKEPRETTYCOMSL :D8 (P 6 DEF P 5 NAME P 4 Y I 0 L) ~@dg baHI\dL]g MMd3@o@ ggMhogNhhJ KhZHXK&(71 ERROR 51 GETDEF 17 EVAL) (96 QUOTE 82 QUOTE 77 PUTDEF 46 RESOURCES 8 *) ( 91 (QUOTE RESOURCES) 65 "Bad filepkg command") \IGR.MAKEPRETTYCOMSL :D8 (P 3 NAME I 0 L) @@g@ b@@!dgKhi IHhZH&J(44 LISPFORM.SIMPLIFY 17 EVAL) (34 INITRESOURCE 7 *) () (PRETTYCOMPRINT RESOURCECOMS) (RPAQQ RESOURCECOMS ((MACROS INITRESOURCE NEWRESOURCE GETRESOURCE FREERESOURCE WITH-RESOURCE WITH-RESOURCES) (FNS \GR.METHODEXPANDER \GR.WITHRESOURCEMAC) (FILEPKGCOMS RESOURCES INITRESOURCES) ( FNS \GR.GETDEFFN \GR.PUTDEFFN \GR.DELDEFFN \GR.CONTENTS \GR.GvarInitLst) (FNS \GR.MAKEPRETTYCOMSL \IGR.MAKEPRETTYCOMSL) (INITVARS (GLOBAL.RESOURCES)) (GLOBALVARS GLOBAL.RESOURCES) (PROP ARGNAMES INITRESOURCE NEWRESOURCE GETRESOURCE FREERESOURCE) (COMS (* "need only be in ABC") (FILEPKGCOMS GLOBALRESOURCES) (MACROS GLOBALRESOURCE GLOBALRESOURCES) (MACROS RELEASERESOURCE)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA \IGR.MAKEPRETTYCOMSL \GR.MAKEPRETTYCOMSL) (NLAML) (LAMA))))) (PUTPROPS INITRESOURCE MACRO (X (\GR.METHODEXPANDER X (QUOTE INIT)))) (PUTPROPS NEWRESOURCE MACRO (X (\GR.METHODEXPANDER X (QUOTE NEW)))) (PUTPROPS GETRESOURCE MACRO (X (\GR.METHODEXPANDER X (QUOTE GET)))) (PUTPROPS FREERESOURCE MACRO (X (\GR.METHODEXPANDER X (QUOTE FREE)))) (PUTPROPS WITH-RESOURCE MACRO (= . WITH-RESOURCES)) (PUTPROPS WITH-RESOURCES MACRO (X (\GR.WITHRESOURCEMAC X))) (PUTDEF (QUOTE RESOURCES) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (DECLARE%: EVAL@COMPILE (P * ( \GR.MAKEPRETTYCOMSL . X)))) CONTENTS \GR.CONTENTS) (TYPE DESCRIPTION "global resources" GETDEF \GR.GETDEFFN DELDEF \GR.DELDEFFN PUTDEF \GR.PUTDEFFN)))) (PUTDEF (QUOTE INITRESOURCES) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (P * (\IGR.MAKEPRETTYCOMSL . X ))) CONTENTS \GR.CONTENTS)))) (RPAQ? GLOBAL.RESOURCES) (PUTPROPS INITRESOURCE ARGNAMES (NIL ("" . ARGS))) (PUTPROPS NEWRESOURCE ARGNAMES (NIL ("" . ARGS))) (PUTPROPS GETRESOURCE ARGNAMES (NIL ("" . ARGS))) (PUTPROPS FREERESOURCE ARGNAMES (NIL ("" DATUM . ARGS))) (PUTDEF (QUOTE GLOBALRESOURCES) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (DECLARE%: DONTCOPY ( RESOURCES . X)) (INITRESOURCES . X)))))) (PUTPROPS GLOBALRESOURCE MACRO (= . WITH-RESOURCES)) (PUTPROPS GLOBALRESOURCES MACRO (= . WITH-RESOURCES)) (PUTPROPS RELEASERESOURCE MACRO (ARGS ((LAMBDA (RVALVAR) (OR (AND (LITATOM RVALVAR) RVALVAR (NEQ T RVALVAR)) (ERROR "Must RELEASERESOURCE from a variable" ARGS))) (CADR ARGS)) (SUBPAIR (QUOTE (RNAME RVALVAR . FORMS)) ARGS (QUOTE (PROGN (FREERESOURCE RNAME RVALVAR) (PROG1 (PROGN . FORMS) (SETQ RVALVAR (GETRESOURCE RNAME)))))))) (PUTPROPS RESOURCE COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990)) NIL