From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Gerd =?UTF-8?Q?M=C3=B6llmann?= Newsgroups: gmane.emacs.bugs Subject: bug#70357: 30.0.50; loadup.el, load nadvice before seq Date: Fri, 12 Apr 2024 20:19:40 +0200 Message-ID: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="25767"; mail-complaints-to="usenet@ciao.gmane.io" To: 70357@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Fri Apr 12 20:21:44 2024 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1rvLWx-0006Vi-Ln for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 12 Apr 2024 20:21:44 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rvLWJ-0000J3-0x; Fri, 12 Apr 2024 14:21:03 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rvLWE-0000IJ-LA for bug-gnu-emacs@gnu.org; Fri, 12 Apr 2024 14:20:58 -0400 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rvLWB-0004oP-7v for bug-gnu-emacs@gnu.org; Fri, 12 Apr 2024 14:20:57 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1rvLWK-0004Jl-O5 for bug-gnu-emacs@gnu.org; Fri, 12 Apr 2024 14:21:04 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Gerd =?UTF-8?Q?M=C3=B6llmann?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 12 Apr 2024 18:21:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 70357 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.171294603316309 (code B ref -1); Fri, 12 Apr 2024 18:21:03 +0000 Original-Received: (at submit) by debbugs.gnu.org; 12 Apr 2024 18:20:33 +0000 Original-Received: from localhost ([127.0.0.1]:59547 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rvLVc-0004Cl-H4 for submit@debbugs.gnu.org; Fri, 12 Apr 2024 14:20:33 -0400 Original-Received: from lists.gnu.org ([2001:470:142::17]:46204) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rvLVN-00048w-0h for submit@debbugs.gnu.org; Fri, 12 Apr 2024 14:20:18 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rvLV6-00006F-Ux for bug-gnu-emacs@gnu.org; Fri, 12 Apr 2024 14:19:49 -0400 Original-Received: from mail-ed1-x531.google.com ([2a00:1450:4864:20::531]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rvLV2-0004Ry-30 for bug-gnu-emacs@gnu.org; Fri, 12 Apr 2024 14:19:48 -0400 Original-Received: by mail-ed1-x531.google.com with SMTP id 4fb4d7f45d1cf-565c6cf4819so3891312a12.1 for ; Fri, 12 Apr 2024 11:19:43 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1712945982; x=1713550782; darn=gnu.org; h=mime-version:message-id:date:subject:to:from:from:to:cc:subject :date:message-id:reply-to; bh=DZYoMUlwsI0u8KMMPmkeIX6xoLGFW2kazi/8p4WWwYA=; b=JY2ejxQbn5BPVDu6kZS+h8eJoA/+aeBpHyxkhPN48csGUaCb0AZKMDWlRPuwmtJa77 FkC1lMwuBFJOsdqUS6xpxAgMbV5NEFb1dYIqjNa+dZyByUbJAWz+LFLree7WlUkBLAVf 21PiEbvmTqiW93g71PK1ow9z5Ie1EVCdf3TyCsfbZeLjftv/Gu9XYaMvXCnAmgvuaT/L EzaTA7NVmMPlw7VpimPrSUNjdFIOPRsxhX9TWl1Tkt8GLzWN3rfXYokG+N4f8gE7SVSE CxtPFvi3trDwzM7e+t9vrk+QBOKA0d07jFepxni+pit6ukiW934tj8NQaGVvnwnhyZoE GXbQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1712945982; x=1713550782; h=mime-version:message-id:date:subject:to:from:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=DZYoMUlwsI0u8KMMPmkeIX6xoLGFW2kazi/8p4WWwYA=; b=nJo3+dNbkoGlyxiXynrz6MwqaXyM3NUBNrkxnsjIZ4IdPbEJ5w8YCB34uVqtkrw2al 6kWviVu6umWLXGEOI6Ph+aroXrJw4HyTBdpEilfg48frVAb9WRoIFSdvHNWb4sPNWAvL 7fqIr4Oj8a+wOenhkSNkA4CPqAMshH+ROpdIB/t2aCrqUswrGzSGhr8SggGcWdUgSgLy ZQYU9jcLwXLskZg3MN/q47PlR+3YfCirvqon+7BVEWYgDrvmyxBIryvCWeGixSZ9WbXN R/rDszjZbGQVvxAZ8z+lM0MegKyi+0143c2+SBDbjlMhHxVR247tFIZS7nW7rYyzGf54 aZwg== X-Gm-Message-State: AOJu0YwsRm0+Eqc1vAuJ+aYFNmVlSCPVkLmMNfS1MkYMbxGPuF5ozlNP J5zfStKP9MNiTBmJPBkEklmozRqAVklN2OFIP1pcTY8c3VHK4Ot7koM8Hg== X-Google-Smtp-Source: AGHT+IHGQ75QfRjGBkLBO0HyWwycJSuJeVk8C2ZWHgejopwqLVQzfh6LV0DOPTqdUAoEUyl9i2vKug== X-Received: by 2002:a17:906:3641:b0:a52:182b:dee9 with SMTP id r1-20020a170906364100b00a52182bdee9mr2498606ejb.35.1712945982024; Fri, 12 Apr 2024 11:19:42 -0700 (PDT) Original-Received: from Pro.fritz.box (pd9e36b11.dip0.t-ipconnect.de. [217.227.107.17]) by smtp.gmail.com with ESMTPSA id hr11-20020a1709073f8b00b00a51a00142bdsm2069916ejc.212.2024.04.12.11.19.40 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 12 Apr 2024 11:19:41 -0700 (PDT) Received-SPF: pass client-ip=2a00:1450:4864:20::531; envelope-from=gerd.moellmann@gmail.com; helo=mail-ed1-x531.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:283141 Archived-At: --=-=-= Content-Type: text/plain 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.) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Disposition: attachment; filename=recursive-load.txt Content-Transfer-Encoding: quoted-printable Content-Description: recursive load Loading emacs-lisp/seq... Error: error ("Recursive load" "/Users/gerd/emacs/github/igc/lisp/emacs-lis= p/warnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" "/Us= ers/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" "/Users/gerd/emacs/g= ithub/igc/lisp/emacs-lisp/icons.el" "/Users/gerd/emacs/github/igc/lisp/emac= s-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/em= acs/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=E2=80=99s function definition is void: a= dvice--cd*r" :error "*Compile-Log*") byte-compile--log-warning-for-byte-compile("Symbol=E2=80=99s function def= inition is void: advice--cd*r" 1 nil :error) byte-compile-log-warning("Symbol=E2=80=99s function definition is void: a= dvice--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 n= il (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[25= 7 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/gith= ub/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=3D\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=3D\203\205\0\2\242\321=3D\211\26\"\203\203\0\32= 2\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-eq= l-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left m= ethods (append (funcall '#[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/U= sers/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethas= h arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/ge= rd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg ar= gs))))) byte-compile-initial-macro-environment byte-compile-verbose byte-op= timize 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 byt= e-compile-preprocess byte-compile-top-level eval current-load-list byte-com= pile-free-assignments byte-compile-free-references byte-compile-const-varia= bles byte-compile-lexical-variables byte-compile-bound-variables byte-compi= le-function-environment overriding-plist-environment byte-compile--docstrin= gs 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=3D\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=3D\203\205\0= \2\242\321=3D\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\30= 7\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 :tes= t #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (geth= ash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cach= e-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\3= 00=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-li= sp/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-g= eneric.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-envir= onment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings b= yte-compile-warnings copy-alist nil make-hash-table :test equal macro t com= piled-function-p message "Function %s is already compiled" "provided" closu= re byte-compile--reify-function byte-compile-preprocess byte-compile-top-le= vel 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--outbu= ffer byte-compile-macro-environment lexical-binding byte-native-compiling b= yte-to-native-plist-environment] 16]) byte-compile((lambda (generic dispatches-left methods) (let ((method-cach= e (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply = (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-c= ache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (f= uncall '#[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/g= ithub/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic= -eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/i= gc/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=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/= lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--ge= neric-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/i= gc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Use= rs/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) cl--generic-make-next-function(#s(cl--generic icons--create ((2 #s(cl--ge= neric-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/U= sers/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/i= gc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer= cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--gen= eric-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic= .elc" . 6938)] #[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/= emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-g= eneralizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/ge= rd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\20= 7" [(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) ic= on (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 (pli= st-get keywords :width)))) (if width (list :width (if (eq width 'font) (def= ault-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-g= et 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-generi= c.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lis= p/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--g= eneric-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 ("/Us= ers/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/lis= p/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=3D\205\11\0\1A\207"= [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6= 963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\2= 07" [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-n= ame-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-sea= rch-load-path icon)))) (file-exists (and (stringp file) (file-readable-p fi= le)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p= ) (image-supported-file-p file) (propertize " " 'display (let ((props (appe= nd (let* ((height (and t (plist-get keywords :height)))) (if height (list := height (if (eq height 'line) (window-default-line-height) height)) nil)) (l= et* ((width (and t (plist-get keywords :width)))) (if width (list :width (i= f (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((r= otation (and t (plist-get keywords :rotation)))) (if rotation (list :rotati= on rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (i= f margin (list :margin margin) nil)) (list :ascent (if (plist-member keywor= ds :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-gener= ic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/li= sp/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=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs= /github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-genera= lizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/em= acs/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 (a= nd (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file= -exists (and (stringp file) (file-readable-p file)))) (and file-exists (dis= play-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p fi= le) (propertize " " 'display (let ((props (append (let* ((height (and t (pl= ist-get keywords :height)))) (if height (list :height (if (eq height 'line)= (window-default-line-height) height)) nil)) (let* ((width (and t (plist-ge= t keywords :width)))) (if width (list :width (if (eq width 'font) (default-= font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get ke= ywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((m= argin (and t (plist-get keywords :margin)))) (if margin (list :margin margi= n) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywo= rds :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) = nil)) cl-generic-define-method(icons--create nil ((_type (eql 'image)) icon key= words) nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file= -name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-s= earch-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 (ap= pend (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 :rota= tion rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) = (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keyw= ords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-imag= e file nil nil props)))))))) eval-buffer(# nil "/Users/gerd/emacs/github/igc/li= sp/emacs-lisp/icons.el" nil t) load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/i= cons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t) require(icons) eval-buffer(# nil "/Users/gerd/emacs/github/igc/lis= p/emacs-lisp/warnings.el" nil t) load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/w= arnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil = t) display-warning(bytecomp "Symbol=E2=80=99s function definition is void: a= dvice--cd*r" :error "*Compile-Log*") byte-compile--log-warning-for-byte-compile("Symbol=E2=80=99s function def= inition is void: advice--cd*r" 1 nil :error) byte-compile-log-warning("Symbol=E2=80=99s function definition is void: a= dvice--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 n= il (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[25= 7 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/gith= ub/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=3D\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=3D\203\205\0\2\242\321=3D\211\26\"\203\203\0\32= 2\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-eq= l-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left m= ethods (append (funcall '#[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/U= sers/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethas= h arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/ge= rd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg ar= gs))))) byte-compile-initial-macro-environment byte-compile-verbose byte-op= timize 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 byt= e-compile-preprocess byte-compile-top-level eval current-load-list byte-com= pile-free-assignments byte-compile-free-references byte-compile-const-varia= bles byte-compile-lexical-variables byte-compile-bound-variables byte-compi= le-function-environment overriding-plist-environment byte-compile--docstrin= gs 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=3D\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=3D\203\205\0= \2\242\321=3D\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\30= 7\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 :tes= t #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (geth= ash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cach= e-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\3= 00=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-li= sp/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-g= eneric.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-envir= onment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings b= yte-compile-warnings copy-alist nil make-hash-table :test equal macro t com= piled-function-p message "Function %s is already compiled" "provided" closu= re byte-compile--reify-function byte-compile-preprocess byte-compile-top-le= vel 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--outbu= ffer byte-compile-macro-environment lexical-binding byte-native-compiling b= yte-to-native-plist-environment] 16]) byte-compile((lambda (generic dispatches-left methods) (let ((method-cach= e (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply = (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-c= ache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (f= uncall '#[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/g= ithub/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic= -eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/i= gc/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=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/= lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--ge= neric-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/i= gc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Use= rs/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) cl--generic-make-next-function(#s(cl--generic icons--create ((2 #s(cl--ge= neric-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/U= sers/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/i= gc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer= cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--gen= eric-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic= .elc" . 6938)] #[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/= emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-g= eneralizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/ge= rd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\20= 7" [(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) ic= on (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 (pli= st-get keywords :width)))) (if width (list :width (if (eq width 'font) (def= ault-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-g= et 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-generi= c.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lis= p/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--g= eneric-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 ("/Us= ers/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/lis= p/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=3D\205\11\0\1A\207"= [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6= 963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\2= 07" [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-n= ame-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-sea= rch-load-path icon)))) (file-exists (and (stringp file) (file-readable-p fi= le)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p= ) (image-supported-file-p file) (propertize " " 'display (let ((props (appe= nd (let* ((height (and t (plist-get keywords :height)))) (if height (list := height (if (eq height 'line) (window-default-line-height) height)) nil)) (l= et* ((width (and t (plist-get keywords :width)))) (if width (list :width (i= f (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((r= otation (and t (plist-get keywords :rotation)))) (if rotation (list :rotati= on rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (i= f margin (list :margin margin) nil)) (list :ascent (if (plist-member keywor= ds :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-gener= ic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/li= sp/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=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs= /github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-genera= lizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/em= acs/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 (a= nd (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file= -exists (and (stringp file) (file-readable-p file)))) (and file-exists (dis= play-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p fi= le) (propertize " " 'display (let ((props (append (let* ((height (and t (pl= ist-get keywords :height)))) (if height (list :height (if (eq height 'line)= (window-default-line-height) height)) nil)) (let* ((width (and t (plist-ge= t keywords :width)))) (if width (list :width (if (eq width 'font) (default-= font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get ke= ywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((m= argin (and t (plist-get keywords :margin)))) (if margin (list :margin margi= n) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywo= rds :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) = nil)) cl-generic-define-method(icons--create nil ((_type (eql 'image)) icon key= words) nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file= -name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-s= earch-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 (ap= pend (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 :rota= tion rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) = (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keyw= ords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-imag= e file nil nil props)))))))) eval-buffer(# nil "/Users/gerd/emacs/github/igc/li= sp/emacs-lisp/icons.el" nil t) load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/i= cons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t) require(icons) eval-buffer(# nil "/Users/gerd/emacs/github/igc/li= sp/emacs-lisp/warnings.el" nil t) load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/w= arnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil = t) display-warning(bytecomp "Symbol=E2=80=99s function definition is void: a= dvice--cd*r" :error "*Compile-Log*") byte-compile--log-warning-for-byte-compile("Symbol=E2=80=99s function def= inition is void: advice--cd*r" 1 nil :error) byte-compile-log-warning("Symbol=E2=80=99s function definition is void: a= dvice--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 n= il (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[25= 7 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/gith= ub/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=3D\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=3D\203\205\0\2\242\321=3D\211\26\"\203\203\0\32= 2\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-eq= l-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left m= ethods (append (funcall '#[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/U= sers/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethas= h arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/ge= rd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg ar= gs))))) byte-compile-initial-macro-environment byte-compile-verbose byte-op= timize 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 byt= e-compile-preprocess byte-compile-top-level eval current-load-list byte-com= pile-free-assignments byte-compile-free-references byte-compile-const-varia= bles byte-compile-lexical-variables byte-compile-bound-variables byte-compi= le-function-environment overriding-plist-environment byte-compile--docstrin= gs 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=3D\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=3D\203\205\0= \2\242\321=3D\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\30= 7\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 :tes= t #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (geth= ash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cach= e-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\3= 00=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-li= sp/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-g= eneric.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-envir= onment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings b= yte-compile-warnings copy-alist nil make-hash-table :test equal macro t com= piled-function-p message "Function %s is already compiled" "provided" closu= re byte-compile--reify-function byte-compile-preprocess byte-compile-top-le= vel 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--outbu= ffer byte-compile-macro-environment lexical-binding byte-native-compiling b= yte-to-native-plist-environment] 16]) byte-compile((lambda (generic dispatches-left methods) (let ((method-cach= e (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply = (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-c= ache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (f= uncall '#[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/g= ithub/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic= -eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/i= gc/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=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/= lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--ge= neric-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/i= gc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Use= rs/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) cl--generic-make-next-function(#s(cl--generic icons--create ((2 #s(cl--ge= neric-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/U= sers/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/i= gc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer= cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--gen= eric-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic= .elc" . 6938)] #[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/= emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-g= eneralizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/ge= rd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\20= 7" [(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) ic= on (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 (pli= st-get keywords :width)))) (if width (list :width (if (eq width 'font) (def= ault-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-g= et 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-generi= c.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lis= p/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--g= eneric-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 ("/Us= ers/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/lis= p/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=3D\205\11\0\1A\207"= [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6= 963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\2= 07" [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-n= ame-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-sea= rch-load-path icon)))) (file-exists (and (stringp file) (file-readable-p fi= le)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p= ) (image-supported-file-p file) (propertize " " 'display (let ((props (appe= nd (let* ((height (and t (plist-get keywords :height)))) (if height (list := height (if (eq height 'line) (window-default-line-height) height)) nil)) (l= et* ((width (and t (plist-get keywords :width)))) (if width (list :width (i= f (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((r= otation (and t (plist-get keywords :rotation)))) (if rotation (list :rotati= on rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (i= f margin (list :margin margin) nil)) (list :ascent (if (plist-member keywor= ds :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-gener= ic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/li= sp/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=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs= /github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-genera= lizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/em= acs/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 (a= nd (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file= -exists (and (stringp file) (file-readable-p file)))) (and file-exists (dis= play-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p fi= le) (propertize " " 'display (let ((props (append (let* ((height (and t (pl= ist-get keywords :height)))) (if height (list :height (if (eq height 'line)= (window-default-line-height) height)) nil)) (let* ((width (and t (plist-ge= t keywords :width)))) (if width (list :width (if (eq width 'font) (default-= font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get ke= ywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((m= argin (and t (plist-get keywords :margin)))) (if margin (list :margin margi= n) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywo= rds :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) = nil)) cl-generic-define-method(icons--create nil ((_type (eql 'image)) icon key= words) nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file= -name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-s= earch-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 (ap= pend (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 :rota= tion rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) = (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keyw= ords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-imag= e file nil nil props)))))))) eval-buffer(# nil "/Users/gerd/emacs/github/igc/lis= p/emacs-lisp/icons.el" nil t) load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/i= cons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t) require(icons) eval-buffer(# nil "/Users/gerd/emacs/github/igc/li= sp/emacs-lisp/warnings.el" nil t) load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/w= arnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil = t) display-warning(bytecomp "Symbol=E2=80=99s function definition is void: a= dvice--cd*r" :error "*Compile-Log*") byte-compile--log-warning-for-byte-compile("Symbol=E2=80=99s function def= inition is void: advice--cd*r" 1 nil :error) byte-compile-log-warning("Symbol=E2=80=99s function definition is void: a= dvice--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 n= il (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[25= 7 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/gith= ub/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=3D\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=3D\203\205\0\2\242\321=3D\211\26\"\203\203\0\32= 2\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-eq= l-used)) method-cache) (cl--generic-cache-miss generic '0 dispatches-left m= ethods (append (funcall '#[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/U= sers/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethas= h arg cl--generic-eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/ge= rd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] nil)))) arg ar= gs))))) byte-compile-initial-macro-environment byte-compile-verbose byte-op= timize 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 byt= e-compile-preprocess byte-compile-top-level eval current-load-list byte-com= pile-free-assignments byte-compile-free-references byte-compile-const-varia= bles byte-compile-lexical-variables byte-compile-bound-variables byte-compi= le-function-environment overriding-plist-environment byte-compile--docstrin= gs 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=3D\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=3D\203\205\0= \2\242\321=3D\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\30= 7\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 :tes= t #'eql))) (lambda (arg &rest args) (let nil (apply (with-memoization (geth= ash (or (gethash arg cl--generic-eql-used)) method-cache) (cl--generic-cach= e-miss generic '0 dispatches-left methods (append (funcall '#[385 "\1\242\3= 00=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-li= sp/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-g= eneric.elc" . 6963)] nil)))) arg args))))) byte-compile-initial-macro-envir= onment byte-compile-verbose byte-optimize byte-compile-dynamic-docstrings b= yte-compile-warnings copy-alist nil make-hash-table :test equal macro t com= piled-function-p message "Function %s is already compiled" "provided" closu= re byte-compile--reify-function byte-compile-preprocess byte-compile-top-le= vel 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--outbu= ffer byte-compile-macro-environment lexical-binding byte-native-compiling b= yte-to-native-plist-environment] 16]) byte-compile((lambda (generic dispatches-left methods) (let ((method-cach= e (make-hash-table :test #'eql))) (lambda (arg &rest args) (let nil (apply = (with-memoization (gethash (or (gethash arg cl--generic-eql-used)) method-c= ache) (cl--generic-cache-miss generic '0 dispatches-left methods (append (f= uncall '#[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/g= ithub/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)] (gethash arg cl--generic= -eql-used)) (funcall '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/i= gc/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=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs/github/igc/= lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-generalizer cl--ge= neric-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/i= gc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Use= rs/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) cl--generic-make-next-function(#s(cl--generic icons--create ((2 #s(cl--ge= neric-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/U= sers/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/i= gc/lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer= cl--generic-eql-generalizer 100 #[385 "\300\2\301BB\207" [gethash (cl--gen= eric-eql-used)] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic= .elc" . 6938)] #[385 "\1\242\300=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/= emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-g= eneralizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/ge= rd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\300\20= 7" [(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) ic= on (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 (pli= st-get keywords :width)))) (if width (list :width (if (eq width 'font) (def= ault-font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-g= et 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-generi= c.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lis= p/emacs-lisp/cl-generic.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--g= eneric-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 ("/Us= ers/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/lis= p/emacs-lisp/cl-generic.elc" . 6938)] #[385 "\1\242\300=3D\205\11\0\1A\207"= [eql] 4 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6= 963)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\2= 07" [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-n= ame-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-sea= rch-load-path icon)))) (file-exists (and (stringp file) (file-readable-p fi= le)))) (and file-exists (display-images-p) (fboundp 'image-supported-file-p= ) (image-supported-file-p file) (propertize " " 'display (let ((props (appe= nd (let* ((height (and t (plist-get keywords :height)))) (if height (list := height (if (eq height 'line) (window-default-line-height) height)) nil)) (l= et* ((width (and t (plist-get keywords :width)))) (if width (list :width (i= f (eq width 'font) (default-font-width) width)) nil)) '(:scale 1) (let* ((r= otation (and t (plist-get keywords :rotation)))) (if rotation (list :rotati= on rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) (i= f margin (list :margin margin) nil)) (list :ascent (if (plist-member keywor= ds :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-gener= ic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/li= sp/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=3D\205\11\0\1A\207" [eql] 4 ("/Users/gerd/emacs= /github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]) #s(cl--generic-genera= lizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/em= acs/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 (a= nd (fboundp 'image-search-load-path) (image-search-load-path icon)))) (file= -exists (and (stringp file) (file-readable-p file)))) (and file-exists (dis= play-images-p) (fboundp 'image-supported-file-p) (image-supported-file-p fi= le) (propertize " " 'display (let ((props (append (let* ((height (and t (pl= ist-get keywords :height)))) (if height (list :height (if (eq height 'line)= (window-default-line-height) height)) nil)) (let* ((width (and t (plist-ge= t keywords :width)))) (if width (list :width (if (eq width 'font) (default-= font-width) width)) nil)) '(:scale 1) (let* ((rotation (and t (plist-get ke= ywords :rotation)))) (if rotation (list :rotation rotation) nil)) (let* ((m= argin (and t (plist-get keywords :margin)))) (if margin (list :margin margi= n) nil)) (list :ascent (if (plist-member keywords :ascent) (plist-get keywo= rds :ascent) 'center))))) (apply 'create-image file nil nil props))))))))) = nil)) cl-generic-define-method(icons--create nil ((_type (eql 'image)) icon key= words) nil (closure (t) (_type icon keywords) (progn (let* ((file (if (file= -name-absolute-p icon) icon (and (fboundp 'image-search-load-path) (image-s= earch-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 (ap= pend (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 :rota= tion rotation) nil)) (let* ((margin (and t (plist-get keywords :margin)))) = (if margin (list :margin margin) nil)) (list :ascent (if (plist-member keyw= ords :ascent) (plist-get keywords :ascent) 'center))))) (apply 'create-imag= e file nil nil props)))))))) eval-buffer(# nil "/Users/gerd/emacs/github/igc/lis= p/emacs-lisp/icons.el" nil t) load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/i= cons.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/icons.el" nil t) require(icons) eval-buffer(# nil "/Users/gerd/emacs/github/igc/lisp/emac= s-lisp/warnings.el" nil t) load-with-code-conversion("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/w= arnings.el" "/Users/gerd/emacs/github/igc/lisp/emacs-lisp/warnings.el" nil = t) display-warning(bytecomp "Symbol=E2=80=99s function definition is void: a= dvice--cd*r" :error "*Compile-Log*") byte-compile--log-warning-for-byte-compile("Symbol=E2=80=99s function def= inition is void: advice--cd*r" 1 nil :error) byte-compile-log-warning("Symbol=E2=80=99s function definition is void: a= dvice--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 n= il (error) handler-bind-1 make-closure #[0 "\300 \207" [V0] 1] (error) #[25= 7 "\300\11\240\207" [V0 byte-compile-form-stack] 3 ("/Users/gerd/emacs/gith= ub/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=3D\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=3D\203\205\0\2\242\321=3D\211\26\"\203\203\0\32= 2\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 me= thods (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-co= mpile-initial-macro-environment byte-compile-verbose byte-optimize byte-com= pile-dynamic-docstrings byte-compile-warnings copy-alist nil make-hash-tabl= e :test equal macro t compiled-function-p message "Function %s is already c= ompiled" "provided" closure byte-compile--reify-function byte-compile-prepr= ocess byte-compile-top-level eval current-load-list byte-compile-free-assig= nments byte-compile-free-references byte-compile-const-variables byte-compi= le-lexical-variables byte-compile-bound-variables byte-compile-function-env= ironment overriding-plist-environment byte-compile--docstrings byte-compile= --\#$ byte-compile--outbuffer byte-compile-macro-environment lexical-bindin= g 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=3D\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=3D\203\205\0= \2\242\321=3D\211\26\"\203\203\0\322\3!\262\3\210\314\323\3!\262\3\324\3\30= 7\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 :tes= t #'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-com= pile-verbose byte-optimize byte-compile-dynamic-docstrings byte-compile-war= nings 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 curren= t-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 by= te-compile--docstrings byte-compile--\#$ byte-compile--outbuffer byte-compi= le-macro-environment lexical-binding byte-native-compiling byte-to-native-p= list-environment] 16]) byte-compile((lambda (generic dispatches-left methods) (let ((method-cach= e (make-hash-table :test #'eql))) (lambda (arg0 arg &rest args) (let nil (a= pply (with-memoization (gethash (or (if arg (type-of arg) 'null)) method-ca= che) (cl--generic-cache-miss generic '1 dispatches-left methods (append (fu= ncall 'cl--generic-type-specializers (if arg (type-of arg) 'null)) (funcall= '#[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/c= l-generic.elc" . 6963)] nil)))) arg0 arg args)))))) cl--generic-get-dispatcher((1 #s(cl--generic-generalizer cl--generic-type= of-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-general= izer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-l= isp/cl-generic.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/g= ithub/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)] #[3= 85 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-gen= eric.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-typeof-gener= alizer 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-g= eneric.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/ig= c/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/gi= thub/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 ("/User= s/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)] #[38= 5 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-gene= ric.elc" . 6963)])) (1 #s(cl--generic-generalizer cl--generic-typeof-genera= lizer 10 #[385 "\300\2\301\4D\302BBB\207" [if type-of ('null)] 6 ("/Users/g= erd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6938)] cl--generic-t= ype-specializers) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[= 385 "\300\207" [nil] 3 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/cl-ge= neric.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc= /lisp/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer c= l--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Users/gerd/emacs/git= hub/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--gen= eric-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("/Us= ers/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-generalize= r 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-generi= c.elc" . 6938)] #[385 "\300\207" [(t)] 3 ("/Users/gerd/emacs/github/igc/lis= p/emacs-lisp/cl-generic.elc" . 6963)])) (0 #s(cl--generic-generalizer cl--g= eneric-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 ("/Us= ers/gerd/emacs/github/igc/lisp/emacs-lisp/cl-generic.elc" . 6963)]))) (#s(c= l--generic-method (t array t) nil nil #[771 "\1\1\4I\207" [] 6 ("/Users/ger= d/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-lis= p/seq.elc" . 1942)]) byte-code("\300\301\302\303#\210\304\305\306\305\307\310#\311#\210\312\30= 5\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 (s= equence 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 ar= ray) 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\20= 7" [] 5 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/seq.elc" . 1942)] se= q-length (sequence) "Return the number of elements in SEQUENCE.\n\n(fn SEQU= ENCE)" #[257 "G\207" [] 2 ("/Users/gerd/emacs/github/igc/lisp/emacs-lisp/se= q.elc" . 2034)]] 6) load("emacs-lisp/seq") load("loadup.el") --=-=-= Content-Type: text/plain 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 --=-=-=--