Update of /project/mcclim/cvsroot/mcclim/Goatee In directory clnet:/tmp/cvs-serv8924

Modified Files: goatee-command.lisp Log Message: Change #\Delete to #\Rubout, fixing problem with clisp/win32, and resolving OpenMCL confusion.

--- /project/mcclim/cvsroot/mcclim/Goatee/goatee-command.lisp 2006/03/14 12:27:24 1.22 +++ /project/mcclim/cvsroot/mcclim/Goatee/goatee-command.lisp 2006/11/21 22:59:12 1.23 @@ -285,10 +285,7 @@ 'delete-character *simple-area-gesture-table*)

-;;; XXX In OpenMCL Darwin, #\Delete and #\Backspace map to the same -;;; character (bs)! This is not the place for silly conditionals; do -;;; we have to punt on CL characters, hack our own read table, or what? -(add-gesture-command-to-table '(#-openmcl #\Delete #+openmcl #\DEL) +(add-gesture-command-to-table '(#\Rubout) 'delete-character *simple-area-gesture-table*)