diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-13 07:32:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-13 07:32:30 +0000 |
| commit | c85375e527a7e0341ec5e717b3f50d6b5fa25d48 (patch) | |
| tree | 1f32aadbdd191ae57f56ac46de46111a49b4be1f /src/algebra | |
| parent | a619487f9feb4a530244171b94decfccce57af8b (diff) | |
| download | open-axiom-c85375e527a7e0341ec5e717b3f50d6b5fa25d48.tar.gz | |
Don't step over Common Lisp MAP.
* interp/i-analy.boot (bottomUp): Change MAP to %Map.
(isEltable): Likewise.
* interp/i-coerce.boot (retract): Likewise.
* interp/i-eval.boot (getArgValue): Likewise.
* interp/i-funsel.boot (selectLocalMms): Likewise.
* interp/i-intern.boot (getValueFromEnvironment): Likewise.
* interp/i-map.boot (mkAuxiliaryName): Likewise.
(augmentMap): Likewise.
(displayMap): Likewise.
(putBodyInEnd): Likewise.
(expandRecursiveBody): Likewise.
* interp/i-output.boot (outputTran): Likewise.
* interp/i-spec1.boot (declare): Likewise.
* interp/i-syscmd.boot (displayMacro): Likewise.
* interp/i-toplev.boot (interpret2): Likewise.
* interp/patches.lisp (MAP): Remove.
* interp/trace.boot (isUncompiledMap): Likewise.
Diffstat (limited to 'src/algebra')
| -rw-r--r-- | src/algebra/color.spad.pamphlet | 2 | ||||
| -rw-r--r-- | src/algebra/files.spad.pamphlet | 2 | ||||
| -rw-r--r-- | src/algebra/fnla.spad.pamphlet | 1 | ||||
| -rw-r--r-- | src/algebra/newpoint.spad.pamphlet | 1 |
4 files changed, 5 insertions, 1 deletions
diff --git a/src/algebra/color.spad.pamphlet b/src/algebra/color.spad.pamphlet index 5db08528..54c5e403 100644 --- a/src/algebra/color.spad.pamphlet +++ b/src/algebra/color.spad.pamphlet @@ -184,6 +184,8 @@ Palette(): Exports == Implementation where ++ indicated color c. Implementation ==> add + import I + import C Rep := Record(shadeField:I, hueField:C) dark c == [1,c] diff --git a/src/algebra/files.spad.pamphlet b/src/algebra/files.spad.pamphlet index 34cd7937..630b19af 100644 --- a/src/algebra/files.spad.pamphlet +++ b/src/algebra/files.spad.pamphlet @@ -34,7 +34,7 @@ IOMode(): Public == Private where Private == add input == _$InputIOMode$Lisp output == _$OutputIOMode$Lisp - bothWays == _$BothWaysIOode$Lisp + bothWays == _$BothWaysIOmode$Lisp x = y == EQ(x,y)$Lisp coerce m == m = input => outputForm 'input diff --git a/src/algebra/fnla.spad.pamphlet b/src/algebra/fnla.spad.pamphlet index e56534e4..3be85585 100644 --- a/src/algebra/fnla.spad.pamphlet +++ b/src/algebra/fnla.spad.pamphlet @@ -63,6 +63,7 @@ Commutator: Export == Implement where ++ mkcomm(i,j) \undocumented{} Implement == add + import OSI P := Record(left:%,right:%) Rep := Union(OSI,P) x,y: % diff --git a/src/algebra/newpoint.spad.pamphlet b/src/algebra/newpoint.spad.pamphlet index 9842394b..bd2b658e 100644 --- a/src/algebra/newpoint.spad.pamphlet +++ b/src/algebra/newpoint.spad.pamphlet @@ -102,6 +102,7 @@ SubSpaceComponentProperty() : Exports == Implementation where ++ copy(x) \undocumented Implementation ==> add + import B Rep := Record(closed:B, solid:B) closed? p == p.closed solid? p == p.solid |