diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index 820f8b02cac4c07f668c3df44cbc27343ec76892..3926489972736d8ac0736639540506fabd60ecaf 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.39 1993/09/10 19:09:07 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.40 1994/02/10 22:38:35 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -343,7 +343,7 @@ (frob))))) (if max - (coerce seq `(simple-array (integer 0 ,max))) + (coerce seq `(simple-array (integer 0 ,max) (*))) (coerce seq 'simple-vector))))