;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303#\210\300\304\302\303#\210\305\306\307\310\311DD\312\313\314\315\316&\207" [require slime nil t sly custom-declare-variable lispy-use-sly funcall function #[0 "\300\207" [nil] 1] "Whether to use SLY instead of SLIME." :group lispy :type boolean] 8) #@41 Eval STR as Common Lisp code. (fn STR) (defalias 'lispy--eval-lisp #[257 "\302r\303\304 !q\210 \203\305\306D!\202\307\310D!)\211@\311\232\203(\211A@\2023\312@\313\314#\315A@Q)\207" [deactivate-mark lispy-use-sly nil process-buffer lispy--cl-process sly-eval slynk:eval-and-grab-output slime-eval swank:eval-and-grab-output "" propertize face font-lock-string-face "\n\n"] 6 (#$ . 365)]) (defalias 'lispy--cl-process #[0 "\204\301\302!\210\203\303 \202\304 \206W\305\306 \203#\307 \210\202&\310 \210\2038\303 \211\262\203G\311!\202D\304 \211\262\203G\312\313 !\204N\314\315!\210\202&\316!\210\262\262\207" [lispy-use-sly require slime-repl sly-current-connection slime-current-connection nil current-window-configuration sly slime sly-mrepl--find-buffer get-buffer-window slime-output-buffer sit-for 0.2 set-window-configuration] 4]) #@64 Return a pretty string with arguments for SYMBOL. (fn SYMBOL) (defalias 'lispy--lisp-args #[257 "\301\302\303\304\305\203 \306\202\307\"!!\310#C\211<\2036\305\311\312\313\314#\301\315\316\317\"\320\321\322\nG\\\323\"P##\207\312\313\314#\207" [lispy-use-sly mapconcat prin1-to-string read lispy--eval-lisp format "(slynk-backend:arglist #'%s)" "(swank-backend:arglist #'%s)" " " "(%s %s)" propertize face lispy-face-hint identity mapcar #[257 "\300\227\301\302#\207" [propertize face lispy-face-req-nosel] 5 "\n\n(fn X)"] "\n" make-string 2 32] 12 (#$ . 1242)]) #@47 Return documentation for SYMBOL. (fn SYMBOL) (defalias 'lispy--lisp-describe #[257 "\300\301\302\303\304\"!!!\207" [read lispy--eval-lisp substring-no-properties format "(let ((x '%s))\n (or (if (boundp x)\n (documentation x 'variable)\n (documentation x 'function))\n \"undocumented\"))"] 7 (#$ . 1823)]) (defalias 'lispy-flatten--lisp #[0 "\300 \301!\302!\302\303\304\305@\"!!\211\242\306=\204\307\310@\"\207\311\312\3138\3148AA@E!\227\262@b\210@A|\210A\315\"\316!\207" [lispy--bounds-list lispy--string-dwim read lispy--eval-lisp format "(function-lambda-expression #'%S)" SB-INT:NAMED-LAMBDA error "Could not find the body of %S" prin1-to-string lambda 2 3 lispy--flatten-function lispy--insert] 9]) #@15 (fn SYMBOL) (defalias 'lispy-goto-symbol-lisp #[257 "\301 \210\203 \302!\207\303!\207" [lispy-use-sly lispy--cl-process sly-edit-definition slime-edit-definition] 3 (#$ . 2597)]) (provide 'le-lisp)