Some thoughts about raising the profile of Lisp(liam-on-linux.livejournal.com)

    (let ((x (foo :a 1 :b 2)))
      (princ x))

    function pythag2(a, b) {
      if (a <= 0 || b <= 0) {
        throw MathDomainException("Sides of a right triangle must be positive in length.")
      }
      const aSquared = pow(a, 2)
      const bSquared = pow(b, 2)
      return sqrt(aSquared + bSquared)
    }

    function pythag2(a, b)
      if a <= 0 or b <= 0 do
        raise MathDomainException.new("Sides of a right triangle must be positive in length.")
      end
      const aSquared = pow(a, 2)
      const bSquared = pow(b, 2)
      return sqrt(aSquared + bSquared)
    end

    square = pow 2

    pythag2 a b =
      if a <= 0 || b <= 0
      then (MkMathDomainError "Sides of a right triangle must be positive in length.")
      else
        let aSquared = square x
            bSquared = square x
        in sqrt (aSquared + bSquared)

    (defun pythag2 (a b)
      (if (or (<= a 0) (<= b 0))
        (error 'math-domain-error
          :message "Sides of a right triangle must be positive in length.")
        (let ((a-squared (pow 2 x))
              (b-squared (pow 2 x)))
          (sqrt (+ a-squared b-squared)))))