Greetings, and thanks! Robert Boyer <[EMAIL PROTECTED]> writes:
> It is probably a bug in GCL 2.7.0, in 'setf', that > Agreed, the form below should throw an error: > (setf (symbol-function 'foo) '(lambda (x) x)) > what you want here is (setf (symbol-function 'foo) (lambda (x) x)) -- is this acceptable? functions are not lists anymore in ansi, hence function-lambda-expression. I'll try to plug the above hole in fset. I had not planned on backward compatibility in this particular regard -- is that necessary in the cltl1 image? Would anyone at your site feel comfortable if cvs write access were granted for the sole purpose of adding ansi-tests illustrating such bugs to the suite? This is the easiest way to make sure that fixed bugs are not reintroduced later. Take care, > leaves us in a state where > > (fboundp 'foo) is T > > but > > (functionp (symbol-function 'foo)) is NIL. > > In other words, (setf (symbol-function ...) ...) should store a function > object, as does, for example, 'defun', at least for functions. > > Bob > > ------------------------------------------------------------------------------- > > >From the ANSI, on symbol-function: > > If the symbol is not globally defined as either a macro or a special > operator, and if the symbol is fbound, a function object is returned. > > > -- Camm Maguire [EMAIL PROTECTED] ========================================================================== "The earth is but one country, and mankind its citizens." -- Baha'u'llah _______________________________________________ Gcl-devel mailing list Gcl-devel@gnu.org http://lists.gnu.org/mailman/listinfo/gcl-devel
