From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 12 Apr 2003 05:31:43 +0000 (+0000)
Subject: r4452: Auto commit for Debian build
X-Git-Tag: debian-2.11.0-2~159
X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=c545afe8c9d710777fdd4f607bd53eb3501090cf

r4452: Auto commit for Debian build
---

diff --git a/mop.lisp b/mop.lisp
index 78712ca..6bdd843 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.45 2003/04/12 05:30:05 kevin Exp $
+;;;; $Id: mop.lisp,v 1.46 2003/04/12 05:31:43 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -117,7 +117,7 @@
 					     value)
       (when (and ,required (null value))
 	(error "hyperobject class slot ~A must have a value" name))
-      (list name value))
+      (list name `',value))
     #+(or allegro sbcl cmu scl)
     (declare (ignore slot-name required))
     )