(defun make-obj (typ farbe laenge) (list (list :typ typ ) (list :farbe farbe ) (list :laenge laenge))) (defun get-farbe (obj) (second (assoc :farbe obj))) (print (get-farbe (make-obj 'wuerfel 'rot 17)))