Changeset 10578


Ignore:
Timestamp:
Aug 28, 2008, 1:07:35 PM (11 years ago)
Author:
gz
Message:

write out an in-package from in write-coverage-to-file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/cover.lisp

    r10572 r10578  
    319319    (with-standard-io-syntax
    320320      (let ((*package* (pkg-arg "CCL")))
    321         (write `(setq *loading-coverage* ',(coverage-state-alist coverage))
    322                :stream stream)))
     321        (format stream "(in-package :ccl)~%~s~%"
     322                `(setq *loading-coverage* ',(coverage-state-alist coverage)))))
    323323    (values)))
    324324 
Note: See TracChangeset for help on using the changeset viewer.