Re: choose-process-dialog problem

[bill@cambridge.apple.com (Bill St. Clair)]

>Welcome to Macintosh Common Lisp Version 2.0b1p3!
>? 
>;Loading "Macintosh-HD:ACL2.b1:appleevent-toolkit-b1:b1-appleevent-support.fasl"...
>? 
>;Loading "Macintosh-HD:ACL2.b1:appleevent-toolkit-b1:appleevent-toolkit.lisp"...
>> Error: Unrecognized Macintosh argument type TRAPS::STR32
>> While executing: FIND-ARG-MACTYPE
>> Type Command-. to abort.
>See the RestartsI menu item for further choices.
>1 > 
>
>
>There is some one that can give me some help ?

Daniel Pliske found had this problem, too. Here is the fix that
I sent to him:

Date: Tue, 26 May 1992 16:04:19 -0500
To: dpliske@gmuvax2.gmu.edu (Daniel B. Pliske)
From: bill@cambridge.apple.com (Bill St. Clair)
Subject: Re: choose-process-dialog problem
Cc: bug-mcl
X-Attachments: :hd:1547:find-arg-mactype-patch.fasl:

>I'm still having problems with (choose-process-dialog).
>I must be overlooking something obvious. Given the source patches
>for "interfaces;types.lisp", e.g.,
>
>(defrecord str32 
>  (length :unsigned-byte)
>  (contents (:array :unsigned-byte 32)))
>
>I've modified the (defmactype strxxx ...) forms as in the example that follows:
>
>(def-mactype :str32 (find-mactype (defrecord str32
>                                    (length :unsigned-byte)
>                                    (contents (:array :unsigned-byte 32)))))
>									
>This allows me to avoid the problems recognizing the str32 argument
>to a trap call while compiling "appleevent-toolkit.lisp",
>but I am now getting a bus error when I exit (choose-process-dialog)
>with "OK".
>
>Adding the (defrecord str32 ...) form as you suggested to the front of the
>file "b1-appleevent-support.lisp" solved my immediate problems, but I would
>rather solve the problem by patching "types.lisp" to avoid
>problems later.
>
>Am I applying the source patches to "interfaces;types.lisp" correctly?

You did everything correctly. To fix your problem, you can either apply
the enclosed patch (suggested), or change "STR32" to ":STR32" in the
definitions of the #_PPCBrowser & #_NewAliasMinimalFromFullPath traps
and then (reindex-interfaces). The patch will fix similar problems with
other trap definitions. Changing the trap definitions will fix only this
particular problem.


(This file must be converted with BinHex 4.0)

:'fCTEQ3YBA*R,@eKBh4jF'8YF'&dBfJZCQ&cE!"'390-3d0--J!!!!!$c3!!!!#
fc[m!!!%!!!!-!!!$`ImL,bm!!!)!!!!%""3I&4)!!!!!#!01VA*X)$`!!!!!)m!
!#!!!@%p1G3!'!4J!$2mB!!)*0@KN1N0$6$T`BA4MD'9c)("[Fh3J-Li`BM%kCQP
ZC#eKFQFYE@&MG(P`C5e`BA4MD#jXDA0`$Bi$3d0-'LT-6d&%58j(,8C*6%8Y8dp
98N0&,8C*6%8U""3I&4)!!!!!#!01VA*X)$`!!!!!H!4B6dlj!"!!!!!'!4J!%!%
B!!)*!d0$6!d$!!!,8d98,9""3dY"4d8%&"mZ+3!!!!!)!dkYFQ`Y$#d-)#i!"#"
m!!J!!%kYF*3J,J!-)(`!#!!!6Ue`P#!m!!!!!%kYF5`J2!!!!!"f!8lYG&3!$J%
B!"`"'!!Q!4J!-!%B!!3-%LTA39*1,8P',9*&4%9'58j&+J`C+PG"8NiY58BY8N9
%48C*6N8Y5d956N9-+K3IdEB!!%%%)J01VA"m!!3!"#d',38U,J!3ZHi!#'B',@h
qq!!-,3`Y"5)&)!ai#%kj!"!!!#e!!!5jlJ!%CJiJ"AJ%6VN!%!!!ZF"R3#!&H!4
1Z3!3!!!X!#!'8B"R"RB3YSCQ##Sm!!!!!'!JGKLfKQF'GL#fKQB)+M`!!!!!B!b
jlJ!%C`BU2!!!!!!L"5!-H!K1Z3!3!!#j`'C8)!9i"%kj!"!!!,R!CbSJ"AJ%6VN
!%!!!ZF"Q'#!&H!41Z3!3!!!L!#!-H!K1Z3!3!!"J"L!-B!)J$,R!CKDjlJ!8CaS
L2!!!!!!J&RJ)6VN!%!!!,&p-lJ"Jrqa1G5!-B2)!!!!!a)-!+!%B!$B!"`!m!4J
!4!!(!%S"'!"F!!F!AJ%B!'3!"`"`!!F!FJ%B!(J!"`"q!!F!J!%B!)`"'!#8!!F
!QJ%B!+)!"`#S!4J!X!!(!,B"'!$#!4J!dJ!(!0J!"`$D!4J!j!%B!2B!'!!D$"C
'58j%,9*&3dp54#e%490$8NP39%p5$!p"8P*"@5e03808@9"&,9!-%e*&3dp54#e
'589-4#e-48j(9%J0MJG,49PA6e*%$P*&3dp54#e*6P4&4d95$3-!!3j548028N3
Y6%p14dP19!d$!!%(8%p*6P4&8J`-4NP14#e03808@9"&$Bi,3dp068p1,8a*8e!
(8eP03Np-8!d$!!))5d9C9dp54&!-$%e"5d8Y5d9C9dp54)`34NP14#e"8NFY68&
$9&P343NR9@jbC@0[CfjTHQ9N)%eKBfPZG'pcD#"KFQGeE@9ZG#"dHA"P)(jc$3-
!!J9&8P*28J-!!`-!!rrj-J!!: