Changeset 13499


Ignore:
Timestamp:
Mar 9, 2010, 5:43:44 AM (15 years ago)
Author:
Gary Byers
Message:

Add some whitespace.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/level-1/l1-streams.lisp

    r13470 r13499  
    62386238       (if (< (the fixnum value) 0)
    62396239         (report-bad-arg value 'unsigned-byte))
    6240        (do* ((shift (ash(the fixnum (1- len)) 3) (- shift 8)))
     6240       (do* ((shift (ash (the fixnum (1- len)) 3) (- shift 8)))
    62416241            ((< shift 0) (progn
    62426242                           (setf (io-buffer-idx outbuf) idx)
Note: See TracChangeset for help on using the changeset viewer.