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