From f42883e3da3524177b4a8c6f42c8e7b1646a6265 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 21:57:33 +0000
Subject: More cleanups

---
 src/boot/strap/tokens.clisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/boot/strap')

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)
-- 
cgit v1.2.3