(FILECREATED "10-Jun-85 14:08:44" ("compiled on " {ERIS}<LISPCORE>LIBRARY>LARRYHACKED.;1) 
"19-Mar-85 14:34:17" recompiled ALL in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15")
(FILECREATED "10-Jun-85 14:07:35" {ERIS}<LISPCORE>LIBRARY>LARRYHACKED.;1 1343 changes to: (VARS 
LARRYHACKEDCOMS) (FNS SUBSTRING-IN-\NSFILING.FULLNAME LASTCHPOS) (ADVICE 
SUBSTRING-IN-\NSFILING.FULLNAME DIRECTORY.MATCH LASTCHPOS LOOKUP.NS.SERVER))
SUBSTRING-IN-\NSFILING.FULLNAME D1
(I 3 OLDPTR I 2 M I 1 N I 0 X) 	@ABC(6 SUBSTRING)
NIL
()
(PRETTYCOMPRINT LARRYHACKEDCOMS)
(RPAQQ LARRYHACKEDCOMS ((FNS LASTCHPOS SUBSTRING-IN-\NSFILING.FULLNAME) (ADVISE DIRECTORY.MATCH 
LASTCHPOS LOOKUP.NS.SERVER SUBSTRING-IN-\NSFILING.FULLNAME)))
(PUTPROPS DIRECTORY.MATCH READVICE (NIL (BEFORE NIL (RETURN T))))
(PUTPROPS LASTCHPOS READVICE (NIL (BEFORE NIL (if (EQ CH 58) then (RETURN)))))
(PUTPROPS SUBSTRING-IN-\NSFILING.FULLNAME READVICE ((\NSFILING.FULLNAME . SUBSTRING) (AFTER NIL (if (
STRPOS "'" !VALUE) then (RETURN (CONCATCODES (bind (CODES ← (CHCON !VALUE)) while CODES collect (if (
EQ (CAR CODES) (CHARCODE ')) then (pop CODES)) (pop CODES))))))))
(READVISE DIRECTORY.MATCH LASTCHPOS LOOKUP.NS.SERVER SUBSTRING-IN-\NSFILING.FULLNAME)
(PUTPROPS LARRYHACKED COPYRIGHT ("Xerox Corporation" 1985))
NIL