diff options
Diffstat (limited to 'src/algebra/strap/QFCAT-.lsp')
-rw-r--r-- | src/algebra/strap/QFCAT-.lsp | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/src/algebra/strap/QFCAT-.lsp b/src/algebra/strap/QFCAT-.lsp index 2a1f2d4d..de5cddb0 100644 --- a/src/algebra/strap/QFCAT-.lsp +++ b/src/algebra/strap/QFCAT-.lsp @@ -270,15 +270,14 @@ (DEFUN |QFCAT-;random;A;26| ($) (PROG (|d|) (RETURN - (SEQ (SEQ G190 - (COND - ((NULL (SPADCALL - (LETT |d| - (SPADCALL (|getShellEntry| $ 97)) - |QFCAT-;random;A;26|) - (|getShellEntry| $ 98))) - (GO G191))) - (SEQ (EXIT |d|)) NIL (GO G190) G191 (EXIT NIL)) + (SEQ (LOOP + (COND + ((NOT (SPADCALL + (LETT |d| (SPADCALL (|getShellEntry| $ 97)) + |QFCAT-;random;A;26|) + (|getShellEntry| $ 98))) + (RETURN NIL)) + (T |d|))) (EXIT (SPADCALL (SPADCALL (|getShellEntry| $ 97)) |d| (|getShellEntry| $ 15))))))) |