si.lisp

; version originale

(if (> 1 0)
    (print "it's correct")
    (print "broken"))


; définitions des traductions

(defmacro si (cond alors sinon)
  `(if ,cond ,alors ,sinon))

(defun imprime (valeur)
  (print valeur))


; version française

(si (> 1 0)
    (imprime "c'est correct")
    (imprime "cassé"))


(defun ét-on-à-le-drôït-aùx-àccènts ()
    (imprime "et oui!"))