From 4ddb8b02f10791a7e9b0ec45f64642b8594c2002 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 6 Dec 2008 11:01:02 +0100 Subject: [PATCH] Signal an error if the argument to SET-MACRO-CHARACTER is not a function designator --- src/c/read.d | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/c/read.d b/src/c/read.d index f813c166a..c1dd07853 100644 --- a/src/c/read.d +++ b/src/c/read.d @@ -1843,6 +1843,10 @@ ecl_invalid_character_p(int c) entry->syntax_type = cat_non_terminating; else entry->syntax_type = cat_terminating; + while (Null(cl_functionp(fnc))) { + fnc = ecl_type_error(@'set-macro-character',"new_function", + fnc, @'function'); + } entry->macro = fnc; @(return Ct) @)