{"body":"      (let ((new-player (make-instance 'trajectory-player :%view widget)))\n        (unless new-player\n          (warn \"Set the Trajectoryplayer of widget ~a to ~a\" widget new-player))\n        (setf (player widget) new-player))","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/MHJNDuJr","modified":1567471237,"id":"MHJNDuJr","size":226,"lines":4,"own_paste":false,"theme":"","date":1567471237}