Skip to content

Instantly share code, notes, and snippets.

@Superbil
Created April 27, 2013 16:47
Show Gist options
  • Save Superbil/5473744 to your computer and use it in GitHub Desktop.
Save Superbil/5473744 to your computer and use it in GitHub Desktop.
Debugger entered--Lisp error: (error "Only symbols are supported in `compiler-macro'")
signal(error ("Only symbols are supported in `compiler-macro'"))
error("Only symbols are supported in `compiler-macro'")
#[771 "\2119\204 \300\301!\207\302\303D\304\305DF\207" [error "Only symbols are supported in `compiler-macro'" put quote (quote compiler-macro) function] 8 "\n\n(fn F ARGS COMPILER-FUNCTION)"](python-syntax-context (type &optional syntax-ppss) (lambda (form) (pcase type ((\` (quote comment)) (\` (let ((ppss (or ... ...))) (and (nth 4 ppss) (nth 8 ppss))))) ((\` (quote string)) (\` (let ((ppss (or ... ...))) (and (nth 3 ppss) (nth 8 ppss))))) ((\` (quote paren)) (\` (nth 1 (or (\, syntax-ppss) (syntax-ppss))))) (_ form))))
apply(#[771 "\2119\204 \300\301!\207\302\303D\304\305DF\207" [error "Only symbols are supported in `compiler-macro'" put quote (quote compiler-macro) function] 8 "\n\n(fn F ARGS COMPILER-FUNCTION)"] python-syntax-context (type &optional syntax-ppss) (lambda (form) (pcase type ((\` (quote comment)) (\` (let ((ppss (or ... ...))) (and (nth 4 ppss) (nth 8 ppss))))) ((\` (quote string)) (\` (let ((ppss (or ... ...))) (and (nth 3 ppss) (nth 8 ppss))))) ((\` (quote paren)) (\` (nth 1 (or (\, syntax-ppss) (syntax-ppss))))) (_ form))))
#[257 "\211@\f\236A\211\203\306@\300\301A$\202~\307\310!\203x@\311>\203x\312D\302@;\203V\303@\211A@)\242\313=\203I\303@\211A\211AA)B\241\266\202s\303@\211AB\241\266\202s\303@@\242\313=\203l\303@\211AB\241\266\202s\303\303@B\240\210\210\314\202~\315\316@\300#\207" [python-syntax-context (type &optional syntax-ppss) ("Return non-nil if point is on TYPE using SYNTAX-PPSS.\nTYPE can be `comment', `string' or `paren'. It returns the start\ncharacter address of the specified TYPE.") (("Return non-nil if point is on TYPE using SYNTAX-PPSS.\nTYPE can be `comment', `string' or `paren'. It returns the start\ncharacter address of the specified TYPE." (let ((ppss (or syntax-ppss ...))) (pcase type ((\` comment) (and ... ...)) ((\` string) (and ... ...)) ((\` paren) (nth 1 ppss)) (_ nil))))) defun-declarations-alist x apply featurep cl (special inline notinline optimize warn) declare interactive nil message "Warning: Unknown defun property `%S' in %S"] 8 "\n\n(fn X)"]((compiler-macro (lambda (form) (pcase type ((\` (quote comment)) (\` (let ((ppss ...)) (and (nth 4 ppss) (nth 8 ppss))))) ((\` (quote string)) (\` (let ((ppss ...)) (and (nth 3 ppss) (nth 8 ppss))))) ((\` (quote paren)) (\` (nth 1 (or (\, syntax-ppss) (syntax-ppss))))) (_ form)))))
mapcar(#[257 "\211@\f\236A\211\203\306@\300\301A$\202~\307\310!\203x@\311>\203x\312D\302@;\203V\303@\211A@)\242\313=\203I\303@\211A\211AA)B\241\266\202s\303@\211AB\241\266\202s\303@@\242\313=\203l\303@\211AB\241\266\202s\303\303@B\240\210\210\314\202~\315\316@\300#\207" [python-syntax-context (type &optional syntax-ppss) ("Return non-nil if point is on TYPE using SYNTAX-PPSS.\nTYPE can be `comment', `string' or `paren'. It returns the start\ncharacter address of the specified TYPE.") (("Return non-nil if point is on TYPE using SYNTAX-PPSS.\nTYPE can be `comment', `string' or `paren'. It returns the start\ncharacter address of the specified TYPE." (let ((ppss (or syntax-ppss ...))) (pcase type ((\` comment) (and ... ...)) ((\` string) (and ... ...)) ((\` paren) (nth 1 ppss)) (_ nil))))) defun-declarations-alist x apply featurep cl (special inline notinline optimize warn) declare interactive nil message "Warning: Unknown defun property `%S' in %S"] 8 "\n\n(fn X)"] ((compiler-macro (lambda (form) (pcase type ((\` (quote comment)) (\` (let (...) (and ... ...)))) ((\` (quote string)) (\` (let (...) (and ... ...)))) ((\` (quote paren)) (\` (nth 1 (or ... ...)))) (_ form))))))
#[898 "\211CC\211@\242\300=\203\211@A\301\240\210\202/\211@;\205/@@\242\300=\205/@@A\211@A\240\210@\203?@@B\240\210\202H@\204H\302\240\210\303\304\305\306\307\310\f\f  $\311\"\312\313%\"\314\315 D\316\317\n@BBDE\203z\320BB\202{\211\266\202\262\207" [declare nil (nil) mapcar make-byte-code 257 "\211@\f\236A\211\203\306@\300\301A$\202~\307\310!\203x@\311>\203x\312D\302@;\203V\303@\211A@)\242\313=\203I\303@\211A\211AA)B\241\266\202s\303@\211AB\241\266\202s\303@@\242\313=\203l\303@\211AB\241\266\202s\303\303@B\240\210\210\314\202~\315\316@\300#\207" vconcat vector [defun-declarations-alist x apply featurep cl (special inline notinline optimize warn) declare interactive nil message "Warning: Unknown defun property `%S' in %S"] 8 "\n\n(fn X)" defalias quote function lambda prog1] 17 1587289](python-syntax-context (type &optional syntax-ppss) "Return non-nil if point is on TYPE using SYNTAX-PPSS.\nTYPE can be `comment', `string' or `paren'. It returns the start\ncharacter address of the specified TYPE." (declare (compiler-macro (lambda (form) (pcase type ((\` (quote comment)) (\` (let (...) (and ... ...)))) ((\` (quote string)) (\` (let (...) (and ... ...)))) ((\` (quote paren)) (\` (nth 1 (or ... ...)))) (_ form))))) (let ((ppss (or syntax-ppss (syntax-ppss)))) (pcase type ((\` comment) (and (nth 4 ppss) (nth 8 ppss))) ((\` string) (and (nth 3 ppss) (nth 8 ppss))) ((\` paren) (nth 1 ppss)) (_ nil))))
(defun python-syntax-context (type &optional syntax-ppss) "Return non-nil if point is on TYPE using SYNTAX-PPSS.\nTYPE can be `comment', `string' or `paren'. It returns the start\ncharacter address of the specified TYPE." (declare (compiler-macro (lambda (form) (pcase type ((\` (quote comment)) (\` (let ... ...))) ((\` (quote string)) (\` (let ... ...))) ((\` (quote paren)) (\` (nth 1 ...))) (_ form))))) (let ((ppss (or syntax-ppss (syntax-ppss)))) (pcase type ((\` comment) (and (nth 4 ppss) (nth 8 ppss))) ((\` string) (and (nth 3 ppss) (nth 8 ppss))) ((\` paren) (nth 1 ppss)) (_ nil))))
eval-buffer(#<buffer *load*-357048> nil "/Users/superbil/.emacs.d/elpa/python-20130227.2146/python.el" nil t) ; Reading at buffer position 16783
load-with-code-conversion("/Users/superbil/.emacs.d/elpa/python-20130227.2146/python.el" "/Users/superbil/.emacs.d/elpa/python-20130227.2146/python.el" nil t)
require(python)
eval-buffer(#<buffer *load*-830959> nil "/Users/superbil/.emacs.d/elpa/elpy-20130420.1027/elpy.el" nil t) ; Reading at buffer position 1581
load-with-code-conversion("/Users/superbil/.emacs.d/elpa/elpy-20130420.1027/elpy.el" "/Users/superbil/.emacs.d/elpa/elpy-20130420.1027/elpy.el" nil t)
(elpy-enable)
(progn (elpy-enable))
(if (>= emacs-major-version 24) (progn (elpy-enable)))
eval-buffer(#<buffer *load*-38076> nil "/Users/superbil/.emacs.d/init-python-mode.el" nil t) ; Reading at buffer position 1259
load-with-code-conversion("/Users/superbil/.emacs.d/init-python-mode.el" "/Users/superbil/.emacs.d/init-python-mode.el" nil t)
require(init-python-mode)
eval-buffer(#<buffer *load*> nil "/Users/superbil/.emacs.d/init.el" nil t) ; Reading at buffer position 2324
load-with-code-conversion("/Users/superbil/.emacs.d/init.el" "/Users/superbil/.emacs.d/init.el" t t)
load("/Users/superbil/.emacs.d/init" t t)
#[0 "\205\262 \306=\203\307\310Q\202; \311=\204\307\312Q\202;\313\307\314\315#\203*\316\202;\313\307\314\317#\203:\320\nB\321\202;\316\322\323\322\211#\210 \322=\203a\324\325\326\307\327Q!\"\323\322\211#\210 \322=\203`\210 \203\243\330 !\331\232\203\243\332 !\211\333P\334!\203}\211\202\210\334!\203\207\202\210\314\262\203\241\335 \"\203\237\336\337 #\210\340\341!\210\266\f?\205\260\314\323\342\322\211#)\262\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"]()
command-line()
normal-top-level()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment