Make references able to hold a name
This commit is contained in:
parent
7639263bed
commit
3c8835eb7b
1 changed files with 2 additions and 1 deletions
|
@ -1,6 +1,7 @@
|
||||||
(in-package #:user-side-compiler)
|
(in-package #:user-side-compiler)
|
||||||
|
|
||||||
(defclass reference () ())
|
(defclass reference ()
|
||||||
|
((%name :accessor name :initarg :name)))
|
||||||
|
|
||||||
(defgeneric ref-constantp (reference) (:method (reference) nil))
|
(defgeneric ref-constantp (reference) (:method (reference) nil))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue