aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/generic.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-12-30 08:50:00 +0000
committerdos-reis <gdr@axiomatics.org>2010-12-30 08:50:00 +0000
commite46eacc852aacf74de6d98ed5aad9249f41eabb0 (patch)
tree7d8c05190be1e45ee6d47cd2415fbb6ee3f048ce /src/algebra/generic.spad.pamphlet
parent865e926e0c7b9f8ad6201315a41a89b2258d77a7 (diff)
downloadopen-axiom-e46eacc852aacf74de6d98ed5aad9249f41eabb0.tar.gz
* interp/vmlisp.lisp (QSTRING): Remove.
(QSTRINGLENGTH): Likewise. (STRINGLENGTH): Likewise. * interp/g-opt.boot ($VMsideEffectFreeOperators): Include %i2s. * interp/g-util.boot: Expand it. * interp/debug.lisp (/LOCATE): Replace STRINGLENGTH with LENGTH. * algebra/fortran.spad.pamphlet: Don't use STRINGIMAGE from Lisp. * algebra/generic.spad.pamphlet: Likewise. * algebra/naalg.spad.pamphlet: Likewise. * algebra/naalgc.spad.pamphlet: Likewise. * algebra/outform.spad.pamphlet: Likewise. * algebra/string.spad.pamphlet: Likewise.
Diffstat (limited to 'src/algebra/generic.spad.pamphlet')
-rw-r--r--src/algebra/generic.spad.pamphlet6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/generic.spad.pamphlet b/src/algebra/generic.spad.pamphlet
index 35d694d5..f25c87b4 100644
--- a/src/algebra/generic.spad.pamphlet
+++ b/src/algebra/generic.spad.pamphlet
@@ -153,7 +153,7 @@ GenericNonAssociativeAlgebra(R : CommutativeRing, n : PositiveInteger,_
private ==> AlgebraGivenByStructuralConstants(FPR,n,ls,_
coerce(gamma)$CoerceVectorMatrixPackage(R) ) add
- listOfNumbers : List String := [STRINGIMAGE(q)$Lisp for q in 1..n]
+ listOfNumbers : List String := [string(q)$String for q in 1..n]
symbolsForCoef : V Symbol :=
[concat("%", concat("x", i))::Symbol for i in listOfNumbers]
genericElement : % :=
@@ -272,13 +272,13 @@ GenericNonAssociativeAlgebra(R : CommutativeRing, n : PositiveInteger,_
represents(map(coerce,v)$VectorFunctions2(PR,FPR),ve)
generic(s: S, ve: V %): % ==
- lON : List String := [STRINGIMAGE(q)$Lisp for q in 1..maxIndex ve]
+ lON : List String := [string(q)$String for q in 1..maxIndex ve]
sFC : Vector Symbol :=
[concat(s pretend String, i)::Symbol for i in lON]
generic(sFC, ve)
generic(ve : V %) ==
- lON : List String := [STRINGIMAGE(q)$Lisp for q in 1..maxIndex ve]
+ lON : List String := [string(q)$String for q in 1..maxIndex ve]
sFC : Vector Symbol :=
[concat("%", concat("x", i))::Symbol for i in lON]
v : Vector PR :=