Plaster

text
(defmacro a () (make-array 10 :adjustable T :fill-pointer 2)) (defun b () (let ((a (a))) (values a (array-total-size a) (fill-pointer a) (adjustable-array-p a)))) ;; (load (compile-file "~/a.lisp")) ;; (b)