diff options
Diffstat (limited to 'src/interp/i-coerce.boot')
| -rw-r--r-- | src/interp/i-coerce.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot index 1ede612a..1bf238fd 100644 --- a/src/interp/i-coerce.boot +++ b/src/interp/i-coerce.boot @@ -328,7 +328,7 @@ retractByFunction(object,u) == getConstantFromDomain(form,domainForm) == isPartialMode domainForm => NIL - opAlist := getOperationAlistFromLisplib first domainForm + opAlist := getConstructorOperationsFromDB domainForm.op key := opOf form entryList := LASSOC(key,opAlist) entryList isnt [[sig, ., ., .]] => |