Accept problem

[jbarnett@charming.nrtc.northrop.com]

A while ago, I sent the following question/problem to SLUG.  I got only one
response that confirmed that (1) yes, the problem exists and (2) it exists
on a machine that has just been cold booted.  From the lack of help, I
thought that maybe my msg got lost.  So I'm trying again:

If I evaluate
  (accept '((token-or-type (("None" . :none)) net:printer) :default :none))
I get the following on the terminal
  Enter a printer or None [default None]:
If I hit return, the value is the default object (last input) of type printer,
i.e., the specified and displayed default is not used.  In addition, evaluating
  (accept '((or (member :none) net:printer)) :default :none
	   :default-type '((member :none)))
produces the same problem -- the displayed default is None but the value is
a printer.  If I substitute another namespace type, e.g., net:host, for
net:printer, the same glitch occurs.  However, if I substitute integer, the
correct behavior results.  Any explanations and/or fixes would be greatly
appreciated.

Jeff Barnett