Changeset 12816


Ignore:
Timestamp:
Sep 11, 2009, 6:23:07 PM (10 years ago)
Author:
rme
Message:

In save-application, cerror if there are watched objects.

File:
1 edited

Legend:

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

    r12777 r12816  
    8383    (when (and kind (not (eq kind :file )))
    8484      (error "~S is not a regular file." filename)))
     85  (let* ((watched (watch)))
     86    (when watched
     87      (cerror "Un-watch them." "There are watched objects.")
     88      (mapc #'unwatch watched)))
    8589  (let* ((ip *initial-process*)
    8690         (cp *current-process*))
Note: See TracChangeset for help on using the changeset viewer.