[Update parenscript uses for mainline parenscript
clinton@unknownlamer.org**20081204222424
 Goodbye UCW parenscript fork
] {
hunk ./src/flowplayer.lisp 31
-  (:default-initargs :dom-id (js:gen-js-name-string :prefix "flowplayer")))
+  (:default-initargs :dom-id (ps:ps-gensym :prefix "flowplayer")))
hunk ./src/flowplayer.lisp 36
-	  (let ((player-id (js:gen-js-name-string :prefix "fbp")))
+	  (let ((player-id (ps:ps-gensym :prefix "fbp")))
hunk ./src/flowplayer.lisp 51
-	(player-id (js:gen-js-name-string :prefix "fbp")))
+	(player-id (ps:ps-gensym :prefix "fbp")))
hunk ./src/web-common.lisp 33
-  (let ((id (js:gen-js-name-string :prefix "id")))
+  (let ((id (ps:ps-gensym :prefix "id")))
}