# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1638409950 18000
# Node ID a1be2be82e9db4dfc913f49ec3cb24afa17abdcc
# Parent  1b8a1cc764c4dbe604b1225593e8ab2ed5e13c84
Add default to pbcopy's arg

diff -r 1b8a1cc764c4 -r a1be2be82e9d src/shell.lisp
--- 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))