HOME

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'button)
#@57 If non-nil, try and make sure the result can be `read'.
(defvar cl-print-readably nil (#$ . 426))
(defvar cl-print--number-table nil)
(defvar cl-print--currently-printing nil)
(byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\306\301\304\310\304\311%\210\306\301\304\312\304\313%\210\306\301\304\314\304\315%\210\316\317\320\321\322\323\324\325\326!&\207" [defalias cl-print-object cl-generic-define (object stream) nil "Dispatcher to print OBJECT on STREAM according to its type.\nYou can add methods to it to customize the output.\nBut if you just want to print something, don't call this directly:\ncall other entry points instead, such as `cl-prin1'.\n\n(fn OBJECT STREAM)" cl-generic-define-method #[514 "\300\"\207" [prin1] 5 "\n\n(fn OBJECT STREAM)"] ((object cons) stream) #[514 "
\211A\262\242\211\302>\203-:\203-A\204-\303
\304=\203!\305\202\"
\"\210\306@\"\202r\303\307\"\210\306
\"\210:\203`\203H\310\"\247\202K	>\204`\303\311\"\210\306\211A\262\242\"\210\2027\203n\303\312\"\210\306\"\210\303\313\"\207" [cl-print--number-table cl-print--currently-printing (\, quote \` \,@ \,\.) princ quote \' cl-print-object "(" gethash " " " . " ")"] 6 "\n\n(fn OBJECT STREAM)"] ((object vector) stream) #[514 "\300\301\"\210
G\302\211W\203)\211\211\302U\204\300\303\"\210\304H\"\266\211T\262
\202\266\300\305\"\207" [princ "[" 0 " " cl-print-object "]"] 8 "\n\n(fn OBJECT STREAM)"] ((object hash-table) stream) #[514 "\300\301\"\210\300\302!\"\210\300\303\"\210\300\304!\"\210\300\305\"\210\300\306!\"\210\300\307\310\311!\"\"\210\300\312\"\207" [princ "#<hash-table " hash-table-test " " hash-table-count "/" hash-table-size format " 0x%x" sxhash ">"] 7 "\n\n(fn OBJECT STREAM)"] define-button-type help-byte-code follow-link t action #[257 "\300\301\302\"!\207" [disassemble button-get byte-code-function] 5 "\n\n(fn BUTTON)"] help-echo purecopy "mouse-2, RET: disassemble this function"] 9)
#@224 Control how to print byte-compiled functions.
Acceptable values include:
- `static' to print the vector of constants.
- `disassemble' to print the disassembly of the code.
- nil to skip printing any details about the code.
(defvar cl-print-compiled nil (#$ . 2418))
#@187 Control how to print byte-compiled functions into buffers.
When the stream is a buffer, make the bytecode part of the output
into a button whose action shows the function's disassembly.
(defvar cl-print-compiled-button t (#$ . 2691))
(byte-code "\300\301\302\"\210\303\304\305\306\305\307%\210\303\304\310\311\312\313%\210\303\304\305\314\305\315%\210\303\304\316\317\312\320%\207" [autoload disassemble-1 "disass" cl-generic-define-method cl-print-object nil ((object compiled-function) stream) #[514 "\211\204\262
\303\304\"\210\305\306\"\211\203\307
\"\210\202!\303\310\"\210\210\311\312\313\"\"\211:\203K\211@
A\211\211;\262
\203I\211\303\314\"\210\307\"\266\266\210\315!\211\203\303\314\"\210\316
A@\242\317=\203{\320\321\322A@A@\323A@8\324A@8$D\202|
\"\210\210	\325=\203\255\303\326\327!r\211q\210\321\330\331\332\333!\334\"\323$\216\335c\210\336\330\"\210\337 *\262
\"\210\202\364\303\314\"\210\n\205\302\340
!\205\302r\211q\210`)\303\341\342\343!\"\"\210	\344=\203\337\303\314\"\210\316\323H\"\210\211\203\363r
q\210\345
`\346\347\350&\210)\210\303\351\"\207" [standard-output cl-print-compiled cl-print-compiled-button princ "#f(compiled-function " help-function-arglist preserve-names prin1 "()" help-split-fundoc documentation raw " " interactive-form cl-print-object byte-code interactive make-byte-code nil 2 3 disassemble generate-new-buffer " *temp*" 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] "\n" disassemble-1 buffer-string bufferp format "#<bytecode 0x%x>" sxhash static make-text-button :type help-byte-code byte-code-function ")"] 11 "\n\n(fn OBJECT STREAM)"] (:extra "nadvice") ((object compiled-function) stream) t #[771 "\300!\204	 \207\301\302\"\210\303\304!\203 \301\304!\"\210\301\305\"\210\306\211\307H\307H\262
\"\210\301\305\"\210\306\211\307H\310H\262
\"\210
\211\307H\311H\262
\211\203S\301\305\"\210\306
\"\210\210\301\312\"\207" [advice--p princ "#f(advice-wrapper " fboundp advice--where " " cl-print-object 2 1 3 ")"] 7 "\n\n(fn CL--CNM OBJECT STREAM)"] ((object cl-structure-object) stream) #[514 "\302\303\"\210\304\305!!\305
!>\204\306\307\310D\"\210\211\311H\302\305!>\204,\306\307\310D\"\210\312H\"\210\211G\313\211W\203t\211
H\302\314\"\210\302\305!	>\204U\306\307\315D\"\210
\312H\"\210\302\316\"\210\317TH\"\266\211T\262
\2025\266\302\320\"\207" [cl-struct-cl-structure-class-tags cl-struct-cl-slot-descriptor-tags princ "#s(" cl-find-class type-of signal wrong-type-argument cl-structure-class 4 1 0 " :" cl-slot-descriptor " " cl-print-object ")"] 13 "\n\n(fn OBJECT STREAM)"] (:around) (object stream) #[771 "\203C\303	\"\211\247\204 \202B\211\304V\203)\305\306\"\210\305
\"\210\305\306\"\202B\307[	#\210\305\306\"\210\305
[\"\210\305\310\"\210 \207
\n>\211\205U\305\306\"\210\305
AG\"\262
\206a
\nB )\207" [print-circle cl-print--number-table cl-print--currently-printing gethash 0 princ "#" puthash "="] 8 "\n\n(fn CL--CNM OBJECT STREAM)"]] 6)
(defvar cl-print--number-index nil)
#@21 

(fn OBJECT TABLE)
(defalias 'cl-print--find-sharing #[514 "
CC\211\242\205\215\211\242
\211\242A\240\210\242\301
!\204\211\211\247\204\211\211\203\211\2119\203+\302
!\204\211\303
\"\211\247\204\210\211\203HT\211\304[#\266\202\210\304\305#\210\306:\203q@A\211	\242B\240\210
	\242B\240\266\202\207;\204\207\307!\204\202\310!\203\207\211\"\210\210\210\210\202\207" [cl-print--number-index floatp intern-soft gethash puthash t #[514 "\211G\300\211W\205\211H\242B\240\266\211T\262
\202\207" [0] 8 "\n\n(fn STACK OBJECT)"] arrayp byte-code-function-p] 13 (#$ . 5785)])
#@15 

(fn OBJECT)
(defalias 'cl-print--preprocess #[257 "\302\303\304\305\306$\307\310!\203\310
!\210\202\311\312
\"\210))\207" [print-number-table cl-print--number-index make-hash-table :test eq :rehash-size 2.0 fboundp print--preprocess 0 cl-print--find-sharing] 6 (#$ . 6411)])
#@272 Print OBJECT on STREAM according to its type.
Output is further controlled by the variables
`cl-print-readably', `cl-print-compiled', along with output
variables for the standard printing functions.  See Info
node `(elisp)Output Variables'.

(fn OBJECT &optional STREAM)
(defalias 'cl-prin1 #[513 "\203	\303\"\207	\204\304\"\207\305!\304\")\207" [cl-print-readably print-circle cl-print--number-table prin1 cl-print-object cl-print--preprocess] 5 (#$ . 6703)])
#@90 Return a string containing the `cl-prin1'-printed representation of OBJECT.

(fn OBJECT)
(defalias 'cl-prin1-to-string #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311p\"\210\312 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 cl-prin1 buffer-string] 8 (#$ . 7182)])
(provide 'cl-print)