Changeset 13216 for branches/purify


Ignore:
Timestamp:
Nov 19, 2009, 10:32:48 AM (10 years ago)
Author:
gb
Message:

Fix typos.

Location:
branches/purify/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/purify/source/lib/nfcomp.lisp

    r13215 r13216  
    18601860      (declare ((mod #x110000) code))
    18611861      (cond ((>= code #x10000) (incf extra 3))
    1862             ((>= code #x800) (incf code 2))
    1863             ((>= code #x80) (incf code 1))))))
     1862            ((>= code #x800) (incf extra 2))
     1863            ((>= code #x80) (incf extra 1))))))
    18641864
    18651865(defun fasl-out-vstring (str)
  • branches/purify/source/xdump/xfasload.lisp

    r13210 r13216  
    11891189  (declare (fixnum nchars nextra))
    11901190  (if (eql 0 nextra)
    1191     (dotimes (i nextra)
     1191    (dotimes (i nchars)
    11921192      (setf (u32-ref v (+ o (* i 4) *xload-target-misc-data-offset*))
    11931193            (%fasl-read-byte s)) )
Note: See TracChangeset for help on using the changeset viewer.