diff options
Diffstat (limited to 'src/interp/i-analy.boot')
| -rw-r--r-- | src/interp/i-analy.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index 6dcf0421..4cb9bbe5 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -390,7 +390,7 @@ namedConstant(id,t) == doms := [getDCFromSystemModemap sysmm for sysmm in sysmms] candidates := nil for dc in doms | niladicConstructorFromDB first dc repeat - LASSOC(id,getOperationAlistFromLisplib first dc) is [[sig,.,.,"CONST"]] => + LASSOC(id,getConstructorOperationsFromDB dc.op) is [[sig,.,.,"CONST"]] => candidates := [[dc,sig],:candidates] null candidates => nil #candidates = 1 => |