Changeset 8883


Ignore:
Timestamp:
Mar 25, 2008, 7:41:05 AM (11 years ago)
Author:
gb
Message:

Clear population.data, population.termination-list of *termination-population*
before saving image.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/dumplisp.lisp

    r8879 r8883  
    126126                         (kill-lisp-pointers)
    127127                         (clear-ioblock-streams)
     128                         (with-deferred-gc
     129                             (let* ((pop *termination-population*))
     130                               (with-lock-grabbed (*termination-population-lock*)
     131                                 (setf (population.data pop) nil
     132                                       (population.termination-list pop) nil))))
    128133                         (%set-toplevel
    129134                          #'(lambda ()
Note: See TracChangeset for help on using the changeset viewer.