diff options
Diffstat (limited to 'src/algebra/strap/FFIELDC-.lsp')
| -rw-r--r-- | src/algebra/strap/FFIELDC-.lsp | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/algebra/strap/FFIELDC-.lsp b/src/algebra/strap/FFIELDC-.lsp index 47393a53..9a019e8d 100644 --- a/src/algebra/strap/FFIELDC-.lsp +++ b/src/algebra/strap/FFIELDC-.lsp @@ -108,10 +108,9 @@ G190 (COND ((NULL (NOT |found|)) (GO G191))) (SEQ (LETT |e| (SPADCALL - (PROG1 |i| - (|check-subtype| - (AND (>= |i| 0) (> |i| 0)) - '(|PositiveInteger|) |i|)) + (|check-subtype| + (AND (>= |i| 0) (> |i| 0)) + '(|PositiveInteger|) |i|) (|getShellEntry| $ 14)) |FFIELDC-;createPrimitiveElement;S;8|) (EXIT (LETT |found| |