(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(filecreated " 7-Mar-88 16:25:41" {phylum}<lisp>lyric>patches>font-enumeration-depth-patch.\;1
 681    

      |changes| |to:|  (advice fontsavailable) (vars font-enumeration-depth-patchcoms))


; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.

(prettycomprint font-enumeration-depth-patchcoms)

(rpaqq font-enumeration-depth-patchcoms
 ((advise fontsavailable)))
(xcl:reinstall-advice (quote fontsavailable) :around (quote ((:last (let ((filing.enumeration.depth 1)) *)))))
(readvise fontsavailable)
(putprops font-enumeration-depth-patch copyright ("Xerox Corporation" 1988))
(declare\: dontcopy
  (filemap (nil)))
stop