;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.54 2003/04/16 19:56:33 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
;;;;
`(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)
- (,reader ,@keys)))))
+ (let ((v (,reader ,@keys)))
+ v
+ #+ignore
+ (setf (slot-value ,the-instance ,the-slot-name) v)))))
+
#+lispworks
(defun intern-eql-specializer (slot)
`(eql ,slot))
-#+(or sbcl lispworks)
+#+(or sbcl cmu lispworks)
(defun ensure-lazy-reader (class-name slot-name reader &rest reader-keys)
(let ((keys nil)
(gf (ensure-generic-function 'slot-unbound)))