From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Christopher Allan Webber Newsgroups: gmane.emacs.devel Subject: yasnippet common lisp objects broken by recent emacs changes? Date: Sat, 26 Jan 2013 16:59:47 -0600 Message-ID: <877gmz5z5l.fsf@grumps.lan> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1359240915 3695 80.91.229.3 (26 Jan 2013 22:55:15 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 26 Jan 2013 22:55:15 +0000 (UTC) To: "Emacs Development" Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Jan 26 23:55:35 2013 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TzEes-0004pg-Sx for ged-emacs-devel@m.gmane.org; Sat, 26 Jan 2013 23:55:35 +0100 Original-Received: from localhost ([::1]:42441 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TzEeb-0002PQ-2n for ged-emacs-devel@m.gmane.org; Sat, 26 Jan 2013 17:55:17 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:44229) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TzEeU-0002Oy-Kr for Emacs-devel@gnu.org; Sat, 26 Jan 2013 17:55:15 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TzEeS-0004wT-Ca for Emacs-devel@gnu.org; Sat, 26 Jan 2013 17:55:10 -0500 Original-Received: from li424-160.members.linode.com ([50.116.34.160]:36373 helo=dustycloud.org) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TzEeS-0004vh-6V for Emacs-devel@gnu.org; Sat, 26 Jan 2013 17:55:08 -0500 Original-Received: from grumps.lan (localhost [127.0.0.1]) by dustycloud.org (Postfix) with ESMTP id D2A132663C for ; Sat, 26 Jan 2013 17:55:06 -0500 (EST) User-agent: mu4e 0.9.9.5-dev6; emacs 24.3.50.1 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 50.116.34.160 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:156674 Archived-At: Heya all, I noticed that when I try to run yasnippet (running from git as fetched by el-get) recently I've been getting this error. It looks like there is a cl--set-getf function that exists and probably is the same. If I do this alias, it works: (defalias 'cl-set-getf 'cl--set-getf) ...however, there isn't any cl-set-getf method that's actually called or called in yasnippet itself... I wonder if this is something related to the way the cl-struct system works, and somethign missing there? Running from a build from yesterday, GNU Emacs 24.3.50.1 (i686-pc-linux-gnu, GTK+ Version 3.4.2) of 2013-01-25= on grumps Backtrace below! - Chris Debugger entered--Lisp error: (void-function cl-set-getf) cl-set-getf(("Title Block" (lambda nil (interactive) (yas--expand-or-visi= t-from-menu (quote org-mode) "Title Block")) :keys nil) :keys "title =3D>") yas--update-template-menu([cl-struct-yas--table "org-mode" #s(hash-table = size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("title" #s(ha= sh-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("Tit= le Block" [cl-struct-yas--template "title" "#+TITLE: ${1:title}\n" "Title B= lock" nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/title" nil "= Title Block" ((menu-item "Title Block" (lambda nil (interactive) (yas--expa= nd-or-visit-from-menu ... "Title Block")) :keys nil)) nil nil #0] ...)) ...= )) #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 da= ta ("Title Block" [cl-struct-yas--template "title" "#+TITLE: ${1:title}\n" = "Title Block" nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/titl= e" nil "Title Block" ((menu-item "Title Block" (lambda nil (interactive) (y= as--expand-or-visit-from-menu (quote org-mode) "Title Block")) :keys nil)) = nil nil #0] ...)) nil (keymap)] [cl-struct-yas--template "title" "#+TITLE: = ${1:title}\n" "Title Block" nil nil "/home/cwebber/elisp/yasnippet-snippets= /org-mode/title" nil "Title Block" ((menu-item "Title Block" (lambda nil (i= nteractive) (yas--expand-or-visit-from-menu (quote org-mode) "Title Block")= ) :keys nil)) nil nil [cl-struct-yas--table "org-mode" #s(hash-table size 6= 5 test equal rehash-size 1.5 rehash-threshold 0.8 data ("title" #s(hash-tab= le size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("Title Blo= ck" #0 ...)) ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-= threshold 0.8 data ("Title Block" #0 ...)) nil (keymap)]]) yas--update-template([cl-struct-yas--table "org-mode" #s(hash-table size = 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("title" #s(hash-ta= ble size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("Title Bl= ock" [cl-struct-yas--template "title" "#+TITLE: ${1:title}\n" "Title Block"= nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/title" nil "Title= Block" ((menu-item "Title Block" (lambda nil (interactive) (yas--expand-or= -visit-from-menu ... "Title Block")) :keys nil)) nil nil #0] ...)) ...)) #s= (hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("= Title Block" [cl-struct-yas--template "title" "#+TITLE: ${1:title}\n" "Titl= e Block" nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/title" ni= l "Title Block" ((menu-item "Title Block" (lambda nil (interactive) (yas--e= xpand-or-visit-from-menu (quote org-mode) "Title Block")) :keys nil)) nil n= il #0] ...)) nil (keymap)] [cl-struct-yas--template "title" "#+TITLE: ${1:t= itle}\n" "Title Block" nil nil "/home/cwebber/elisp/yasnippet-snippets/org-= mode/title" nil "Title Block" ((menu-item "Title Block" (lambda nil (intera= ctive) (yas--expand-or-visit-from-menu (quote org-mode) "Title Block")) :ke= ys nil)) nil nil [cl-struct-yas--table "org-mode" #s(hash-table size 65 tes= t equal rehash-size 1.5 rehash-threshold 0.8 data ("title" #s(hash-table si= ze 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("Title Block" #= 0 ...)) ...)) #s(hash-table size 65 test equal rehash-size 1.5 rehash-thres= hold 0.8 data ("Title Block" #0 ...)) nil (keymap)]]) yas--define-snippets-1(("title" "#+TITLE: ${1:title}\n" "Title Block" nil= nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/title" nil nil) [= cl-struct-yas--table "org-mode" #s(hash-table size 65 test equal rehash-siz= e 1.5 rehash-threshold 0.8 data ("title" #s(hash-table size 65 test equal r= ehash-size 1.5 rehash-threshold 0.8 data ("Title Block" [cl-struct-yas--tem= plate "title" "#+TITLE: ${1:title}\n" "Title Block" nil nil "/home/cwebber/= elisp/yasnippet-snippets/org-mode/title" nil "Title Block" ((menu-item "Tit= le Block" (lambda nil (interactive) (yas--expand-or-visit-from-menu ... "Ti= tle Block")) :keys nil)) nil nil #0] ...)) ...)) #s(hash-table size 65 test= equal rehash-size 1.5 rehash-threshold 0.8 data ("Title Block" [cl-struct-= yas--template "title" "#+TITLE: ${1:title}\n" "Title Block" nil nil "/home/= cwebber/elisp/yasnippet-snippets/org-mode/title" nil "Title Block" ((menu-i= tem "Title Block" (lambda nil (interactive) (yas--expand-or-visit-from-menu= (quote org-mode) "Title Block")) :keys nil)) nil nil #0] ...)) nil (keymap= )]) yas-define-snippets(org-mode (("title" "#+TITLE: ${1:title}\n" "Title Blo= ck" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/title" nil= nil) ("text" "#+TEXT: ${1:text}\n" "Text" nil nil nil "/home/cwebber/elisp= /yasnippet-snippets/org-mode/text" nil nil) ("startup" "#+STARTUP: ${1:opti= ons}\n" "Startup" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-m= ode/startup" nil nil) ("src" "#+BEGIN_SRC $1$>\n$0$>\n#+END_SRC$>\n" "Sourc= e Code Block" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/= src" nil nil) ("seq" "#+SEQ_TODO: ${1:STATES} | ${2:FINISHED}\n" "SEQ TODO"= nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/seq" nil nil)= ("sb" "#+source: ${1:name}\n#+begin_src ${2:language}\n $3\n#+end_src\n" = "#+srcname:..#+begin_src...#+end_src" nil nil ((yas/indent-line (quote fixe= d)) (yas/wrap-around-region (quote nil))) "/home/cwebber/elisp/yasnippet-sn= ippets/org-mode/sb" nil nil) ("prop" " :PROPERTIES:\n :VISIBILITY:folded:\n= :END:\n" "Properties Folded" nil nil nil "/home/cwebber/elisp/yasnippet-sn= ippets/org-mode/prop" nil nil) ("options" "#+OPTIONS: ${0}\n\n" "OPTIONS" n= il nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/options" nil ni= l) ("latex" "#+BEGIN_LATEX\n${0}\n#+END_LATEX\n" "LATEX" nil nil nil "/home= /cwebber/elisp/yasnippet-snippets/org-mode/latex" nil nil) ("lang" "#+LANGU= AGE: ${1:en}\n" "LANGUAGE" nil nil nil "/home/cwebber/elisp/yasnippet-snipp= ets/org-mode/lang" nil nil) ("keywords" "#+KEYWORDS: ${0}\n" "KEYWORDS" nil= nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/keywords" nil nil= ) ("inc" "#+INCLUDE: \"${1:file}\" ${2:src-example-quote} ${3:mode}\n\n" "A= uthor" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/inc" ni= l nil) ("html" "#+BEGIN_HTML\n${0}\n#+END_HTML\n" "HTML" nil nil nil "/home= /cwebber/elisp/yasnippet-snippets/org-mode/html" nil nil) ("figure" "#+attr= _latex: width=3D$1\\textwidth\n`(org-insert-link '(4))`\n$0\n" "figure" nil= nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/figure" nil nil) = ("email" "#+EMAIL: ${1:`user-mail-address`}\n" "Email" nil nil nil "/home/c= webber/elisp/yasnippet-snippets/org-mode/email" nil nil) ("docbook" "#+BEGI= N_DOCBOOK\n${0}\n#+END_DOCBOOK\n" "DOCBOOK" nil nil nil "/home/cwebber/elis= p/yasnippet-snippets/org-mode/docbook" nil nil) ("dita" "#+BEGIN_DITAA ${1:= export-file-name} -r -S -E\n${0}\n#+END_DITAA\n" "DITAA" nil nil nil "/home= /cwebber/elisp/yasnippet-snippets/org-mode/dita" nil nil) ("desc" "#+DESCRI= PTION: ${0}\n" "DESCRIPTION" nil nil nil "/home/cwebber/elisp/yasnippet-sni= ppets/org-mode/desc" nil nil) ("block" "#+begin_$1 $2\n $0\n#+end_$1\n" "#= +begin_...#+end_" nil nil ((yas/indent-line (quote fixed)) (yas/wrap-around= -region (quote nil))) "/home/cwebber/elisp/yasnippet-snippets/org-mode/bloc= k" nil nil) ("begin" "\\begin{$1}\n $0\n\\end{$1}\n" "\\begin{...} ... \\e= nd{...}" nil nil ((yas/indent-line (quote fixed)) (yas/wrap-around-region (= quote nil))) "/home/cwebber/elisp/yasnippet-snippets/org-mode/begin" nil ni= l) ("author" "#+AUTHOR: ${1:`user-full-name`}\n" "Author" nil nil nil "/hom= e/cwebber/elisp/yasnippet-snippets/org-mode/author" nil nil))) yas--load-directory-2("/home/cwebber/elisp/yasnippet-snippets/org-mode" o= rg-mode) yas--load-directory-1("/home/cwebber/elisp/yasnippet-snippets/org-mode" o= rg-mode nil) eval((yas--load-directory-1 "/home/cwebber/elisp/yasnippet-snippets/org-m= ode" (quote org-mode) (quote nil))) yas-load-directory("~/elisp/yasnippet-snippets/" t) yas--load-snippet-dirs(nil) byte-code("\306\307\310\311 \"..\2031.\n\203+.\312\313!\203..\314\315\"= \210\2021.\316\317\320\"\210\321\322\306\"\210\2021.\314\323\311 \"\210\324= .\324 .\325\326.\"\210\324 .\324 ..\327\n!.\330 \210\316\331\332\n\203U.\3= 33\202V.\334 \203^.\335\202_.\333$*\207" [snippet-editing-buffers errors in= teractive yas--tables yas--parents yas--menu-table nil remove-if-not #[(buf= fer) "rq\210 )\207" [buffer yas--editing-template] 1] buffer-list y-or-n-p= "Some buffers editing live snippets, close them and proceed with reload? "= mapc kill-buffer yas--message 1 "Aborted reload..." throw abort #[(buffer)= "\301\211.\207" [yas--editing-template nil] 2] make-hash-table maphash #[(= menu-symbol keymap) "\302\303 !\304#\207" [yas--minor-mode-menu menu-symbo= l define-key vector nil] 4] yas--load-snippet-dirs yas-direct-keymaps-reloa= d 3 "Reloaded everything%s...%s." "" " (snippets will load just-in-time)" "= (some errors, check *Messages*)" yas--scheduled-jit-loads] 5) yas-reload-all() yas--global-mode-reload-with-jit-maybe() run-hooks(yas-global-mode-hook yas-global-mode-on-hook) yas-global-mode(1) eval-buffer(# nil "/home/cwebber/.config/emacs/modes/yasn= ippet.el" nil t) ; Reading at buffer position 786 load-with-code-conversion("/home/cwebber/.config/emacs/modes/yasnippet.el= " "/home/cwebber/.config/emacs/modes/yasnippet.el" nil nil) load("/home/cwebber/.config/emacs/modes/yasnippet.el" nil nil t) load-file("~/.config/emacs/modes/yasnippet.el") eval((load-file "~/.config/emacs/modes/yasnippet.el") nil) eval-last-sexp-1(nil) eval-last-sexp(nil) call-interactively(eval-last-sexp nil nil)