Commit 63d1896f authored by Raymond Toy's avatar Raymond Toy

Fix warnings about destructive functions discarding their results

(sort an delete)
parent 0e3ab8bd
......@@ -1581,10 +1581,11 @@
;; Probably shoulds insertion sort them, but I'm lame.
;;
(xlib:with-state (xparent)
(sort affected-windows #'<
:key #'(lambda (window)
(xlib:drawable-y
(bitmap-hunk-xwindow (window-hunk window))))))
(setf affected-windows
(sort affected-windows #'<
:key #'(lambda (window)
(xlib:drawable-y
(bitmap-hunk-xwindow (window-hunk window)))))))
(let ((start 0))
(declare (fixnum start))
(do ((windows affected-windows (cdr windows)))
......
......@@ -223,7 +223,7 @@
(find-if-not #'null array
:from-end t
:end current)))))
(delete nil array)
(setf array (delete nil array))
(setf (server-info-error-index server)
(position current array))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment