Changeset 847

Timestamp:

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

Author:

Gary Byers

Message:

%new-ptr can't exist in level-0

File:

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

trunk/ccl/level-0/l0-io.lisp

@@ -92 +92 @@
    :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))