Changeset 12857


Ignore:
Timestamp:
Sep 21, 2009, 7:42:17 PM (10 years ago)
Author:
rme
Message:

Port r12854 (fix for ticket:601, get-dispatch-macro-character bug) here.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/level-1/l1-reader.lisp

    r11385 r12857  
    21262126  (unless (digit-char-p sub-ch 10)
    21272127    (let* ((def (cdr (nth-value 1 (%get-readtable-char disp-ch readtable)))))
    2128       (if (consp (cdr def))
     2128      (if (consp def)
    21292129        (cdr (assq sub-ch (cdr def)))
    21302130        (error "~A is not a dispatching macro character in ~s ." disp-ch readtable)))))
Note: See TracChangeset for help on using the changeset viewer.