Revision: 644
http://sourceforge.net/p/euslisp/code/644
Author: k-okada
Date: 2013-06-03 02:38:02 +0000 (Mon, 03 Jun 2013)
Log Message:
-----------
use copy-matrix and copy-seq for copy rot/pos object, see https://sourceforge.net/p/jskeus/tickets/28/
Modified Paths:
--------------
trunk/EusLisp/lisp/l/coordinates.l
Modified: trunk/EusLisp/lisp/l/coordinates.l
===================================================================
--- trunk/EusLisp/lisp/l/coordinates.l 2013-05-29 09:31:41 UTC (rev 643)
+++ trunk/EusLisp/lisp/l/coordinates.l 2013-06-03 02:38:02 UTC (rev 644)
@@ -547,8 +547,10 @@
(setf manager self
changed t ;safer
worldcoords ;prepare a world-coordinates holder
- (instance coordinates :init :rot (copy-object rot)
- :pos (copy-object pos)))
+ ;; avoid to use copy-object, see https://sourceforge.net/p/jskeus/tickets/28/
+ (instance coordinates :init :rot (copy-matrix rot) ; (copy-object rot)
+ :pos (copy-seq pos) ; (copy-object pos)
+ ))
(if par (send par :assoc self at))
self)
)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|