Skip to content

Instantly share code, notes, and snippets.

@snogglethorpe
Created August 6, 2013 03:51
Show Gist options
  • Save snogglethorpe/6161870 to your computer and use it in GitHub Desktop.
Save snogglethorpe/6161870 to your computer and use it in GitHub Desktop.
weird elisp crash backtrace
Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
insert(nil)
(while (consp --cl-var--) (setq value (car --cl-var--) key (pop value)) (message "key = [%s], keyval = [%s], value = [%s]" key (symbol-name key) value) (insert (1password-make-button (symbol-name key) value)) (insert "\n") (setq --cl-var-- (cdr --cl-var--)))
(let* ((--cl-var-- 1password-passwords) (value nil) (key nil)) (while (consp --cl-var--) (setq value (car --cl-var--) key (pop value)) (message "key = [%s], keyval = [%s], value = [%s]" key (symbol-name key) value) (insert (1password-make-button (symbol-name key) value)) (insert "\n") (setq --cl-var-- (cdr --cl-var--))) nil)
(catch (quote --cl-block-nil--) (let* ((--cl-var-- 1password-passwords) (value nil) (key nil)) (while (consp --cl-var--) (setq value (car --cl-var--) key (pop value)) (message "key = [%s], keyval = [%s], value = [%s]" key (symbol-name key) value) (insert (1password-make-button (symbol-name key) value)) (insert "\n") (setq --cl-var-- (cdr --cl-var--))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((--cl-var-- 1password-passwords) (value nil) (key nil)) (while (consp --cl-var--) (setq value (car --cl-var--) key (pop value)) (message "key = [%s], keyval = [%s], value = [%s]" key (symbol-name key) value) (insert (1password-make-button (symbol-name key) value)) (insert "\n") (setq --cl-var-- (cdr --cl-var--))) nil)))
(block nil (let* ((--cl-var-- 1password-passwords) (value nil) (key nil)) (while (consp --cl-var--) (setq value (car --cl-var--) key (pop value)) (message "key = [%s], keyval = [%s], value = [%s]" key (symbol-name key) value) (insert (1password-make-button (symbol-name key) value)) (insert "\n") (setq --cl-var-- (cdr --cl-var--))) nil))
(loop for (key . value) in 1password-passwords do (message "key = [%s], keyval = [%s], value = [%s]" key (symbol-name key) value) (insert (1password-make-button (symbol-name key) value)) (insert "\n"))
(let ((1password-buffer (get-buffer-create "*1password*"))) (switch-to-buffer 1password-buffer) (erase-buffer) (loop for (key . value) in 1password-passwords do (message "key = [%s], keyval = [%s], value = [%s]" key (symbol-name key) value) (insert (1password-make-button (symbol-name key) value)) (insert "\n")))
eval-region(146 491 t (lambda (ignore) (goto-char 491) (quote (let ((1password-buffer (get-buffer-create "*1password*"))) (switch-to-buffer 1password-buffer) (erase-buffer) (loop for (key . value) in 1password-passwords do (message "key = [%s], keyval = [%s], value = [%s]" key (symbol-name key) value) (insert (1password-make-button (symbol-name key) value)) (insert "\n")))))) ; Reading at buffer position 322
apply(eval-region (146 491 t (lambda (ignore) (goto-char 491) (quote (let ((1password-buffer (get-buffer-create "*1password*"))) (switch-to-buffer 1password-buffer) (erase-buffer) (loop for (key . value) in 1password-passwords do (message "key = [%s], keyval = [%s], value = [%s]" key (symbol-name key) value) (insert (1password-make-button (symbol-name key) value)) (insert "\n")))))))
eval-defun-2()
eval-defun(nil)
call-interactively(eval-defun nil nil)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment