diff options
author | dos-reis <gdr@axiomatics.org> | 2010-02-17 00:21:53 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-02-17 00:21:53 +0000 |
commit | e5fb9d979a16047d62bbe954ee08577088cdb497 (patch) | |
tree | 3b647c8756c21b10e5a00d8bf589b2bc754a8cce /src/algebra/strap/FPS-.lsp | |
parent | 36563244081c887f2f68eea73c5088674f7d8f37 (diff) | |
download | open-axiom-e5fb9d979a16047d62bbe954ee08577088cdb497.tar.gz |
* interp/compiler.boot (compAtomWithModemap): Reject niladic
functions used as constants.
* algebra/aggcat.spad.pamphlet (IndexedAggregate): Add parenthesis
for call to niladic function 'void'.
* algebra/algext.spad.pamphlet (SimpleAlgebraicExtension): Likewise.
* algebra/curve.spad.pamphlet (RadicalFunctionField): Likewise.
(AlgebraicFunctionField): Likewise.
* algebra/permgrps.spad.pamphlet (PermutationGroup): Likewise.
* algebra/pfo.spad.pamphlet (FunctionSpaceReduce): Likewise.
* algebra/setorder.spad.pamphlet: Likewise.
* algebra/ffcat.spad.pamphlet (FiniteFieldCategory): Add
parenthesis for call to niladic function 'representationType'.
* algebra/ffnb.spad.pamphlet
(FiniteFieldNormalBasisExtensionByPolynomial): Likewise for
normalElement.
* algebra/float.spad.pamphlet (Float): Likewise for OMencodingXML,
pi, log2, log10, digits.
* algebra/fnla.spad.pamphlet (FreeNilpotentLie): Likewise for
dimension.
* algebra/fraction.spad.pamphlet (Fraction): Likewise for
OMencodingXML.
* algebra/gaussian.spad.pamphlet (Complex): Likewise.
* algebra/integer.spad.pamphlet (Integer): Likewise.
* algebra/list.spad.pamphlet (List): Likewise.
* algebra/sf.spad.pamphlet (DoubleFloat): Likewise.
* algebra/si.spad.pamphlet (SingleInteger): Likewise.
* algebra/string.spad.pamphlet (String): Likewise.
* algebra/symbol.spad.pamphlet (Symbol): Likewise.
* algebra/intrf.spad.pamphlet (TranscendentalIntegration):
Likewise for empty.
* algebra/kl.spad.pamphlet (SortedCache): Likewise for cache, void.
* algebra/newdata.spad.pamphlet (TabulatedComputationPackage):
Likewise for usingTable?.
* algebra/omserver.spad.pamphlet (OpenMathServerPackage): Likewise
for OMencodingUnknown.
* algebra/plot.spad.pamphlet (Plot): Likewise for adaptive?.
* algebra/plot3d.spad.pamphlet (Plot3D): Likewise for adaptive3D?.
Diffstat (limited to 'src/algebra/strap/FPS-.lsp')
-rw-r--r-- | src/algebra/strap/FPS-.lsp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/algebra/strap/FPS-.lsp b/src/algebra/strap/FPS-.lsp index 772c59fc..98012446 100644 --- a/src/algebra/strap/FPS-.lsp +++ b/src/algebra/strap/FPS-.lsp @@ -31,7 +31,7 @@ (PROGN (LETT |dv$1| (|devaluate| |#1|) . #0=(|FloatingPointSystem&|)) (LETT |dv$| (LIST '|FloatingPointSystem&| |dv$1|) . #0#) - (LETT $ (|newShell| 21) . #0#) + (LETT $ (|newShell| 20) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| @@ -46,14 +46,14 @@ (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|PositiveInteger|) (0 . |base|) (|Integer|) (4 . |float|) |FPS-;float;2IS;1| (11 . |One|) (15 . |One|) (19 . |bits|) (23 . -) (29 . *) - (35 . |max|) (39 . |quo|) (45 . |max|) |FPS-;digits;Pi;2|) - '#(|float| 51 |digits| 57) 'NIL + (35 . |quo|) (41 . |max|) |FPS-;digits;Pi;2|) + '#(|float| 47 |digits| 53) 'NIL (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() - (|makeByteWordVec2| 20 + (|makeByteWordVec2| 19 '(0 6 7 8 3 6 0 9 9 7 10 0 6 0 12 0 7 0 13 0 6 7 14 2 9 0 0 0 15 2 9 0 7 0 16 - 0 6 0 17 2 9 0 0 0 18 2 9 0 0 0 19 2 - 0 0 9 9 11 0 0 7 20))))) + 2 9 0 0 0 17 2 9 0 0 0 18 2 0 0 9 9 + 11 0 0 7 19))))) '|lookupComplete|)) |