aboutsummaryrefslogtreecommitdiff
path: root/src/boot/initial-env.lisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-12-29 19:18:38 +0000
committerdos-reis <gdr@axiomatics.org>2010-12-29 19:18:38 +0000
commitbcfcdb424a8d450f76f74bbc0a1674fd596f113a (patch)
tree5210d44d478a1fb93a1b1fc17e0a6d173efc6bac /src/boot/initial-env.lisp
parent25671a46921cd1e72d296ed5cbcdc72de78f569d (diff)
downloadopen-axiom-bcfcdb424a8d450f76f74bbc0a1674fd596f113a.tar.gz
More character cleanup
Diffstat (limited to 'src/boot/initial-env.lisp')
-rw-r--r--src/boot/initial-env.lisp3
1 files changed, 0 insertions, 3 deletions
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp
index 5a1041cb..dc767443 100644
--- a/src/boot/initial-env.lisp
+++ b/src/boot/initial-env.lisp
@@ -138,9 +138,6 @@
(defun HPUT (table key value)
(setf (gethash key table) value))
-(defun QENUM (cvec ind)
- (char-code (char cvec ind)))
-
(defun strpos (what in start dontcare)
(setq what (string what) in (string in))
(if dontcare