diff options
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 |