Add some necessary ensure-printable protection
authorPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 6 Dec 2013 20:03:55 +0000 (6 21:03 +0100)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 6 Dec 2013 20:03:55 +0000 (6 21:03 +0100)
src/clfswm-internal.lisp
src/clfswm-query.lisp

index 19af51c..b322c38 100644 (file)
 (defgeneric child-name (child))
 
 (defmethod child-name ((child xlib:window))
-  (xlib:wm-name child))
+  (ensure-printable (xlib:wm-name child)))
 
 (defmethod child-name ((child frame))
   (frame-name child))
 (defgeneric child-fullname (child))
 
 (defmethod child-fullname ((child xlib:window))
-  (format nil "~A (~A)" (or (xlib:wm-name child) "?") (or (xlib:get-wm-class child) "?")))
+  (ensure-printable
+   (format nil "~A (~A)" (or (xlib:wm-name child) "?") (or (xlib:get-wm-class child) "?"))))
 
 (defmethod child-fullname ((child frame))
-  (aif (frame-name child)
-       (format nil "~A (Frame ~A)" it (frame-number child))
-       (format nil "Frame ~A" (frame-number child))))
+  (ensure-printable
+   (aif (frame-name child)
+        (format nil "~A (Frame ~A)" it (frame-number child))
+        (format nil "Frame ~A" (frame-number child)))))
 
 (defmethod child-fullname (child)
   (declare (ignore child))
index 0181374..d7a14cd 100644 (file)
 
 
 (defun add-char-in-query-string (char)
-  (setf *query-string* (concatenate 'string
-                                    (when (<= *query-pos* (length *query-string*))
-                                      (subseq *query-string* 0 *query-pos*))
-                                    (string char)
-                                    (when (< *query-pos* (length *query-string*))
-                                      (subseq *query-string* *query-pos*))))
+  (setf *query-string* (ensure-printable
+                        (concatenate 'string
+                                     (when (<= *query-pos* (length *query-string*))
+                                       (subseq *query-string* 0 *query-pos*))
+                                     (string char)
+                                     (when (< *query-pos* (length *query-string*))
+                                       (subseq *query-string* *query-pos*)))))
   (incf *query-pos*))