aboutsummaryrefslogtreecommitdiff
path: root/src/boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-09 21:57:33 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-09 21:57:33 +0000
commitf42883e3da3524177b4a8c6f42c8e7b1646a6265 (patch)
tree7802320c3cab01a11aa32fd87bf8ea00f265fd80 /src/boot
parent37bce222d153e4b7b0c086b9c717435f4cdd2c77 (diff)
downloadopen-axiom-f42883e3da3524177b4a8c6f42c8e7b1646a6265.tar.gz
More cleanups
Diffstat (limited to 'src/boot')
-rw-r--r--src/boot/strap/tokens.clisp3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index c288dd05..ba6fe1e6 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -201,7 +201,6 @@
(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
(LET ((|bfVar#9| (LIST (LIST '|and| 'AND) (LIST '|append| 'APPEND)
(LIST '|apply| 'APPLY) (LIST '|atom| 'ATOM)
- (LIST '|car| 'CAR) (LIST '|cdr| 'CDR)
(LIST '|cons?| 'CONSP) (LIST '|copy| 'COPY)
(LIST '|croak| 'CROAK) (LIST '|drop| 'DROP)
(LIST '|exit| 'EXIT) (LIST '|false| 'NIL)
@@ -215,7 +214,7 @@
(LIST '|not| 'NOT)
(LIST '|nreverse| 'NREVERSE)
(LIST '|null| 'NULL) (LIST '|or| 'OR)
- (LIST '|otherwise| 'T) (LIST 'PAIRP 'CONSP)
+ (LIST '|otherwise| 'T)
(LIST '|removeDuplicates| 'REMDUP)
(LIST '|rest| 'CDR) (LIST '|reverse| 'REVERSE)
(LIST '|second| 'CADR)