From 49065c1d3ea8c056242eef7a3d9af2785d349625 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Wed, 7 May 2003 16:59:48 +0000
Subject: [PATCH] 	* src/pcl/slots-boot.lisp (ensure-accessor): Remove
 unmatched ).

---
 pcl/slots-boot.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcl/slots-boot.lisp b/pcl/slots-boot.lisp
index 2974f64cd..9ad86050a 100644
--- a/pcl/slots-boot.lisp
+++ b/pcl/slots-boot.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.21 2003/05/04 13:11:21 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.22 2003/05/07 16:59:48 gerd Exp $")
 ;;;
 
 (in-package :pcl)
@@ -107,7 +107,7 @@
 	  (reader (add-slot-missing-method gf slot-name 'slot-value))
 	  (boundp (add-slot-missing-method gf slot-name 'slot-boundp))
 	  (writer (add-slot-missing-method gf slot-name 'setf)))))
-      t)))
+      t))
 
 (defmacro accessor-slot-value (object slot-name)
   (assert (constantp slot-name))
-- 
GitLab