wip - full oop - added spec and selfspec to the class struct
Some checks failed
continuous-integration/drone/push Build is failing

This commit is contained in:
2024-03-06 07:51:29 +09:00
parent 7a15fbc3d1
commit 874d0c7962
4 changed files with 85 additions and 138 deletions

View File

@ -98,7 +98,7 @@ do { | k | set k 20; printf "k=%d\n" k; };
```
(defclass T
:: | A B C | ; class variables
:: | A B C | ## class variables
(printf "initializing....\n")
@ -142,7 +142,7 @@ do { | k | set k 20; printf "k=%d\n" k; };
(defun x(a b ... :: x y z)
|i|
; (printf "VA_COUNT(x) = %d\n" (va-count))
## (printf "VA_COUNT(x) = %d\n" (va-count))
(set x "xxx")
(set y "yyy")
(set z "zzz")