home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-0s.lha / gstream.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-06-17  |  8.0 KB  |  188 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  4.    (GENERIC-STREAM-READ-CHAR GENERIC-STREAM-LISTEN GENERIC-STREAM-CLEAR-INPUT
  5.      GENERIC-STREAM-WRITE-CHAR GENERIC-STREAM-WRITE-STRING
  6.      GENERIC-STREAM-FINISH-OUTPUT GENERIC-STREAM-FORCE-OUTPUT
  7.      GENERIC-STREAM-CLEAR-OUTPUT GENERIC-STREAM-READ-BYTE
  8.      GENERIC-STREAM-WRITE-BYTE GENERIC-STREAM-CLOSE GENERIC-STREAM-CONTROLLER
  9.   ))
  10. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  11. #Y(#:TOP-LEVEL-FORM-4
  12.    #21Y(00 00 00 00 00 01 D8 D9 62 DA 62 2C 05 03 D8 37 02 31 2C 19 01)
  13.    GENERIC-STREAM-CONTROLLER :DIRECT-SUPERCLASSES :DIRECT-SLOTS
  14.    CLOS::ENSURE-CLASS
  15.   )
  16. #Y(#:TOP-LEVEL-FORM-5 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  17.    GENERIC-STREAM-READ-CHAR (1. 0. NIL NIL NIL) (0.) CLOS::DO-DEFGENERIC
  18.   )
  19. #Y(#:TOP-LEVEL-FORM-6 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  20.    GENERIC-STREAM-LISTEN (1. 0. NIL NIL NIL) (0.) CLOS::DO-DEFGENERIC
  21.   )
  22. #Y(#:TOP-LEVEL-FORM-7 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  23.    GENERIC-STREAM-CLEAR-INPUT (1. 0. NIL NIL NIL) (0.) CLOS::DO-DEFGENERIC
  24.   )
  25. #Y(#:TOP-LEVEL-FORM-8 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  26.    GENERIC-STREAM-WRITE-CHAR (2. 0. NIL NIL NIL) (0. 1.) CLOS::DO-DEFGENERIC
  27.   )
  28. #Y(#:TOP-LEVEL-FORM-9 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  29.    GENERIC-STREAM-WRITE-STRING (4. 0. NIL NIL NIL) (0. 1. 2. 3.)
  30.    CLOS::DO-DEFGENERIC
  31.   )
  32. #Y(#:TOP-LEVEL-FORM-10 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  33.    GENERIC-STREAM-FINISH-OUTPUT (1. 0. NIL NIL NIL) (0.) CLOS::DO-DEFGENERIC
  34.   )
  35. #Y(#:TOP-LEVEL-FORM-11 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  36.    GENERIC-STREAM-FORCE-OUTPUT (1. 0. NIL NIL NIL) (0.) CLOS::DO-DEFGENERIC
  37.   )
  38. #Y(#:TOP-LEVEL-FORM-12 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  39.    GENERIC-STREAM-CLEAR-OUTPUT (1. 0. NIL NIL NIL) (0.) CLOS::DO-DEFGENERIC
  40.   )
  41. #Y(#:TOP-LEVEL-FORM-13 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  42.    GENERIC-STREAM-READ-BYTE (1. 0. NIL NIL NIL) (0.) CLOS::DO-DEFGENERIC
  43.   )
  44. #Y(#:TOP-LEVEL-FORM-14 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  45.    GENERIC-STREAM-WRITE-BYTE (2. 0. NIL NIL NIL) (0. 1.) CLOS::DO-DEFGENERIC
  46.   )
  47. #Y(#:TOP-LEVEL-FORM-15 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  48.    GENERIC-STREAM-CLOSE (1. 0. NIL NIL NIL) (0.) CLOS::DO-DEFGENERIC
  49.   )
  50. #Y(#:TOP-LEVEL-FORM-16
  51.    #30Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  52.         0A 09 2F 0A 19 01
  53.        )
  54.    GENERIC-STREAM-READ-CHAR :INITFUNCTION
  55.    #Y(#:TOP-LEVEL-FORM-16-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  56.       #Y(#:TOP-LEVEL-FORM-16-1-1 #9Y(00 01 00 00 00 02 00 19 02)) (T)
  57.      )
  58.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  59.    :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  60.    CLOS::DO-DEFMETHOD
  61.   )
  62. #Y(#:TOP-LEVEL-FORM-17
  63.    #30Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  64.         0A 09 2F 0A 19 01
  65.        )
  66.    GENERIC-STREAM-LISTEN :INITFUNCTION
  67.    #Y(#:TOP-LEVEL-FORM-17-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  68.       #Y(#:TOP-LEVEL-FORM-17-1-1 #9Y(00 01 00 00 00 02 00 19 02)) (T)
  69.      )
  70.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  71.    :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  72.    CLOS::DO-DEFMETHOD
  73.   )
  74. #Y(#:TOP-LEVEL-FORM-18
  75.    #30Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  76.         0A 09 2F 0A 19 01
  77.        )
  78.    GENERIC-STREAM-CLEAR-INPUT :INITFUNCTION
  79.    #Y(#:TOP-LEVEL-FORM-18-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  80.       #Y(#:TOP-LEVEL-FORM-18-1-1 #9Y(00 01 00 00 00 02 00 19 02)) (T)
  81.      )
  82.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  83.    :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  84.    CLOS::DO-DEFMETHOD
  85.   )
  86. #Y(#:TOP-LEVEL-FORM-19
  87.    #35Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 63 37 02 71 2C 7A 02
  88.         DE 62 DF E0 6D 0A 09 2F 0A 19 01
  89.        )
  90.    GENERIC-STREAM-WRITE-CHAR :INITFUNCTION
  91.    #Y(#:TOP-LEVEL-FORM-19-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  92.       #Y(#:TOP-LEVEL-FORM-19-1-1 #9Y(00 02 00 00 00 03 00 19 03)) (T)
  93.      )
  94.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  95.    :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  96.    CLOS::DO-DEFMETHOD
  97.   )
  98. #Y(#:TOP-LEVEL-FORM-20
  99.    #45Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 63 37 02 71 2C 63 37
  100.         02 71 2C 63 37 02 71 2C 7A 04 DE 62 DF E0 6D 0A 09 2F 0A 19 01
  101.        )
  102.    GENERIC-STREAM-WRITE-STRING :INITFUNCTION
  103.    #Y(#:TOP-LEVEL-FORM-20-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  104.       #Y(#:TOP-LEVEL-FORM-20-1-1
  105.          #31Y(00 04 00 00 00 05 D8 1A 0D AF AF AF AD 72 02 35 70 35 2F 01 84 00
  106.               AA AD 90 01 32 6D 00 19 06
  107.              )
  108.          0. GENERIC-STREAM-WRITE-CHAR
  109.         )
  110.       (T)
  111.      )
  112.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  113.    :QUALIFIERS :SIGNATURE (4. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  114.    CLOS::DO-DEFMETHOD
  115.   )
  116. #Y(#:TOP-LEVEL-FORM-21
  117.    #30Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  118.         0A 09 2F 0A 19 01
  119.        )
  120.    GENERIC-STREAM-FINISH-OUTPUT :INITFUNCTION
  121.    #Y(#:TOP-LEVEL-FORM-21-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  122.       #Y(#:TOP-LEVEL-FORM-21-1-1 #9Y(00 01 00 00 00 02 00 19 02)) (T)
  123.      )
  124.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  125.    :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  126.    CLOS::DO-DEFMETHOD
  127.   )
  128. #Y(#:TOP-LEVEL-FORM-22
  129.    #30Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  130.         0A 09 2F 0A 19 01
  131.        )
  132.    GENERIC-STREAM-FORCE-OUTPUT :INITFUNCTION
  133.    #Y(#:TOP-LEVEL-FORM-22-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  134.       #Y(#:TOP-LEVEL-FORM-22-1-1 #9Y(00 01 00 00 00 02 00 19 02)) (T)
  135.      )
  136.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  137.    :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  138.    CLOS::DO-DEFMETHOD
  139.   )
  140. #Y(#:TOP-LEVEL-FORM-23
  141.    #30Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  142.         0A 09 2F 0A 19 01
  143.        )
  144.    GENERIC-STREAM-CLEAR-OUTPUT :INITFUNCTION
  145.    #Y(#:TOP-LEVEL-FORM-23-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  146.       #Y(#:TOP-LEVEL-FORM-23-1-1 #9Y(00 01 00 00 00 02 00 19 02)) (T)
  147.      )
  148.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  149.    :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  150.    CLOS::DO-DEFMETHOD
  151.   )
  152. #Y(#:TOP-LEVEL-FORM-24
  153.    #30Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  154.         0A 09 2F 0A 19 01
  155.        )
  156.    GENERIC-STREAM-READ-BYTE :INITFUNCTION
  157.    #Y(#:TOP-LEVEL-FORM-24-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  158.       #Y(#:TOP-LEVEL-FORM-24-1-1 #9Y(00 01 00 00 00 02 00 19 02)) (T)
  159.      )
  160.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  161.    :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  162.    CLOS::DO-DEFMETHOD
  163.   )
  164. #Y(#:TOP-LEVEL-FORM-25
  165.    #35Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 63 37 02 71 2C 7A 02
  166.         DE 62 DF E0 6D 0A 09 2F 0A 19 01
  167.        )
  168.    GENERIC-STREAM-WRITE-BYTE :INITFUNCTION
  169.    #Y(#:TOP-LEVEL-FORM-25-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  170.       #Y(#:TOP-LEVEL-FORM-25-1-1 #9Y(00 02 00 00 00 03 00 19 03)) (T)
  171.      )
  172.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  173.    :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  174.    CLOS::DO-DEFMETHOD
  175.   )
  176. #Y(#:TOP-LEVEL-FORM-26
  177.    #30Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  178.         0A 09 2F 0A 19 01
  179.        )
  180.    GENERIC-STREAM-CLOSE :INITFUNCTION
  181.    #Y(#:TOP-LEVEL-FORM-26-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  182.       #Y(#:TOP-LEVEL-FORM-26-1-1 #9Y(00 01 00 00 00 02 00 19 02)) (T)
  183.      )
  184.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS GENERIC-STREAM-CONTROLLER
  185.    :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  186.    CLOS::DO-DEFMETHOD
  187.   )
  188.