(defparameter *old-hello* :hello)
(defun test (&key hello) (list :hello (symbol-package :hello) hello))
(list (multiple-value-list (find-symbol "HELLO" "KEYWORD"))
      *old-hello*
      (ignore-errors (test :hello 42))
      (test *old-hello* 42))
(unintern :hello)
(list (multiple-value-list (find-symbol "HELLO" "KEYWORD"))
      *old-hello*
      (ignore-errors (test :hello 42))
      (test *old-hello* 42))