/[cmucl]/src/hemlock/struct.lisp
ViewVC logotype

Diff of /src/hemlock/struct.lisp

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

revision 1.1.1.6 by chiles, Fri May 10 15:46:34 1991 UTC revision 1.7 by dtc, Sun Oct 4 08:27:32 1998 UTC
# Line 3  Line 3 
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;; This code was written as part of the CMU Common Lisp project at  ;;; This code was written as part of the CMU Common Lisp project at
5  ;;; Carnegie Mellon University, and has been placed in the public domain.  ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact  
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.  
6  ;;;  ;;;
7  (ext:file-comment  (ext:file-comment
8    "$Header$")    "$Header$")
# Line 328  Line 326 
326    
327  ;;; These streams write to random typeout buffers for WITH-POP-UP-DISPLAY.  ;;; These streams write to random typeout buffers for WITH-POP-UP-DISPLAY.
328  ;;;  ;;;
329  (defstruct (random-typeout-stream (:include stream)  (defstruct (random-typeout-stream (:include sys:lisp-stream)
330                                    (:print-function print-random-typeout-stream)                                    (:print-function print-random-typeout-stream)
331                                    (:constructor                                    (:constructor
332                                     make-random-typeout-stream (mark)))                                     make-random-typeout-stream (mark)))
# Line 468  Line 466 
466                          ; device-columns long.                          ; device-columns long.
467    ;;    ;;
468    ;; This terminal's baud rate, or NIL for infinite.    ;; This terminal's baud rate, or NIL for infinite.
469    (speed nil :type (or (unsigned-byte 16) null)))    (speed nil :type (or (unsigned-byte 24) null)))
470    
471    
472  ;;;; Device screen hunks and window-group.  ;;;; Device screen hunks and window-group.

Legend:
Removed from v.1.1.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5