An even briefer response:

    (defun greater10 (value code)
      (when (> value 10)
        (apply (car code)
               (cdr code))))

    (let ((msg "Hello"))
      (greater10 20 `(format t "~a~%" ,msg)))