1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(asdf:oos 'asdf:load-op :contextl)
(in-package :contextl-user)
(define-layered-class person1 ()
((name1 :initarg :name
:accessor person-name1)))
(defparameter *p*
(make-instance 'person1 :name "Dr. Jekyll"))
(assert (equal (person-name1 *p*) "Dr. Jekyll"))
(symbol-macrolet ((safe-special-symbol-progv t))
(handler-bind
((error (lambda (error)
(eval '(define-layered-class person1 ()
((name1 :initarg :name
:special t
:accessor person-name1))))
(assert (equal (person-name1 *p*) "Dr. Jekyll"))
(continue error))))
(dletf (((person-name1 *p*) "Mr. Hide"))
(assert (equal (person-name1 *p*) "Mr. Hide")))))
(assert (equal (person-name1 *p*) "Dr. Jekyll"))
(print :done)
|
