(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)))