From c85375e527a7e0341ec5e717b3f50d6b5fa25d48 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 13 Oct 2008 07:32:30 +0000 Subject: 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. --- src/algebra/files.spad.pamphlet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/algebra/files.spad.pamphlet') 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 -- cgit v1.2.3