blob: bfe785cda9b75de241f2e6e9b666c10077379f9c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
# `def`
A stupid project to dull the pain of using a few of CL's built-in `def*` forms.
## `def:var`
Isn't it annoying that, if you want to leave a `defvar`-defined
special variable uninitialized at the top-level, then you're not
allowed to give that variable a docstring?
Sure, you can always
(setf (documentation *my-speical* 'variable) "oh good, docs")
but that's irritating too.
Enter `def:var`
(def:var *oh-so-special* :doc "It's oh-so-special")
Of course, you may still initialize the variable:
(def:var *oh-so-special* :init (random 10) :doc "It's oh-so-special")
## `def:const`
Even more obnoxious is the behavior of `defconst` whenever you `C-c
C-c` in SLIME. You nearly always find yourself invoking a `CONTINUE`
restart when, according to common sense, you should not have had to.
Well no more!
(def:const +its-ten+ 10 "It's just the number 10")
If you re-evaluate that form, then nothing annoying happens. Of
course, the form still expands out to `defconstant` so that a
condition signals whenever you try to `setf` the name.
## `def:class`
Admittedly, this one is less justfifed. There's already the extremely
elaborate `defclass/std` in the `defclass-std` system available
through quicklisp. But I think `defclass/std` is a little *too*
thorough and ends up getting in its own way.
The case for using a macro like this is that, well, most classes are
defined in a very repetitive way. This macro just saves you some
work:
(def:class pt ()
(x y z :prefix :type real :initform 0)
(uuid :ro :type integer :initform (make-uuid) :documentation "A unique ID")
:documentation "A point in real 3d space")
The above would expand out into
(DEFCLASS PT NIL
((X :ACCESSOR PT-X :INITARG :X :TYPE REAL :INITFORM 0)
(Y :ACCESSOR PT-Y :INITARG :Y :TYPE REAL :INITFORM 0)
(Z :ACCESSOR PT-Z :INITARG :Z :TYPE REAL :INITFORM 0)
(UUID :READER UUID :INITARG :UUID :TYPE INTEGER :INITFORM
(MAKE-UUID) :DOCUMENTATION "A unique ID"))
(:DOCUMENTATION "A point in real 3d space"))
See `def:class`'s docstring for details.
|