%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/emacs-lisp/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/cl-print.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@110 Depth of recursion within cl-print functions.
Compared to `print-level' to determine when to stop recursing.
(defvar cl-print--depth nil (#$ . 609))
(byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\300\310\302\310\311\304#\312#\210\306\310\304\311\304\313%\210\306\301\304\314\304\315%\210\306\310\304\316\304\317%\210\306\301\304\320\304\321%\210\306\310\304\322\304\323%\210\306\301\304\324\304\325%\210\326\327\330\331\332\333\334\335\336!&\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)"] cl-print-object-contents (_object _start _stream) "Dispatcher to print the contents of OBJECT on STREAM.\nPrint the contents starting with the item at START, without\ndelimiters.\n\n(fn OBJECT START STREAM)" #[771 "\300\301!\207" [error "Missing cl-print-object-contents method"] 5 "\n\n(fn OBJECT START STREAM)"] ((object cons) stream) #[514 "\203\306	!\203	V\203\307\310#\207\211A\262\242\311\n\203L\312>\203L:\203LA\204L\313\314\267\202@\315\202A\316\202A\"\210\317@\"\202\265\313\320\"\210\317\"\210:\203\243\203g\321\"\247\202r\f>\204\243\fB\322\204\243\313\323\"\210\306
!\203\206
V\203\223\317\211A\262\242\"\210\202\234\307
#\210\322\262\211T\262\202V\203\261\313\324\"\210\317\"\210\313\325\"\207" [cl-print--depth print-level print-quoted cl-print--number-table cl-print--currently-printing print-length natnump cl-print-insert-ellipsis 0 1 (\, quote function \` \,@ \,\.) princ #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quote 56 function 60)) \' "#'" cl-print-object "(" gethash nil " " " . " ")"] 8 "\n\n(fn OBJECT STREAM)"] ((object cons) _start stream) #[771 "\303:\203T\203\304\"\247\202	>\204T	B\305\204T\211\303U\204+\306\307\"\210\310\n!\2037\nV\203D\311\211A\262\242\"\210\202M\312\n#\210\305\262\211T\262\202\205a\306\313\"\210\311\"\207" [cl-print--number-table cl-print--currently-printing print-length 0 gethash nil princ " " natnump cl-print-object cl-print-insert-ellipsis " . "] 8 "\n\n(fn OBJECT START STREAM)"] ((object vector) stream) #[514 "\203\303	!\203	V\203\304\305#\207\306\307\"\210G\303\n!\203)\n^\202*\211\211\305\211W\203P\211\211\305U\204?\306\310\"\210\311H\"\266\211T\262\202,\266\211W\203c\306\310\"\210\304#\210\266\306\312\"\207" [cl-print--depth print-level print-length natnump cl-print-insert-ellipsis 0 princ "[" " " cl-print-object "]"] 10 "\n\n(fn OBJECT STREAM)"] ((object vector) start stream) #[771 "G\301!\203\\^\202\211\211W\2032\211U\204#\302\303\"\210\304H\"\210\211T\262\202W\205D\302\303\"\210\305#\207" [print-length natnump princ " " cl-print-object cl-print-insert-ellipsis] 10 "\n\n(fn OBJECT START 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 " %#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 (#$ . 4302))
#@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 (#$ . 4575))
(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\316\305\317\305\320%\210\303\304\305\321\305\322%\210\303\316\305\323\305\324%\210\303\304\325\326\312\327%\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\316A@\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\363rq\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 %#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 "\203\305	!\203	V\203\306\307#\207\310\311\"\210\312\313!!\313!\n>\204/\314\315\316D\"\210\211\317H\211G\305!\203@^\202A\211\310\313!\n>\204R\314\315\316D\"\210\320H\"\210\211\307\211W\203\232\211H\310\321\n\"\210\310\313!\f>\204{\314\315\322D\"\210\320H\n\"\210\310\323\n\"\210\324\nTH\n\"\266\211T\262\202[\266\211W\203\260\310\323\"\210\306#\210\266\310\325\"\207" [cl-print--depth print-level cl-struct-cl-structure-class-tags print-length cl-struct-cl-slot-descriptor-tags natnump cl-print-insert-ellipsis 0 princ "#s(" cl-find-class type-of signal wrong-type-argument cl-structure-class 4 1 " :" cl-slot-descriptor " " cl-print-object ")"] 15 "\n\n(fn OBJECT STREAM)"] cl-print-object-contents ((object cl-structure-object) start stream) #[771 "\303\304!!\304!>\204\305\306\307D\"\210\211\310H\211G\311	!\203'	\\^\202(\211\211W\203tHU\204?\312\313\"\210\312\314\"\210\312\304!\n>\204U\305\306\315D\"\210\316H\"\210\312\313\"\210\317	TH\"\266\211T\262\202)W\205\207\312\313\"\210\320#\207" [cl-struct-cl-structure-class-tags print-length cl-struct-cl-slot-descriptor-tags cl-find-class type-of signal wrong-type-argument cl-structure-class 4 natnump princ " " ":" cl-slot-descriptor 1 cl-print-object cl-print-insert-ellipsis] 14 "\n\n(fn OBJECT START STREAM)"] ((object string) stream) #[514 "\211\204\262\304\305\"\206\306\305\"G\307	!\203 	^\202!\211\203>\n\203>\307!\203>\nV\203>\310\305#\202\203G\311\312\"\210\211U\203`\313\203Y\314!\202Z\"\210\202\206\314\305#\315P\313\"\210\316!\203\205rq\210\317`\320Z`S	%\210)\210\205\307	!\205\225\321	\322\245]\305\304\305\"\203\242\305\202\247\306\305\"\306	#\203\270W\203\377W\203\377\304\n\"\211\203\360\311\323\n\"\210\311\n\"\210\311\323\n\"\210\311\n\"\210\311\323\n\"\210\324\n\"\210T\262\262\306	#\266\202\202\256W\203\311\323	\"\210\310	C\n#\210\266\311\325\"\207" [standard-output print-length cl-print--depth print-level text-properties-at 0 next-property-change natnump cl-print-insert-ellipsis princ "#(" prin1 substring-no-properties "..." bufferp cl-print-propertize-ellipsis 4 1 3 " " cl-print-object ")"] 14 "\n\n(fn OBJECT STREAM)"] ((object string) start stream) #[771 "G:\204;\301!\203\\^\202\211\302#\303!\304\305GS#\306!\210W\2056\307#\266\204\202\303\310\301!\205G\305\311\245]\312@\313	#\203[W\203\254W\203\254\314\n\"\211\203\235\203u\315\262\202{\306\316	\"\210\306	\"\210\306\316	\"\210\306	\"\210\306\316	\"\210\317	\"\210T\262\262\313	#\266\202\202QW\205\301\306\316\"\210\307	C	#\266\205\207" [print-length natnump substring-no-properties prin1-to-string substring 1 princ cl-print-insert-ellipsis t 3 0 next-property-change text-properties-at nil " " cl-print-object] 14 "\n\n(fn OBJECT START STREAM)"] (:around) (object stream) #[771 "\203	T\202\n\304	\203R\305\n\"\211\247\204 \202M\211\306V\2034\307\310\"\210\307\"\210\307\310\"\202M\311[\n#\210\307\310\"\210\307[\"\210\307\312\"\210 \262\202p>\211\205d\307\310\"\210\307AG\"\262\206pB ))\207" [cl-print--depth print-circle cl-print--number-table cl-print--currently-printing 1 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\330\211\242\211\242A\240\210\242\301!\204\324\211\247\204\324\211\203\324\2119\203+\302!\204\324\303\"\211\247\204\323\211\203HT\211\304[#\266\202\323\304\305#\210\306:\203q@A\211	\242B\240\210	\242B\240\266\202\322;\203\301G\307\310\"\203\203\310\202\207\311\310\"\211\205\221\311#\203\274W\203\274\307\"\211\203\255	\242B\240\210\262\311#\266\202\202\221\266\202\322\312!\204\315\313!\203\322\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)"] text-properties-at 0 next-property-change arrayp byte-code-function-p] 14 (#$ . 10251)])
#@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 (#$ . 11097)])
#@378 Print "..." to STREAM with the `cl-print-ellipsis' text property.
Save state in the text property in order to print the elided part
of OBJECT later.  START should be 0 if the whole OBJECT is being
elided, otherwise it should be an index or other pointer into the
internals of OBJECT which can be passed to
`cl-print-object-contents' at a future time.

(fn OBJECT START STREAM)
(defalias 'cl-print-insert-ellipsis #[771 "\211\204\262\301!\205r\211q\210`)\302\303\"\210\211\205)rq\210\304`%)\207" [standard-output bufferp princ "..." cl-print-propertize-ellipsis] 10 (#$ . 11390)])
#@186 Add the `cl-print-ellipsis' property between BEG and END.
STREAM should be a buffer.  OBJECT and START are as described in
`cl-print-insert-ellipsis'.

(fn OBJECT START BEG END STREAM)
(defalias 'cl-print-propertize-ellipsis #[1285 "	Frq\210\302\303%)\207" [cl-print--number-table cl-print--currently-printing put-text-property cl-print-ellipsis] 12 (#$ . 11992)])
#@183 Print the expansion of an ellipsis to STREAM.
VALUE should be the value of the `cl-print-ellipsis' text property
which was attached to the ellipsis by `cl-prin1'.

(fn VALUE STREAM)
(defalias 'cl-print-expand-ellipsis #[514 "\304@A@\3058\3058\3068@=\203\"\210A\211\307\232\203/\310\"\2025\311#,\207" [cl-print--currently-printing print-number-table cl-print--number-table cl-print--depth 1 2 3 0 cl-print-object cl-print-object-contents] 9 (#$ . 12373)])
#@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\3041#	\204\305\"\202!\306!\305\")0\207\307\310\"\210\311\207" [cl-print-readably print-circle cl-print--number-table prin1 (debug error) cl-print-object cl-print--preprocess message "cl-prin1: %S" nil] 6 (#$ . 12861)])
#@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 (#$ . 13415)])
#@734 Return a string containing a printed representation of VALUE.
Attempt to get the length of the returned string under LIMIT
characters with appropriate settings of `print-level' and
`print-length.'  Use PRINT-FUNCTION to print, which should take
the arguments VALUE and STREAM and which should respect
`print-length' and `print-level'.  LIMIT may be nil or zero in
which case PRINT-FUNCTION will be called with `print-level' and
`print-length' bound to nil.

Use this function with `cl-prin1' to print an object,
abbreviating it with ellipses to fit within a size limit.  Use
this function with `cl-prin1-expand-ellipsis' to expand an
ellipsis, abbreviating the expansion to stay within a size
limit.

(fn PRINT-FUNCTION VALUE LIMIT)
(defalias 'cl-print-to-string-with-limit #[771 "\302!\205\211\303U?\205\211\262\211\205\211\304^\211\205#\305\306\307!!^\211\205/\310\306	\245!]\311\312!r\211q\210\313\303\314\315\316!\317\"\320$\216\3212\200\322 \210p\"\210deZ\203a\211W\204a	\320X\203g\323\321\324 \"\210\211\245\310	\320Z^]	Z_Z\266\202F*\262*\207" [print-length print-level natnump 0 50 8 truncate log 1 generate-new-buffer " *temp*" make-byte-code "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 done erase-buffer throw buffer-string] 11 (#$ . 13791)])
(provide 'cl-print)

Zerion Mini Shell 1.0