diff options
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 7e38ce42..27b67a68 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -74,7 +74,7 @@ predicateBitIndex(x,e) == u := simpBool transHasCode(x,e) u is 'T => 0 u = nil => -1 - p := POSN1(u,$NRTslot1PredicateList) => p + 1 + p := valuePosition(u,$NRTslot1PredicateList) => p + 1 not flag => pn(predicateBitIndexRemop x,true,e) systemError nil |