diff options
Diffstat (limited to 'src/algebra/strap/VECTOR.lsp')
| -rw-r--r-- | src/algebra/strap/VECTOR.lsp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/strap/VECTOR.lsp b/src/algebra/strap/VECTOR.lsp index 42b720c7..e7fae836 100644 --- a/src/algebra/strap/VECTOR.lsp +++ b/src/algebra/strap/VECTOR.lsp @@ -1,10 +1,10 @@ (/VERSIONCHECK 2) -(DECLAIM (FTYPE (FUNCTION (|%List| |%Shell|) (|%Vector| *)) +(DECLAIM (FTYPE (FUNCTION (|%List| |%Shell|) |%Thing|) |VECTOR;vector;L$;1|)) -(DECLAIM (FTYPE (FUNCTION ((|%Vector| *) |%Shell|) |%Thing|) +(DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |VECTOR;convert;$If;2|)) (DEFUN |VECTOR;vector;L$;1| (|l| $) |