Subject: Re: fdefinition vs. symbol-function
From: (Rob Warnock)
Date: 1999/08/09
Newsgroups: comp.lang.lisp
Message-ID: <7om44o$>
Kent M Pitman  <> wrote:
| No hint of (setf foo) functions here.  And later it's even more clear,
| in a way that might prevent the use of #'(setf foo), actually.

Hmmm... Then does that mean that CMUCL is "broken"?

	* (defstruct person name age)
	* (fdefinition 'person-name)
	#<Closure Over Function "DEFUN STRUCTURE-SLOT-ACCESSOR" {9018961}>
	* (fdefinition '(setf person-name))
	#<Closure Over Function "DEFUN STRUCTURE-SLOT-SETTER" {90189B1}>
	* #'(setf person-name)
	#<Closure Over Function "DEFUN STRUCTURE-SLOT-SETTER" {90189B1}>


Rob Warnock, 8L-855
Applied Networking
Silicon Graphics, Inc.		Phone: 650-933-1673
1600 Amphitheatre Pkwy.		FAX: 650-933-0511
Mountain View, CA  94043	PP-ASEL-IA