Changeset 5079


Ignore:
Timestamp:
Sep 3, 2006, 7:21:38 PM (14 years ago)
Author:
gb
Message:

Some comments/indentation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-int.lisp

    r1937 r5079  
    8888  (let ((digit-string "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"))   
    8989    (cond ((fixnump int)  ; ugh                     
    90            ; 29 bits max magnitude (base 2) + 1 for sign
    9190           (let ((temstring (make-string (- target::nbits-in-word target::fixnumshift) :element-type 'base-char))
    9291                 (i (- target::nbits-in-word  target::fixnumshift 1))
     
    115114                                 8     8  8  8  8  8  7  7  7
    116115                                 7     7  7  7  7  7  7  7  7 7))
    117                     ; overestimate # digits by a little for weird radix
     116                    ;; overestimate # digits by a little for weird
     117                    ;; radix
    118118                    (bigwords (uvsize int))
    119119                    (strlen (1+ (* bigwords (svref size-vect radix))))
     
    121121                    (i (1- strlen))
    122122                    (neg (< int 0))
    123                     ;(rem 0)
    124                     ;better-bignum-print?
     123                    ; ;(rem 0)
     124                    ;; ;better-bignum-print?
    125125                    )  ; warn
    126126               (declare (dynamic-extent temstring)
Note: See TracChangeset for help on using the changeset viewer.