From e3af03e02f375e6fc935cbd929936961374c1b50 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 5 Feb 2012 09:40:37 +0100 Subject: [PATCH] GET-MACRO-CHARACTER did not default to the standard readtable --- src/c/read.d | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/c/read.d b/src/c/read.d index 3c6de48..3e4863d 100644 --- a/src/c/read.d +++ b/src/c/read.d @@ -1826,7 +1826,7 @@ ecl_invalid_character_p(int c) @(return Ct) @) -@(defun get_macro_character (c &optional readtable) +@(defun get_macro_character (c &optional (readtable ecl_current_readtable())) enum ecl_chattrib cat; cl_object dispatch; @ -- 2.9.0