aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-15 03:06:56 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-15 03:06:56 +0000
commite3790da8fee54ede09e8126213a10da0aa555d06 (patch)
tree34c6e47ff9cb808f8c0bfc80083edf356adde4af /src/boot/strap
parentae81d788f27a95c608b860d8a989f56c8796803e (diff)
downloadopen-axiom-e3790da8fee54ede09e8126213a10da0aa555d06.tar.gz
cleanup
Diffstat (limited to 'src/boot/strap')
-rw-r--r--src/boot/strap/ast.clisp2
1 files changed, 0 insertions, 2 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 4d3fb2a8..c43b3c3e 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -696,7 +696,6 @@
(DEFUN |bfLocal| (|a| |b|)
(COND
((EQ |b| 'FLUID) (|compFluid| |a|))
- ((EQ |b| '|fluid|) (|compFluid| |a|))
((EQ |b| '|local|) (|compFluid| |a|))
(T |a|)))
@@ -1936,7 +1935,6 @@
((SYMBOLP |a|)
(COND
((EQ |b| 'FLUID) (|bfLET| (|compFluid| |a|) NIL))
- ((EQ |b| '|fluid|) (|bfLET| (|compFluid| |a|) NIL))
((EQ |b| '|local|) (|bfLET| (|compFluid| |a|) NIL))
(T (SETQ |$typings| (CONS (LIST 'TYPE |b| |a|) |$typings|)) |a|)))
(T (LIST 'THE |b| |a|))))