From c8d30e413138f2463ba99a531df2c301cadb206a Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 1 Jul 2003 22:16:40 +0000
Subject: [PATCH] r5227: *** empty log message ***

---
 attrib-class.lisp | 4 ++--
 console.lisp      | 4 ++--
 tests.lisp        | 6 ++++--
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/attrib-class.lisp b/attrib-class.lisp
index a76e991..26a645a 100644
--- a/attrib-class.lisp
+++ b/attrib-class.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: attrib-class.lisp,v 1.15 2003/06/25 18:08:09 kevin Exp $
+;;;; $Id: attrib-class.lisp,v 1.16 2003/07/01 22:16:40 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -50,7 +50,7 @@ on example from AMOP"))
   (declare (ignore initargs))
   (kmr-mop:find-class 'attributes-esd))
 
-(defmethod kmr-mop:compute-effective-slot-definition :around
+(defmethod kmr-mop:compute-effective-slot-definition
     ((cl attributes-class) #+kmr-normal-cesd name dsds)
   #+kmr-normal-cesd (declare (ignore name))
   (let ((esd (call-next-method)))
diff --git a/console.lisp b/console.lisp
index 4747f6a..77922d1 100644
--- a/console.lisp
+++ b/console.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: console.lisp,v 1.2 2003/06/25 20:13:36 kevin Exp $
+;;;; $Id: console.lisp,v 1.3 2003/07/01 22:16:40 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and by onShore Development, Inc.
@@ -27,7 +27,7 @@
   "Format output to console"
   (when *console-msgs*
     (setq template (concatenate 'string "~&;; " template "~%"))
-    (apply #'format t template args))))
+    (apply #'format t template args)))
 
 (defun cmsg-c (condition template &rest args)
   "Push CONDITION keywords into *console-msgs-types* to print console msgs
diff --git a/tests.lisp b/tests.lisp
index aa6ea3b..2c944aa 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: tests.lisp,v 1.20 2003/06/25 19:38:26 kevin Exp $
+;;;; $Id: tests.lisp,v 1.21 2003/07/01 22:16:40 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -192,7 +192,9 @@
   (defclass credit-rating ()
     ((level :attributes (date-set time-set))
      (id :attributes (person-setting)))
-    (:metaclass attributes-class))
+    (:metaclass attributes-class)
+    #+lispworks (:optimize-slot-access nil)
+    )
   
   (defclass monitored-credit-rating (credit-rating)
     ((level :attributes (last-checked interval date-set))
-- 
2.34.1