diff options
| -rw-r--r-- | src/boot/ast.boot | 4 | ||||
| -rw-r--r-- | src/boot/strap/ast.clisp | 4 |
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|) |