diff --git a/clx/depdefs.lisp b/clx/depdefs.lisp index 3e85d08c5dcc3389ebc1cbe1405f21b8ec01810f..6a0af7722dcbfec39913f483058ef4e168949852 100644 --- a/clx/depdefs.lisp +++ b/clx/depdefs.lisp @@ -552,8 +552,8 @@ (def-clx-class (buffer (:constructor nil) (:copier nil) (:predicate nil)) ;; Lock for multi-processing systems (lock (make-process-lock "CLX Buffer Lock")) - #-excl (output-stream nil :type (or null stream)) - #+excl (output-stream -1 :type fixnum) + #-(or excl cmu) (output-stream nil :type (or null stream)) + #+(or excl cmu) (output-stream nil :type (or null fixnum)) ;; Buffer size (size 0 :type array-index) (request-number 0 :type (unsigned-byte 16)) @@ -575,8 +575,8 @@ ;; Holding buffer for 16-bit text (tbuf16 (make-sequence 'buffer-text16 *buffer-text16-size* :initial-element 0)) ;; Probably EQ to Output-Stream - #-excl (input-stream nil :type (or null stream)) - #+excl (input-stream -1 :type fixnum) + #-(or excl cmu) (input-stream nil :type (or null stream)) + #+(or excl cmu) (input-stream nil :type (or null fixnum)) ;; T when the host connection has gotten errors (dead nil :type (or null (not null))) ;; T makes buffer-flush a noop. Manipulated with with-buffer-flush-inhibited.