Date: Sunday, October 10, 2010 @ 10:11:47 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp
Modified: print.c
Fix typos introduced in last commit.
---------+ print.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
Index: src/lisp/print.c diff -u src/lisp/print.c:1.27 src/lisp/print.c:1.28 --- src/lisp/print.c:1.27 Sun Oct 10 09:02:10 2010 +++ src/lisp/print.c Sun Oct 10 10:11:47 2010 @@ -1,4 +1,4 @@ -/* $Header: /project/cmucl/cvsroot/src/lisp/print.c,v 1.27 2010-10-10 13:02:10 rtoy Exp $ */ +/* $Header: /project/cmucl/cvsroot/src/lisp/print.c,v 1.28 2010-10-10 14:11:47 rtoy Exp $ */
#include <stdio.h> #include <string.h> @@ -385,7 +385,7 @@ #else { char *charptr = (char *) vector->data; - int len = (int) (vector->length >> (logtag_Bits - 1); + int len = (int) (vector->length >> (lowtag_Bits - 1));
while (len-- > 0) { if ((charptr[0] == 0)