Changeset 12854 for trunk/source/level-1


Ignore:
Timestamp:
Sep 21, 2009, 12:56:07 PM (10 years ago)
Author:
gz
Message:

Fix bug #601

File:
1 edited

Legend:

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

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