diff options
author | Thomas Atkinson <thomas@pinegrove.io> | 2017-05-25 14:03:58 +1000 |
---|---|---|
committer | Javier Olaechea <pirata@gmail.com> | 2017-05-24 23:03:58 -0500 |
commit | 3d21db8b6ce23502d755b3316731dd5b3b6fb490 (patch) | |
tree | c77bcad6bdededb582c9e3cc30217e8ad3261769 /selection.lisp | |
parent | bf2ab10b01f286dc4bd81ddfe6239638e91831bd (diff) |
Remove conditionals for non sbcl common lisp implementations (#351)
* Remove other compilers from bytes-to-string
* Remove other compilers from string-to-bytes
* Remove other compilers from utf8-to-string
* Remove other compilers from string-to-utf8
* Remove other compilers from directory-no-deref
* Remove clisp UNIX flavour getting hack
* Remove other compilers from read-line-from-sysfs
* Remove other compilers from execv
* Remove string-to-bytes
As string-to-bytes simply called sb-ext:string-to-octets after
removing other lisp implementations it could be replaced where it is
called with the straight call.
* Remove string-to-utf8
As string-to-utf8 simply called sb-ext:string-to-octet replace all
calls with the function.
* Remove workarounds.lisp
File only contains a workaround for a CLX bug in clisp. Entire file can
be removed.
* Remove non sbcl statements from pathnames.lisp
* Remove non sbcl conditions from manual.lisp
* Make sbcl the only implementation stumpwm will compile on.
* Remove non sbcl conditionals from load-stumpwm.lisp.in
* Remove non sbcl conditionals from make-image.lisp.in
* Remove conditionals from stumpwm.asd
* Remove ecl conditional from primitives.lisp
* Remove call-in-main-thread conditional
The call-in-main-thread conditional was added due to it only being supported on
sbcl. As sbcl is now the only supported lisp implementation we can
remove it as a conditional.
* Remove ccl implmentation of io-channel-ioport
* Remove conditionals from stumpwm.texi.in
* Remove non sbcl ioloop
Diffstat (limited to 'selection.lisp')
-rw-r--r-- | selection.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/selection.lisp b/selection.lisp index 69f736c..b8fed5a 100644 --- a/selection.lisp +++ b/selection.lisp @@ -56,7 +56,10 @@ (xlib:change-property requestor property (getf *x-selection* selection) :string 8 :mode :replace :transform #'xlib:char->card8)) (:utf8_string - (xlib:change-property requestor property (string-to-utf8 (getf *x-selection* selection)) target 8 :mode :replace)) + (xlib:change-property requestor property (sb-ext:string-to-octets + (getf *x-selection* selection) + :external-format :utf-8) + target 8 :mode :replace)) ;; we don't know how to handle anything else (t (setf property nil))) |