diff --git a/ansi-tests/defclass-02.lsp b/ansi-tests/defclass-02.lsp index 7c8451e75e64daaed52e55fcd8581a552ac3286f..b940ad9410b9ee4482923f794542382b0596b282 100644 --- a/ansi-tests/defclass-02.lsp +++ b/ansi-tests/defclass-02.lsp @@ -88,7 +88,7 @@ (map-slot-boundp* c2 '(a b c d)) (slot-value c1 'a) (slot-value c2 'a) - (eq (slot-makunbound c2 'a) c1) + (eq (slot-makunbound c2 'a) c2) (map-slot-boundp* c1 '(a b)) (map-slot-boundp* c2 '(a b c d)))) (nil nil) @@ -168,6 +168,8 @@ ;;; +;;; Show shadowing of slots by :allocation + (defclass class-0207a () ((a :allocation :class))) @@ -212,3 +214,4 @@ z t t t x y z) +