Changeset 11024


Ignore:
Timestamp:
Oct 8, 2008, 11:25:14 AM (11 years ago)
Author:
gb
Message:

ALLOCATE-STATIC-CONSES: reserve space for *STATIC-CONS-CHUNK* conses.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/misc.lisp

    r10942 r11024  
    922922  "Allocates some memory, freezes it and lets it become garbage.
    923923   This will add the memory to the list of free static conses."
    924   (let ((l (make-array *static-cons-chunk*)))
     924  (let ((l (make-array (1- (* 2 *static-cons-chunk*)))))
    925925    (declare (ignore l))
    926926    (freeze))
Note: See TracChangeset for help on using the changeset viewer.