emojified.lisp
Β· 1.6 KiB Β· Common Lisp
Raw
(ql:quickload 'serapeum)
(ql:quickload 'nytpu.lisp-utils)
(defmacro π (name macro)
`(progn
(setf (macro-function ',name)
(macro-function ',macro))))
(defmacro βοΈ (name function)
`(serapeum:defalias ,name #',function))
(π π₯Ί defmethod)
(π π defun)
(π π serapeum:defconst)
(π π€ defclass)
(π π© defstruct)
(π π deftype)
(π π nytpu.lisp-utils.bind:bind)
(π π with-accessors)
(βοΈ π list)
(βοΈ β +)
(βοΈ βοΈ *)
(βοΈ β -)
(βοΈ π§ make-instance)
(π 0οΈβ£ 0.0)
(π π 0.5)
(π 1οΈβ£ 1.0)
(π 2οΈβ£ 2.0)
(π π’ () 'real)
(π© π΅
(π 0οΈβ£ :type π’)
(π 0οΈβ£ :type π’))
(βοΈ π― make-π΅)
(π€ γ°οΈ ()
((π :initarg :π
:accessor π
:type π’)
(π :initarg :π
:accessor π
:type π’)
(π :initarg :π
:accessor π
:type π’)))
(π γ°οΈ (π π π)
(π§ 'γ°οΈ :π π :π π :π π))
(π₯Ί π ((γ°οΈ γ°οΈ) β³)
(π ((π¦ π)
(π§ π)
(π¨ π))
γ°οΈ
(π ((β (β 1οΈβ£ β³)))
(β (βοΈ π¦ (βοΈ β β))
(βοΈ π§ (βοΈ β³ 2οΈβ£) β)
(βοΈ π¨ (βοΈ β³ β³))))))
(π₯Ί π ((γ°οΈ γ°οΈ))
(π ((π¦ π)
(π§ π)
(π¨ π))
γ°οΈ
(π (π― :π 0οΈβ£ :π π¦)
(π― :π π :π π§)
(π― :π 1οΈβ£ :π π¨))))
(π ((π‘ (γ°οΈ 1οΈβ£ 0οΈβ£ 2οΈβ£)))
(π (π π‘ π)
(π π‘)))
| 1 | (ql:quickload 'serapeum) |
| 2 | (ql:quickload 'nytpu.lisp-utils) |
| 3 | |
| 4 | (defmacro π (name macro) |
| 5 | `(progn |
| 6 | (setf (macro-function ',name) |
| 7 | (macro-function ',macro)))) |
| 8 | (defmacro βοΈ (name function) |
| 9 | `(serapeum:defalias ,name #',function)) |
| 10 | |
| 11 | (π π₯Ί defmethod) |
| 12 | (π π defun) |
| 13 | (π π serapeum:defconst) |
| 14 | (π π€ defclass) |
| 15 | (π π© defstruct) |
| 16 | (π π deftype) |
| 17 | (π π nytpu.lisp-utils.bind:bind) |
| 18 | (π π with-accessors) |
| 19 | (βοΈ π list) |
| 20 | (βοΈ β +) |
| 21 | (βοΈ βοΈ *) |
| 22 | (βοΈ β -) |
| 23 | (βοΈ π§ make-instance) |
| 24 | (π 0οΈβ£ 0.0) |
| 25 | (π π 0.5) |
| 26 | (π 1οΈβ£ 1.0) |
| 27 | (π 2οΈβ£ 2.0) |
| 28 | |
| 29 | (π π’ () 'real) |
| 30 | |
| 31 | (π© π΅ |
| 32 | (π 0οΈβ£ :type π’) |
| 33 | (π 0οΈβ£ :type π’)) |
| 34 | (βοΈ π― make-π΅) |
| 35 | |
| 36 | (π€ γ°οΈ () |
| 37 | ((π :initarg :π |
| 38 | :accessor π |
| 39 | :type π’) |
| 40 | (π :initarg :π |
| 41 | :accessor π |
| 42 | :type π’) |
| 43 | (π :initarg :π |
| 44 | :accessor π |
| 45 | :type π’))) |
| 46 | |
| 47 | (π γ°οΈ (π π π) |
| 48 | (π§ 'γ°οΈ :π π :π π :π π)) |
| 49 | |
| 50 | (π₯Ί π ((γ°οΈ γ°οΈ) β³) |
| 51 | (π ((π¦ π) |
| 52 | (π§ π) |
| 53 | (π¨ π)) |
| 54 | γ°οΈ |
| 55 | (π ((β (β 1οΈβ£ β³))) |
| 56 | (β (βοΈ π¦ (βοΈ β β)) |
| 57 | (βοΈ π§ (βοΈ β³ 2οΈβ£) β) |
| 58 | (βοΈ π¨ (βοΈ β³ β³)))))) |
| 59 | |
| 60 | (π₯Ί π ((γ°οΈ γ°οΈ)) |
| 61 | (π ((π¦ π) |
| 62 | (π§ π) |
| 63 | (π¨ π)) |
| 64 | γ°οΈ |
| 65 | (π (π― :π 0οΈβ£ :π π¦) |
| 66 | (π― :π π :π π§) |
| 67 | (π― :π 1οΈβ£ :π π¨)))) |
| 68 | |
| 69 | (π ((π‘ (γ°οΈ 1οΈβ£ 0οΈβ£ 2οΈβ£))) |
| 70 | (π (π π‘ π) |
| 71 | (π π‘))) |
| 72 |