diff --git a/common-lisp/main.lisp b/common-lisp/main.lisp new file mode 100644 index 000000000..2c4a5a411 --- /dev/null +++ b/common-lisp/main.lisp @@ -0,0 +1,15 @@ +(in-package #:cl-user) +(defpackage #:utils + (:documentation "Some utility functions and macros to wet my beak.") + (:use #:cl) + (:shadow #:type)) +(in-package #:utils) + +(defmacro type (name in out) + `(declaim (ftype (function ,in ,out) ,name))) + +(defmacro comment (&rest _forms) nil) + +(type add (int int) int) +(defun add (a b) + (+ a b))