[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv27936

Modified Files:
	dev-commands.lisp 
Log Message:
Somehow failed to change the default for style arg to a keyword.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/02/03 12:22:38	1.50
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/02/03 20:51:47	1.51
@@ -1123,7 +1123,7 @@
      (show-hidden  'boolean :default nil :prompt "show hidden")
      (hide-garbage 'boolean :default t   :prompt "hide garbage")
      (show-all     'boolean :default nil :prompt "show all")
-     (style '(member :items :list) :default 'items :prompt "listing style")
+     (style '(member :items :list) :default :items :prompt "listing style")
      (group-directories 'boolean :default t :prompt "group directories?")
      (full-names 'boolean :default nil :prompt "show full name?")
      (list-all-direct-subdirectories 'boolean :default nil :prompt "list all direct subdirectories?"))