Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
2 changed files:
Changes:
src/hemlock/bit-screen.lisp
--- a/src/hemlock/bit-screen.lisp
+++ b/src/hemlock/bit-screen.lisp
@@ -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)))
src/hemlock/eval-server.lisp
--- a/src/hemlock/eval-server.lisp
+++ b/src/hemlock/eval-server.lisp
@@ -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))))