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