(DEFINE-FILE-INFO PACKAGE "PCL" READTABLE "XCL" BASE 10)

(il:filecreated " 4-Nov-87 10:53:22" 
il:{dsk}<lispfiles>ed-patch.\;2
 1654   

      il:|changes| il:|to:|  (methods (ed (method)))

      il:|previous| il:|date:| "21-Aug-87 15:44:56" 
il:{dsk}<lispfiles>ed-patch.\;1)


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

(il:prettycomprint il:ed-patchcoms)

(il:rpaqq il:ed-patchcoms
 
          ((il:p (make-specializable 'ed :arglist
                        '(il:name &optional il:options)))
           (methods (ed (method)))
           (il:p (eval-when (compile)
                        (il:filesload il:sedit-decls)))
           (il:functions xcl::get-completion-fn 
                  xcl::set-completion-fn)))
(make-specializable 'ed :arglist '(il:name &optional 
                                         il:options))

(defmethod ed
 ((web::m method)
               &rest web::args)
   (let ((web::method-name (full-method-name web::m nil)))
        (xcl:ignore-errors
         (in-package (package-name (symbol-package
                                    (car web::method-name))
                            )))
        (apply 'ed web::method-name 'method web::args)))

(eval-when (compile)
       (il:filesload il:sedit-decls))

(defun xcl::get-completion-fn
 (web::context)
   (il:fetch (il:|EditContext| il:|CompletionFn|)
      il:of web::context))


(defun xcl::set-completion-fn
 (web::context web::form)
   (il:replace (il:|EditContext| il:|CompletionFn|)
      il:of web::context il:with web::form))

(il:putprops il:ed-patch il:copyright ("Xerox Corporation" 
1987))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop