Skip to content

Instantly share code, notes, and snippets.

@kephas

kephas/si.lisp

Last active February 7, 2025 23:18
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save kephas/ebaef5f02167616b1ae3e00ea4b728e9 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save kephas/ebaef5f02167616b1ae3e00ea4b728e9 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. kephas revised this gist Feb 7, 2025. 1 changed file with 11 additions and 1 deletion.
    12 changes: 11 additions & 1 deletion si.lisp
    View file
    Original file line number Diff line number Diff line change
    @@ -1,15 +1,25 @@
    ; 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é"))
    (imprime "cassé"))


    (defun ét-on-à-le-drôït-aùx-àccènts ()
    (imprime "et oui!"))
  2. kephas created this gist Sep 23, 2024.
    15 changes: 15 additions & 0 deletions si.lisp
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,15 @@
    (if (> 1 0)
    (print "it's correct")
    (print "broken"))


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

    (defun imprime (valeur)
    (print valeur))


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