Changeset 11568


Ignore:
Timestamp:
01/18/09 22:14:51 (12 years ago)
Author:
ehuelsmann
Message:

Restore *read-base* and *read-default-float-format* after compiling a file.

They could have been changed (and in our case the latter *is*) during file compilation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r11391 r11568  
    419419          (with-open-file (out temp-file :direction :output :if-exists :supersede)
    420420            (let ((*readtable* *readtable*)
     421                  (*read-default-float-format* *read-default-float-format*)
     422                  (*read-base* *read-base*)
    421423                  (*package* *package*)
    422424                  (*speed* *speed*)
Note: See TracChangeset for help on using the changeset viewer.