diff options
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index e2b84477..3fc01131 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -107,8 +107,8 @@ makePredicateBitVector pl == --called by buildFunctor for q in stripOutNonDollarPreds pred repeat firsts := insert(q,firsts) else firsts := insert(pred,firsts) - firstPl := SUBLIS($pairlis,nreverse orderByContainment firsts) - lastPl := SUBLIS($pairlis,nreverse orderByContainment lasts) + firstPl := SUBLIS($pairlis,reverse! orderByContainment firsts) + lastPl := SUBLIS($pairlis,reverse! orderByContainment lasts) firstCode:= ['buildPredVector,0,0,mungeAddGensyms(firstPl,$predGensymAlist)] lastCode := augmentPredCode(# firstPl,lastPl) |