LispForum

Hi, The problem is that I need to read a char, not read-line. I think, Read-line fails because can't find Return. I've checked this: (def$method (tty-dialog-mixin :babylon-read-string) (&optional special-keys) (setq X 0) (setf exit "") (loop while (<= X 0) do (let ((char1 (read-char *s...

Hi, I have this function to read a line using chars. I'm reading chars, because I'm trying to communicate Lisp and Java using sockets and chars. (def$method (tty-dialog-mixin :babylon-read-string) (&optional special-keys) (setq X 0) (setf exit "") (loop while (<= X 0) do (let ((char1 (...

sylwester works fine !!

This is what I need

Thanks

Hi, I need to return the literal or the symbol of a character... I can't return a char, because I return #\ and I can't return a string, because I return "". In this function: (defun return-a-char() (let ((mychar (read-char *standard-input*))) (format t "~:c" mychar) ) ) If I ent...

Hi. Something like that I need is using the format function: (defun working-chars () (let ((mychar (read-char *standard-input*))) (format t "~:c" mychar) ) ) But this print in the standard-output, the y character that I need, but I don't want to print to the output, I want to return the my...

Hi, I have this function that works fine with Java: (defun char1() (let ((mychar (read-char *standard-input*))) 'y ) ) But I need transform this function to return 'y (as a symbol), but using a variable (mychar). If I try to return mychar, I obtain #\y, and If I try to return a string, I obtain &quo...

Hi,

But I need that #\C is a variable, not a literal

Thanks

I Call the function like this: char-to-symbol(char)

Thanks

Hi,

When I try to execute this function: char-to-symbol, appears this error

APPLY: too few arguments given to CHAR

What this mean?

Thanks

Hi, Related to this other post http://lispforum.com/viewtopic.php?f=2&t=4091 If have this function: (defun char1() (let ((mychar (read-char *standard-input*))) 'y ) ) always return: Y This other function: (defun char2() (let ((mychar (read-char *standard-input*))) mychar ) ) always return: #\y (...