From ae129d52707e024feb2a71df1986adb44c56a30d Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 26 Apr 2003 15:02:35 +0000 Subject: [PATCH] Typo fix. --- ansi-tests/defclass-02.lsp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ansi-tests/defclass-02.lsp b/ansi-tests/defclass-02.lsp index 7c8451e7..b940ad94 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) + -- GitLab