Changeset 11132


Ignore:
Timestamp:
Oct 17, 2008, 1:14:39 PM (11 years ago)
Author:
gz
Message:

From working-0711 branch: clear population.data, population.termination-list of *termination-population* before saving image.

File:
1 edited

Legend:

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

    r10277 r11132  
    141141                         (kill-lisp-pointers)
    142142                         (clear-ioblock-streams)
     143                         (with-deferred-gc
     144                             (let* ((pop *termination-population*))
     145                               (with-lock-grabbed (*termination-population-lock*)
     146                                 (setf (population.data pop) nil
     147                                       (population.termination-list pop) nil))))
    143148                         (%set-toplevel
    144149                          #'(lambda ()
Note: See TracChangeset for help on using the changeset viewer.