Index: /trunk/ccl/level-1/l1-io.lisp
===================================================================
--- /trunk/ccl/level-1/l1-io.lisp	(revision 847)
+++ /trunk/ccl/level-1/l1-io.lisp	(revision 848)
@@ -16,4 +16,10 @@
 
 ;; L1-io.lisp
+
+(defun %new-ptr (size &optional clear-p)
+  (let* ((p (malloc size)))
+    (if (and clear-p (not (%null-ptr-p p)))
+      (#_bzero p size))
+    p))