aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/boot/ast.boot4
-rw-r--r--src/boot/strap/ast.clisp4
2 files changed, 4 insertions, 4 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index f3f2b12c..67084e95 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -812,10 +812,10 @@ bfKeyArg(k,x) ==
['%Key,k,x]
bfInert x ==
- makeSymbol(stringUpcase x,'"KEYWORD")
+ makeSymbol(x,'"KEYWORD")
lispKey k ==
- bfInert symbolName k
+ bfInert stringUpcase symbolName k
bfExpandKeys l ==
args := nil
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 3fca935f..2b71acb9 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -1223,9 +1223,9 @@
(DEFUN |bfKeyArg| (|k| |x|) (LIST '|%Key| |k| |x|))
-(DEFUN |bfInert| (|x|) (INTERN (STRING-UPCASE |x|) "KEYWORD"))
+(DEFUN |bfInert| (|x|) (INTERN |x| "KEYWORD"))
-(DEFUN |lispKey| (|k|) (|bfInert| (SYMBOL-NAME |k|)))
+(DEFUN |lispKey| (|k|) (|bfInert| (STRING-UPCASE (SYMBOL-NAME |k|))))
(DEFUN |bfExpandKeys| (|l|)
(LET* (|x| |ISTMP#2| |k| |ISTMP#1| |a| |args|)