From 44050a23809cd331fc529cdf84063c23f6ed86dc Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 13 Jul 2011 15:21:36 +0000
Subject: 	* boot/tokens.boot: copyString, copyTree, and copyVector are
 now 	builtin library functions. 	* interp/br-util.boot: Use copyVector
 instead of COPY-SEQ. 	* interp/category.boot: Likewise. 	*
 interp/define.boot: Likewise. 	* interp/functor.boot: Likewise. 	*
 interp/i-coerfn.boot: Likewise. 	* interp/i-syscmd.boot: Likewise. 
 * interp/newfort.boot: Likewise.

---
 src/boot/strap/tokens.clisp | 12 +++++++-----
 src/boot/tokens.boot        |  2 ++
 2 files changed, 9 insertions(+), 5 deletions(-)

(limited to 'src/boot')

diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 703b4263..49017e4f 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -211,11 +211,12 @@
                 (LIST '|charString| 'STRING)
                 (LIST '|char?| 'CHARACTERP)
                 (LIST '|codePoint| 'CHAR-CODE) (LIST '|cons?| 'CONSP)
-                (LIST '|copy| 'COPY) (LIST '|copyTree| 'COPY-TREE)
-                (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGIT-CHAR-P)
-                (LIST '|drop| 'DROP) (LIST '|exit| 'EXIT)
-                (LIST '|false| 'NIL) (LIST '|first| 'CAR)
-                (LIST '|float?| 'FLOATP)
+                (LIST '|copy| 'COPY) (LIST '|copyString| 'COPY-SEQ)
+                (LIST '|copyTree| 'COPY-TREE)
+                (LIST '|copyVector| 'COPY-SEQ) (LIST '|croak| 'CROAK)
+                (LIST '|digit?| 'DIGIT-CHAR-P) (LIST '|drop| 'DROP)
+                (LIST '|exit| 'EXIT) (LIST '|false| 'NIL)
+                (LIST '|first| 'CAR) (LIST '|float?| 'FLOATP)
                 (LIST '|flushOutput| 'FORCE-OUTPUT)
                 (LIST '|fourth| 'CADDDR) (LIST '|function| 'FUNCTION)
                 (LIST '|function?| 'FUNCTIONP) (LIST '|gensym| 'GENSYM)
@@ -257,6 +258,7 @@
                 (LIST '|vectorRef| 'SVREF)
                 (LIST '|writeByte| 'WRITE-BYTE)
                 (LIST '|writeChar| 'WRITE-CHAR)
+                (LIST '|writeInteger| 'PRINC)
                 (LIST '|writeLine| 'WRITE-LINE)
                 (LIST '|writeNewline| 'TERPRI)
                 (LIST '|writeString| 'WRITE-STRING) (LIST 'PLUS '+)
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 925d8689..bc66db93 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -262,7 +262,9 @@ for i in [ _
   ["codePoint", "CHAR-CODE"], _
   ["cons?",      "CONSP"]  , _
   ["copy",        "COPY"]  , _
+  ["copyString", "COPY-SEQ"] , _
   ["copyTree", "COPY-TREE"] , _
+  ["copyVector", "COPY-SEQ"] , _
   ["croak",      "CROAK"]  , _
   ["digit?",    "DIGIT-CHAR-P"]  , _
   ["drop",        "DROP"]  , _
-- 
cgit v1.2.3