15 lines
369 B
Common Lisp
15 lines
369 B
Common Lisp
|
(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)
|