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
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -343,7 +343,7 @@
(frob))))) (frob)))))
(if max (if max
(coerce seq `(simple-array (integer 0 ,max))) (coerce seq `(simple-array (integer 0 ,max) (*)))
(coerce seq 'simple-vector)))) (coerce seq 'simple-vector))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment