Add default to pbcopy's arg
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Wed, 01 Dec 2021 20:52:30 -0500 |
| parents |
1b8a1cc764c4
|
| children |
72fe2afc82c7
|
| branches/tags |
(none) |
| files |
src/shell.lisp |
Changes
--- a/src/shell.lisp Mon Nov 29 23:19:29 2021 -0500
+++ b/src/shell.lisp Wed Dec 01 20:52:30 2021 -0500
@@ -74,7 +74,7 @@
(defparameter *pbpaste-command* "pbpaste"
"The shell command to use for `pbpaste`. When run, this command should print the clipboard contents on standard output.")
-(defun pbcopy (object)
+(defun pbcopy (&optional (object *))
"`pbcopy` the `aesthetic-string` of `object`."
(sh *pbcopy-command* :input (format nil "~A" object) :wait nil)
(values))