/[cmucl]/src/hemlock/bit-stream.lisp
ViewVC logotype

Diff of /src/hemlock/bit-stream.lisp

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

revision 1.1 by ram, Wed May 9 13:03:06 1990 UTC revision 1.2 by ram, Fri Feb 11 21:52:51 1994 UTC
# Line 1  Line 1 
1  ;;; -*- Log: hemlock.log; Package: Hemlock-Internals -*-  ;;; -*- Log: hemlock.log; Package: Hemlock-Internals -*-
2  ;;;  ;;;
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;; This code was written as part of the Spice 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.
6  ;;; Spice Lisp is currently incomplete and under active development.  ;;; If you want to use this code or any part of CMU Common Lisp, please contact
7  ;;; If you want to use this code or any part of Spice Lisp, please contact  ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
8  ;;; Scott Fahlman (FAHLMAN@CMUC).  ;;;
9    (ext:file-comment
10      "$Header$")
11    ;;;
12  ;;; **********************************************************************  ;;; **********************************************************************
13  ;;;  ;;;
14  ;;; Some stuff to make streams that write out on bitmap hunks.  ;;; Some stuff to make streams that write out on bitmap hunks.
# Line 13  Line 16 
16  ;;; Written by Rob MacLachlan.  ;;; Written by Rob MacLachlan.
17  ;;; Modified by Bill Chiles to run under X on the IBM RT.  ;;; Modified by Bill Chiles to run under X on the IBM RT.
18  ;;;  ;;;
19  (in-package 'hemlock-internals)  (in-package "HEMLOCK-INTERNALS")
20    
21    
22  ;;; These streams have an associated bitmap-hunk that is used for its  ;;; These streams have an associated bitmap-hunk that is used for its
# Line 86  Line 89 
89           (funcall (device-force-output device)))))           (funcall (device-force-output device)))))
90      (:line-length      (:line-length
91       (bitmap-hunk-char-width (bitmap-hunk-output-stream-hunk stream)))       (bitmap-hunk-char-width (bitmap-hunk-output-stream-hunk stream)))
92      (:element-type 'string-char)))      (:element-type 'base-char)))
93    
94    
95  ;;; Bitmap-Hunk-Out  --  Internal  ;;; Bitmap-Hunk-Out  --  Internal

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

  ViewVC Help
Powered by ViewVC 1.1.5