(defstruct person name age shoesize)

(defun older (p)
  (print "hello!!!") 
  (+ 1 (person-age p)))

; color!
(defun test ()
    (older 
     (make-person :name 'tim :age 50 :shoesize 11)))