From: <cli...@li...> - 2008-05-28 19:09:38
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/src ChangeLog, 1.6219, 1.6220 NEWS, 1.454, 1.455 gray.lisp, 1.17, 1.18 (Sam Steingold) 2. clisp/tests ChangeLog,1.547,1.548 format.tst,1.21,1.22 (Sam Steingold) 3. clisp/src/m4 isc-posix.m4,1.2,NONE (Sam Steingold) 4. clisp/src ChangeLog,1.6220,1.6221 (Sam Steingold) 5. clisp/tests streamslong.tst,1.21,1.22 (Sam Steingold) 6. clisp/src ChangeLog,1.6221,1.6222 (Sam Steingold) 7. clisp/modules/clx/new-clx clx.f,2.109,2.110 clx.lisp,1.28,1.29 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Wed, 28 May 2008 15:42:58 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog, 1.6219, 1.6220 NEWS, 1.454, 1.455 gray.lisp, 1.17, 1.18 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv3759/src Modified Files: ChangeLog NEWS gray.lisp Log Message: (stream-read-sequence): fix argument order in stream-read-byte-sequence and stream-read-char-sequence and specify the default values for start and end (stream-write-sequence): fix argument order in stream-write-byte-sequence and stream-write-char-sequence and specify the default values for start and end Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.454 retrieving revision 1.455 diff -u -d -r1.454 -r1.455 --- NEWS 23 May 2008 14:17:56 -0000 1.454 +++ NEWS 28 May 2008 15:42:56 -0000 1.455 @@ -5,6 +5,7 @@ + Work around the absence of tgamma() on solaris. [ 1966375 ] + Avoid a rare segfault on SIGHUP. [ 1956715 ] + Improve module portability to systems with non-GNU make. [ 1970141 ] + + Fix GRAY:STREAM-READ-SEQUENCE and GRAY:STREAM-WRITE-SEQUENCE. [ 1975798 ] 2.45 (2008-05-15) Index: gray.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/gray.lisp,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- gray.lisp 24 Mar 2008 16:06:23 -0000 1.17 +++ gray.lisp 28 May 2008 15:42:56 -0000 1.18 @@ -160,18 +160,22 @@ (clos:defgeneric stream-read-sequence (sequence stream &key start end) - (:method (sequence (stream fundamental-binary-input-stream) &key start end) - (stream-read-byte-sequence sequence stream start end)) - (:method (sequence (stream fundamental-character-input-stream) &key start end) - (stream-read-char-sequence sequence stream start end)) + (:method (sequence (stream fundamental-binary-input-stream) + &key (start 0) (end nil)) + (stream-read-byte-sequence stream sequence start end)) + (:method (sequence (stream fundamental-character-input-stream) + &key (start 0) (end nil)) + (stream-read-char-sequence stream sequence start end)) (:method (sequence (stream fundamental-input-stream) &rest rest) (apply #'sys::%read-sequence sequence stream rest))) (clos:defgeneric stream-write-sequence (sequence stream &key start end) - (:method (sequence (stream fundamental-binary-output-stream) &key start end) - (stream-write-byte-sequence sequence stream start end)) - (:method (sequence (stream fundamental-character-output-stream) &key start end) - (stream-write-char-sequence sequence stream start end)) + (:method (sequence (stream fundamental-binary-output-stream) + &key (start 0) (end nil)) + (stream-write-byte-sequence stream sequence start end)) + (:method (sequence (stream fundamental-character-output-stream) + &key (start 0) (end nil)) + (stream-write-char-sequence stream sequence start end)) (:method (sequence (stream fundamental-output-stream) &rest rest) (apply #'sys::%write-sequence sequence stream rest))) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6219 retrieving revision 1.6220 diff -u -d -r1.6219 -r1.6220 --- ChangeLog 27 May 2008 22:06:58 -0000 1.6219 +++ ChangeLog 28 May 2008 15:42:53 -0000 1.6220 @@ -1,3 +1,13 @@ +2008-05-28 Sam Steingold <sd...@gn...> + + fix bug #[ 1975798 ]: parameter confusion in new Gray Streams functions + * gray.lisp (stream-read-sequence): fix argument order in + stream-read-byte-sequence and stream-read-char-sequence + and specify the default values for start and end + (stream-write-sequence): fix argument order in + stream-write-byte-sequence and stream-write-char-sequence + and specify the default values for start and end + 2008-05-27 Sam Steingold <sd...@gn...> avoid obsolete macros ------------------------------ Message: 2 Date: Wed, 28 May 2008 15:51:51 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests ChangeLog,1.547,1.548 format.tst,1.21,1.22 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv7186/tests Modified Files: ChangeLog format.tst Log Message: use defparameter instead of setq; do a full cleanup Index: format.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/format.tst,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- format.tst 1 May 2008 15:03:38 -0000 1.21 +++ format.tst 28 May 2008 15:51:49 -0000 1.22 @@ -52,14 +52,12 @@ #+(or GCL CMU SBCL) "foo bar baz" #-(or CLISP GCL ALLEGRO CMU SBCL OpenMCL LISPWORKS) UNKNOWN -(progn -(setq liste '(aaaaaaa bbbbbb cccccccccccc dddddddddddddd eeee fffffffff -gggggggg - hhhhh iiii j kk lll mmmm nnnnnn oooooooooo ppppppppppppppp qqqqqqq -rrrrrrrrrrrr -s ttt uuuuuuuuu vvvvvvv wwwwwwwwww xxxxx yyyyyy zzzzzzzz)) ;26 -T) -T +(defparameter liste + '(aaaaaaa bbbbbb cccccccccccc dddddddddddddd eeee fffffffff + gggggggg hhhhh iiii j kk lll mmmm nnnnnn oooooooooo ppppppppppppppp + qqqqqqq rrrrrrrrrrrr s ttt uuuuuuuuu vvvvvvv wwwwwwwwww + xxxxx yyyyyy zzzzzzzz)) ; 26 +LISTE (format nil "~%;; ~<~%;; ~1:; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~;~ ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~; ~s~;~ @@ -407,8 +405,7 @@ (FORMAT NIL "format-a:--~a--ende" (QUOTE AB\c)) "format-a:--ABc--ende" -(SETQ Y "elephant") -"elephant" +(defparameter Y "elephant") Y (FORMAT NIL "Look at the ~A!" Y) "Look at the elephant!" @@ -508,8 +505,7 @@ #+(or CLISP AKCL ALLEGRO CMU SBCL LISPWORKS) "format-s:--(|ABc| NIL XYZ)--ende-*" #-(or XCL CLISP AKCL ALLEGRO CMU SBCL LISPWORKS) UNKNOWN -(SETQ X 5) -5 +(defparameter X 5) X (FORMAT NIL "The answer is ~D." X) "The answer is 5." @@ -831,8 +827,7 @@ new line but at beginning same line, but spaced out new line and over two tabs-*" -(SETQ N 3) -3 +(defparameter N 3) N (FORMAT NIL "~D item~:P found." N) "3 items found." @@ -917,16 +912,16 @@ (FORMAT NIL "~@R ~(~@R~)" 14 14) "XIV xiv" -(DEFUN F (N) (FORMAT NIL "~@(~R~) error~:P detected." N)) -F +(DEFUN FOO (N) (FORMAT NIL "~@(~R~) error~:P detected." N)) +FOO -(F 0) +(FOO 0) "Zero errors detected." -(F 1) +(FOO 1) "One error detected." -(F 23) +(FOO 23) "Twenty-three errors detected." (SETQ *PRINT-LEVEL* NIL *PRINT-LENGTH* 5) @@ -940,11 +935,9 @@ (SETQ *PRINT-LENGTH* NIL) NIL -(SETQ FOO -"Items:~#[none~; ~s~; ~S and ~S~ - ~:;~@{~#[~; and~] ~S~^,~}~].") +(defparameter FOO "Items:~#[none~; ~s~; ~S and ~S~ - ~:;~@{~#[~; and~] ~S~^,~}~]." + ~:;~@{~#[~; and~] ~S~^,~}~].") FOO (FORMAT NIL FOO) "Items:none." @@ -978,8 +971,8 @@ (C 3))) "Pairs: <A,1> <B,2> <C,3>." -(SETQ DONESTR "done.~^ ~D warning~:P.~^ ~D error~:P.") -"done.~^ ~D warning~:P.~^ ~D error~:P." +(defparameter DONESTR "done.~^ ~D warning~:P.~^ ~D error~:P.") +DONESTR (FORMAT NIL DONESTR) "done." @@ -990,8 +983,8 @@ (FORMAT NIL DONESTR 1 5) "done. 1 warning. 5 errors." -(SETQ TELLSTR "~@(~@[~R~]~^ ~A.~)") -"~@(~@[~R~]~^ ~A.~)" +(defparameter TELLSTR "~@(~@[~R~]~^ ~A.~)") +TELLSTR (FORMAT NIL TELLSTR 23) "Twenty-three" @@ -1049,11 +1042,6 @@ #+CLISP (FORMAT NIL "**~@c**" (CODE-CHAR 27)) #+CLISP "**#\\Escape**" -(progn (fmakunbound 'foo) - (makunbound 'liste) -t) -T - (string= (format nil "~10I") (with-output-to-string (s) (funcall (formatter "~10I") s))) @@ -1239,9 +1227,18 @@ def") -; Cleanup. -(unintern 'x) -T +(progn ; Cleanup. + (fmakunbound 'format-blocksatz) (unintern 'format-blocksatz) + (fmakunbound 'type-clash-error) (unintern 'type-clash-error) + (fmakunbound 'foo) (makunbound 'foo) (unintern 'foo) + (makunbound 'x) (unintern 'x) + (makunbound 'y) (unintern 'y) + (makunbound 'n) (unintern 'n) + (makunbound 'liste) (unintern 'liste) + (makunbound 'donestr) (unintern 'donestr) + (makunbound 'tellstr) (unintern 'tellstr) + (setf (find-class 'gray-string-output-stream) nil)) +NIL ;; local variables: ;; eval: (make-local-variable 'write-file-functions) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.547 retrieving revision 1.548 diff -u -d -r1.547 -r1.548 --- ChangeLog 28 May 2008 15:42:56 -0000 1.547 +++ ChangeLog 28 May 2008 15:51:49 -0000 1.548 @@ -1,5 +1,9 @@ 2008-05-28 Sam Steingold <sd...@gn...> + * format.tst: use defparameter instead of setq; do a full cleanup + +2008-05-28 Sam Steingold <sd...@gn...> + * streamslong.tst (gray-out): test stream-write-sequence et al 2008-05-12 Sam Steingold <sd...@gn...> ------------------------------ Message: 3 Date: Wed, 28 May 2008 16:22:18 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src/m4 isc-posix.m4,1.2,NONE To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src/m4 In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv18685/src/m4 Removed Files: isc-posix.m4 Log Message: Remove. The comment says: This file is not needed with autoconf-2.53 and newer. Remove it in 2005. --- isc-posix.m4 DELETED --- ------------------------------ Message: 4 Date: Wed, 28 May 2008 16:22:18 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6220,1.6221 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv18685/src Modified Files: ChangeLog Log Message: Remove. The comment says: This file is not needed with autoconf-2.53 and newer. Remove it in 2005. Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6220 retrieving revision 1.6221 diff -u -d -r1.6220 -r1.6221 --- ChangeLog 28 May 2008 15:42:53 -0000 1.6220 +++ ChangeLog 28 May 2008 16:22:15 -0000 1.6221 @@ -1,5 +1,10 @@ 2008-05-28 Sam Steingold <sd...@gn...> + * m4/isc-posix.m4: remove. The comment says: + This file is not needed with autoconf-2.53 and newer. Remove it in 2005. + +2008-05-28 Sam Steingold <sd...@gn...> + fix bug #[ 1975798 ]: parameter confusion in new Gray Streams functions * gray.lisp (stream-read-sequence): fix argument order in stream-read-byte-sequence and stream-read-char-sequence ------------------------------ Message: 5 Date: Wed, 28 May 2008 17:26:45 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests streamslong.tst,1.21,1.22 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv11346 Modified Files: streamslong.tst Log Message: fix the gray-out test Index: streamslong.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/streamslong.tst,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- streamslong.tst 28 May 2008 15:42:56 -0000 1.21 +++ streamslong.tst 28 May 2008 17:26:43 -0000 1.22 @@ -153,21 +153,24 @@ (make-array 0 :element-type 'character :adjustable t :fill-pointer 0))) (defmethod stream-write-char ((s gray-out) ch) (vector-push-extend ch (slot-value s 'accumulator))) - (defmacro with-go ((v) &body forms) + (defmacro with-g-o ((v) &body forms) `(let ((,v (make-instance 'gray-out))) ,@forms (close ,v) (coerce (slot-value ,v 'accumulator) 'simple-string))) - (list (with-go (v) (write-char #\a v)) - (with-go (v) (write-char-sequence "abc" v)) - (handler-case (with-go (v) (write-sequence #(#\a #\b #\c) v)) + (list (with-g-o (v) (write-char #\a v)) + (with-g-o (v) (write-char-sequence "abc" v)) + (handler-case (with-g-o (v) (write-sequence #(#\a #\b #\c) v)) (clos:method-call-error (e) - (clos:method-call-error-generic-function e))) - (with-go (v) (stream-write-char-sequence v "abc")) - (handler-case (with-go (v) (stream-write-sequence v #(#\a #\b #\c))) + (clos:generic-function-name + (clos:method-call-error-generic-function e)))) + (with-g-o (v) (stream-write-char-sequence v "abc")) + (handler-case (with-g-o (v) (stream-write-sequence v #(#\a #\b #\c))) (clos:method-call-error (e) - (clos:method-call-error-generic-function e))) - (with-go (v) (stream-write-sequence "abc" v)) - (setf (find-class 'gray-out) nil))) -#+CLISP ("a" "abc" #'gray:stream-write-char-sequence - "abc" #'gray:stream-write-sequence "abc" NIL) + (clos:generic-function-name + (clos:method-call-error-generic-function e)))) + (with-g-o (v) (stream-write-sequence "abc" v)) + (setf (find-class 'gray-out) nil) + (fmakunbound 'with-g-o))) +#+CLISP ("a" "abc" gray:stream-write-char-sequence + "abc" gray:stream-write-sequence "abc" NIL WITH-G-O) ------------------------------ Message: 6 Date: Wed, 28 May 2008 18:30:46 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6221,1.6222 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv3751/src Modified Files: ChangeLog Log Message: (last-event-processed, last-timestamp-processed) [USE_LIBXT]: add Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6221 retrieving revision 1.6222 diff -u -d -r1.6221 -r1.6222 --- ChangeLog 28 May 2008 16:22:15 -0000 1.6221 +++ ChangeLog 28 May 2008 18:30:42 -0000 1.6222 @@ -1,5 +1,10 @@ 2008-05-28 Sam Steingold <sd...@gn...> + * modules/clx/new-clx/clx.f (last-event-processed) + (last-timestamp-processed) [USE_LIBXT]: add + +2008-05-28 Sam Steingold <sd...@gn...> + * m4/isc-posix.m4: remove. The comment says: This file is not needed with autoconf-2.53 and newer. Remove it in 2005. ------------------------------ Message: 7 Date: Wed, 28 May 2008 18:30:44 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/new-clx clx.f,2.109,2.110 clx.lisp,1.28,1.29 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/modules/clx/new-clx In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv3751/modules/clx/new-clx Modified Files: clx.f clx.lisp Log Message: (last-event-processed, last-timestamp-processed) [USE_LIBXT]: add Index: clx.f =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/clx.f,v retrieving revision 2.109 retrieving revision 2.110 diff -u -d -r2.109 -r2.110 --- clx.f 15 May 2008 19:18:04 -0000 2.109 +++ clx.f 28 May 2008 18:30:41 -0000 2.110 @@ -6053,6 +6053,26 @@ skipSTACK(6); } +#if defined(USE_LIBXT) +DEFUN(XLIB:LAST-EVENT-PROCESSED, display) { + Display *dpy = get_display(STACK_0); + XEvent *ev; + X_CALL(ev = XtLastEventProcessed(dpy)); + if (ev) { + int cnt = disassemble_event_on_stack(&ev,&STACK_0); + VALUES1(listof(cnt)); + } else VALUES1(NIL); + skipSTACK(1); +} + +DEFUN(XLIB:LAST-TIMESTAMP-PROCESSED, display) { + Display *dpy = pop_display(); + Time time; + X_CALL(time = XtLastTimestampProcessed(dpy)); + if (time) VALUES1(uint32_to_I(time)); + else VALUES1(NIL); +} +#endif /* USE_LIBXT */ /* 12.4 Managing the Event Queue */ Index: clx.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/clx.lisp,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- clx.lisp 29 Nov 2007 17:32:34 -0000 1.28 +++ clx.lisp 28 May 2008 18:30:41 -0000 1.29 @@ -171,6 +171,9 @@ closed-display-p ;; extensions open-default-display + ;;; Only when using libXt: + ;; last-event-processed last-timestamp-processed + ;;; Only when using the native resource database, not resource.lisp: ;; display-xdefaults resource-database-to-string resource-database-of-string ;; resource-database-locale ;; not implemented ------------------------------ ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2008. http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 25, Issue 52 ***************************************** |