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/interp/i-coerce.boot | |
| 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/interp/i-coerce.boot')
| -rw-r--r-- | src/interp/i-coerce.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot index 9a2b078e..35a0e23b 100644 --- a/src/interp/i-coerce.boot +++ b/src/interp/i-coerce.boot @@ -91,7 +91,7 @@ retract object == STRINGP type => 'failed type = $EmptyMode => 'failed val := objVal object - not isWrapped val and val isnt ['MAP,:.] => 'failed + not isWrapped val and val isnt ["%Map",:.] => 'failed type' := equiType(type) (ans := retract1 objNew(val,equiType(type))) = 'failed => ans objNew(objVal ans,eqType objMode ans) |