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

(FILECREATED "19-Mar-87 10:54:40" {DSK}<LISPFILES>LIBRARY>NEW-FUNCTION.\;1
 629    

      |changes| |to:|  (VARS NEW-FUNCTIONCOMS)
                       (FNS NEW-FUNCTION))


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

(PRETTYCOMPRINT NEW-FUNCTIONCOMS)

(RPAQQ NEW-FUNCTIONCOMS
 ((FNS NEW-FUNCTION)))
(DEFINEQ

(NEW-FUNCTION

  (LAMBDA (X Y)
                                             (* \; "Edited 19-Mar-87 10:52 by jpark")

    (PLUS X Y)))
)
(PUTPROPS NEW-FUNCTION COPYRIGHT ("XEROX Corporation" 1987))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (390 545 (NEW-FUNCTION 400 . 543)))))
STOP