[Sbcl-devel] Re: get-macro-character broken?

[Helmut E. <e96...@st...>]

Daniel Barlow <da...@te...>:
> The appended code is ugly, I concede, but I found it in the wild (in
> SLIME, in fact) and I don't see any other way to do it.  Ideas?

May I propose the patch below.  According to the comments for
GET-COERCED-CMT-ENTRY, it seems to be more adequate than
GET-RAW-CMT-ENTRY.

Helmut.



Index: reader.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/reader.lisp,v
retrieving revision 1.29
diff -u -F^(.* -r1.29 reader.lisp
--- reader.lisp	30 Nov 2003 17:11:06 -0000	1.29
+++ reader.lisp	29 Mar 2004 16:11:19 -0000
@@ -227,7 +227,7 @@ (defun get-macro-character (char &option
   (let* ((designated-readtable (or readtable *standard-readtable*))
 	 ;; the first return value: a FUNCTION if CHAR is a macro
 	 ;; character, or NIL otherwise
-	 (fun-value (get-raw-cmt-entry char designated-readtable)))
+	 (fun-value (get-coerced-cmt-entry char designated-readtable)))
     (values fun-value
 	    ;; NON-TERMINATING-P return value:
 	    (if fun-value