[O] Bug: error when (require 'org-drill) in init.el [9.0.3 (9.0.3-elpa @ /home/dieter/.emacs.d/elpa/org-20161224/)]

[H. Dieter Wilhelm]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

Hi,

I installed org and org-contrib via elpa.  When doing (require
'org-drill) in my init.el Emacs complains about a "copy-list" function
when restarting Emacs.

When I set (require 'cl) before org-drill then Emacs starts without
falling into debug mode.  So I assume something is wrong with the 
elpa compiling step ....


Emacs  : GNU Emacs 25.1.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.14.5)
 of 2016-10-04
Package: Org mode version 9.0.3 (9.0.3-elpa @ 
/home/dieter/.emacs.d/elpa/org-20161224/)

current state:
==============
(setq
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe 
org-babel-header-arg-expand)
 org-latex-classes '(("my-beamer" "\\documentclass{conti}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("A-M" "\\documentclass{beamer}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("koma-article"
                      "\\documentclass{scrartcl}\n            
\\usepackage{scrpage2}\n       [EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("my-letter"
                      "\\documentclass[%\n%     headings=standardclasses,\n%    
 DIV=14,\n%     fontsize=12pt,\n%     parskip=half\n]%\n     {scrlttr2}\n     
[DEFAULT-PACKAGES]\n     [PACKAGES]\n     [EXTRA]")
                     ("default-koma-letter" "\\documentclass[11pt]{scrlttr2}")
                     ("beamer" "\\documentclass[presentation]{beamer}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("article" "\\documentclass[11pt]{article}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("report" "\\documentclass[11pt]{report}"
                      ("\\part{%s}" . "\\part*{%s}")
                      ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("book" "\\documentclass[11pt]{book}"
                      ("\\part{%s}" . "\\part*{%s}")
                      ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     )
 org-mobile-files '("~/org/info.org")
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-agenda-start-on-weekday nil
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-log-done 'time
 org-latex-format-inlinetask-function 
'org-latex-format-inlinetask-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-html-metadata-timestamp-format "%Y-%m-%d"
 org-file-apps '(("pdf" . "evince %s") (auto-mode . emacs) ("\\.mm\\'" . 
default)
                 ("\\.x?html?\\'" . default) ("\\.pdf\\'" . default))
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-todo-keyword-faces '(("NEU" quote (:foreground "green"))
                          ("ALT" quote (:foreground "red"))
                          ("TODO" quote (:foreground "orange")))
 org-capture-templates '(("r" "inserting a two-sided org-drill card entry" entry
                          (file+headline "~/org/blog/dddlll.org" "Vocabulary")
                          "\n***** %^{Enter subject (German phrase or word)}    
                   :drill:\n      :PROPERTIES:\n      :DRILL_CARD_TYPE: 
twosided\n      :END:\n****** F\n       %^{Enter French phrase or word}\n****** 
E\n       %^{Enter English phrase or word}\n   " :prepend t)
                         )
 org-agenda-include-diary t
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-from-is-user-regexp "\\<H\\. Dieter Wilhelm\\>"
 org-html-postamble t
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
                     org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-html-allow-name-attribute-in-anchors t
 org-font-lock-set-keywords-hook '(org-drill-add-cloze-fontification)
 org-mode-hook '(#[0 "\300\301\302\303\304$\207"
                   [add-hook change-major-mode-hook org-show-block-all append 
local] 5]
                 #[0 "\300\301\302\303\304$\207"
                   [add-hook change-major-mode-hook org-babel-show-result-all 
append
                    local]
                   5]
                 org-babel-result-hide-spec org-babel-hide-all-hashes 
org-eldoc-load)
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-use-speed-commands t
 org-ascii-format-drawer-function #[771 ".\207" [] 4 "\n\n(fn NAME CONTENTS 
WIDTH)"]
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-enforce-todo-dependencies t
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                  org-cycle-show-empty-lines 
org-optimize-window-after-visibility-change)
 org-html-postamble-format '(("de"
                              "<p class=\"date\">Letzte Änderung: %C </p>\n<p 
