/[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 by ram, Mon May 14 14:47:55 1990 UTC revision 1.1.1.1 by ram, Mon May 14 14:59:19 1990 UTC
# Line 1  Line 1 
1  ;;; -*- Mode: LISP; Syntax: Common-lisp; Package: XLIB; Base: 10; Lowercase: Yes -*-  ;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
2    
3  ;; This file contains some of the system dependent code for CLX  ;; This file contains some of the system dependent code for CLX
4    
# Line 595  Line 595 
595    (input-wait-function 'buffer-input-wait-default)    (input-wait-function 'buffer-input-wait-default)
596    ;; Function to call to listen for input data    ;; Function to call to listen for input data
597    (listen-function 'buffer-listen-default)    (listen-function 'buffer-listen-default)
598      ;;
599      ;; This is an alien array.  We use it for, somewhat unnecessarily, to have
600      ;; interior pointers into it when calling UNIX-READ.
601      #+:CMU
602      (internal-buffer nil)
603      ;;
604      ;; How much of the internal-buffer have we filled so far.
605      #+:CMU
606      (internal-buffer-length 0)
607    
608    #+Genera (debug-io nil :type (or null stream))    #+Genera (debug-io nil :type (or null stream))
609    )    )

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5