Changeset 13216

Timestamp:

Nov 19, 2009, 2:32:48 AM (15 years ago)

Author:

Gary Byers

Message:

Fix typos.

Location:

branches/purify/source

Files:

• lib/nfcomp.lisp (modified) (1 diff)
• xdump/xfasload.lisp (modified) (1 diff)

branches/purify/source/lib/nfcomp.lisp

@@ -1860 +1860 @@
       (declare ((mod #x110000) code))
       (cond ((>= code #x10000) (incf extra 3))
-            ((>= code #x800) (incf code 2))
-            ((>= code #x80) (incf code 1))))))
+            ((>= code #x800) (incf extra 2))
+            ((>= code #x80) (incf extra 1))))))
 
 (defun fasl-out-vstring (str)

branches/purify/source/xdump/xfasload.lisp

@@ -1189 +1189 @@
   (declare (fixnum nchars nextra))
   (if (eql 0 nextra)
-    (dotimes (i nextra)
+    (dotimes (i nchars)
       (setf (u32-ref v (+ o (* i 4) *xload-target-misc-data-offset*))
             (%fasl-read-byte s)) )