From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 14 Apr 2003 17:36:12 +0000 (+0000)
Subject: r4473: Auto commit for Debian build
X-Git-Tag: debian-2.11.0-2~155
X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=7c770e87ff4bec570e43970ffd79e4e30b3a39e5

r4473: Auto commit for Debian build
---

diff --git a/mop.lisp b/mop.lisp
index 2ee684b..cf431f0 100644
--- a/mop.lisp
+++ b/mop.lisp
@@ -11,7 +11,7 @@
 ;;;; in Text, HTML, and XML formats. This includes hyperlinking
 ;;;; capability and sub-objects.
 ;;;;
-;;;; $Id: mop.lisp,v 1.49 2003/04/14 17:10:54 kevin Exp $
+;;;; $Id: mop.lisp,v 1.50 2003/04/14 17:36:12 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -192,7 +192,7 @@
      t)))
 
 (defmethod compute-effective-slot-definition :around ((cl hyperobject-class)
-						      #-(or scl) name
+						      #-(or cmu scl) name
 						      dsds)
   #+allegro (declare (ignore name))
   (let* ((dsd (car dsds))