X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=mop.lisp;h=2ee684bc1c14eaf43b4a28c7421f01c2e9d6e6f0;hb=8f16c3c77ca9185f0d6c1f82ddaf6ceab51ec97c;hp=01d1bc789f8faa13d371e449a3b662dd61a21f0c;hpb=c9f4e1cb8a24a55c6b78610336fd89f70d4236da;p=hyperobject.git

diff --git a/mop.lisp b/mop.lisp
index 01d1bc7..2ee684b 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.48 2003/04/12 14:31:52 kevin Exp $
+;;;; $Id: mop.lisp,v 1.49 2003/04/14 17:10:54 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 cmu scl) name
+						      #-(or scl) name
 						      dsds)
   #+allegro (declare (ignore name))
   (let* ((dsd (car dsds))