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

(FILECREATED "16-Nov-88 11:35:09" |{DSK}/users/shimizu/STACKTAKESHI.;4|
 2148   

      |changes| |to:|  (FNS TEST-CLIENT)

      |previous| |date:| "16-Nov-88 11:15:18" |{DSK}/users/shimizu/STACKTAKESHI.;3|)


; Copyright (c) 1988 by Fuji Xerox Co., Ltd..  All rights reserved.

(PRETTYCOMPRINT STACKTAKESHICOMS)

(RPAQQ STACKTAKESHICOMS
 ((FNS STACK-TAKESHI TEST-CLIENT TEST-CLIENT2 FUNC)
                             (INITVARS (AKINA NIL)
                                    (WARMUP NIL))))
(DEFINEQ

(STACK-TAKESHI

  (LAMBDA NIL
                                         (* \; "Edited 15-Nov-88 19:17 by shimizu")

    (SETQ AKINA NIL)
    (ADD.PROCESS '(TEST-CLIENT
 0))
    (DISMISS 2000)
    (PROG NIL
      IDLE
          (COND
             ((NEQ WARMUP 'DONE)
              (BLOCK)
              (GO IDLE))))
    (ADD.PROCESS '(TEST-CLIENT2
 0))
    (SETQ AKINA 'OK)))

(TEST-CLIENT

  (LAMBDA (VAL)
                                       (* \; "Edited 16-Nov-88 11:33 by shimizu")

    (COND
       ((IGREATERP VAL 200)
        (PROG NIL
              (SETQ WARMUP 'DONE)
          LP  (COND
                 ((EQ AKINA 'OK)
                  (RETURN))
                 (T (BLOCK)
                    (GO LP)))))
       (T (TEST-CLIENT
 (IPLUS VAL 1))))))

(TEST-CLIENT2

  (LAMBDA (VAL)
                                       (* \; "Edited 15-Nov-88 19:12 by shimizu")

    (PROG NIL
          (COND
             ((IGREATERP VAL 20)
              (PROG NIL
                LP  (COND
                       ((EQ AKINA 'OK)
                        (DISMISS 1000)
                        (GO WAIST))
                       (T (BLOCK)
                          (GO LP)))))
             (T (TEST-CLIENT2
 (IPLUS VAL 1))))
      WAIST
          (FUNC
))))

(FUNC

  (LAMBDA NIL
                                         (* \; "Edited 16-Nov-88 11:13 by shimizu")

    (PRINT (FUNC
 NIL))))
)

(RPAQ? AKINA
 NIL)

(RPAQ? WARMUP
 NIL)
(PUTPROPS STACKTAKESHI COPYRIGHT ("Fuji Xerox Co., Ltd." 1988))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (559 2014 (STACK-TAKESHI 569 . 957) (TEST-CLIENT 959 . 1357) (TEST-CLIENT2 1359 . 1867) 
(FUNC 1869 . 2012)))))
STOP