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

(FILECREATED "20-Oct-88 17:18:53" {POOH/N}<POOH>VANMELLE>LISP>UNWINDTEST;7
 1027   

      changes to%:  (VARS UNWINDTESTCOMS) (FNS TEST2 TEST1 TEST.SIMPLE UW2.CHECK UW2.TEST.MAIN UW2.IDENTITY)

      previous date%: "20-Oct-88 15:17:15" {POOH/N}<POOH>VANMELLE>LISP>'U'N'W'I'N'D'T'E'S'T;2)


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

(PRETTYCOMPRINT UNWINDTESTCOMS)

(RPAQQ UNWINDTESTCOMS ((FNS TEST1 TEST2) (PROP FILETYPE UNWINDTEST)))
(DEFINEQ

(TEST1

(LAMBDA NIL (* ; "Edited 20-Oct-88 16:45 by bvm") (* ;; "Compute defaults") (LET ((F CL:PI)) (for C in (UNPACK F) do (PRIN1 C)) (AND (FLOATP F) (QUOTE SUCCESS))))
)

(TEST2

(LAMBDA NIL (* ; "Edited 20-Oct-88 16:53 by bvm") (* ;; "Compute defaults") (LET ((F CL:PI)) (LIST (QUOTE SUCCESS) (PROGN (for C in (UNPACK F) do (PRIN1 C)) F))))
)
)

(PUTPROPS UNWINDTEST FILETYPE :COMPILE-FILE)
(PUTPROPS UNWINDTEST COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (535 899 (TEST1 545 . 720) (TEST2 722 . 897)))))
STOP