Don't cons lists of numbers, jesus christ
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Tue, 05 Jul 2016 23:54:54 +0000 |
| parents |
209ecb9eeb25
|
| children |
be83cfc938fb
|
| branches/tags |
(none) |
| files |
examples/profile.lisp src/make-quickutils.lisp src/wam/vm.lisp |
Changes
--- 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))
--- 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)
--- 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))))