diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-20 18:27:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-20 18:27:23 +0000 |
| commit | 22f59081b0bafbd71233584e1f6bc99e3ec4cf59 (patch) | |
| tree | 04a87ad92e0ac74722c28a2ef93313eaca3657b3 /src | |
| parent | 1102a65aec0ee0acf7f93ef3c1d780399ac479b7 (diff) | |
| download | open-axiom-22f59081b0bafbd71233584e1f6bc99e3ec4cf59.tar.gz | |
Tidy codegen for Boot inerts.
Diffstat (limited to 'src')
| -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|) |