Skip to content
Snippets Groups Projects
Commit fe88e6fe authored by ram's avatar ram
Browse files

This commit was generated by cvs2svn to compensate for changes in r3322,

which included commits to RCS files with non-trunk default branches.
parents 4692cc7b a922a550
No related branches found
No related tags found
No related merge requests found
...@@ -559,8 +559,8 @@ ...@@ -559,8 +559,8 @@
(def-clx-class (buffer (:constructor nil) (:copier nil) (:predicate nil)) (def-clx-class (buffer (:constructor nil) (:copier nil) (:predicate nil))
;; Lock for multi-processing systems ;; Lock for multi-processing systems
(lock (make-process-lock "CLX Buffer Lock")) (lock (make-process-lock "CLX Buffer Lock"))
#-(or excl cmu) (output-stream nil :type (or null stream)) #-(or excl) (output-stream nil :type (or null stream))
#+(or excl cmu) (output-stream nil :type (or null fixnum)) #+(or excl) (output-stream nil :type (or null fixnum))
;; Buffer size ;; Buffer size
(size 0 :type array-index) (size 0 :type array-index)
(request-number 0 :type (unsigned-byte 16)) (request-number 0 :type (unsigned-byte 16))
...@@ -582,8 +582,8 @@ ...@@ -582,8 +582,8 @@
;; Holding buffer for 16-bit text ;; Holding buffer for 16-bit text
(tbuf16 (make-sequence 'buffer-text16 *buffer-text16-size* :initial-element 0)) (tbuf16 (make-sequence 'buffer-text16 *buffer-text16-size* :initial-element 0))
;; Probably EQ to Output-Stream ;; Probably EQ to Output-Stream
#-(or excl cmu) (input-stream nil :type (or null stream)) #-(or excl) (input-stream nil :type (or null stream))
#+(or excl cmu) (input-stream nil :type (or null fixnum)) #+(or excl) (input-stream nil :type (or null fixnum))
;; T when the host connection has gotten errors ;; T when the host connection has gotten errors
(dead nil :type (or null (not null))) (dead nil :type (or null (not null)))
;; T makes buffer-flush a noop. Manipulated with with-buffer-flush-inhibited. ;; T makes buffer-flush a noop. Manipulated with with-buffer-flush-inhibited.
...@@ -602,15 +602,6 @@ ...@@ -602,15 +602,6 @@
(input-wait-function 'buffer-input-wait-default) (input-wait-function 'buffer-input-wait-default)
;; Function to call to listen for input data ;; Function to call to listen for input data
(listen-function 'buffer-listen-default) (listen-function 'buffer-listen-default)
;;
;; This is an alien array. We use it for, somewhat unnecessarily, to have
;; interior pointers into it when calling UNIX-READ.
#+:CMU
(internal-buffer nil)
;;
;; How much of the internal-buffer have we filled so far.
#+:CMU
(internal-buffer-length 0)
#+Genera (debug-io nil :type (or null stream)) #+Genera (debug-io nil :type (or null stream))
) )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment