Changeset 11654


Ignore:
Timestamp:
Jan 29, 2009, 3:21:17 PM (11 years ago)
Author:
gz
Message:

r11626 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-io.lisp

    r11648 r11654  
    1919(in-package "CCL")
    2020
    21 (defun %new-ptr (size &optional clear-p)
    22   (let* ((p (malloc size)))
    23     (if (and clear-p (not (%null-ptr-p p)))
    24       (#_memset p 0 size))
    25     p))
     21(setf (fdefinition '%new-ptr) (fdefinition '%new-gcable-ptr))
    2622
    2723
Note: See TracChangeset for help on using the changeset viewer.