Hello, Bob.

I propose you unintern the symbol which causes the problems.  Using ilisp
you can use the function below which I have bound to "\C-cu".

Nicolas.

[I think I grabbed it from somewhere (but Google did not find it again).]

(defun unintern-lisp (sexp)
  "Uninterns the current symbol using ilisp-unintern-command.
With a negative prefix, prompt for the expression.  If in an ILISP
buffer, and there is no current sexp, unintern ilisp-last-command."
  (interactive
   (list
    (if (lisp-minus-prefix)
        (ilisp-read "Unintern: " (lisp-previous-sexp t))
        (if (memq major-mode ilisp-modes)
            (if (= (point)
                   (process-mark (get-buffer-process (current-buffer))))
                (or (ilisp-value 'ilisp-last-command t)
                    (error "No symbol to unintern."))
                (lisp-previous-sexp t))
            (lisp-previous-sexp t)))))
  (let ((result
         (ilisp-send
          (format "(unintern '%s \"%s\")"
                  (lisp-slashify sexp) (lisp-buffer-package))
          (concat "Unintern " sexp)
          'describe)))
    (lisp-display-output result)))

Reply via email to