Subject: Re: fdefinition vs. symbol-function
From: rpw3@rigden.engr.sgi.com (Rob Warnock)
Date: 1999/08/09
Newsgroups: comp.lang.lisp
Message-ID: <7om44o$3jmun@fido.engr.sgi.com>
Kent M Pitman  <pitman@world.std.com> 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)
	PERSON
	* (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

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