From fcc7f11db9c755b9b58ce43d37bbe8a702af8ebf Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 22 Nov 2007 17:20:27 +0000 Subject: * as.boot: Globally substitute %noBranch for noBranch. * ax.boot: Likewise. * cattable.boot: Likewise. * compiler.boot: Likewise. * def.lisp: Likewise. * define.boot: Likewise. * functor.boot: Likewise. * g-opt.boot: Likewise. * i-analy.boot: Likewise. * i-intern.boot: Likewise. * i-map.boot: Likewise. * i-object.boot: Likewise. * i-output.boot: Likewise. * i-spec2.boot: Likewise. * info.boot: Likewise. * mark.boot: Likewise. * nrunopt.boot: Likewise. * package.boot: Likewise. * parse.boot: Likewise. * pf2atree.boot: Likewise. * pf2sex.boot: Likewise. * postpar.boot: Likewise. * pspad2.boot: Likewise. * wi2.boot: Likewise. --- src/interp/i-object.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/i-object.boot') diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index 8443c55e..954d71e4 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -125,7 +125,7 @@ getBasicMode0(x,useIntegerSubdomain) == $Integer $Integer FLOATP x => $DoubleFloat - (x='noBranch) or (x='noValue) => $NoValueMode + (x='%noBranch) or (x='noValue) => $NoValueMode nil ++ If x is a literal of the basic types then returns -- cgit v1.2.3