[Euslisp-commit] SF.net SVN: euslisp:[644] trunk/EusLisp/lisp/l/coordinates.l

[<k-...@us...>]

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.