aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-07-18 19:02:13 +0000
committerdos-reis <gdr@axiomatics.org>2010-07-18 19:02:13 +0000
commit08966a5a24823ba5605d9baacebbbb95632842e2 (patch)
tree65192cbb6291cddd41f22128e7c8b87754f81b4c /src/boot/strap
parent3467029153bc8d2115fb961eb5e4e995d62034f0 (diff)
downloadopen-axiom-08966a5a24823ba5605d9baacebbbb95632842e2.tar.gz
* boot/tokens.boot: Add char? as builtin function.
* interp/i-output.boot (appChar): Fix thinko. (outformWidth): Likewise. (WIDTH): Likewise.
Diffstat (limited to 'src/boot/strap')
-rw-r--r--src/boot/strap/tokens.clisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index c55ed69a..5b02904d 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -203,7 +203,7 @@
(LIST (LIST '|alphabetic?| 'ALPHA-CHAR-P)
(LIST '|and| 'AND) (LIST '|append| 'APPEND)
(LIST '|apply| 'APPLY) (LIST '|atom| 'ATOM)
- (LIST '|cons?| 'CONSP) (LIST '|readOnly?| 'CONSTANTP)
+ (LIST '|char?| 'CHARACTERP) (LIST '|cons?| 'CONSP)
(LIST '|copy| 'COPY) (LIST '|croak| 'CROAK)
(LIST '|digit?| 'DIGITP) (LIST '|drop| 'DROP)
(LIST '|exit| 'EXIT) (LIST '|false| 'NIL)
@@ -220,6 +220,7 @@
(LIST '|property| 'GET) (LIST '|readByte| 'READ-BYTE)
(LIST '|readInteger| 'PARSE-INTEGER)
(LIST '|readLine| 'READ-LINE)
+ (LIST '|readOnly?| 'CONSTANTP)
(LIST '|removeDuplicates| 'REMDUP)
(LIST '|rest| 'CDR) (LIST '|reverse| 'REVERSE)
(LIST '|second| 'CADR)