;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.58 2003/04/16 20:48:25 kevin Exp $
+;;;; $Id: mop.lisp,v 1.59 2003/04/16 20:50:00 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
(,the-slot-name (eql ',slot-name)))
(declare (ignore ,the-class))
(let ((v (,reader ,@keys)))
+ v
#+ignore
(setf (slot-value ,the-instance ,the-slot-name) v)))))