From c6e8909f58466cf153047b97ff19e627ed17e9c0 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 8 Dec 1990 19:57:15 +0000
Subject: [PATCH] Dump vectors whos element type is subtypep (unsigned-byte 32)
 as int vectors, not just vectors whos element type is subtype (unsigned-byte
 16). Otherwise, ub-32 vectors will be loaded back as simple-vectors.

---
 compiler/dump.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index 937620ba5..22f62f55e 100644
--- a/compiler/dump.lisp
+++ b/compiler/dump.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.27 1990/12/02 11:49:16 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.28 1990/12/08 19:57:15 wlott Exp $
 ;;;
 ;;;    This file contains stuff that knows about dumping FASL files.
 ;;;
@@ -599,7 +599,7 @@
 		       (dump-string x file)
 		       (equal-save-object x file)))
 		    ((subtypep (array-element-type x)
-			       '(unsigned-byte 16))
+			       '(unsigned-byte 32))
 		     (dump-i-vector x file)
 		     (eq-save-object x file))
 		    (t
-- 
GitLab