a1be2be82e9d

Add default to pbcopy's arg
[view raw] [browse files]
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))