[Gcl-devel] Bug concerning symbol-function

[Martin RUBEY]

Hi

This turned up on the newsgroup, discussing the difference between #' and 
' and it turns out to be a bug in gcl:

(defun oddball(y)
  (setf (symbol-function 'oddball) (lambda (x) y))
  y)

(defun test(list)
  (mapcar #'oddball list))

(defun test2(list)
  (mapcar 'oddball list))

Martin

+invite02:/net/t1/rubey/.maxima/graphs$ gcl
GCL (GNU Common Lisp)  Version(2.5.0) Sun Nov 17 15:58:09 CET 2002
Licensed under GNU Library General Public License
Contains Enhancements by W. Schelter

>(load "tst.lisp")

Loading tst.lisp
Finished loading tst.lisp
T

>(test (list 1 2 3))

(1 2 3)

>(test2 (list 1 2 3))

(3 3 3)
***************** this should be (1 1 1) ***********************
>(bye)
+invite02:/net/t1/rubey/.maxima/graphs$ gcl
GCL (GNU Common Lisp)  Version(2.5.0) Sun Nov 17 15:58:09 CET 2002
Licensed under GNU Library General Public License
Contains Enhancements by W. Schelter

>(load "tst.o")

Loading tst.o
start address -T 0x8498b98 Finished loading tst.o
696

>(test (list 1 2 3))

(1 1 1)
***************** this should be (1 2 3) ***************************

>(test2 (list 1 2 3))

(1 1 1)