;;;; 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.56 2003/04/16 20:11:46 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
(,the-slot-name (eql ',slot-name)))
(declare (ignore ,the-class))
(setf (slot-value ,the-instance ,the-slot-name)
- (,reader ,@keys)))))
+ (funcall ',reader ,@keys)))))
#+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)))