[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
What *is* this total horse-shit?
- To: BUG-LISP at MIT-MC
- Subject: What *is* this total horse-shit?
- From: George J. Carrette <GJC at MIT-MC>
- Date: Mon, 20 Jul 81 03:17:00 GMT
- Original-date: 19 July 1981 23:17-EDT
(selectq x (y z)) ==>
(SETQ |NumP..1| (MEMQ (TYPEP X) '(FIXNUM FLONUM)))
(COND ((AND (NOT |NumP..1|) (EQ X Y)) Z)))
Worse is (selectq x ((3 y) z)) ==>
(SETQ |NumP..3| (MEMQ (TYPEP X) '(FIXNUM FLONUM)))
(COND ((OR (AND |NumP..3| (= X 3)) (AND (NOT |NumP..3|) (EQ X Y))) Z)))
 The code is broken, screwing lots of people. Please test these things.
 Since when does maclisp support the use of EQ on FIXNUMs?
SELECTQ is defined to use EQ is it not? If somebody wants a
selector in maclisp to work on both atoms and numbers then
they can define one to use EQUAL.