Changeset 11626


Ignore:
Timestamp:
Jan 19, 2009, 5:44:19 PM (11 years ago)
Author:
gb
Message:

%NEW-PTR (only referenced from the expansion of %STACK-BLOCK)
now an alias for %NEW-GCABLE-PTR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-io.lisp

    r11464 r11626  
    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.