Index: /branches/ide-1.0/ccl/hemlock/src/bindings.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/bindings.lisp	(revision 6767)
+++ /branches/ide-1.0/ccl/hemlock/src/bindings.lisp	(revision 6768)
@@ -385,4 +385,5 @@
 (bind-key "Delete Previous Character Expanding Tabs" #k"delete" :mode "Lisp")
 (bind-key "Goto Absolute Line" #k"meta-g")
+;;;(bind-key "Set Package Name" #k"control-x p" :mode "Lisp")
 
 #+listener-bindings
@@ -550,4 +551,5 @@
 
 
+#||
 ;;;; Word Abbrev Mode.
 
@@ -567,4 +569,5 @@
   (bind-key "Abbrev Expand Only" key :mode "Abbrev"))
 
+||#