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