(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)
)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT LARRYHACKEDCOMS)

(RPAQQ LARRYHACKEDCOMS
 ((FNS LASTCHPOS SUBSTRING-IN-\NSFILING.FULLNAME)
			(ADVISE DIRECTORY.MATCH LASTCHPOS LOOKUP.NS.SERVER 
				SUBSTRING-IN-\NSFILING.FULLNAME)))
(DEFINEQ


(SUBSTRING-IN-\NSFILING.FULLNAME

  (LAMBDA (X N M OLDPTR)
    (
SUBSTRING
 X N M OLDPTR)))
)

(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))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (547 656 (SUBSTRING-IN-\NSFILING.FULLNAME 558 . 654)))))
STOP