Support Common Lisp
Adding some Common Lisp here to get the party started! *cues music*
This commit is contained in:
parent
c010e6d6cf
commit
55860debe5
1 changed files with 15 additions and 0 deletions
15
common-lisp/main.lisp
Normal file
15
common-lisp/main.lisp
Normal file
|
@ -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))
|
Loading…
Reference in a new issue