Index: /trunk/ccl/level-0/l0-io.lisp
===================================================================
--- /trunk/ccl/level-0/l0-io.lisp	(revision 846)
+++ /trunk/ccl/level-0/l0-io.lisp	(revision 847)
@@ -92,8 +92,3 @@
    :address ptr :void))
 
-(defun %new-ptr (size &optional clear-p)
-  (let* ((p (malloc size)))
-    (if (and clear-p (not (%null-ptr-p p)))
-      (#_bzero p size))
-    p))