diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-18 14:21:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-18 14:21:42 +0000 |
commit | 751f5dd0f97c1c6e53dcb0ca118f1a8b5cb7fc59 (patch) | |
tree | 6ad84134b2e1cc60062c59ba1fa626f13ff2c856 /src/boot/initial-env.lisp | |
parent | 04a318d38f06e117778e4253f061559f48b217b6 (diff) | |
download | open-axiom-751f5dd0f97c1c6e53dcb0ca118f1a8b5cb7fc59.tar.gz |
* boot/initial-env.lisp (VEC-SETELT): Remove.
* boot/scanner.boot (shoeIntValue): Tidy.
(shoeSubString): Likewise.
* boot/tokens.boot (shoeInsert): Likewise.
(shoeDictCons): Likewise.
Diffstat (limited to 'src/boot/initial-env.lisp')
-rw-r--r-- | src/boot/initial-env.lisp | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp index d72041f2..df85b398 100644 --- a/src/boot/initial-env.lisp +++ b/src/boot/initial-env.lisp @@ -184,9 +184,6 @@ :test-not #'(lambda (x y) (position y x)) :start sint))) -(defun VEC-SETELT (vec ind val) - (setf (elt vec ind) val)) - (defun bvec-make-full (n x) (make-array (list n) :element-type 'bit |