| commit | e7c4faa8baf9d071972a66c62671001a62f3cc1c | |
| author | Thomas M. Hermann <tmh.public@gmail.com> | |
| Wed, 22 Apr 2009 15:37:38 +0000 (22 10:37 -0500) | ||
| committer | Thomas M. Hermann <tmh.public@gmail.com> | |
| Wed, 22 Apr 2009 15:37:38 +0000 (22 10:37 -0500) | ||
| tree | 4a4f425b6db8ddf3f2af0a043b7a1bd852427340 | treesnapshot (tar.gz zip) |
| parent | 8fe9c9a9670b7d5c9a04d9b7b3ec686e41f4970f | commitdiff |
Implementations of NUMERICAL-EQUAL for mixed list/vector arguments.
Abstracted the comparison of 2 sequences into %SEQUENCE-EQUAL. Then
wrapped that function with methods specialized on LISTS and VECTORS.
(NUMERICAL-EQUAL LIST LIST :TEST)
(NUMERICAL-EQUAL VECTOR VECTOR :TEST)
(NUMERICAL-EQUAL LIST VECTOR :TEST)
(NUMERICAL-EQUAL VECTOR LIST :TEST)
Since %SEQUENCE-EQUAL relies on NUMERICAL-EQUAL, this should cover not
only mixed arguments, but also mixed nesting, for example a list of
vector.
Abstracted the comparison of 2 sequences into %SEQUENCE-EQUAL. Then
wrapped that function with methods specialized on LISTS and VECTORS.
(NUMERICAL-EQUAL LIST LIST :TEST)
(NUMERICAL-EQUAL VECTOR VECTOR :TEST)
(NUMERICAL-EQUAL LIST VECTOR :TEST)
(NUMERICAL-EQUAL VECTOR LIST :TEST)
Since %SEQUENCE-EQUAL relies on NUMERICAL-EQUAL, this should cover not
only mixed arguments, but also mixed nesting, for example a list of
vector.
| floating-point.lisp | diffblobblamehistory |