[ create a new paste ] login | about

Link: http://codepad.org/cL2xcGql    [ raw code | fork ]

Plain Text, pasted on Apr 22:
1
2
3
4
5
(defun f (n)
  (let ((v (make-array 4)))
    (replace v #(10 20 30))
    (setf (aref v 3) (* 3 3))
    v))


Create a new paste based on this one


Comments: