mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 06:22:33 -08:00
Code Issues Projects Releases Packages Wiki Activity

Signal an error if the argument to SET-MACRO-CHARACTER is not a function designator

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-12-06 11:01:02 +01:00
parent cd24fc30d5
commit 4ddb8b02f1
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/read.d
View file

@ -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)
@)