r5227: *** empty log message ***

diff --git a/attrib-class.lisp b/attrib-class.lisp
index a76e9913ad3e7092a11b5fac05548d99c06592f1..26a645a6248dc1b7a65ca179de96de5d89968a78 100644 (file)
--- 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 4747f6aab10111bb961489831e2a2235be3b5d3a..77922d151f8bdc289214df12781fcb48f30bfe79 100644 (file)
--- 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 aa6ea3b47d404ec812a4f52e761cf00db87d2519..2c944aa508f3048bebf26a7eca4cc03be3a52c75 100644 (file)
--- 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))