|
»
clisp-cvs Digest, Vol 42, Issue 17
|
View:
New views
1 Messages
—
Rating Filter:
Alert me
|
 |
clisp-cvs Digest, Vol 42, Issue 17
by clisp-cvs-request
::
Rate this Message:
Send clisp-cvs mailing list submissions to
clisp-cvs@... 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 clisp-cvs-request@... You can reach the person managing the list at clisp-cvs-owner@... 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.7167,1.7168 makemake.in,1.888,1.889 (Sam Steingold) 2. clisp/tests ChangeLog, 1.642, 1.643 excepsit.tst, 1.51, 1.52 ffi.tst, 1.66, 1.67 path.tst, 1.85, 1.86 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Mon, 19 Oct 2009 16:03:12 +0000 From: Sam Steingold <sds@...> Subject: clisp/src ChangeLog,1.7167,1.7168 makemake.in,1.888,1.889 To: clisp-cvs@... Message-ID: <E1MzuhU-0005Zo-Pt@...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv21434/src Modified Files: ChangeLog makemake.in Log Message: (check-script): fix the non-UNICODE build Reported by Angel Popov <angelpopov@...> Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.888 retrieving revision 1.889 diff -u -d -r1.888 -r1.889 --- makemake.in 8 Oct 2009 18:58:39 -0000 1.888 +++ makemake.in 19 Oct 2009 16:03:10 -0000 1.889 @@ -3102,7 +3102,11 @@ # http://article.gmane.org/gmane.lisp.clisp.devel/18967 echotab "(echo '(progn (setf (stream-element-type *standard-input*) (quote (unsigned-byte 8))) (exit 42))' | \$(RUN) -q -M lispinit.mem -; test \$\$? = 42) || exit 1" fi - echotab "test \`echo '(setf (stream-element-type *standard-output*) (quote (unsigned-byte 8))) (write-sequence (convert-string-to-bytes \"42\" charset:ascii) *standard-output*) (setf (stream-element-type *standard-output*) (quote character)) (terpri)' | \$(RUN) -q -M lispinit.mem - ${TRCR}\` = 42 || exit 1" + if [ "${with_unicode}" = no ]; + then seq42="(map (quote (vector (unsigned-byte 8))) (function char-code) \"42\")" + else seq42='(convert-string-to-bytes "42" charset:ascii)' + fi + echotab "test \`echo '(setf (stream-element-type *standard-output*) (quote (unsigned-byte 8))) (write-sequence ${seq42} *standard-output*) (setf (stream-element-type *standard-output*) (quote character)) (terpri)' | \$(RUN) -q -M lispinit.mem - ${TRCR}\` = 42 || exit 1" echotab "\$(RM) script.lisp; echo '(+ 11 99)' > script.lisp" echotab "test \`\$(RUN) -q -M lispinit.mem < script.lisp ${TRCR}\` = 110 || exit 1" echotab "\$(RM) script.lisp; echo '(princ (+ 11 99))' > script.lisp" @@ -3118,10 +3122,10 @@ echotab "(\$(RUN) -q -M lispinit.mem < script.lisp; test \$\$? = 42) || exit 1" echotab "(\$(RUN) -q -M lispinit.mem script.lisp; test \$\$? = 42) || exit 1" fi - echotab "\$(RM) script.lisp; echo '(setf (stream-element-type *standard-output*) (quote (unsigned-byte 8))) (write-sequence (convert-string-to-bytes \"42\" charset:ascii) *standard-output*) (setf (stream-element-type *standard-output*) (quote character)) (terpri)' > script.lisp" + echotab "\$(RM) script.lisp; echo '(setf (stream-element-type *standard-output*) (quote (unsigned-byte 8))) (write-sequence ${seq42} *standard-output*) (setf (stream-element-type *standard-output*) (quote character)) (terpri)' > script.lisp" # ??? echotab "test \`\$(RUN) -q -M lispinit.mem < script.lisp ${TRCR}\` = 42 || exit 1" echotab "test \`\$(RUN) -q -M lispinit.mem script.lisp ${TRCR}\` = 42 || exit 1" - echotab "\$(RM) script.lisp; echo '(with-open-stream (s (make-stream :output :element-type (quote (unsigned-byte 8)))) (write-sequence (convert-string-to-bytes \"42\" charset:ascii) s) (values))' > script.lisp" + echotab "\$(RM) script.lisp; echo '(with-open-stream (s (make-stream :output :element-type (quote (unsigned-byte 8)))) (write-sequence ${seq42} s) (values))' > script.lisp" echotab "test \`\$(RUN) -q -M lispinit.mem < script.lisp ${TRCR}\` = 42 || exit 1" echotab "test \`\$(RUN) -q -M lispinit.mem script.lisp ${TRCR}\` = 42 || exit 1" echotab "\$(RM) script.lisp" Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7167 retrieving revision 1.7168 diff -u -d -r1.7167 -r1.7168 --- ChangeLog 16 Oct 2009 18:31:23 -0000 1.7167 +++ ChangeLog 19 Oct 2009 16:03:10 -0000 1.7168 @@ -1,3 +1,8 @@ +2009-10-19 Sam Steingold <sds@...> + + * makemake.in (check-script): fix the non-UNICODE build + Reported by Angel Popov <angelpopov@...> + 2009-10-16 Sam Steingold <sds@...> * configure.in (AC_INIT): use m4_esyscmd instead of esyscmd ------------------------------ Message: 2 Date: Mon, 19 Oct 2009 16:03:33 +0000 From: Sam Steingold <sds@...> Subject: clisp/tests ChangeLog, 1.642, 1.643 excepsit.tst, 1.51, 1.52 ffi.tst, 1.66, 1.67 path.tst, 1.85, 1.86 To: clisp-cvs@... Message-ID: <E1Mzuhp-0005ag-Gx@...> Update of /cvsroot/clisp/clisp/tests In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv21467/tests Modified Files: ChangeLog excepsit.tst ffi.tst path.tst Log Message: fix #-UNICODE Index: excepsit.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/excepsit.tst,v retrieving revision 1.51 retrieving revision 1.52 diff -u -d -r1.51 -r1.52 --- excepsit.tst 22 Jun 2009 18:42:38 -0000 1.51 +++ excepsit.tst 19 Oct 2009 16:03:31 -0000 1.52 @@ -1305,5 +1305,5 @@ (expt 10 10000000) arithmetic-error ; [ 2807311 ] -#+clisp (ext:convert-string-from-bytes #(1) charset:ucs-4) -#+clisp simple-charset-type-error +#+(and clisp unicode) (ext:convert-string-from-bytes #(1) charset:ucs-4) +#+(and clisp unicode) simple-charset-type-error Index: ffi.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ffi.tst,v retrieving revision 1.66 retrieving revision 1.67 diff -u -d -r1.66 -r1.67 --- ffi.tst 14 Oct 2009 21:39:10 -0000 1.66 +++ ffi.tst 19 Oct 2009 16:03:31 -0000 1.67 @@ -92,7 +92,8 @@ T (string= (myhostname1) - (ext:convert-string-from-bytes (myhostname2) charset:utf-8)) + #+UNICODE (ext:convert-string-from-bytes (myhostname2) charset:utf-8) + #-UNICODE (map 'string #'code-char (myhostname2))) T (def-call-out c-self Index: path.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/path.tst,v retrieving revision 1.85 retrieving revision 1.86 diff -u -d -r1.85 -r1.86 --- path.tst 25 Nov 2008 17:29:12 -0000 1.85 +++ path.tst 19 Oct 2009 16:03:31 -0000 1.86 @@ -1194,7 +1194,7 @@ (ext:delete-directory tn))) #+clisp (T T T T T T) -#+clisp +#+(and clisp unicode) (block test-weird-pathnames (handler-bind ((parse-error (lambda (c) @@ -1220,7 +1220,7 @@ (equal (directory "weird*") dir)) (eq *pathname-encoding* charset:iso-8859-1)))) (delete-file weird))))) -#+clisp (T NIL T T) +#+(and clisp unicode) (T NIL T T) (progn (symbol-cleanup '*dir*) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.642 retrieving revision 1.643 diff -u -d -r1.642 -r1.643 --- ChangeLog 14 Oct 2009 21:39:10 -0000 1.642 +++ ChangeLog 19 Oct 2009 16:03:31 -0000 1.643 @@ -1,3 +1,7 @@ +2009-10-19 Sam Steingold <sds@...> + + * excepsit.tst, ffi.tst, path.tst: fix #-UNICODE + 2009-10-14 Sam Steingold <sds@...> * ffi.tst: revert last patch: do not conditionalize int64 tests: ------------------------------ ------------------------------------------------------------------------------ Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference ------------------------------ _______________________________________________ clisp-cvs mailing list clisp-cvs@... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 42, Issue 17 ***************************************** ------------------------------------------------------------------------------ Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference _______________________________________________ clisp-devel mailing list clisp-devel@... https://lists.sourceforge.net/lists/listinfo/clisp-devel |
| Free embeddable forum powered by Nabble | Forum Help |
