quickie: allocating a temporary handle

[mcdougal@cs.uchicago.edu (Tom McDougal)]

I'm sure this is sooo simple, if you know it.  I have poured over the MCL
docs but can't quite get it.

I want to allocate a handle to pass to a trap, then dispose of it.

The following code works once, but crashes MCL if I try it a second time:

(rlet ((h (:TPrint :storage :handle)))
  (unwind-protect
    (progn (#_prOpen)
           (#_prJobDialog h))
    (#_prClose)))

Thanks in advance for your help.

--
Tom McDougal    University of Chicago Artificial Intelligence
     mail-to:mcdougal@cs.uchicago.edu
     http://cs-www.uchicago.edu/~mcdougal