6 lines
244 B
Plaintext
6 lines
244 B
Plaintext
;;;; A package whose slot types name its own classes, imported by
|
|
;;;; dyn-class-pkg.flan, which declares a class of the same bare name.
|
|
(defclass pt [x f64 y f64])
|
|
(defclass seg [a pt b (Option pt) tag])
|
|
(defn mk [] dyn (seg (pt 1 2) nil :t))
|