Lem editor - ideas for improvement

lem-improvements.lisp

(in-package :lem-core)

(defun undefine-key (keymap keyspec)
  "Remove binding for KEYSPEC from KEYMAP. Two cases for KEYSPEC are
considered. If it's a symbol, try to remove the corresponding binding
from KEYMAP's FUNCTION-TABLE. If it's a string, parse the string into
chained components, try to extract the innermost chained hash table
from KEYMAP's TABLE and remove the relevant entry."
  (check-type keyspec (or symbol string))
  (typecase keyspec
    (symbol
     (remhash keyspec (keymap-function-table keymap)))
    (string
     (loop
       for k on (parse-keyspec keyspec)
       with table = (keymap-table keymap)
       while (and table (cdr k))
       do (setf table (gethash (car k) table nil))
       finally (remhash (car k) table))))
  (values))