From 9dce8f39a3fd66dfbb04b301c6c5f46a46d2f2c1 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Fri, 8 Feb 2013 01:42:17 +0100 Subject: [PATCH] Remove COMPONENT-PRODUCT operations. In favour of MAP. --- vector.lisp | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) diff --git a/vector.lisp b/vector.lisp index b77e267..e09bb48 100644 --- a/vector.lisp +++ b/vector.lisp @@ -35,17 +35,11 @@ ;; primitives -(def-tuple-op vector2d-component-product* - ((veca vector2d (xa ya)) - (vecb vector2d (xb yb))) - (:return vector2d - (vector2d-values* (* xa xb) (* ya yb)))) - (def-tuple-op vector2d-scale* ((vec vector2d (x y)) (s fast-float)) (:return vector2d - (vector2d-component-product* + (vector2d-map* (*) vec (vector2d-values* s s)))) @@ -80,17 +74,11 @@ (vector2d-values* x y))) -(def-tuple-op vector3d-component-product* - ((veca vector3d (xa ya za)) - (vecb vector3d (xb yb zb))) - (:return vector3d - (vector3d-values* (* xa xb) (* ya yb) (* za zb)))) - (def-tuple-op vector3d-scale* ((vec vector3d (x y z)) (s fast-float)) (:return vector3d - (vector3d-component-product* + (vector3d-map* (*) vec (vector3d-values* s s s)))) -- 2.11.4.GIT