Changeset 9440


Ignore:
Timestamp:
May 9, 2008, 10:25:28 AM (11 years ago)
Author:
gb
Message:

Avoid package constants.

File:
1 edited

Legend:

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

    r8937 r9440  
    220220                          :if-does-not-exist :create)
    221221    (with-standard-io-syntax
    222       (let ((*package* *ccl-package*))
     222      (let ((*package* (pkg-arg "CCL")))
    223223        (write (save-coverage) :stream stream)))
    224224    (values)))
     
    229229  (with-open-file (stream pathname :direction :input)
    230230    (with-standard-io-syntax
    231       (let ((*package* *ccl-package*))
     231      (let ((*package* (pkg-arg "CCL")))
    232232        (restore-coverage (read stream))))
    233233    (values)))
Note: See TracChangeset for help on using the changeset viewer.