2026-01-29 00:00:05 -08:00
|
|
|
;; -*- mode: lisp-data -*-
|
|
|
|
|
|
2026-02-28 13:22:34 -08:00
|
|
|
(put 'x 'condition-class t)
|
|
|
|
|
(put 'y 'condition-class 'x)
|
|
|
|
|
|
|
|
|
|
(print (condition-class-p 'x))
|
|
|
|
|
(print (condition-class-p 'y))
|
|
|
|
|
(print (condition-class-p 'z))
|
|
|
|
|
(print (condition-subclass-p 'y 'x))
|
|
|
|
|
(print (condition-subclass-p 'y t))
|
|
|
|
|
(print (condition-subclass-p 'x t))
|
|
|
|
|
(print (condition-subclass-p t t))
|
|
|
|
|
(print (condition-subclass-p 'z 'x))
|
|
|
|
|
(print (condition-subclass-p 'x 'y))
|
