diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-27 07:01:11 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-27 07:01:11 +0000 |
| commit | 66c8612e257defa8e42bb7b50b0c88a73422e660 (patch) | |
| tree | 6da0dcbef2c96b7ff01dc39ff73c737eaf435290 /src/boot/initial-env.lisp | |
| parent | 7ade11e95e821f312618b60b76ff94f94e7edfdd (diff) | |
| download | open-axiom-66c8612e257defa8e42bb7b50b0c88a73422e660.tar.gz | |
* boot/includer.boot (char): Move to token.boot.
* boot/tokens.boot (shoeStartsId): Move from initial-env.lisp
(shoeIdChar): Likewise.
* boot/initial-env.lisp (CHARMEM): Remove.
Diffstat (limited to 'src/boot/initial-env.lisp')
| -rw-r--r-- | src/boot/initial-env.lisp | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp index 31024006..a4b45b76 100644 --- a/src/boot/initial-env.lisp +++ b/src/boot/initial-env.lisp @@ -146,17 +146,6 @@ (defun QENUM (cvec ind) (char-code (char cvec ind))) -(defun charmem (a b) - (member a b :test #'eql)) - -(defun |shoeIdChar| (x) - (or (ALPHANUMERICP x) - (charmem x '(#\' #\? #\%)))) - -(defun |shoeStartsId| (x) - (or (alpha-char-p x) - (charmem x '(#\$ #\? #\%)))) - (defun strpos (what in start dontcare) (setq what (string what) in (string in)) (if dontcare |