home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / lisp / 3125 < prev    next >
Encoding:
Internet Message Format  |  1992-12-22  |  1.0 KB
  1. Path: sparky!uunet!noc.near.net!hri.com!spool.mu.edu!sdd.hp.com!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!cbnewsm!cbnewsl!davel
  2. From: davel@cbnewsl.cb.att.com (David Loewenstern)
  3. Newsgroups: comp.lang.lisp
  4. Subject: Re: How to send out ANSI code ?
  5. Message-ID: <1992Dec21.223203.261@cbnewsl.cb.att.com>
  6. Date: 21 Dec 92 22:32:03 GMT
  7. References: <1992Dec17.113424.7819@debbie.cc.nctu.edu.tw>
  8. Organization: AT&T Bell Labs, Whippany, NJ
  9. Lines: 28
  10.  
  11. ... On Thu, 17 Dec 1992 11:34:24 GMT, GHOST@cc.nctu.edu.tw (Michael Huang) said:
  12.  
  13.  
  14. } When I want to use the ANSI code to control the terminal position,
  15. } I tried the following program
  16.  
  17. }    (prog () (code-char 27) (princ "[5,5H"))
  18.  
  19. } The result is that 
  20. }   
  21. }    #\Esc
  22. }    [5,5H
  23.  
  24.  
  25. Odd.  I would have expected it to print just
  26.  
  27. [5,5H
  28.  
  29. Anyway, (write-char #\Esc) will do what you want:
  30.  
  31. (progn
  32.   (write-char #\Esc)
  33.   (princ "[5,5H"))
  34.  
  35. These opinions are shareware.  If you like the product,
  36. please send your $0.02 to
  37.                David Loewenstern
  38.           <David.Loewenstern@att.com>
  39.