slime/bin/tests/modules.slime

;; (define-module math
;;   :exports
;;   (pi tau pow sqrt)

;;   (define pi 3.1415)
;;   (define tau (* 2 pi))
;;   (define (pow a b) (** a b))
;;   (define (sqrt a) (** a 0.5)))

;; (assert (= math::pi 3.1415))
;; (assert (= math::tau (* 2 math::tau)))


(tdefine-module 'math
  :exports
  '(pi tau pow sqrt)

  '(define pi 3.1415)
  '(define tau (* 2 pi))
  '(define (pow a b) (** a b))
  '(define (sqrt a) (** a 0.5)))