[pddl_planner/demos/2011_saito] fix bug in knock-door, add warning to…

… taking-elevator

pddl/pddl_planner/demos/2011_saito/solve-knock-door.l

@@ -200,7 +200,7 @@
   (format t ";; open action [~a]~%" obj) t)
 (defun PR2_ACTION::check_open (obj)
   (format t ";; check if open [~a]~%" obj)
-  (< 0.8 (rand))) ;; 20% success
+  (< 0.8 (random 1.0))) ;; 20% success
 (defun PR2_ACTION::wipe (obj)
   (format t ";; wiping [~a]       ~%" obj) t)
 (defun PR2_ACTION::pick (obj)
@@ -216,6 +216,7 @@
 (load "package://roseus_smach/src/pddl2smach.l")
 
 ;; global data is not used (nil)
+;; currently pddl-smach supports only success/failure branch, but this sample has multi-goal branch. So this sample does not work well with smach.
 (exec-smach-with-spin (convert-smach *graph*) nil :hz 1.0)
 
 (when (string= "__log:=" (subseq (car (last lisp::*eustop-argument*)) 0 7))

pddl/pddl_planner/demos/2011_saito/solve-taking-elevator.l

@@ -1,5 +1,7 @@
 #!/usr/bin/env roseus
 
+(warn "~%!!!!! THIS DEMO IS INCOMPLETE !!!!!~%")
+
 (load "package://pddl_planner/src/pddl-result-graph.l")
 (load "package://pddl_planner/src/eus-pddl-client.l")