gmane.lisp.cmucl.devel

run-program: find-a-pty: Newer systems do not support /dev/ttyXX PTYs

Madhu — 2008-08-17T14:31:16

Recent linux distributions (like os_11.0) which mount devpts on /dev/pts do not seem to support /dev/ttyp0 style ptys. This cause EXT:RUN-PROGRAM :PTY T to barf in FIND-A-PTY. The attached patch which supports opening a POSIX pty is ported over from SBCL. (In SBCL the new api is tried first) --Madhu diff --git a/code/run-program.lisp b/code/run-program.lisp index f465a74..bfdac84 100644 --- a/code/run-program.lisp +++ b/code/run-program.lisp < at >< at > -258,7 +258,6 < at >< at > (defvar *handlers-installed* nil "List of handlers installed by RUN-PROGRAM.") - ;;; FIND-A-PTY -- internal ;;; ;;; Finds a pty that is not in use. Returns three values: the file descriptor < at >< at > -297,7 +296,30 < at >< at > slave-fd slave-name))) (unix:unix-close master-fd)))))) - (error "Could not find a pty.")) + ;; could not find a PTY.. Try the unix98 api + (find-a-unix98-pty)) + +#-irix +(defun find-a-unix98-pty () + "Returns the master fd, the slave fd, and the name of the tty" + (let* ((master-name (coerce (format nil "/dev/ptmx") 'base-string)) + (master-fd (unix:unix-open master-name unix:o_rdwr #o666))) + (when master-fd + (alien-funcall (extern-alien "grantpt" (function int int)) + master-fd); check errno on error? + (alien-funcall (extern-alien "unlockpt" (function int int)) + master-fd) + (let* ((slave-name (alien-funcall + (extern-alien "ptsname" (function c-string int)) + master-fd)) + (slave-fd (unix:unix-open slave-name unix:o_rdwr #o666))) +(when slave-fd + (return-from find-a-unix98-pty + (values master-fd + slave-fd + slave-name))) +(unix:unix-close master-fd)) + (error "could not find a pty")))) #+irix (alien:def-alien-routine ("_getpty" c-getpty) c-call:c-string

FreeBSD binaries [ re: Snapshot 2008-08 ]

Alex Goncharov — 2008-08-01T02:21:06

The 2008-08 binaries have been uploaded for FreeBSD 7.0 and 8.0. My 6.3 machine has been a bit busted recently and I decided not to struggle bringing it to life, which means I have no plans of producing the 6.3 binary for this snapshot and will try not to build on FreeBSD 6.3 in the future. I may resume the 6.3 builds if somebody really needs them.

Snapshot 2008-08

