From d36eba7f97131d1b9eadd65aaf2a248c6629b12a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 22 Mar 1990 18:45:48 +0000
Subject: [PATCH] Fixed a bug in base-character-move that caused it to trash
 the character instead of adding the type bits.

---
 compiler/mips/char.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/mips/char.lisp b/compiler/mips/char.lisp
index 0f0efd9f2..2870bb745 100644
--- a/compiler/mips/char.lisp
+++ b/compiler/mips/char.lisp
@@ -54,7 +54,7 @@
 	       (move dest src))
 	      (x-char
 	       (inst sll dest src vm:type-bits)
-	       (inst ori dest src vm:base-character-type))
+	       (inst ori dest dest vm:base-character-type))
 	      (t
 	       (inst srl dest src vm:type-bits)))
 
-- 
GitLab