Est-il rien de semblable à l'instruction de retour de C en Lisp?

Pour un Algol programmeur (ou l'un de ses nombreux dialectes, comme C, Java, perl, ...) chaque expression dans un LISP qui fonctionne comme un "return". Exemple:

{
  int x = 10;
  if( x == 10 )
    return 10 * 5;
  else
    return 5 * 19; 
}

En LISP cela peut être écrite comme:

;; direct version
(let ((x 10))
  (if (= x 10)
      (* 10 x)
      (* 5 x)))


;; if can be anywhere
(let ((x 10))
  (* x
     (if (= x 10) 
         10 
         5))))

Comme vous pouvez le remarquer LISP if est plus comme à l'opérateur ternaire ( expression ? consequent : alternative ) d'un C if.

MODIFIER

Maintenant que vous avez ajouté un exemple en utilisant return en C laquelle vous souhaitez traduire, je vois que vous n'êtes pas à l'aide de return pour retourner une valeur, mais comme une goto pour quitter la fonction tôt. Depuis goto est toujours considéré comme nuisible juste à l'aide de CL return-from n'est pas toujours la bonne réponse, même si ce serait certainement la meilleure traduction littérale.

Dans toute LISP, vous devez fournir une valeur de retour, même si vous n'allez pas l'utiliser (pour les fonctions appelées par leurs effets secondaires). Si vous n'allez pas utiliser la valeur que vous pouvez simplement utiliser nil:

(if (zerop x)
    nil
    (something-else x))

Si vous avez besoin de plus d'une instruction (pour les effets secondaires que vous utilisez let, progn ou échanger la totalité de la chose à un cond:

;; using let to bind as well as implicit progn
(if (zerop x)
    nil
    (let ((tmp (gethash x *h*)))
      (setf (gethash x *h*) (+ x 1))
      (something-else tmp)))

;; using progn
(if (zerop x)
    nil
    (progn
      (setf (gethash x *h*) (+ (gethash x *h*) 1))
      (something-else (gethash x *h*))))

;; using cond
(cond ((zerop x) nil)
      (t
       (setf (gethash x *h*) (+ (gethash x *h*) 1))
       (something-else (gethash x *h*))))

OriginalL'auteur Sylwester