15 lines
397 B
Plaintext
15 lines
397 B
Plaintext
;; -*- mode: lisp-data -*-
|
|
|
|
(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))
|