> * <jbyswo@...> [2004-07-13 16:14:25 -0500]:
>
> (ext:with-keyboard
> (cond ((char= #\q (read-char ext:*keyboard-input*))
> (return))
> ((char= #\Q (read-char ext:*keyboard-input*))
> (return))))
>
> Which doesn't really work either since (read-char ext:*keyboard-input*)
> returns this:
>
> #S(SYSTEM::INPUT-CHARACTER :CHAR #\q :BITS 0 :FONT 0 :KEY NIL)
>
> which I don't know how to parse correctly. It looks like I should be
> able to query the response to get the :CHAR out, but I can't find
> anything in the documentation that tells me how to do that. There are
> methods to get the bits and the font, but not the char or the key as
> far as I can tell. Perhaps I'm not reading the part of the
> documentation?
SYS::INPUT-CHARACTER-CHAR will definitely get you #\q out of the
SYSTEM::INPUT-CHARACTER struct.
I am not sure why it (or something similat) is not exported.
(I would think that #'CHARACTER would coerce a SYSTEM::INPUT-CHARACTER
to a CHARACTER by taking the :CHAR slot).
Same for the :KEY.
Bruno?
--
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org&gt; <http://www.iris.org.il&gt; <http://www.memri.org/&gt;
<http://www.mideasttruth.com/&gt; <http://www.honestreporting.com&gt;
Only the mediocre are always at their best.

Sam Steingold writes:
>> * <jbyswo@...> [2004-07-12 16:32:31 -0500]:
>>
>> (ext:with-keyboard .
>> (cond ((string= "q" (read ext:*keyboard-input*))
>> (return))
>> ((string= "Q" (read ext:*keyboard-input*))
>> (return)))))
>
> try
>
> (ext:with-keyboard
> (cond ((string= "q" (read ext:*keyboard-input*))
> (return))
> ((string= "Q" (read ext:*keyboard-input*))
> (return))))
>
>
>
> --
> Sam Steingold (http://www.podval.org/~sds) running w2k
> <http://www.camera.org&gt; <http://www.iris.org.il&gt; <http://www.memri.org/&gt;
> <http://www.mideasttruth.com/&gt; <http://www.honestreporting.com&gt;
> Profanity is the one language all programmers know best.
>
>
I have changed the code to this:
(ext:with-keyboard
(cond ((char= #\q (read-char ext:*keyboard-input*))
(return))
((char= #\Q (read-char ext:*keyboard-input*))
(return))))
Which doesn't really work either since (read-char ext:*keyboard-input*)
returns this:
#S(SYSTEM::INPUT-CHARACTER :CHAR #\q :BITS 0 :FONT 0 :KEY NIL)
which I don't know how to parse correctly. It looks like I should be able to
query the response to get the :CHAR out, but I can't find anything in the
documentation that tells me how to do that. There are methods to get the
bits and the font, but not the char or the key as far as I can tell. Perhaps
I'm not reading the part of the documentation?
Can anyone direct me/teach me the right right thing to do here?
Thanks for all the help! It is much appreciated. :)
Jeff

> I'm using the 8.1.7 libraries, and the database is
> "Oracle8i Enterprise Edition Release 8.1.7.4.0"
>
> The machine where clisp is compiled (the database is elsewhere) is
> "SunOS 5.8 Generic_108528-22 sun4u sparc SUNW,Ultra-4"
Carlos, I've done some bug fixes for Oracle module that may or may not
help you get the error message that will tell you what it wrong w/
your CLISP oracle client under Solaris. They'r checked into CVS so if
you are using a CVS working copy, just "cvs update" it, else you can
retrieve a snapshot of just the oracle module at
http://clisp.alma.com/clisp-oracle-2004-07-13.tar.gz
and unpack it into your source directory (it will expand as
modules/oracle/*) and recompile CLISP.
The bug fixes concern errors that occur while setting up the Oracle
runtime environment, but as I recall your crash came after that, so
there may be some other problem. I'm still trying to get to that
point w/ my copy CLISP under Solaris. Will keep you posted.
---
John Hinsdale, Alma Mater Software, Inc., Tarrytown, NY 10591-3710 USA
hin@... | http://www.alma.com/staff/hin | +1 914 631 4690

Hi,
I sent you an email a few days ago, because you now qualify for a new mortgage.
You could get $300,000 for as little as $700 a month!
Bad credit is no problem, you can pull cash out or refinance.
Please click on this link:
http://www.lending-now.com/h7/li.php?bks=71
Best Regards,
Gustavo
No more: http://www.lending-now.com/r1/index.html
---- system information ----
situations provides any XML description Status applications revised
mailing any transport but display Traditional updated documents
procedure months default such between has These Different