yasnippet common lisp objects broken by recent emacs changes?

[Christopher Allan Webber <cwebber@dustycloud.org>]

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-visit-from-menu (quote org-mode) "Title Block")) :keys nil) :keys "title =>")
  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(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-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" "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 (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 (interactive) (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 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("title" #s(hash-table size 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-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-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-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" "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 (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 (interactive) (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 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("title" #s(hash-table size 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-threshold 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-size 1.5 rehash-threshold 0.8 data ("title" #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-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" "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 (quote org-mode) "Title Block")) :keys nil)) nil nil #0] ...)) nil (keymap)])
  yas-define-snippets(org-mode (("title" "#+TITLE: ${1:title}\n" "Title Block" 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:options}\n" "Startup" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/startup" nil nil) ("src" "#+BEGIN_SRC $1$>\n$0$>\n#+END_SRC$>\n" "Source 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 fixed)) (yas/wrap-around-region (quote nil))) "/home/cwebber/elisp/yasnippet-snippets/org-mode/sb" nil nil) ("prop" " :PROPERTIES:\n :VISIBILITY:folded:\n :END:\n" "Properties Folded" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/prop" nil nil) ("options" "#+OPTIONS: ${0}\n\n" "OPTIONS" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/options" nil nil) ("latex" "#+BEGIN_LATEX\n${0}\n#+END_LATEX\n" "LATEX" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/latex" nil nil) ("lang" "#+LANGUAGE: ${1:en}\n" "LANGUAGE" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/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" "Author" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/inc" nil 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=$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/cwebber/elisp/yasnippet-snippets/org-mode/email" nil nil) ("docbook" "#+BEGIN_DOCBOOK\n${0}\n#+END_DOCBOOK\n" "DOCBOOK" nil nil nil "/home/cwebber/elisp/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" "#+DESCRIPTION: ${0}\n" "DESCRIPTION" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/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/block" nil nil) ("begin" "\\begin{$1}\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/begin" nil nil) ("author" "#+AUTHOR: ${1:`user-full-name`}\n" "Author" nil nil nil "/home/cwebber/elisp/yasnippet-snippets/org-mode/author" nil nil)))
  yas--load-directory-2("/home/cwebber/elisp/yasnippet-snippets/org-mode" org-mode)
  yas--load-directory-1("/home/cwebber/elisp/yasnippet-snippets/org-mode" org-mode nil)
  eval((yas--load-directory-1 "/home/cwebber/elisp/yasnippet-snippets/org-mode" (quote org-mode) (quote nil)))
  yas-load-directory("~/elisp/yasnippet-snippets/" t)
  yas--load-snippet-dirs(nil)
  byte-code("\306\307\310\311 \"..\b\2031.\n\203+.\312\313!\203..\314\315\b\"\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.\333\202V.\334	\203^.\335\202_.\333$*\207" [snippet-editing-buffers errors interactive yas--tables yas--parents yas--menu-table nil remove-if-not #[(buffer) "r\bq\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\b\303	!\304#\207" [yas--minor-mode-menu menu-symbol define-key vector nil] 4] yas--load-snippet-dirs yas-direct-keymaps-reload 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(#<buffer  *load*> nil "/home/cwebber/.config/emacs/modes/yasnippet.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)