Skip to content
Snippets Groups Projects
Commit 51987841 authored by wlott's avatar wlott
Browse files

Changed coerce-to-smallest-eltype to call coerce with a vector type

specifier instead of an array type specifier.
parent 9bba7bb4
No related branches found
No related tags found
No related merge requests found
......@@ -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))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment