From 22f59081b0bafbd71233584e1f6bc99e3ec4cf59 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 20 Jun 2013 18:27:23 +0000 Subject: Tidy codegen for Boot inerts. --- src/boot/ast.boot | 4 ++-- 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|) -- cgit v1.2.3