aboutsummaryrefslogtreecommitdiff
path: root/src/interp/lisplib.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-08-04 13:56:52 +0000
committerdos-reis <gdr@axiomatics.org>2011-08-04 13:56:52 +0000
commit9a593e3b395c1ba0c6036760c12713d7485f8c54 (patch)
treedd8eadbf07dde50ca15d6aa4181c902ad7b09d3c /src/interp/lisplib.boot
parente77d30ccf1b663aaa6ec1e017fa8e31f3296afeb (diff)
downloadopen-axiom-9a593e3b395c1ba0c6036760c12713d7485f8c54.tar.gz
cleanup
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r--src/interp/lisplib.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 053fdf0d..7cae8dcb 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -782,7 +782,7 @@ isDomainConstructorForm(D,e) ==
isFunctor x ==
op:= opOf x
- not IDENTP op => false
+ not ident? op => false
$InteractiveMode =>
builtinFunctorName? op => true
getConstructorKindFromDB op in '(domain package)