diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-20 17:24:05 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-20 17:24:05 +0000 |
| commit | 7ba4cd656138bedb567137ea662f26213bc2e898 (patch) | |
| tree | dffa37ee129563ce966d52514ec6deb569794d9b /src/interp/i-coerce.boot | |
| parent | 9fbb89443e0c88ee5e76d95a3eea2ac5ea9916b6 (diff) | |
| download | open-axiom-7ba4cd656138bedb567137ea662f26213bc2e898.tar.gz | |
* lisp/core.lisp.in [SBCL]: Require "sb-posix".
(|resetErrorCount|): New export function.
* interp/vmlisp.lisp (opOf): Remove macro definition.
* interp/msg.boot (setMsgCatlessAttr): Fix thinko.
* interp/monitor.lisp (monitor-add): Remove extra right parenthesis.
* interp/lisplib.boot: Import "debug".
(initializeLisplib): Don't use ERRORS variable.
* interp/i-spec1.boot (isDomainValuedVariable): Tidy.
* interp/i-output.boot (outputTran): Use SIZE instead of #.
(output): Remove misguided conversion from Tuple to List.
* interp/i-coerce.boot (coerceInteractive): Allow domain object
convesions.
* interp/g-util.boot (opOf): Declare.
* interp/Makefile.pamphlet (lisplib.$(FASLEXT)): Depend on
debug.$(FASLEXT).
* algebra/Makefile.pamphlet: Use .$(FASLEXT) instead of hardcoded
.o extension.
Diffstat (limited to 'src/interp/i-coerce.boot')
| -rw-r--r-- | src/interp/i-coerce.boot | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot index 273dcb15..c5794562 100644 --- a/src/interp/i-coerce.boot +++ b/src/interp/i-coerce.boot @@ -753,7 +753,10 @@ coerceInteractive(triple,t2) == -- JHD added category Aug 1996 for BasicMath t1 in $LangSupportTypes => t2 = $OutputForm => objNew(val,t2) - NIL + t1 = $Domain and conceptualType t2 = $Category + and ofCategory(val,t2)=> objNew(val,t2) + conceptualType t1 = t2 => objNew(val,t2) + nil t1 = '$NoValueMode => if $compilingMap then clearDependentMaps($mapName,nil) throwKeyedMsg("S2IC0009",[t2,$mapName]) |