class=\"creator\">Erzeugt von %c </p>\n")
                             ("en"
                              "<p class=\"author\">Author: %a (%e)</p>\n<p 
class=\"date\">Modification date: %C </p>\n<p class=\"creator\">Generated by %c 
</p>\n")
                             ("fr"
                              "<p class=\"author\">Auteur: %a (%e)</p>\n<p 
class=\"date\">Date de la modification: %C </p>\n<p class=\"creator\">Produit 
par %c </p>\n")
                             )
 org-link-abbrev-alist '(("att" . org-attach-expand))
 org-koma-letter-default-class "my-letter"
 org-agenda-span 'month
 org-latex-packages-alist '(("AUTO" "babel" t))
 org-deadline-warning-days 3
 org-export-allow-bind-keywords t
 org-babel-tangle-lang-exts '(("maxima" . "max") ("latex" . "tex") ("python" . 
"py")
                              ("emacs-lisp" . "el") ("elisp" . "el"))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-link-parameters '(("id" :follow org-id-open)
                       ("rmail" :follow org-rmail-open :store 
org-rmail-store-link)
                       ("mhe" :follow org-mhe-open :store org-mhe-store-link)
                       ("irc" :follow org-irc-visit :store org-irc-store-link)
                       ("info" :follow org-info-open :export org-info-export 
:store
                        org-info-store-link)
                       ("gnus" :follow org-gnus-open :store org-gnus-store-link)
                       ("docview" :follow org-docview-open :export 
org-docview-export
                        :store org-docview-store-link)
                       ("bibtex" :follow org-bibtex-open :store 
org-bibtex-store-link)
                       ("bbdb" :follow org-bbdb-open :export org-bbdb-export 
:complete
                        org-bbdb-complete-link :store org-bbdb-store-link)
                       ("w3m" :store org-w3m-store-link) ("file+sys") 
("file+emacs")
                       ("doi" :follow org--open-doi-link)
                       ("elisp" :follow org--open-elisp-link)
                       ("file" :complete org-file-complete-link)
                       ("ftp" :follow (lambda (path) (browse-url (concat "ftp:" 
path))))
                       ("help" :follow org--open-help-link)
                       ("http" :follow
                        (lambda (path) (browse-url (concat "http:" path))))
                       ("https" :follow
                        (lambda (path) (browse-url (concat "https:" path))))
                       ("mailto" :follow
                        (lambda (path) (browse-url (concat "mailto:"; path))))
                       ("message" :follow
                        (lambda (path) (browse-url (concat "message:" path))))
                       ("news" :follow
                        (lambda (path) (browse-url (concat "news:"; path))))
                       ("shell" :follow org--open-shell-link))
 org-mobile-directory "~/ownCloudSync"
 org-babel-load-languages '((python . t) (R . t) (calc . t) (emacs-lisp . t) 
(sh . t)
                            (latex . t) (maxima . t))
 org-html-format-inlinetask-function 
'org-html-format-inlinetask-default-function
 org-agenda-files '("~/org/blog/dddlll.org")
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-confirm-babel-evaluate nil
 org-publish-project-alist '(("blog-rss" :base-directory "~/org/blog" 
:base-extension
                              "org" :publishing-directory "~/www.blog/"
                              :publishing-function (org-rss-publish-to-rss)
                              :html-link-home "http://duenenhof-wilhelm.de/";
                              :html-link-use-abs-url t :exclude ".*" :include
                              ("my-blog.org"))
                             ("blog" :base-directory "~/org/blog" 
:html-extension "html"
                              :base-extension "org" :publishing-directory 
"~/www.blog/"
                              :publishing-function (org-html-publish-to-html)
                              :html-head-extra
                              "<link rel=\"alternate\" 
type=\"application/rss+xml\"\n           
href=\"http://duenenhof-wilhelm.de/dieter/my-blog.xml\"\n               
title=\"RSS feed for Dieter's blog (DDDLLL)\">")
                             ("org-files" :sitemap-title "Die Dünenhof-Seite"
                              :auto-sitemap t :base-directory "~/org/www/"
                              :publishing-directory 
"~/www.duenenhof-wilhelm4.de/"
                              :recursive t :headline-levels 4 :auto-preamble nil
                              :exclude "template.*\\|navigation.*" 
:publishing-function
                              org-html-publish-to-html)
                             ("images" :base-directory "~/org/www/" 
:base-extension
                              "png\\|jpg\\|gif\\|swf\\|ico" 
:publishing-directory
                              "~/www.duenenhof-wilhelm4.de/" :recursive t
                              :publishing-function org-publish-attachment)
                             ("other" :base-directory "~/org/www/" 
:base-extension
                              "css\\|js\\|pdf\\|mp3\\|ogg\\|htm\\|dote"
                              :publishing-directory 
"~/www.duenenhof-wilhelm4.de/"
                              :recursive t :include ("dotemacs") 
:publishing-function
                              org-publish-attachment)
                             ("duenenhof" :components ("org-files" "other")))
 )
-- 
Best wishes
H. Dieter Wilhelm
Kelkheim, Germany