Opened 12 years ago

Closed 12 years ago

#601 closed defect (fixed)


Reported by: trittweiler Owned by:
Priority: normal Milestone:
Component: IDE Version: trunk
Keywords: Cc:

Description (last modified by gz)

GET-DISPATCH-MACRO-CHARACTER complains about a character not being a dispatch macro character even after that character was just made one by MAKE-DISPATCH-MACRO-CHARACTER.

Test case:

  (flet ((dispatch-macro-char-p (char &optional (rt *readtable*))
               (prog1 t
                 (get-dispatch-macro-character char #\x rt))
             (error () nil))))
    (let ((*readtable* (copy-readtable nil)))
      (values (dispatch-macro-char-p #\$)
              (make-dispatch-macro-character #\$ nil)
              (dispatch-macro-char-p #\$))))

  Expected: NIL, T, T
  Actual:   NIL, T, NIL

Fix attached.


Attachments (1)

get-dispatch-macro-char-return-val-fix.diff (942 bytes) - added by trittweiler 12 years ago.

Download all attachments as: .zip

Change History (2)

Changed 12 years ago by trittweiler

comment:1 Changed 12 years ago by gz

  • Description modified (diff)
  • Resolution set to fixed
  • Status changed from new to closed

There is actually more of a bug, e.g. (get-dispatch-macro-character #\, #\x) complains about something not being a LIST, it should complain about #\, not being a dispatch char.

Fixed in r12854

Note: See TracTickets for help on using tickets.