;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.56 2003/04/16 20:11:46 kevin Exp $
+;;;; $Id: mop.lisp,v 1.57 2003/04/16 20:20:27 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
`(defmethod slot-unbound (,the-class (,the-instance ,class)
(,the-slot-name (eql ',slot-name)))
(declare (ignore ,the-class))
- (setf (slot-value ,the-instance ,the-slot-name)
- (funcall ',reader ,@keys)))))
+ (let ((v (,reader ,@keys)))
+ (setf (slot-value ,the-instance ,the-slot-name) v)))))
+
#+lispworks
(defun intern-eql-specializer (slot)