From d287b2b1e5a74affb22b6eba37ba28dff7c81a1b Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Sun, 10 Oct 2010 14:11:47 +0000 Subject: [PATCH] Fix typos introduced in last commit. --- lisp/print.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/print.c b/lisp/print.c index b783cf756..09e2bbe78 100644 --- a/lisp/print.c +++ b/lisp/print.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.27 2010/10/10 13:02:10 rtoy Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/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 @@ brief_otherptr(lispobj obj) #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) -- GitLab