{"action":"created","issue":{"url":"https://api.github.com/repos/euslisp/jskeus/issues/161","labels_url":"https://api.github.com/repos/euslisp/jskeus/issues/161/labels{/name}","comments_url":"https://api.github.com/repos/euslisp/jskeus/issues/161/comments","events_url":"https://api.github.com/repos/euslisp/jskeus/issues/161/events","html_url":"https://github.com/euslisp/jskeus/issues/161","id":53981441,"number":161,"title":"equal でsegfaultする例がある","user":{"login":"k-okada","id":493276,"avatar_url":"https://avatars.githubusercontent.com/u/493276?v=3","gravatar_id":"","url":"https://api.github.com/users/k-okada","html_url":"https://github.com/k-okada","followers_url":"https://api.github.com/users/k-okada/followers","following_url":"https://api.github.com/users/k-okada/following{/other_user}","gists_url":"https://api.github.com/users/k-okada/gists{/gist_id}","starred_url":"https://api.github.com/users/k-okada/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/k-okada/subscriptions","organizations_url":"https://api.github.com/users/k-okada/orgs","repos_url":"https://api.github.com/users/k-okada/repos","events_url":"https://api.github.com/users/k-okada/events{/privacy}","received_events_url":"https://api.github.com/users/k-okada/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":5,"created_at":"2015-01-11T04:29:36Z","updated_at":"2015-01-11T04:51:43Z","closed_at":null,"body":"```\r\n(setq a (instance propertied-object))\r\n(send a :put :joint-coords (make-coords))\r\n(setq b (instance propertied-object))\r\n(send b :put :joint-coords (make-coords))\r\n(print a)\r\n(print (eq a b))\r\n(print (equal a b))\r\n\r\n(setq bs (list (make-cube 10 10 10)))\r\n(setq a (instance bodyset-link :init (make-cascoords) :bodies bs :name :a))\r\n(send a :put :joint-coords (make-cascoords))\r\n(setq bs (list (make-cube 10 10 10)))\r\n(setq b (instance bodyset-link :init (make-cascoords) :bodies bs :name :b))\r\n;(send b :put :joint-coords (make-cascoords)) ;; dame                                                                  \r\n;(send b :put :joint-coords (make-cascoords :pos (float-vector 1 2 3))) ;; ok                                          \r\n(send b :put :joint-coords (make-cascoords :pos (float-vector 0 0 0))) ;; dame                                         \r\n(print a)\r\n(print (eq a b))\r\n(print (equal a b))\r\n\r\n```\r\nでsegfaultします．書き方が悪い？それともなんかバグが有る？\r\n\r\ngdbかけるとhttps://github.com/euslisp/EusLisp/blob/master/lisp/c/predicates.c#L175\r\nで死んでいるようです．"},"comment":{"url":"https://api.github.com/repos/euslisp/jskeus/issues/comments/69483666","html_url":"https://github.com/euslisp/jskeus/issues/161#issuecomment-69483666","issue_url":"https://api.github.com/repos/euslisp/jskeus/issues/161","id":69483666,"user":{"login":"garaemon","id":40454,"avatar_url":"https://avatars.githubusercontent.com/u/40454?v=3","gravatar_id":"","url":"https://api.github.com/users/garaemon","html_url":"https://github.com/garaemon","followers_url":"https://api.github.com/users/garaemon/followers","following_url":"https://api.github.com/users/garaemon/following{/other_user}","gists_url":"https://api.github.com/users/garaemon/gists{/gist_id}","starred_url":"https://api.github.com/users/garaemon/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/garaemon/subscriptions","organizations_url":"https://api.github.com/users/garaemon/orgs","repos_url":"https://api.github.com/users/garaemon/repos","events_url":"https://api.github.com/users/garaemon/events{/privacy}","received_events_url":"https://api.github.com/users/garaemon/received_events","type":"User","site_admin":false},"created_at":"2015-01-11T04:51:43Z","updated_at":"2015-01-11T04:51:43Z","body":"```\r\n13.irteusgl$ setq a (make-cascoords)\r\n14.irteusgl$ a\r\n#<cascaded-coords #X57a3398  0.0 0.0 0.0 / 0.0 0.0 0.0>\r\n15.irteusgl$ (a . manager)\r\n#<cascaded-coords #X57a3398  0.0 0.0 0.0 / 0.0 0.0 0.0>\r\n```"}}