Re: [Sbcl-devel] [patch] Thiemo's vector patch for hppa

[Nikodemus S. <nik...@ra...>]

On Tue, Dec 16, 2008 at 8:14 PM, Larry Valkama
<re...@us...> wrote:

> Following would solve it but I dont know what form to throw at sbcl to
> test those vops.

dynamic-extent.impure.lisp should do it, unless the relevant tests
have been disabled. The following works as well. TIME should report 0
bytes consed if the stack-allocation works.

(defun foo-vec ()
  (let ((vec (make-array 12 :element-type 'fixnum)))
    (declare (dynamic-extent vec))
    (foo vec)
    nil))

(defun foo (x) (assert (typep x '(simple-array fixnum (12)))))

(time (loop repeat 100000 do (foo-vec)))

Cheers,

 -- Nikodemus