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