# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1467762894 0
# Node ID a3466a551136144148b28940d134a5a172d21824
# Parent  209ecb9eeb253a6b137e0bb54f1e29b3c8a77632
Don't cons lists of numbers, jesus christ

diff -r 209ecb9eeb25 -r a3466a551136 examples/profile.lisp
--- a/examples/profile.lisp	Tue Jul 05 23:37:14 2016 +0000
+++ b/examples/profile.lisp	Tue Jul 05 23:54:54 2016 +0000
@@ -24,6 +24,7 @@
   (sb-sprof:profile-call-counts "BONES.QUICKUTILS")
 
   (sb-sprof:with-profiling (:max-samples 5000
+                            :mode :alloc
                             :sample-interval 0.0005
                             :loop nil)
     (bones.wam::depth-first-search :exhaust t))
diff -r 209ecb9eeb25 -r a3466a551136 src/make-quickutils.lisp
--- a/src/make-quickutils.lisp	Tue Jul 05 23:37:14 2016 +0000
+++ b/src/make-quickutils.lisp	Tue Jul 05 23:54:54 2016 +0000
@@ -17,7 +17,6 @@
                :alist-to-hash-table
                :map-tree
                :weave
-               :range
                :alist-plist
                :equivalence-classes
                :map-product)
diff -r 209ecb9eeb25 -r a3466a551136 src/wam/vm.lisp
--- a/src/wam/vm.lisp	Tue Jul 05 23:37:14 2016 +0000
+++ b/src/wam/vm.lisp	Tue Jul 05 23:54:54 2016 +0000
@@ -719,9 +719,9 @@
                 (destructuring-bind (functor . arity)
                     (wam-functor-lookup wam (cell-value cell))
                   (list* functor
-                         (mapcar #'recur
-                                 (range (+ address 1)
-                                        (+ address arity 1))))))
+                         (loop :for addr
+                               :from (+ address 1) :below (+ address arity 1)
+                               :collect (recur addr)))))
                (t (error "What to heck is this?"))))))
       (mapcar #'recur addresses))))