Changeset 15023


Ignore:
Timestamp:
Oct 14, 2011, 9:32:35 AM (8 years ago)
Author:
gb
Message:

WRITE-PNAME: if the call to %PARSE-NUMBER-TOKEN signals an
ARITHMETIC-ERROR, treat it as if it succeeded (e.g., the pname has
number syntax/would be read as a potential number, even if it's not
representable.)

Fixes ticket:889 in the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-io.lisp

    r14362 r15023  
    10701070                                   (setq last-slash-pos i)))))
    10711071                        ;; or could be read as a number
    1072                         (%parse-number-token name 0 len *print-base*)
     1072                        (handler-case (%parse-number-token name 0 len *print-base*)
     1073                          (arithmetic-error (c) (declare (ignore c)) t))
    10731074                        ;; or symbol consisting entirely of .'s
    10741075                        (dotimes (i len t)
Note: See TracChangeset for help on using the changeset viewer.