gistfile1.txt

(defun blah ()
  (let ((fname 'blah))
    (returner))
  1)
(blah)

(defvar fname nil)
(setf fname 'something)

(defmacro returner ()
  `(return-from ,(symbol-value 'fname) nil))

(eval-when (:compile-toplevel :load-toplevel :execute)
  (import 'com.informatimago.common-lisp.lisp-sexp.source-form:parse-body))

(defmacro define-function-with-returner (name (&rest lambda-list) &body body)
  (multiple-value-bind (docstrings declarations body) (parse-body :lambda body)
    `(defun ,name ,lambda-list
       ,docstrings
       ,declarations
       (macrolet ((returner () `(return-from ,',name nil)))
         ,@body))))


(define-function-with-returner blah ()
  (returner)
  1)

(blah)
; --> nil