Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 994a6e6)
GET-MACRO-CHARACTER did not default to the standard readtable ECL.12.2.1 ECL.12.2.2
authorJuan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Sun, 5 Feb 2012 08:40:37 +0000 (09:40 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Sun, 5 Feb 2012 08:40:37 +0000 (09:40 +0100)
src/c/read.d patch | blob | blame | history

diff --git a/src/c/read.d b/src/c/read.d
index 3c6de48..3e4863d 100644 (file)
--- 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;
 @
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)