diff options
| author | Stas Boukarev <stassats@gmail.com> | 2023-12-27 20:20:38 +0300 |
|---|---|---|
| committer | Stas Boukarev <stassats@gmail.com> | 2023-12-27 20:20:38 +0300 |
| commit | d2a3daaf9da1a5f6b0d7091dd5bb7c68f9ee8028 (patch) | |
| tree | 4fff6ebac4c82b54a5513bf3beff6fd8de4f5670 | |
| parent | 153728e2b01ff1985d6dbebd13be3e71e56a1f2f (diff) | |
sb-simd: remove an unused variable.
| -rw-r--r-- | contrib/sb-simd/code/record.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/contrib/sb-simd/code/record.lisp b/contrib/sb-simd/code/record.lisp index 02160e38a..77f581d80 100644 --- a/contrib/sb-simd/code/record.lisp +++ b/contrib/sb-simd/code/record.lisp @@ -738,8 +738,7 @@ (defmethod decode-record-definition ((_ (eql 'associative-record)) expr) (destructuring-bind (name binary-operation identity-element &rest rest) expr - `(let* ((.binary-operation. (find-function-record ',binary-operation)) - (.value-record. (function-record-result-record .binary-operation.))) + `(let* ((.binary-operation. (find-function-record ',binary-operation))) (make-instance 'associative-record :name ',name :binary-operation .binary-operation. |