Changeset 11657


Ignore:
Timestamp:
Jan 29, 2009, 3:25:38 PM (11 years ago)
Author:
gz
Message:

r11605 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/l0-misc.lisp

    r11164 r11657  
    456456      (return t))))
    457457
     458(defun %cnstrcmp (x y n)
     459  (declare (fixnum n))
     460  (do* ((i 0 (1+ i))
     461        (bx (%get-byte x i) (%get-byte x i))
     462        (by (%get-byte y i) (%get-byte y i)))
     463       ((= i n) t)
     464    (declare (fixnum i bx by))
     465    (unless (= bx by)
     466      (return))))
     467
    458468(defvar %documentation nil)
    459469
Note: See TracChangeset for help on using the changeset viewer.