From 4ee9e8c9ec410567f7904da3e3be59c06f059a6c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 20 Jun 2010 06:39:48 +0000
Subject: 	* boot/tokens.boot (readOnly?): New builtin Boot function. 
 * interp/c-util.boot (isLispSpecialVariable): Tidy. 
 (transformToBackendCode): Likewise.

---
 src/boot/strap/tokens.clisp | 17 +++++++++--------
 src/boot/tokens.boot        |  1 +
 2 files changed, 10 insertions(+), 8 deletions(-)

(limited to 'src/boot')

diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 5549b7eb..190955b9 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -203,14 +203,15 @@
             (LIST (LIST '|alphabetic?| 'ALPHA-CHAR-P)
                   (LIST '|and| 'AND) (LIST '|append| 'APPEND)
                   (LIST '|apply| 'APPLY) (LIST '|atom| 'ATOM)
-                  (LIST '|cons?| 'CONSP) (LIST '|copy| 'COPY)
-                  (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGITP)
-                  (LIST '|drop| 'DROP) (LIST '|exit| 'EXIT)
-                  (LIST '|false| 'NIL) (LIST '|first| 'CAR)
-                  (LIST '|fourth| 'CADDDR) (LIST '|function| 'FUNCTION)
-                  (LIST '|gensym| 'GENSYM) (LIST '|genvar| 'GENVAR)
-                  (LIST '|integer?| 'INTEGERP) (LIST '|lastNode| 'LAST)
-                  (LIST 'LAST '|last|) (LIST '|list| 'LIST)
+                  (LIST '|cons?| 'CONSP) (LIST '|readOnly?| 'CONSTANTP)
+                  (LIST '|copy| 'COPY) (LIST '|croak| 'CROAK)
+                  (LIST '|digit?| 'DIGITP) (LIST '|drop| 'DROP)
+                  (LIST '|exit| 'EXIT) (LIST '|false| 'NIL)
+                  (LIST '|first| 'CAR) (LIST '|fourth| 'CADDDR)
+                  (LIST '|function| 'FUNCTION) (LIST '|gensym| 'GENSYM)
+                  (LIST '|genvar| 'GENVAR) (LIST '|integer?| 'INTEGERP)
+                  (LIST '|lastNode| 'LAST) (LIST 'LAST '|last|)
+                  (LIST '|list| 'LIST)
                   (LIST '|lowerCase?| 'LOWER-CASE-P)
                   (LIST '|mkpf| 'MKPF) (LIST '|nconc| 'NCONC)
                   (LIST '|nil| NIL) (LIST '|not| 'NOT)
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 19b00439..8001250a 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -240,6 +240,7 @@ for i in [ _
   ["apply",      "APPLY"]  , _
   ["atom",        "ATOM"]  , _
   ["cons?",      "CONSP"]  , _
+  ["readOnly?","CONSTANTP"], _
   ["copy",        "COPY"]  , _
   ["croak",      "CROAK"]  , _
   ["digit?",    "DIGITP"]  , _
-- 
cgit v1.2.3