raptor

(write-line "Hello World")
(setf Diseases '(
              (disease1 ((name choroba1) (smiertelnosc 90) (objawy (ob1 ob2 ob3))) ) ;cos tam jeszcze daj
              (disease2 ((name choroba2) (smiertelnosc 50)) )
              ) 
      )
;(print (second(assoc 'disease1 Diseases)))
;(print (second(assoc 'objawy (second(assoc 'disease1 Diseases)) )) ) 

(defun disease-name (disease)
     (second (assoc 'name (second disease)))
    )

(defun get-names (diseases)
    (if (null diseases)   nil
        (cons (disease-name (first diseases))
              (get-names (cdr diseases))
        )
    )
)

(print (get-names Diseases))