diff --git a/etc/init.lisp b/etc/init.lisp index 28d8fa7..464a3ee 100644 --- a/etc/init.lisp +++ b/etc/init.lisp @@ -159,7 +159,7 @@ (define-key "?" #'print-quick-help) -(define-key "C d" #'clear-cache) +(define-key "C-d" #'clear-cache) (define-key "C-I" #'pass-focus-next) diff --git a/src/command-line.lisp b/src/command-line.lisp index b5c17f8..fde5dc2 100644 --- a/src/command-line.lisp +++ b/src/command-line.lisp @@ -143,7 +143,6 @@ (defparameter *free-arguments* nil) - (defun exit-on-error (e) (format *error-output* "~a~%" e) (os-utils:exit-program 1))