diff --git a/lisp/print.c b/lisp/print.c index b783cf75640b99cd2a3fb9d57b7b5f2ece61abd4..09e2bbe784590a57a2808a5662fe27ad24678fb3 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)