|
|
@@ -164,7 +164,7 @@ Note, by default, ~eqal~ will handle ~type-error~ by trying to switch the order
|
|
|
[[file:img/types.png]]
|
|
|
|
|
|
|
|
|
-** WORKING Atomic Types [1/3]
|
|
|
+** WORKING Atomic Types [2/3]
|
|
|
:PROPERTIES:
|
|
|
:ID: 9be57f5d-ed0e-4a7c-9c06-a4c647f6d56e
|
|
|
:END:
|
|
|
@@ -213,7 +213,8 @@ As an ~<atomic>~, ~<number>~ is rather simple, having only one slot, ~value~, re
|
|
|
(slot-value expression 'value))
|
|
|
#+END_SRC
|
|
|
|
|
|
-*** WORKING Variables
|
|
|
+*** DONE Variables
|
|
|
+CLOSED: [2019-01-16 Wed 16:13]
|
|
|
:PROPERTIES:
|
|
|
:ID: f5f656d0-6253-4c4c-8c50-6622d685eaa1
|
|
|
:END:
|
|
|
@@ -235,6 +236,10 @@ As an ~<atomic>~, ~<number>~ is rather simple, having only one slot, ~value~, re
|
|
|
(defmethod eqal ((expression-a <variable>) (expression-b <variable>))
|
|
|
(equalp (value expression-a)
|
|
|
(value expression-b)))
|
|
|
+
|
|
|
+ (defmethod to-sexp ((expression <variable>) &optional resolve-constants-p)
|
|
|
+ (declare (ignore resolve-constants-p))
|
|
|
+ (slot-value expression 'name))
|
|
|
#+END_SRC
|
|
|
|
|
|
*** WORKING Constants
|
