#!/usr/local/bin/sbcl --script
(defun make-obj (typ farbe laenge)
(list (list :typ typ )
(list :farbe farbe )
(list :laenge laenge)))

(defun get-farbe (obj)
(second (assoc :farbe obj)))

(get-farbe (make-obj 'wuerfel 'rot 17))