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

Flushed old CMU internal buffer slots, and made the in/out streams

real streams.
parent ba219090
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