blob: 3522567ea0f7ef7ecfd1bb28aba6ad4bc48e4968 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(in-package #:cl-user)
(defpackage #:prelude
(:documentation "Supporting miscellaneous utility functions and macros.")
(:use #:cl)
(:shadow #:type)
(:export #:type #:comment))
(in-package #:prelude)
;; TODO: Add documentation to these macros.
(defmacro type (name in out)
`(declaim (ftype (function ,in ,out) ,name)))
(defmacro comment (&rest _forms) nil)
|
