Changeset 848

Timestamp:

Jul 31, 2004, 4:38:38 PM (20 years ago)

Author:

Gary Byers

Message:

move %NEW-PTR here

File:

• trunk/ccl/level-1/l1-io.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-io.lisp

@@ -16 +16 @@
 
 ;; 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))