From 8c963b9f2c9ebbb067c905b2526bcba3dc7705ef Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 8 Mar 1990 15:19:56 +0000
Subject: [PATCH] Put type flame error into invalid-move.

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

diff --git a/compiler/mips/move.lisp b/compiler/mips/move.lisp
index 9f573ee48..eee12ac7d 100644
--- a/compiler/mips/move.lisp
+++ b/compiler/mips/move.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.8 1990/02/28 18:26:05 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.9 1990/03/08 15:19:56 wlott Exp $
 ;;;
 ;;;    This file contains the RT VM definition of operand loading/saving and
 ;;; the Move VOP.
@@ -109,9 +109,11 @@
 ;;; to do anyway.)
 ;;;
 (define-vop (illegal-move)
+  (:args (x) (type))
   (:results (y))
   (:ignore y)
-  (:generator 666))
+  (:generator 666
+    (error-call di:object-not-type-error x type)))
 
 
 ;;;; Operand loading and saving:
-- 
GitLab