newton@cit-vax.Caltech.Edu (Mike Newton) (06/24/88)
In the last message I mentioned that I had a port of CLX that worked on KCL on Sun-3/s under Sun OS 3.4. Note that this was what was in Zermatt:>x11>clx> as of June 3. If i add the following patch to CLX, KCL core dumps: From RWS@zermatt.lcs.mit.edu Sat Jun 18 08:07:19 1988 Subject: EVENT-CASE is not binding event keyword arguments correctly To: Bill.Chiles@wb1.cs.cmu.edu, bug-clx@expo.lcs.mit.edu In-Reply-To: <8806172241.AA26413@EXPO.LCS.MIT.EDU> Here's a fix: *** /tmp/,RCSt1a10181 Sat Jun 18 10:54:24 1988 --- lib/CLX/input.l Sat Jun 18 10:55:00 1988 *************** *** 1074,1081 **** (code nil)) ((endp clause) code) (push `(,(if (cddar clause) ! (mapcar #'get-event-code (cdar clause)) ! (get-event-code (cadar clause))) ,(caar clause)) code))) (setq event-key (car keys)) --- 1074,1081 ---- (code nil)) ((endp clause) code) (push `(,(if (cddar clause) ! (cdar clause) ! (cadar clause)) ,(caar clause)) code))) (setq event-key (car keys)) Thus, the copy of CLX that was on zermatt as of 3 this morning does NOT work under KCL (at least on a sun....). I have not been able to figure out why this patch breaks KCL. - mike -- newton@csvax.caltech.edu amdahl!cit-vax!newton Caltech 256-80 818-356-6771 (afternoons,nights) Pasadena CA 91125 Beach Bums Anonymous, Pasadena President "Reality is a lie that hasn't been found out yet..."