From 7ba4cd656138bedb567137ea662f26213bc2e898 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 20 Feb 2008 17:24:05 +0000 Subject: * 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. --- src/interp/i-spec1.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/i-spec1.boot') diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index 2cbd7722..f8408fa9 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -1212,8 +1212,8 @@ isDomainValuedVariable form == get(form,'value,$InteractiveFrame) or _ (PAIRP($env) and get(form,'value,$env)) or _ (PAIRP($e) and get(form,'value,$e)))) and - objMode(val) in '((Domain) (Category) (Type)) => - -- ??? shall we accept all of $LangSupportTypes? + ((m := objMode(val)) in '((Domain) (Category)) + or conceptualType m = $Category) => objValUnwrap(val) nil -- cgit v1.2.3