Re: [clisp-list] next question - with-keyboard not working in current source

[Pascal J. B. <pj...@in...>]

don...@is... (Don Cohen) writes:

> old behavior:
> [1]> (apropos "KEYBOARD") 
> *KEYBOARD-INPUT*                           variable 
> SYSTEM::EXEC-WITH-KEYBOARD                 function 
> SYSTEM::MAKE-KEYBOARD-STREAM               function 
> READLINE:SET-KEYBOARD-INPUT-TIMEOUT        function 
> WITH-KEYBOARD                              macro 
> [2]> *KEYBOARD-INPUT* 
> NIL 
> [3]> (ext:with-keyboard ext:*keyboard-input*) 
> #<INPUT KEYBOARD-STREAM> 
> [4]>  
>
> current source:
> [1]> (apropos "KEYBOARD")
> *KEYBOARD-INPUT*                        
> SYSTEM::EXEC-WITH-KEYBOARD                 function
> SYSTEM::MAKE-KEYBOARD-STREAM            
> WITH-KEYBOARD                              macro
>
> [2]> (ext:with-keyboard ext:*keyboard-input*)
>
> *** - SYSTEM::EXEC-WITH-KEYBOARD: variable *KEYBOARD-INPUT* has no
> value
> The following restarts are available:
> ABORT          :R1      Abort main loop
> ABORT          :R2      ABORT
> Break 1 [3]> 


"current source"?
What version do you use?


[pjb@kuiper :0.0 ~]$ clisp --version
GNU CLISP 2.49+ (2010-07-17) (built 3603386203) (memory 3603386298)
Software: GNU C 4.7.2 
gcc -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wreturn-type -Wmissing-declarations -Wimplicit -Wno-sign-compare -Wno-format-nonliteral -O -falign-functions=4 -pthread -DENABLE_UNICODE -DMULTITHREAD -DPOSIX_THREADS -DDYNAMIC_FFI -DDYNAMIC_MODULES  libgnu.a  -lreadline -lncurses -ldl -lavcall -lcallback  -lsigsegv  
SAFETY=0 TYPECODES WIDE_HARD GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.9
libreadline 6.2
libffcall 1.11
Features: 
(READLINE REGEXP WILDCARD SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP LISP=CL INTERPRETER LOGICAL-PATHNAMES MT SOCKETS GENERIC-STREAMS
 SCREEN FFI GETTEXT UNICODE BASE-CHAR=CHARACTER WORD-SIZE=64 PC386 UNIX)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /data/languages/clisp-hg/lib/clisp-2.49+/
User language: ENGLISH
Machine: X86_64 (X86_64) kuiper.lan.informatimago.com [127.0.1.1]
[pjb@kuiper :0.0 ~]$ 


[pjb@kuiper :0.0 clisp-hg]$ hg log|head -20
changeset:   15611:5c63938ef493
tag:         tip
user:        Sam Steingold <sd...@po...>
date:        Wed Oct 22 12:04:12 2014 -0400
files:       modules/syscalls/configure.in src/ChangeLog
description:
Fix bug#668 posix:file-state always return NIL for :rdev

* modules/syscalls/configure.in: check for struct stat members



[1]> (ext:with-keyboard ext:*keyboard-input*)
#<INPUT KEYBOARD-STREAM>
[4]> (ext:with-keyboard (loop for input = (read-char ext:*keyboard-input*) repeat 10 collect input))
(#S(SYSTEM::INPUT-CHARACTER :CHAR NIL :BITS 1 :FONT 0 :KEY #\J) #S(SYSTEM::INPUT-CHARACTER :CHAR NIL :BITS 1 :FONT 0 :KEY #\J)
    #S(SYSTEM::INPUT-CHARACTER :CHAR #\Escape :BITS 0 :FONT 0 :KEY NIL) #S(SYSTEM::INPUT-CHARACTER :CHAR #\j :BITS 0 :FONT 0 :KEY NIL)
    #S(SYSTEM::INPUT-CHARACTER :CHAR #\e :BITS 0 :FONT 0 :KEY NIL) #S(SYSTEM::INPUT-CHARACTER :CHAR #\l :BITS 0 :FONT 0 :KEY NIL)
    #S(SYSTEM::INPUT-CHARACTER :CHAR #\l :BITS 0 :FONT 0 :KEY NIL) #S(SYSTEM::INPUT-CHARACTER :CHAR #\o :BITS 0 :FONT 0 :KEY NIL)
    #S(SYSTEM::INPUT-CHARACTER :CHAR #\Space :BITS 0 :FONT 0 :KEY NIL) #S(SYSTEM::INPUT-CHARACTER :CHAR #\w :BITS 0 :FONT 0 :KEY NIL))
[5]>

-- 
__Pascal Bourguignon__