Changeset 426


Ignore:
Timestamp:
Jan 30, 2004, 11:44:50 AM (21 years ago)
Author:
Gary Byers
Message:

%CSTRLEN.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-utils.lisp

    r399 r426  
    12061206  arg)
    12071207
     1208(defun %cstrlen (ptr)
     1209  ;;(#_strlen ptr)
     1210  (do* ((i 0 (1+ i)))
     1211       ((zerop (the fixnum (%get-byte ptr i))) i)
     1212    (declare (fixnum i))))
     1213                                                 
    12081214
    12091215(defun %put-cstring (ptr str &optional (offset 0))
Note: See TracChangeset for help on using the changeset viewer.