bug#70357: 30.0.50; loadup.el, load nadvice before seq

["Gerd Möllmann" <gerd.moellmann@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 586 bytes --]

I would like to propose loading nadvice before seq in loadup.el, for the
following reason:

If a seq.elc exists, and we dump bootstrap-emacs.pdmp, and seq.el gets
loaded, then the cl-generic machinery will want to warn about the fact
that certain method stuff in seq.elc is already compiled. This warning
wants to use somethign from nadvice, and ultimately a recursive load
(warnings.el requires icons.el, which uses seq, which leads to a
warning, etc).

I'm attaching an example log

(I guess one could get more prodictable behaviour if
bootstrap-emacs.pdmp would load only sources.)


[-- Attachment #2: recursive load --]
[-- Type: text/plain, Size: 66285 bytes --]

Loading emacs-lisp/seq...

Error: error ("Recursive load" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" "/Users/gerd/emacs/github/igc/lisp/loadup.el")
  display-warning(bytecomp "Symbol’s function definition is void: advice--cd*r" :error "*Compile-Log*")
  byte-compile--log-warning-for-byte-compile("Symbol’s function definition is void: advice--cd*r" 1 nil :error)
  byte-compile-log-warning("Symbol’s function definition is void: advice--cd*r" nil :error)
  byte-compile-report-error((void-function advice--cd*r))
  #[257 "\10\203\7\0\211 \207\302C\3031\32\0\304\305\306\4\"\307\305\310\5\"#0\207\1\242\31\311\1!)\207" [byte-compile-debug byte-compile-form-stack nil (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[257 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70582)] byte-compile-report-error] 8 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70562)](#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  bytecomp--displaying-warnings(#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  byte-compile((lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))))
  cl--generic-get-dispatcher((0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])))
  cl--generic-make-next-function(#s(cl--generic icons--create ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) nil) ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))))
  cl--generic-make-function(#s(cl--generic icons--create ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) nil))
  cl-generic-define-method(icons--create nil ((_type (eql 'image)) icon keywords) nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))
  eval-buffer(#<buffer  *load*-650736> nil "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t)
  load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t)
  require(icons)
  eval-buffer(#<buffer  *load*-83895> nil "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil t)
  load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil t)
  display-warning(bytecomp "Symbol’s function definition is void: advice--cd*r" :error "*Compile-Log*")
  byte-compile--log-warning-for-byte-compile("Symbol’s function definition is void: advice--cd*r" 1 nil :error)
  byte-compile-log-warning("Symbol’s function definition is void: advice--cd*r" nil :error)
  byte-compile-report-error((void-function advice--cd*r))
  #[257 "\10\203\7\0\211 \207\302C\3031\32\0\304\305\306\4\"\307\305\310\5\"#0\207\1\242\31\311\1!)\207" [byte-compile-debug byte-compile-form-stack nil (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[257 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70582)] byte-compile-report-error] 8 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70562)](#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  bytecomp--displaying-warnings(#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  byte-compile((lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))))
  cl--generic-get-dispatcher((0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])))
  cl--generic-make-next-function(#s(cl--generic icons--create ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) nil) ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))))
  cl--generic-make-function(#s(cl--generic icons--create ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) nil))
  cl-generic-define-method(icons--create nil ((_type (eql 'image)) icon keywords) nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))
  eval-buffer(#<buffer  *load*-308901> nil "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t)
  load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t)
  require(icons)
  eval-buffer(#<buffer  *load*-985275> nil "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil t)
  load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil t)
  display-warning(bytecomp "Symbol’s function definition is void: advice--cd*r" :error "*Compile-Log*")
  byte-compile--log-warning-for-byte-compile("Symbol’s function definition is void: advice--cd*r" 1 nil :error)
  byte-compile-log-warning("Symbol’s function definition is void: advice--cd*r" nil :error)
  byte-compile-report-error((void-function advice--cd*r))
  #[257 "\10\203\7\0\211 \207\302C\3031\32\0\304\305\306\4\"\307\305\310\5\"#0\207\1\242\31\311\1!)\207" [byte-compile-debug byte-compile-form-stack nil (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[257 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70582)] byte-compile-report-error] 8 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70562)](#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  bytecomp--displaying-warnings(#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  byte-compile((lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))))
  cl--generic-get-dispatcher((0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])))
  cl--generic-make-next-function(#s(cl--generic icons--create ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) nil) ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))))
  cl--generic-make-function(#s(cl--generic icons--create ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) nil))
  cl-generic-define-method(icons--create nil ((_type (eql 'image)) icon keywords) nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))
  eval-buffer(#<buffer  *load*-37254> nil "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t)
  load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t)
  require(icons)
  eval-buffer(#<buffer  *load*-434912> nil "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil t)
  load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil t)
  display-warning(bytecomp "Symbol’s function definition is void: advice--cd*r" :error "*Compile-Log*")
  byte-compile--log-warning-for-byte-compile("Symbol’s function definition is void: advice--cd*r" 1 nil :error)
  byte-compile-log-warning("Symbol’s function definition is void: advice--cd*r" nil :error)
  byte-compile-report-error((void-function advice--cd*r))
  #[257 "\10\203\7\0\211 \207\302C\3031\32\0\304\305\306\4\"\307\305\310\5\"#0\207\1\242\31\311\1!)\207" [byte-compile-debug byte-compile-form-stack nil (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[257 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70582)] byte-compile-report-error] 8 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70562)](#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  bytecomp--displaying-warnings(#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  byte-compile((lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg args))))))
  cl--generic-get-dispatcher((0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])))
  cl--generic-make-next-function(#s(cl--generic icons--create ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) nil) ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))))
  cl--generic-make-function(#s(cl--generic icons--create ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--generic-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method ((eql 'image) t t) nil nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) nil))
  cl-generic-define-method(icons--create nil ((_type (eql 'image)) icon keywords) nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file-name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file-exists (and (stringp file) (file-readable-p file)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p file) (propertize " " 'display (let ((props (append (let* ((height (and t (plist-get keywords :height)))) (if height (list :height (if (eq height 'line) (window-default-line-height) height)) nil)) (let* ((width (and t (plist-get keywords :width)))) (if width (list :width (if (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get keywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-image file nil nil props))))))))
  eval-buffer(#<buffer  *load*-46075> nil "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t)
  load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t)
  require(icons)
  eval-buffer(#<buffer  *load*> nil "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil t)
  load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil t)
  display-warning(bytecomp "Symbol’s function definition is void: advice--cd*r" :error "*Compile-Log*")
  byte-compile--log-warning-for-byte-compile("Symbol’s function definition is void: advice--cd*r" 1 nil :error)
  byte-compile-log-warning("Symbol’s function definition is void: advice--cd*r" nil :error)
  byte-compile-report-error((void-function advice--cd*r))
  #[257 "\10\203\7\0\211 \207\302C\3031\32\0\304\305\306\4\"\307\305\310\5\"#0\207\1\242\31\311\1!)\207" [byte-compile-debug byte-compile-form-stack nil (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[257 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70582)] byte-compile-report-error] 8 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/bytecomp.elc" . 70562)](#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg0 arg &rest args) (let nil (apply (with-memoization (gethash (or (if arg (type-of arg) 'null)) method-cache) (cl--generic-cache-miss generic '1 dispatches-left methods (append (funcall 'cl--generic-type-specializers (if arg (type-of arg) 'null)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg0 arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  bytecomp--displaying-warnings(#[0 "\306\11!\307\211\310\311\312\"\307\211\211\211\211\211\211\n\13\f\15\307C\36\26\35\34\33\32\36\27\36\30\36\31\36\32\36\33\36\34\36\35\36\36\36\37\36 \36!\16\"\36\"\3009\203@\0\300K\202A\0\300\211\242\313=\307\1\203P\0\210\314\2A\262\3\315\3!\203h\0\316\317\3009\203a\0\300\202b\0\320\"\210\2\202\257\0\3009\204t\0\2\242\321=\203\205\0\2\242\321=\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\307\325#\262\3\211\203\234\0\325\3\16\"\"\262\3\1\203\245\0\313\3B\262\3\3009\203\256\0\300\3M\210\2)\266\203\16#\203\273\0\16\35\26$.\20\207" [(lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg0 arg &rest args) (let nil (apply (with-memoization (gethash (or (if arg (type-of arg) 'null)) method-cache) (cl--generic-cache-miss generic '1 dispatches-left methods (append (funcall 'cl--generic-type-specializers (if arg (type-of arg) 'null)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg0 arg args))))) byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-table :test equal macro t compiled-function-p message "Function %s is already compiled" "provided" closure byte-compile--reify-function byte-compile-preprocess byte-compile-top-level eval current-load-list byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-lexical-variables byte-compile-bound-variables byte-compile-function-environment overriding-plist-environment byte-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-binding byte-native-compiling byte-to-native-plist-environment] 16])
  byte-compile((lambda (generic dispatches-left methods) (let ((method-cache (make-hash-table :test #'eql))) (lambda (arg0 arg &rest args) (let nil (apply (with-memoization (gethash (or (if arg (type-of arg) 'null)) method-cache) (cl--generic-cache-miss generic '1 dispatches-left methods (append (funcall 'cl--generic-type-specializers (if arg (type-of arg) 'null)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg0 arg args))))))
  cl--generic-get-dispatcher((1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10 #[385 "\300\2\301\4D\302BBB\207" [if type-of ('null)] 6 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] cl--generic-type-specializers) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])))
  cl--generic-make-next-function(#s(cl--generic \(setf\ seq-elt\) ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10 #[385 "\300\2\301\4D\302BBB\207" [if type-of ('null)] 6 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] cl--generic-type-specializers) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method (t array t) nil nil #[771 "\1\1\4I\207" [] 6 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" . 1942)])) nil) ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10 #[385 "\300\2\301\4D\302BBB\207" [if type-of ('null)] 6 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] cl--generic-type-specializers) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method (t array t) nil nil #[771 "\1\1\4I\207" [] 6 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" . 1942)])))
  cl--generic-make-function(#s(cl--generic \(setf\ seq-elt\) ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10 #[385 "\300\2\301\4D\302BBB\207" [if type-of ('null)] 6 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] cl--generic-type-specializers) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(cl--generic-method (t array t) nil nil #[771 "\1\1\4I\207" [] 6 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" . 1942)])) nil))
  cl-generic-define-method(\(setf\ seq-elt\) nil (store (sequence array) n) nil #[771 "\1\1\4I\207" [] 6 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" . 1942)])
  byte-code("\300\301\302\303#\210\304\305\306\305\307\310#\311#\210\312\305\310\307\310\313%\210\312\314\310\315\310\316%\210\312\314\310\317\310\320%\210\304\321\306\321\322\310#\323#\210\312\321\310\322\310\324%\207" [put seq-setq edebug-form-spec (sexp form) defalias seq-elt cl-generic-define (sequence n) nil "Return the Nth element of SEQUENCE.\n\n(fn SEQUENCE N)" cl-generic-define-method #[514 "\1\1\234\207" [] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" . 1919)] \(setf\ seq-elt\) (store (sequence array) n) #[771 "\1\1\4I\207" [] 6 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" . 1942)] (store (sequence cons) n) #[771 "\211\2\233\3\240\207" [] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" . 1942)] seq-length (sequence) "Return the number of elements in SEQUENCE.\n\n(fn SEQUENCE)" #[257 "G\207" [] 2 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" . 2034)]] 6)
  load("emacs-lisp/seq")
  load("loadup.el")

[-- Attachment #3: Type: text/plain, Size: 235 bytes --]


In GNU Emacs 30.0.50 (build 1, x86_64-apple-darwin23.4.0, NS
 appkit-2487.50 Version 14.4.1 (Build 23E224)) of 2024-04-12 built on
 Pro.fritz.box
Repository revision: 21775a936bd3838adaae38bd5c5ec776434736c1
Repository branch: master