/[cmucl]/src/clx/depdefs.lisp
ViewVC logotype

Diff of /src/clx/depdefs.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.3 by ram, Fri May 17 16:23:17 1991 UTC revision 1.1.1.4 by ram, Tue May 21 18:38:06 1991 UTC
# Line 559  Line 559 
559  (def-clx-class (buffer (:constructor nil) (:copier nil) (:predicate nil))  (def-clx-class (buffer (:constructor nil) (:copier nil) (:predicate nil))
560    ;; Lock for multi-processing systems    ;; Lock for multi-processing systems
561    (lock (make-process-lock "CLX Buffer Lock"))    (lock (make-process-lock "CLX Buffer Lock"))
562    #-(or excl cmu) (output-stream nil :type (or null stream))    #-(or excl) (output-stream nil :type (or null stream))
563    #+(or excl cmu) (output-stream nil :type (or null fixnum))    #+(or excl) (output-stream nil :type (or null fixnum))
564    ;; Buffer size    ;; Buffer size
565    (size 0 :type array-index)    (size 0 :type array-index)
566    (request-number 0 :type (unsigned-byte 16))    (request-number 0 :type (unsigned-byte 16))
# Line 582  Line 582 
582    ;; Holding buffer for 16-bit text    ;; Holding buffer for 16-bit text
583    (tbuf16 (make-sequence 'buffer-text16 *buffer-text16-size* :initial-element 0))    (tbuf16 (make-sequence 'buffer-text16 *buffer-text16-size* :initial-element 0))
584    ;; Probably EQ to Output-Stream    ;; Probably EQ to Output-Stream
585    #-(or excl cmu) (input-stream nil :type (or null stream))    #-(or excl) (input-stream nil :type (or null stream))
586    #+(or excl cmu) (input-stream nil :type (or null fixnum))    #+(or excl) (input-stream nil :type (or null fixnum))
587    ;; T when the host connection has gotten errors    ;; T when the host connection has gotten errors
588    (dead nil :type (or null (not null)))    (dead nil :type (or null (not null)))
589    ;; T makes buffer-flush a noop.  Manipulated with with-buffer-flush-inhibited.    ;; T makes buffer-flush a noop.  Manipulated with with-buffer-flush-inhibited.
# Line 602  Line 602 
602    (input-wait-function 'buffer-input-wait-default)    (input-wait-function 'buffer-input-wait-default)
603    ;; Function to call to listen for input data    ;; Function to call to listen for input data
604    (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)  
605    
606    #+Genera (debug-io nil :type (or null stream))    #+Genera (debug-io nil :type (or null stream))
607    )    )

Legend:
Removed from v.1.1.1.3  
changed lines
  Added in v.1.1.1.4

  ViewVC Help
Powered by ViewVC 1.1.5