Fix #'right-angleQL-2013-11
authorLiam M. Healy <lhealy@common-lisp.net>
Tue, 22 Oct 2013 22:33:13 +0000 (18:33 -0400)
committerLiam M. Healy <lhealy@common-lisp.net>
Tue, 22 Oct 2013 22:33:13 +0000 (18:33 -0400)
commitceee01b4ea5303787b4a4629d7271aedf8a36831
treeeb2e965f94f64c8b663632f0071ecd846ac45ecf
parenta72ecaf60347ca11299c1bf128056c88a3917ef7
Fix #'right-angle

The function right-angle will find an arbitrary vector in the plane
perpendicular to a given vector. It would possibly return the zero
vector. This version is shorter and should always produce a non-zero
vector.
cartesian/cartesian.lisp