From 17975d5cf211843d6bc21fd868d96d398d35905f Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 31 Mar 1991 18:45:02 +0000
Subject: [PATCH] Fixed values-list to ``move count csp-tn'' instead of ``move
 csp-tn count'' in order to keep from trashing the CSP (and to get the correct
 value for count).

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

diff --git a/compiler/rt/values.lisp b/compiler/rt/values.lisp
index a7123302b..ae6eecd5c 100644
--- a/compiler/rt/values.lisp
+++ b/compiler/rt/values.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/values.lisp,v 1.1 1991/02/18 15:08:26 chiles Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/values.lisp,v 1.2 1991/03/31 18:45:02 wlott Exp $
 ;;;
 ;;; This file contains the implementation of unknown-values VOPs.
 ;;;
@@ -98,5 +98,5 @@
       (error-call vop bogus-argument-to-values-list-error list)
 
       (emit-label done)
-      (move csp-tn count)
+      (move count csp-tn)
       (inst s count start))))
-- 
GitLab