blob: 2c4a5a4116354794c331bc29c4023a86dd212536 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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))
|
