diff options
Diffstat (limited to 'src/algebra/strap/INT.lsp')
| -rw-r--r-- | src/algebra/strap/INT.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/INT.lsp b/src/algebra/strap/INT.lsp index 28fee72a..c294d8df 100644 --- a/src/algebra/strap/INT.lsp +++ b/src/algebra/strap/INT.lsp @@ -476,7 +476,7 @@ (SPADCALL |pp| (|getShellEntry| $ 108)) (|getShellEntry| $ 112)))) - (|check-union| (EQL (CAR #0#) 0) $ #0#) + (|check-union| (ZEROP (CAR #0#)) $ #0#) (CDR #0#)) (|getShellEntry| $ 114)) (|getShellEntry| $ 118)) |