diff options
Diffstat (limited to 'src/algebra/strap/INT.lsp')
-rw-r--r-- | src/algebra/strap/INT.lsp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/algebra/strap/INT.lsp b/src/algebra/strap/INT.lsp index 8e681337..eac82f8a 100644 --- a/src/algebra/strap/INT.lsp +++ b/src/algebra/strap/INT.lsp @@ -270,14 +270,14 @@ (PUT '|INT;unitCanonical;2$;55| '|SPADreplace| '|%iabs|) (DEFUN |INT;writeOMInt| (|dev| |x| $) - (SEQ (COND - ((MINUSP |x|) - (SEQ (SPADCALL |dev| (|getShellEntry| $ 10)) - (SPADCALL |dev| "arith1" "unary_minus" - (|getShellEntry| $ 12)) - (SPADCALL |dev| (- |x|) (|getShellEntry| $ 15)) - (EXIT (SPADCALL |dev| (|getShellEntry| $ 16))))) - (T (SPADCALL |dev| |x| (|getShellEntry| $ 15)))))) + (COND + ((MINUSP |x|) + (SEQ (SPADCALL |dev| (|getShellEntry| $ 10)) + (SPADCALL |dev| "arith1" "unary_minus" + (|getShellEntry| $ 12)) + (SPADCALL |dev| (- |x|) (|getShellEntry| $ 15)) + (EXIT (SPADCALL |dev| (|getShellEntry| $ 16))))) + (T (SPADCALL |dev| |x| (|getShellEntry| $ 15))))) (DEFUN |INT;OMwrite;$S;2| (|x| $) (LET* ((|s| "") (|sp| (OM-STRINGTOSTRINGPTR |s|)) |