[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: BUG-MACLISP at MIT-MC
- From: George J. Carrette <GJC at MIT-MC>
- Date: Thu, 23 Apr 81 00:20:00 GMT
- Original-date: 22 April 1981 19:20-EST
TYI to SFA is broken in in L and MACLISP.
(defun foo (a b c) (if (eq b 'which-operations) '(tyi) c))
(setq foo (sfa-create 'foo 0 'foo))
(tyi foo -1)
you will see foo entered with arguments (#SFA-|FOO|-666 TYI #47216).
What kind of garbage is this third argument?
Anyway, somehow TYI manages to return -1.