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

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))