diff --git a/hemlock/linimage.lisp b/hemlock/linimage.lisp index cbb9e0b3817cb92a8864c4c56d0eee51ad17e5e6..cb083ed43770c7d148764ef6fe3bd001ae86d31d 100644 --- a/hemlock/linimage.lisp +++ b/hemlock/linimage.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/linimage.lisp,v 1.1.1.4 1991/02/08 16:35:57 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/linimage.lisp,v 1.1.1.5 1993/08/02 17:31:04 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -95,11 +95,12 @@ on the screen. If the value is a string this string is literally displayed. If it is a function, then that function is called with the current X position to get the string to display.") - (setq *print-representation-vector* (make-array char-code-limit)) + (setq *print-representation-vector* + (make-array char-code-limit :initial-element nil)) (setf (attribute-descriptor-vector (gethash :print-representation *character-attributes*)) *print-representation-vector*) - (do ((code syntax-char-code-limit (1+ code)) + (do ((code 128 (1+ code)) (str (make-string 4) (make-string 4))) ((= code char-code-limit)) (setf (aref *losing-character-mask* code) losing-char)