diff options
author | dos-reis <gdr@axiomatics.org> | 2010-07-18 03:59:54 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-07-18 03:59:54 +0000 |
commit | 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (patch) | |
tree | b805dc5dc54812fe61efb039f15087a9d9b6c5be /src/interp/i-syscmd.boot | |
parent | 667ec69af3090bccd576e23e56a229168f8733b7 (diff) | |
download | open-axiom-6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/i-syscmd.boot')
-rw-r--r-- | src/interp/i-syscmd.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 762e27c7..693052a1 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2073,7 +2073,7 @@ writify ob == nob.first := qcar nob.rest := qcdr nob - VECP ob => + vector? ob => isDomainOrPackage ob => d := mkEvalable devaluate ob nob := ['WRITIFIED_!_!, 'DEVALUATED, writifyInner d] @@ -2127,7 +2127,7 @@ writify ob == unwritable? ob == - cons? ob or VECP ob => false -- first for speed + cons? ob or vector? ob => false -- first for speed COMPILED_-FUNCTION_-P ob or HASHTABLEP ob => true PLACEP ob or READTABLEP ob => true FLOATP ob => true @@ -2147,7 +2147,7 @@ spadClosure? ob == fun := first ob not (name := BPINAME fun) => nil vec := rest ob - not VECP vec => nil + not vector? vec => nil name dewritify ob == @@ -2222,7 +2222,7 @@ dewritify ob == nob.first := dewritifyInner qcar nob.rest := dewritifyInner qcdr nob - VECP ob => + vector? ob => n := QVMAXINDEX ob nob := MAKE_-VEC(n+1) HPUT($seen, ob, nob) |