+(defmacro with-stop-and-death-handler (&rest forms)
+ `(handler-case
+ (progn ,@forms)
+ (stop (s) (declare (ignore s)) :stop)
+ (death (d) (declare (ignore d)) :death)))
+
+(defstruct turtle who breed color heading xcor ycor (label "") label-color size shape own-vars)