#FIG 3.2 Landscape Center Inches A4 100.00 Single -2 1200 2 2 4 0 1 0 7 0 0 -1 0.000 0 0 7 0 0 5 12900 9300 12900 300 300 300 300 9300 12900 9300 4 1 0 0 0 18 24 0.0000 4 285 3795 6600 900 D\351finition de fonction\001 4 0 0 100 0 18 20 0.0000 4 270 9975 1200 8700 Cette indentation est obligatoire, car les programmeurs Lisp ne regardent\001 4 0 0 100 0 18 20 0.0000 4 270 7695 1200 9045 pas les parenth\350ses. De plus, elle doit \352tre automatique.\001 4 0 0 100 0 18 20 0.0000 4 270 9060 1200 1500 L'utilisateur peut d\351finier des fonctions en utilisant la macro defun:\001 4 0 0 100 0 14 20 0.0000 4 225 3135 1200 2100 * (defun double (x)\001 4 0 0 100 0 14 20 0.0000 4 225 1980 1200 2400 (* 2 x))\001 4 0 0 100 0 14 20 0.0000 4 165 990 1200 3000 DOUBLE\001 4 0 0 100 0 14 20 0.0000 4 225 2145 1200 3300 * (double 10)\001 4 0 0 100 0 14 20 0.0000 4 180 330 1200 3900 20\001 4 0 0 100 0 14 20 0.0000 4 240 2310 1200 4200 * (double 3/2)\001 4 0 0 100 0 14 20 0.0000 4 180 165 1200 4800 3\001 4 0 0 100 0 14 20 0.0000 4 225 2310 1200 5100 * (double 1.5)\001 4 0 0 100 0 14 20 0.0000 4 180 495 1200 5700 3.0\001 4 0 0 100 0 14 20 0.0000 4 240 3465 1200 6000 * (defun my-gcd (x y)\001 4 0 0 100 0 14 20 0.0000 4 240 2475 1200 6300 (if (= x y)\001 4 0 0 100 0 14 20 0.0000 4 135 1485 1200 6600 x\001 4 0 0 100 0 14 20 0.0000 4 240 3135 1200 6900 (if (> x y)\001 4 0 0 100 0 14 20 0.0000 4 240 3960 1200 7200 (my-gcd y x)\001 4 0 0 100 0 14 20 0.0000 4 240 5445 1200 7500 (my-gcd x (- y x)))))\001 4 0 0 100 0 14 20 0.0000 4 165 990 1200 8100 MY-GCD\001 4 0 0 100 0 14 20 0.0000 4 180 330 1200 8400 * \001