CMUCL commit: src/lisp (print.c)

Raymond Toy rtoy at common-lisp.net
Sun Oct 10 16:11:47 CEST 2010


    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)



More information about the cmucl-commit mailing list