Commit 081a2169 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

setup-big-mess-list: fix the problem with sort!

parent 8c4dfdc0
......@@ -172,8 +172,8 @@
;; allocate a large list of fixnums, and merge-sort the list so that
;; pointers in the list are maximally spread out over memory.
(defun setup-walk-list/mess ()
(setf *big-mess-list* (make-big-list 2000000))
(sort! *big-mess-list* #'<))
(setf *big-mess-list*
(sort! (make-big-list 2000000) #'<)))
(defun walk-list/mess ()
(let ((before 0)
Supports Markdown
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