Post Code

One recurring complaint is that nobody talks about code on /prog/. So everyone write go and write some code, any code, that does something, anything, and post it. A small explanation wouldn't go amiss either.

>>137
Try running following snippet on SBCL:

(defun vecs2 (n)
  (let ((gs (loop as i from 0 below n
               collect (intern (format nil "~a" i)))))
    (labels ((r (xs)
               (if xs
                   `((lambda (,(car xs)) ,(r (cdr xs)))
                     (vector 1))
                   `(vector ,@gs))))
      (r gs))))

(eval (vecs2 2000))

Can you explain, why it's so slow?