Raymond Toy (RT/EUS — 2008-07-31T17:45:42

The August snapshot has been tagged. Binaries will be uploaded soon. Ray

UDP server+client sample code

Chun Tian (binghe — 2008-07-23T15:34:32

Hi, CMUCL & rtoy I wrote a sample code for UDP networking test on CMUCL, based on my last patch. The source code in attach has four parts: Part 1 is my loadable patch to CMUCL's local-bind support, Part 2 is the WAIT-FOR-INPUT function from USOCKET project, Part 3 is my simple UDP server implementation, Part 4 is the UDP client test code. When running a UDP server, since I didn't use any multiprocessing, I must start two CMUCL (19e/darwin) to run test: On CMUCL A, I run a UDP echo server: * (compile-file "cmucl-udp-server" :load t) * (socket-server "localhost" 10000 #'identity) On CMUCL B, I run the client to test it: * (compile-file "cmucl-udp-server" :load t) * (socket-client-test) Then you should see text output on both side. CMUCL A: (server) * (socket-server "localhost" 10000 #'identity) I got something! I got 10 bytes from 2130706433:49621, it's #(1 2 3 4 5 6 7 8 9 10). I'll send this reply: #(1 2 3 4 5 6 7 8 9 10). 10 bytes sent. CMUCL B: (client) * (socket-client-test) I create a socket (5) 10 bytes sent: #(1 2 3 4 5 6 7 8 9 10). I got reply! Got 10 bytes reply: #(1 2 3 4 5 6 7 8 9 10) Now let's run a "reverse" echo UDP server: CMUCL A: (server) * (socket-server "localhost" 10000 #'reverse) I got something! I got 10 bytes from 2130706433:49622, it's #(1 2 3 4 5 6 7 8 9 10). I'll send this reply: #(10 9 8 7 6 5 4 3 2 1). 10 bytes sent. CMUCL B: (client) * (socket-client-test) I create a socket (5). 10 bytes sent: #(1 2 3 4 5 6 7 8 9 10). I got reply! Got 10 bytes reply: #(10 9 8 7 6 5 4 3 2 1). I'm a UNIX system administrator. Now I'm working implement the SNMP protocol[1] on Common Lisp. Yesterday I just write out a "portable SNMP server". On CMUCL, it will depends on this CMUCL patch. So I hope my patch can be review and merge into CMUCL trunk. Regards, Chun Tian (binghe) [1] http://www.cliki.net/cl-net-snmp

fixes for CMU User's Manual

Chun Tian (binghe — 2008-07-17T05:53:33

Hi, CMUCL / rtoy Recently I tried UDP networking in CMUCL then found some mistakes in CMU User's Manual: 1. Three functions INET-SENDTO, INET-RECVFROM, INET-SHUTDOWN is not external symbol of UNIX package but EXTENSIONS. 2. INET-SENDTO should have a ADDR argument. 3. INET-RECVFROM maybe need more document, or I don't know how to get receive data from a socket. Attach is my change to internet.tex, please review it. Regards, Chun Tian (binghe)

Snapshot 2008-07 tagged

Raymond Toy (RT/EUS — 2008-06-27T16:27:42

The July snapshots have been tagged. Binaries will be uploaded soon. Ray

CLX bug?

Raymond Toy (RT/EUS — 2008-06-26T20:16:28

Using the latest snapshot, I get the following problem. I don't know anything about X so I don't know if this is a problem with the code, with CLX, with our telent CLX version, with Solaris X11, or what. Ray * (require :clx) * (let* ((dpy (xlib:open-default-display)) (win (xlib:create-window :parent (xlib:screen-root (first (xlib:display-roots dpy))) :x 0 :y 0 :width 50 :height 50)) (pm (xlib:create-pixmap :width (random 100) :height (random 100) :depth 8 :drawable win))) (setf (xlib:wm-hints win) (xlib:make-wm-hints :icon-pixmap pm)) (xlib:display-finish-output dpy) (xlib:wm-hints-icon-pixmap (xlib:wm-hints win))) Asynchronous VALUE-ERROR in request 8 (last request was 10) Code 53.0 [CreatePixmap] Value 8. [Condition of type XLIB:VALUE-ERROR] Restarts: 0: [CONTINUE] Ignore 1: [ABORT ] Return to Top-Level. Debug (type H for help) (XLIB::READ-ERROR-INPUT # 8 #S(XLIB::REPLY-BUFFER :SIZE 32 :IBUF8 #(0 2 0 8 0 0 0 8 0 0 53 192 0 0 0 0 255 190 230 132 ...) :NEXT NIL :DATA-SIZE 32) (NIL)) Source: ; File: target:clx/input.lisp (APPLY #'REPORT-ERROR DISPLAY (PROG1 (MAKE-ERROR DISPLAY REPLY-BUFFER T) (DEALLOCATE-EVENT REPLY-BUFFER))) 0] back 0: (XLIB::READ-ERROR-INPUT # 8 #S(XLIB::REPLY-BUFFER :SIZE 32 :IBUF8 #(0 2 0 8 0 0 0 8 0 0 53 192 0 0 0 0 255 190 230 132 ...) :NEXT NIL :DATA-SIZE 32) (NIL)) 1: (XLIB::READ-INPUT # NIL NIL # #S(XLIB::PENDING-COMMAND :SEQUENCE 10 :REPLY-BUFFER NIL :PROCESS NIL :NEXT NIL)) 2: (XLIB::READ-REPLY # #S(XLIB::PENDING-COMMAND :SEQUENCE 10 :REPLY-BUFFER NIL :PROCESS NIL :NEXT NIL)) 3: (XLIB:DISPLAY-FINISH-OUTPUT #) 4: ("Top-Level Form")[:TOP-LEVEL] 5: (INTERACTIVE-EVAL (LET* ((DPY (XLIB:OPEN-DEFAULT-DISPLAY)) (WIN (XLIB:CREATE-WINDOW :PARENT (XLIB:SCREEN-ROOT (FIRST (XLIB:DISPLAY-ROOTS DPY))) :X 0 :Y 0 :WIDTH 50 :HEIGHT 50)) (PM (XLIB:CREATE-PIXMAP :WIDTH (RANDOM 100) :HEIGHT (RANDOM 100) :DEPTH 8 :DRAWABLE WIN))) (SETF (XLIB:WM-HINTS WIN) (XLIB:MAKE-WM-HINTS :ICON-PIXMAP PM)) (XLIB:DISPLAY-FINISH-OUTPUT DPY) (XLIB:WM-HINTS-ICON-PIXMAP (XLIB:WM-HINTS WIN)))) 6: (LISP::%TOP-LEVEL) 7: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0]

Incompatible change to RANDOM

Raymond Toy (RT/EUS — 2008-06-24T17:34:10

Just a heads-up. I've checked in an enhancement to RANDOM that makes random much faster for numbers between 1 and 2^32 and also gets rid of the small bias in RANDOM.[1] This change is incompatible with previous releases since the sequence of random integers from the same starting state will be different from before. Ray Footnotes: [1] RANDOM was computing random integers using (rem val). This has a small bias in it.

DIRECTORY bugfix

Paul Foley — 2008-06-16T05:15:10

Calling DIRECTORY fails where there are broken symlinks in the directory.

Compiler bug (?)

Paul Foley — 2008-06-11T12:16:27

Attempting to compile the following function generates an error Error in function LISP::ASSERT-ERROR: The assertion (NULL (KERNEL:ARGS-TYPE-REQUIRED C::ATYPE)) failed. [Condition of type SIMPLE-ERROR] [It doesn't /do/ anything; it's part of a much larger function generated by a series of macros - I've stripped it down to apparently the minimum necessary to trigger the problem; remove anything more, including unused code branches, etc., and it compiles fine] (defun compiler-bug () (MULTIPLE-VALUE-BIND (A B) (the (values (or (unsigned-byte 32) null) fixnum) (MULTIPLE-VALUE-BIND (C D) (values 109 1) (LET ((E '(1 2))) (LOOP (UNLESS (CDDR E) (RETURN (VALUES 2 1))) (MULTIPLE-VALUE-BIND (F G) (values nil 1) (IF (NULL F) (RETURN (VALUES (CADR E) 1)) (LET ((H nil)) (IF t nil (SETQ E H))))))))) A))

DIRECTORY calling DELETE-DUPLICATES is slow

Lynn Quam — 2008-06-03T20:33:05

I waited about 20 minutes for DIRECTORY to finish getting the pathnames of a large directory containing about 27000 files. The problem is that DIRECTORY calls DELETE-DUPLICATES which is implemented using an order n-squared algorithm! For large sequences, the use of a hash-table would make sense, but would cause consing. I better change would be to the DIRECTORY function itself. Note that the result of DELETE-DUPLICATES is passed to SORT. If the list were sorted first, then it is easy (order n) to remove duplicates.

rename-file Invalid argument

A.M.Raportirenko — 2008-06-01T08:08:17

This is because unix:unix-resolve-links from unix-glibc2.lisp appends trailing / to the directory pathname. What reason in this? root< at >sunct1 tmp # lisp CMU Common Lisp 2008-04-02+ (sunct1) (19E), running on sunct1 With core: /opt/local/lib/cmucl/lib/lisp.core Dumped on: Thu, 2008-04-03 10:12:05+04:00 on sunct1 Send questions and bug reports to your local CMUCL maintainer, or see . Loaded subsystems: Python 1.1, target Intel x86 CLOS based on Gerd's PCL 2004/04/14 03:32:47 * (unix:unix-file-kind "file.aaa") :FILE * (rename-file "file.aaa" "file.bbb") #P"/opt/tmp/file.bbb" #P"/opt/tmp/file.aaa" #P"/opt/tmp/file.bbb" * (unix:unix-file-kind "directory.aaa") :DIRECTORY * (rename-file "directory.aaa" "directory.bbb") File-error in function RENAME-FILE: Failed to rename /opt/tmp/directory.aaa/ to /opt/tmp/directory.aaa/directory.bbb: Invalid argument [Condition of type KERNEL:SIMPLE-FILE-ERROR] Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) (RENAME-FILE "directory.aaa" "directory.bbb") Source: ; File: target:code/filesys.lisp (ERROR 'SIMPLE-FILE-ERROR :PATHNAME NEW-NAME :FORMAT-CONTROL ...) 0] 0 * (probe-file "file.bbb") #P"/opt/tmp/file.bbb" * (probe-file "directory.aaa") #P"/opt/tmp/directory.aaa/" * (unix:unix-maybe-prepend-current-directory "directory.aaa") "/opt/tmp/directory.aaa" * (unix:unix-resolve-links (unix:unix-maybe-prepend-current-directory "directory.aaa")) "/opt/tmp/directory.aaa/" * (quit) Anatoly

Cleaning up disk space on cl.net

Raymond Toy — 2008-05-31T16:28:13

Due to a shortage of disk space on common-lisp.net, I have removed many of the old binaries from the binaries and experimental directories. I've also removed all snapshots up to 2005. But not to worry. I have been making archives of the cmucl repository, so I have all of these saved away on disk and on DVD. When more disk space is made available again, I will upload all old snapshots again. I will probably not restore the old files to the binaries or experimental directory. Ray

Snapshot-2008-06 FreeBSD binaries are uploaded...

Alex Goncharov — 2008-05-27T23:51:14

.... for FreeBSD 6.3, 7.0 and 8.0.

June snapshot tagged

Raymond Toy (RT/EUS — 2008-05-27T15:16:52

The June snapshots have been tagged (a little early). Binaries will be uploaded soon. And, thanks to Hans Hubner for donating access to a ppc machine, there will be a ppc version too. Thanks, Ray

utf16 branch

Madhu — 2008-05-23T19:40:11

[I've not gotten an answer for this from personal mail so I'm posting this to the list] I've noticed a bunch of commits to a new utf16 branch which I assume is expected to replace the 8bit CMUCL version when it starts working well. Is there any specific application for which this is being done? Are there any users on this list who will benefit from CMUCL using UTF16 for strings internally? (and would those applications not be possible with using a native 8bit lisp?) Is this a sponsored effort? Why UTF16? What are the expected benefits to CMUCL from switching to an internal unicode encoding? Is there any benefit from the overhead? -- Madhu

someting wrong in cmucl cvs sources

A.M.Raportirenko — 2008-05-21T13:07:28

May be i'm wrong, but root< at >sunct1 build-20080507 # lisp CMU Common Lisp 2008-05-20+ (sunct1) (19E), running on sunct1 With core: /opt/local/lib/cmucl/lib/lisp.core Dumped on: Wed, 2008-05-21 10:15:56+04:00 on sunct1 Send questions and bug reports to your local CMUCL maintainer, or see . Loaded subsystems: Python 1.1, target Intel x86 CLOS based on Gerd's PCL 2004/04/14 03:32:47 * (print '\,) , , * (print '\,b) ,B ,B * (print 'b\,b) |B,B| |B,B| * (lisp::symbol-quotep (symbol-name '\,)) NIL * (lisp::symbol-quotep (symbol-name '\,a)) NIL * (lisp::symbol-quotep (symbol-name '\,aa)) NIL * (lisp::symbol-quotep (symbol-name 'a\,)) T * (aref lisp::character-attributes (char-code #\,)) 50431 * (aref lisp::character-attributes (char-code #\< at >)) 1 * (dotimes (i char-code-limit) (print (code-char i)) (prin1 " ") (prin1 (aref lisp::character-attributes i))) #\Null " "50431 #\^A " "50431 #\^B " "50431 #\^C " "50431 #\^D " "50431 #\^E " "50431 #\^F " "50431 #\Bell " "50431 #\Backspace " "50431 #\Tab " "50431 #\Newline " "50431 #\Vt " "50431 #\Page " "50431 #\Return " "50431 #\^N " "50431 #\^O " "50431 #\^P " "50431 #\^Q " "50431 #\^R " "50431 #\^S " "50431 #\^T " "50431 #\^U " "50431 #\^V " "50431 #\^W " "50431 #\^X " "50431 #\^Y " "50431 #\^Z " "50431 #\Escape " "50431 #\Fs " "50431 #\Gs " "50431 #\Rs " "50431 #\Us " "50431 #\ " "50431 #\! " "1 #\" " "50431 #\# " "50431 #\$ " "1 #\% " "1 #\& " "1 #\' " "50431 #$ " "50431 #$ " "50431 #\* " "1 #\+ " "16 #\, " "50431 #\- " "16 #\. " "64 #\/ " "128 #\0 " "2 #\1 " "2 #\2 " "2 #\3 " "2 #\4 " "2 #\5 " "2 #\6 " "2 #\7 " "2 #\8 " "2 #\9 " "2 #\: " "50431 #\; " "50431 #\< " "1 #\= " "1 #\> " "1 #\? " "1 #\< at > " "1 #\A " "4 #\B " "4 #\C " "4 #\D " "4 #\E " "4 #\F " "4 #\G " "4 #\H " "4 #\I " "4 #\J " "4 #\K " "4 #\L " "4 #\M " "4 #\N " "4 #\O " "4 #\P " "4 #\Q " "4 #\R " "4 #\S " "4 #\T " "4 #\U " "4 #\V " "4 #\W " "4 #\X " "4 #\Y " "4 #\Z " "4 #\[ " "1 #\\ " "50431 #\] " "1 #\^ " "32 #\_ " "32 #\` " "50431 #\a " "8 #\b " "8 #\c " "8 #\d " "8 #\e " "8 #\f " "8 #\g " "8 #\h " "8 #\i " "8 #\j " "8 #\k " "8 #\l " "8 #\m " "8 #\n " "8 #\o " "8 #\p " "8 #\q " "8 #\r " "8 #\s " "8 #\t " "8 #\u " "8 #\v " "8 #\w " "8 #\x " "8 #\y " "8 #\z " "8 #\{ " "1 #\| " "50431 #\} " "1 #\~ " "1 #\Rubout " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\ " "50431 #\Ё " "50431 #\Ђ " "50431 #\Ѓ " "50431 #\Є " "50431 #\Ѕ " "50431 #\І " "50431 #\Ї " "50431 #\Ј " "50431 #\Љ " "50431 #\Њ " "50431 #\Ћ " "50431 #\Ќ " "50431 #\ " "50431 #\Ў " "50431 #\Џ " "50431 #\А " "50431 #\Б " "50431 #\В " "50431 #\Г " "50431 #\Д " "50431 #\Е " "50431 #\Ж " "50431 #\З " "50431 #\И " "50431 #\Й " "50431 #\К " "50431 #\Л " "50431 #\М " "50431 #\Н " "50431 #\О " "50431 #\П " "50431 #\Р " "50431 #\С " "50431 #\Т " "50431 #\У " "50431 #\Ф " "50431 #\Х " "50431 #\Ц " "50431 #\Ч " "50431 #\Ш " "50431 #\Щ " "50431 #\Ъ " "50431 #\Ы " "50431 #\Ь " "50431 #\Э " "50431 #\Ю " "50431 #\Я " "50431 #\а " "50431 #\б " "50431 #\в " "50431 #\г " "50431 #\д " "50431 #\е " "50431 #\ж " "50431 #\з " "50431 #\и " "50431 #\й " "50431 #\к " "50431 #\л " "50431 #\м " "50431 #\н " "50431 #\о " "50431 #\п " "50431 #\р " "50431 #\с " "50431 #\т " "50431 #\у " "50431 #\ф " "50431 #\х " "50431 #\ц " "50431 #\ч " "50431 #\ш " "50431 #\щ " "50431 #\ъ " "50431 #\ы " "50431 #\ь " "50431 #\э " "50431 #\ю " "50431 #\я " "50431 #\№ " "50431 #\ё " "50431 #\ђ " "50431 #\ѓ " "50431 #\є " "50431 #\ѕ " "50431 #\і " "50431 #\ї " "50431 #\ј " "50431 #\љ " "50431 #\њ " "50431 #\ћ " "50431 #\ќ " "50431 #\§ " "50431 #\ў " "50431 #\џ " "50431 NIL Anatoly

CMUCL 19e patch 001

Raymond Toy (RT/EUS — 2008-05-07T18:31:32

Even though the 19e release hasn't been officially announced, here's the first patch for 19e. This patch fixes Ticket #16 (http://trac.common-lisp.net/cmucl/ticket/16) and was requested by the Gentoo CMUCL maintainer. This patch fixes a silly typo in the function that creates the load-form for hash tables. The patch is available as 19e/patches/cmucl-19e-patch-001.tar.gz: As usual, the patch should be asdf-installable (not tested). Alternatively, you can just download the tarfile, extract it, and use asdf to load the patch. (Tested.) I don't have any plans to make further patches for 19e, unless requested. Ray

Tagged Snapshot 2008-05

Raymond Toy (RT/EUS — 2008-05-07T16:47:58

The May 2008 snapshot has been tagged. Binaries will be uploaded soon. Note that this snapshot is different from the 19e release done just a few days ago. Ray

19e

Raymond Toy (RT/EUS — 2008-05-01T15:51:33

Since Rex says he can build 19e-pre2 on Fedora 9, and there have been no other show stopper issues, 19e has been tagged (release-19e). Binaries will be uploaded soon, and the website will also be updated. A more complete announcement will follow. Thanks to everyone who made this release possible! Ray

Solaris users?

Raymond Toy (RT/EUS — 2008-04-24T14:15:27

Any Solaris users out there? If there are, do you use anything other than Solaris 10? I will be getting a Solaris 10 box soon, and want to know what version of Solaris should be supported. Ray