LISP 将字符串写入系统剪切板 - 代码示例

以下是一个将字符串写入系统剪切板的 LISP 代码示例：

(defun write-to-clipboard (text)
  (setq cmd (format nil "echo 'a | pbcopy" text))
  (sb-ext:run-program "/bin/sh" (list "-c" cmd)))

(write-to-clipboard 'Hello, World!')

这段代码使用了 sb-ext:run-program 函数来执行 shell 命令，将字符串通过 echo 命令写入到系统剪切板中。在这个例子中，字符串 'Hello, World!' 被写入到剪切板中。请注意，这段代码在 MacOS 系统上使用了 pbcopy 命令，如果你使用的是其他操作系统，请将 pbcopy 替换为相应的命令。