(defpackage sneps-calculator (:shadow plus-button minus-button times-button divide-button mod-button) (:use common-lisp) (:export plus-button minus-button times-button divide-button mod-button) ) (in-package sneps-calculator) (defun plus-button (x y) (+ x y) ) (defun minus-button (x y) (- x y) ) (defun times-button (x y) (* x y) ) (defun divide-button (x y) (/ x y) ) (defun mod-button (x y) (mod x y) )