diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-05 16:42:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-05 16:42:50 +0000 |
| commit | 207c5a13c6987ad88975c35006d16c74d0e58e1a (patch) | |
| tree | 9c15509f1153868e6df6210cca98dffb84ea7000 /src/boot/strap/translator.clisp | |
| parent | 2a4baaa2a295381d6c37ec2fc7c3f7ec8fd089cf (diff) | |
| download | open-axiom-207c5a13c6987ad88975c35006d16c74d0e58e1a.tar.gz | |
cleanup
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 3e93facc..ae9f2de2 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -39,7 +39,7 @@ (CONS (LIST 'MAPC (LIST 'FUNCTION 'FMAKUNBOUND) - (LIST 'QUOTE + (|quote| (LET ((|bfVar#2| NIL) (|bfVar#3| NIL) @@ -84,7 +84,7 @@ (SETQ |bfVar#5| #1=(CONS (LIST 'EVAL - (LIST 'QUOTE |d|)) + (|quote| |d|)) NIL)) (SETQ |bfVar#6| |bfVar#5|)) @@ -99,7 +99,7 @@ (DEFUN |genOptimizeOptions| (|stream|) (REALLYPRETTYPRINT (LIST 'PROCLAIM - (LIST 'QUOTE (CONS 'OPTIMIZE |$LispOptimizeOptions|))) + (|quote| (CONS 'OPTIMIZE |$LispOptimizeOptions|))) |stream|)) (DEFUN |AxiomCore|::|%sysInit| () @@ -619,7 +619,7 @@ (DEFUN |exportNames| (|ns|) (COND ((NULL |ns|) NIL) - (T (LIST (|inAllContexts| (LIST 'EXPORT (LIST 'QUOTE |ns|))))))) + (T (LIST (|inAllContexts| (LIST 'EXPORT (|quote| |ns|))))))) (DEFUN |translateToplevel| (|b| |export?|) (PROG (|lhs| |t| |ISTMP#2| |sig| |n| |ISTMP#1| |xs|) |