Lisp_Objects and Environments are now bucket allocated

bin/pre.slime

@@ -375,17 +375,17 @@ by the key =from= and ends with the number defined in =to=."
   (when (< from to)
       (pair from (range :from (+ 1 from) :to to))))
 
-(define (range-while (:from 0) to)
+(define (range-while (:from 0) :to)
   :doc "Returns a sequence of numbers starting with the number defined
 by the key 'from' and ends with the number defined in 'to'."
   (define result (list (copy from)))
   (define head result)
-  (mutate from (increment from))
+  (set! from (increment from))
   (while (< from to)
     (begin
      (mutate head (pair (first head) (pair (copy from) nil)))
      (define head (rest head))
-     (mutate from (increment from))))
+     (set! from (increment from))))
   result)
 
 (define (map fun seq)