[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
(POP FOO) with (SETQ CAR T)
- To: (BUG LISP) at MIT-MC
- Subject: (POP FOO) with (SETQ CAR T)
- From: RWK at MIT-MC (Robert W. Kerns)
- Date: Wed, 13 Aug 80 18:13:00 GMT
- Original-date: 13 AUG 1980 1413-EDT
- Sent-by: BMT at MIT-MC
:SRCCOM L;*LISP 009,L;*LISP 010
The PUSHJ P,CADR that was there bombs if you do (SETQ CAR 'LIST CDR 'LIST).
I made it a little more careful about what it CARCDR'd by simply reversing
the order in which it checked for no second arg and for NIL/T second arg.
I think this is the logical order besides. However, I am burned out enough
that I may have blown it away totally.