Index: /trunk/ccl/level-1/l1-utils.lisp
===================================================================
--- /trunk/ccl/level-1/l1-utils.lisp	(revision 425)
+++ /trunk/ccl/level-1/l1-utils.lisp	(revision 426)
@@ -1206,4 +1206,10 @@
   arg)
 
+(defun %cstrlen (ptr)
+  ;;(#_strlen ptr)
+  (do* ((i 0 (1+ i)))
+       ((zerop (the fixnum (%get-byte ptr i))) i)
+    (declare (fixnum i))))
+						 
 
 (defun %put-cstring (ptr str &optional (offset 0))