68454 fugue88 (defun my-func () (if cond1 (return-from my-func (calc-a-return-value))) (if cond2 (return-from my-func (calc-a-different-one))) (if cond3 (return-from my-func (foo))) (bar)) ;; same as previous, if returning from a func 3432922408 #lispcafe TRUE 1 Serva (setq maxrow 2) (setq maxcol 4) (defun get-neighbors-info (entire-graph row column) (let ((neighbors-exist nil)) (if (> (- row 1) 0) (cons neighbors-exist T) (cons neighbors-exist F)) (if (> (+ row 1) maxrow) (cons neighbors-exist T) (cons neighbors-exist F)) (if (> (- col 1) 0) (cons neighbors-exist T) (cons neighbors-exist F)) (if (> (+ col 1) 0) (cons neighbors-exist T) (cons neighbors-exist F)))) (get-neighbors-info graph 0 0) 3432923348 #lispcafe TRUE