From f42883e3da3524177b4a8c6f42c8e7b1646a6265 Mon Sep 17 00:00:00 2001 From: dos-reis 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