diff options
Diffstat (limited to 'src/algebra/strap/URAGG-.lsp')
| -rw-r--r-- | src/algebra/strap/URAGG-.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/URAGG-.lsp b/src/algebra/strap/URAGG-.lsp index 12a47db1..901b077d 100644 --- a/src/algebra/strap/URAGG-.lsp +++ b/src/algebra/strap/URAGG-.lsp @@ -469,7 +469,7 @@ (DEFUN |URAGG-;setchildren!;ALA;30| (|u| |lv| $) (COND - ((EQL (LENGTH |lv|) 1) + ((EQL (LIST-LENGTH |lv|) 1) (SPADCALL |u| (|SPADfirst| |lv|) (|getShellEntry| $ 74))) (T (|error| "wrong number of children specified")))) |