From 3e822f30e0b4d13fe63e8798463482474beb711b Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 17 Jun 1990 11:42:05 +0000 Subject: [PATCH] Broadened the EXCL conditional on INPUT-STREAM and OUTPUT-STREAM in BUFFER to include CMU too. Allowed NIL as well as FIXNUM, since various people seem to expect to be able to set these slots to NIL. --- clx/depdefs.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/clx/depdefs.lisp b/clx/depdefs.lisp index 3e85d08c5..6a0af7722 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. -- GitLab