aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap/translator.clisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/strap/translator.clisp')
-rw-r--r--src/boot/strap/translator.clisp8
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|)