Changeset 16443


Ignore:
Timestamp:
Jun 29, 2015, 9:32:30 PM (4 years ago)
Author:
wws
Message:

Update to the new order the rdtab.macros reference in %get-readtable-char

File:
1 edited

Legend:

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

    r16442 r16443  
    20232023  (let* ((attr (%character-attribute char (rdtab.ttab readtable))))
    20242024    (declare (fixnum attr))
    2025     (values attr (if (logbitp $cht_macbit attr) (assoc char (rdtab.macros readtable))))))
     2025    (values attr (if (logbitp $cht_macbit attr)
     2026                     (let ((macros (rdtab.macros readtable)))
     2027                       (if (typep macros 'list)
     2028                           (assoc char macros)
     2029                           (sparse-vector-ref macros (need-char-code char))))))))
    20262030
    20272031(defun copy-macro-table (table)
Note: See TracChangeset for help on using the changeset viewer.