diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-12 15:39:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-12 15:39:14 +0000 |
| commit | 665cb7df0fd6106b61a88667ae132e613d395cc4 (patch) | |
| tree | 7add9286226ea268e888be8a1c55da11fc182210 /src/interp | |
| parent | a8b9a2f5f65820ce836353e0d25070fa8eaeece9 (diff) | |
| download | open-axiom-665cb7df0fd6106b61a88667ae132e613d395cc4.tar.gz | |
* boot/initial-env.lisp (MAKE-HASHTABLE): Remove.
(BEVC-MAKE-FULL): Likewise.
(MAKE-BVEC): Likewise.
* boot/tokens.boot (shoeKeyTableCons): Adjust.
(shoePunCons): Likewise.
(shoeDfu): Likewise.
(shoeXref): Likewise.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-opt.boot | 2 | ||||
| -rw-r--r-- | src/interp/scan.boot | 3 | ||||
| -rw-r--r-- | src/interp/vmlisp.lisp | 4 |
3 files changed, 2 insertions, 7 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 356f80d8..fbfc9efe 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -458,7 +458,7 @@ $VMsideEffectFreeOperators == $simpleVMoperators == append($VMsideEffectFreeOperators, ['STRINGIMAGE,'FUNCALL,'%gensym, '%lreverse!, - '%strstc,"MAKE-FULL-CVEC","BVEC-MAKE-FULL"]) + '%strstc,"MAKE-FULL-CVEC"]) ++ Return true if the `form' is semi-simple with respect to ++ to the list of operators `ops'. diff --git a/src/interp/scan.boot b/src/interp/scan.boot index 8b49fa4a..23533311 100644 --- a/src/interp/scan.boot +++ b/src/interp/scan.boot @@ -192,8 +192,7 @@ scanDict:=scanDictCons() scanPunCons()== listing := HKEYS scanKeyTable - a := MAKE_-BVEC 256 --- SETSIZE(a,256) + a := makeBitVector 256 for i in 0..255 repeat bitmask(a,i) := 0 for k in listing repeat diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index ff5ff941..4159b32d 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -1578,7 +1578,3 @@ (defun QUOREM (i j r) ; never used, refed in parini.boot (multiple-value-bind (x y) (truncate i j) (rplaca (the cons r) x) (rplacd (the cons r) y))) - -(defun MAKE-BVEC (n) - (make-array (list n) :element-type 'bit :initial-element 0)) - |