r4451: Auto commit for Debian build

diff --git a/mop.lisp b/mop.lisp
index f10dd7388a9ef6b989412a2656a3b32432a7f7be..78712ca0af6a5eb7277958c54f5a2eb87e338d3f 100644 (file)
--- 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.44 2003/04/12 05:16:54 kevin Exp $
+;;;; $Id: mop.lisp,v 1.45 2003/04/12 05:30:05 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -217,7 +217,7 @@
         ia)))))
 
 (defmethod compute-effective-slot-definition :around ((cl hyperobject-class)
-                                                     #+(or lispworks allegro)
+                                                     #+(or lispworks allegro) name
                                                      dsds)
   #+allegro (declare (ignore name))
   (let* ((dsd (car dsds))