Skip to content
Snippets Groups Projects
Commit 63d1896f authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix warnings about destructive functions discarding their results

(sort an delete)
parent 0e3ab8bd
No related branches found
No related tags found
No related merge requests found
......@@ -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))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment