From b8ae810ef5ef0b399aff5ea1b94370c81e9186c3 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sun, 26 Jul 1998 00:05:31 +0000
Subject: [PATCH] Fix some typos in the long-float support; noted by Raymond
 Toy.

---
 lisp/gc.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/gc.c b/lisp/gc.c
index cbb39444c..51873d8e1 100644
--- a/lisp/gc.c
+++ b/lisp/gc.c
@@ -1,7 +1,7 @@
 /*
  * Stop and Copy GC based on Cheney's algorithm.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.15 1998/03/21 08:14:59 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.16 1998/07/26 00:05:31 dtc Exp $
  * 
  * Written by Christopher Hoover.
  */
@@ -1671,7 +1671,7 @@ trans_vector_long_float(lispobj object)
 	nwords = CEILING(length * 4 + 2, 2);
 #endif
 
-	return copy_large_unboxed_object(object, nwords);
+	return copy_object(object, nwords);
 }
 
 static int
@@ -1807,7 +1807,7 @@ trans_vector_complex_long_float(lispobj object)
 	nwords = CEILING(length * 8 + 2, 2);
 #endif
 
-	return copy_large_unboxed_object(object, nwords);
+	return copy_object(object, nwords);
 }
 
 static int
-- 
GitLab