Index: /branches/ide-1.0/ccl/hemlock/src/cocoa-hemlock.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/cocoa-hemlock.lisp	(revision 6595)
+++ /branches/ide-1.0/ccl/hemlock/src/cocoa-hemlock.lisp	(revision 6596)
@@ -171,2 +171,6 @@
               (mark-%kind end)
               (eq r (buffer-active-font-region buffer))))))
+
+;;; Clipboard
+(defun region-to-clipboard (region)
+  (string-to-clipboard (region-to-string region)))