- cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl][rtoy-update-clx-with-cmucl-fixes] 2 commits: Put back open-x-stream.
by Raymond Toy 27 Jan '18

27 Jan '18

Raymond Toy pushed to branch rtoy-update-clx-with-cmucl-fixes at cmucl / cmucl Commits: c54f706e by Raymond Toy at 2018-01-24T09:40:50-08:00 Put back open-x-stream. Brought back from the master branch. - - - - - c802a375 by Raymond Toy at 2018-01-24T09:41:32-08:00 Disable arglist declaration for cmucl Don't know why this doesn't work, but removing it makes the macro compile correctly. - - - - - 2 changed files: - src/clx/dependent.lisp - src/clx/macros.lisp Changes: ===================================== src/clx/dependent.lisp ===================================== --- a/src/clx/dependent.lisp +++ b/src/clx/dependent.lisp @@ -1582,6 +1582,47 @@ :element-type '(unsigned-byte 8) :input t :output t :buffering :none)) +#+cmu +(defun open-x-stream (host display protocol) + (let ((stream-fd + (ecase protocol + ;; establish a TCP connection to the X11 server, which is + ;; listening on port 6000 + display-number + ((:internet :tcp nil) + (let ((fd (ext:connect-to-inet-socket host (+ *x-tcp-port* display)))) + (unless (plusp fd) + (error 'connection-failure + :major-version *protocol-major-version* + :minor-version *protocol-minor-version* + :host host + :display display + :reason (format nil "Cannot connect to internet socket: ~S" + (unix:get-unix-error-msg)))) + fd)) + ;; establish a connection to the X11 server over a Unix + ;; socket. (:|| comes from Darwin's weird DISPLAY + ;; environment variable) + ((:unix :local :||) + (let ((path (unix-socket-path-from-host host display))) + (unless (probe-file path) + (error 'connection-failure + :major-version *protocol-major-version* + :minor-version *protocol-minor-version* + :host host + :display display + :reason (format nil "Unix socket ~s does not exist" path))) + (let ((fd (ext:connect-to-unix-socket (namestring path)))) + (unless (plusp fd) + (error 'connection-failure + :major-version *protocol-major-version* + :minor-version *protocol-minor-version* + :host host + :display display + :reason (format nil "Can't connect to unix socket: ~S" + (unix:get-unix-error-msg)))) + fd)))))) + (system:make-fd-stream stream-fd :input t :output t :element-type '(unsigned-byte 8)))) + ;;; BUFFER-READ-DEFAULT - read data from the X stream #+(or Genera explorer) @@ -3355,11 +3396,11 @@ Returns a list of (host display-number screen protocol)." height width) (declare (type array-index source-width sx sy dest-width dx dy height width)) #.(declare-buffun) - (kernel::with-array-data ((sdata source) + (lisp::with-array-data ((sdata source) (sstart) (send)) (declare (ignore send)) - (kernel::with-array-data ((ddata dest) + (lisp::with-array-data ((ddata dest) (dstart) (dend)) (declare (ignore dend)) ===================================== src/clx/macros.lisp ===================================== --- a/src/clx/macros.lisp +++ b/src/clx/macros.lisp @@ -85,6 +85,7 @@ ;; If no third body form is present, then these macros assume that ;; (AND (TYPEP ,thing 'type) (PUT-type ,thing)) can be generated. ;; these predicating puts are used by the OR accessor. + #-cmu (declare (arglist name (width) get-macro put-macro &optional predicating-put-macro)) (when (cdddr get-put-macros) (error "Too many parameters to define-accessor: ~s" (cdddr get-put-macros))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/a596444836a656fd62f0b565… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/a596444836a656fd62f0b565… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch rtoy-update-clx-with-cmucl-fixes
by Raymond Toy 24 Jan '18

24 Jan '18

Raymond Toy pushed new branch rtoy-update-clx-with-cmucl-fixes at cmucl / cmucl --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/tree/rtoy-update-clx-with-cmucl-… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch rtoy-update-clx
by Raymond Toy 24 Jan '18

24 Jan '18

Raymond Toy pushed new branch rtoy-update-clx at cmucl / cmucl --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/tree/rtoy-update-clx You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Simplify script by adding variables.
by Raymond Toy 21 Jan '18

21 Jan '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 1cbde1a1 by Raymond Toy at 2018-01-21T13:31:37-08:00 Simplify script by adding variables. Add variables to the download url and for the version so we can share them across linux and osx builds. - - - - - 63199010 by Raymond Toy at 2018-01-21T22:44:23+00:00 Merge branch 'rtoy-simplify-ci' into 'master' Simplify script by adding variables. See merge request cmucl/cmucl!30 - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -1,12 +1,16 @@ +variables: + download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01" + version: "2018-01-x86" + linux-runner: tags: - linux before_script: - apt-get update -qq && apt-get install -y wget bzip2 make gcc gcc-multilib time bc git - - wget -nv https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01/cmucl-201… - - wget -nv https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01/cmucl-201… + - wget -nv $download_url/cmucl-$version-linux.tar.bz2 + - wget -nv $download_url/cmucl-$version-linux.extra.tar.bz2 - mkdir snapshot - - (cd snapshot; tar xjf ../cmucl-2018-01-x86-linux.tar.bz2; tar xjf ../cmucl-2018-01-x86-linux.extra.tar.bz2) + - (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2) script: - bin/build.sh -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist linux-4 @@ -16,9 +20,9 @@ osx-runner: tags: - osx before_script: - - curl -s -o cmucl-2018-01-x86-darwin.tar.bz2 https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01//cmucl-20… + - curl -s -o cmucl-$version-darwin.tar.bz2 $download_url/cmucl-$version-darwin.tar.bz2 - mkdir snapshot - - (cd snapshot; tar xjf ../cmucl-2018-01-x86-darwin.tar.bz2) + - (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2) script: - bin/build.sh -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist darwin-4 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/5df2081377d7f79f5e289275… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/5df2081377d7f79f5e289275… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch rtoy-simplify-ci
by Raymond Toy 21 Jan '18

21 Jan '18

Raymond Toy pushed new branch rtoy-simplify-ci at cmucl / cmucl --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/tree/rtoy-simplify-ci You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Don't show progress meter with curl
by Raymond Toy 21 Jan '18

21 Jan '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 5df20813 by Raymond Toy at 2018-01-21T09:35:16-08:00 Don't show progress meter with curl Don't need the progress meter; it just clutters up the logs with useless stuff [skip-ci] - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -16,7 +16,7 @@ osx-runner: tags: - osx before_script: - - curl -o cmucl-2018-01-x86-darwin.tar.bz2 https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01//cmucl-20… + - curl -s -o cmucl-2018-01-x86-darwin.tar.bz2 https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01//cmucl-20… - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-2018-01-x86-darwin.tar.bz2) script: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/5df2081377d7f79f5e2892756… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/5df2081377d7f79f5e2892756… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Fix typo in building on darwin.
by Raymond Toy 21 Jan '18

21 Jan '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: ab27781b by Raymond Toy at 2018-01-21T08:55:56-08:00 Fix typo in building on darwin. Should be snapshot/bin/lisp - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -20,6 +20,6 @@ osx-runner: - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-2018-01-x86-darwin.tar.bz2) script: - - bin/build.sh -C "" -o snapshot/lisp/lisp + - bin/build.sh -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist darwin-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/ab27781ba923fff4144c5919b… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/ab27781ba923fff4144c5919b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update CI to use 2018-01 snapshot
by Raymond Toy 21 Jan '18

21 Jan '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 91c26cba by Raymond Toy at 2018-01-21T08:50:35-08:00 Update CI to use 2018-01 snapshot - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -3,15 +3,12 @@ linux-runner: - linux before_script: - apt-get update -qq && apt-get install -y wget bzip2 make gcc gcc-multilib time bc git - - wget -nv https://common-lisp.net/project/cmucl/downloads/release/21c/cmucl-21c-x86-l… - - wget -nv https://common-lisp.net/project/cmucl/downloads/release/21c/cmucl-21c-x86-l… + - wget -nv https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01/cmucl-201… + - wget -nv https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01/cmucl-201… - mkdir snapshot - - (cd snapshot; tar xjf ../cmucl-21c-x86-linux.tar.bz2; tar xjf ../cmucl-21c-x86-linux.extra.tar.bz2) + - (cd snapshot; tar xjf ../cmucl-2018-01-x86-linux.tar.bz2; tar xjf ../cmucl-2018-01-x86-linux.extra.tar.bz2) script: - - bin/create-target.sh xtarget x86_linux x86 - - bin/create-target.sh xcross x86_linux x86 - - bin/cross-build-world.sh -crl xtarget xcross src/bootfiles/21c/boot-21c-cross.lisp ./snapshot/bin/lisp - - bin/build.sh -C "" -o xtarget/lisp/lisp + - bin/build.sh -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist linux-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log @@ -19,13 +16,10 @@ osx-runner: tags: - osx before_script: - - curl -o cmucl-21c-x86-darwin.tar.bz2 https://common-lisp.net/project/cmucl/downloads/release/21c/cmucl-21c-x86-d… + - curl -o cmucl-2018-01-x86-darwin.tar.bz2 https://common-lisp.net/project/cmucl/downloads/snapshots/2018/01//cmucl-20… - mkdir snapshot - - (cd snapshot; tar xjf ../cmucl-21c-x86-darwin.tar.bz2) + - (cd snapshot; tar xjf ../cmucl-2018-01-x86-darwin.tar.bz2) script: - - bin/create-target.sh xtarget x86_darwin - - bin/create-target.sh xcross x86_darwin - - bin/cross-build-world.sh -crl xtarget xcross src/bootfiles/21c/boot-21c-cross.lisp ./snapshot/bin/lisp - - bin/build.sh -C "" -o xtarget/lisp/lisp + - bin/build.sh -C "" -o snapshot/lisp/lisp - bin/make-dist.sh -I dist darwin-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/91c26cba71fecb8b8e0b3c822… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/91c26cba71fecb8b8e0b3c822… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][sparc64-dev] 2 commits: Regenerate
by Raymond Toy 20 Jan '18

20 Jan '18

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: f19dd877 by Raymond Toy at 2018-01-13T08:22:44-08:00 Regenerate - - - - - 9ce8a07e by Raymond Toy at 2018-01-20T09:20:19-08:00 Merge branch 'master' into sparc64-dev - - - - - 2 changed files: - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po - src/i18n/locale/ko/LC_MESSAGES/cmucl.po Changes: ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po ===================================== --- a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po @@ -34,7 +34,7 @@ msgstr "Ethay izesay ofway away eamstray inway-ufferbay." #: src/code/intl.lisp src/compiler/globaldb.lisp src/code/defstruct.lisp #: src/code/remote.lisp src/code/wire.lisp src/code/internet.lisp #: src/code/loop.lisp src/code/run-program.lisp src/code/parse-time.lisp -#: src/code/profile.lisp src/code/ntrace.lisp src/code/rand-mt19937.lisp +#: src/code/profile.lisp src/code/ntrace.lisp src/code/rand-xoroshiro.lisp #: src/code/debug.lisp src/code/debug-int.lisp src/code/debug-info.lisp #: src/code/eval.lisp src/code/filesys.lisp src/code/pathname.lisp #: src/code/fd-stream.lisp src/code/extfmts.lisp src/code/serve-event.lisp @@ -17335,17 +17335,18 @@ msgstr "" msgid "Type \"yes\" for yes or \"no\" for no. " msgstr "Ypetay \"esyay\" orfay esyay orway \"onay\" orfay onay. " -#: src/code/rand-mt19937.lisp +#: src/code/rand-xoroshiro.lisp +#, fuzzy msgid "" "Generate an random state vector from the given SEED. The seed can be\n" -" either an integer or a vector of (unsigned-byte 32)" +" either an integer or a vector of (unsigned-byte 64)" msgstr "" "Enerategay anway andomray tatesay ectorvay omfray ethay ivengay SEED. Ethay " "eedsay ancay ebay\n" " eitherway anway integerway orway away ectorvay ofway (unsignedway-ytebay " "32)" -#: src/code/rand-mt19937.lisp +#: src/code/rand-xoroshiro.lisp msgid "" "Make a random state object. If STATE is not supplied, return a copy\n" " of the default random state. If STATE is a random state, then return a\n" @@ -17360,11 +17361,12 @@ msgstr "" "tatesay eneratedgay omfray\n" " ethay universalway imetay orway /evday/urandomway ifway availableway." -#: src/code/rand-mt19937.lisp -msgid "Argument is not a RANDOM-STATE, T or NIL: ~S" +#: src/code/rand-xoroshiro.lisp +#, fuzzy +msgid "Argument is not a RANDOM-STATE, T, or NIL: ~S" msgstr "Argumentway isway otnay away RANDOM-STATE, T orway NIL: ~S" -#: src/code/rand-mt19937.lisp +#: src/code/rand-xoroshiro.lisp msgid "" "Generate a uniformly distributed pseudo-random number between zero\n" " and Arg. State, if supplied, is the random state to use." @@ -17374,12 +17376,19 @@ msgstr "" " andway Argway. Tatesay, ifway uppliedsay, isway ethay andomray tatesay " "otay useway." -#: src/code/rand-mt19937.lisp +#: src/code/rand-xoroshiro.lisp msgid "Argument is not a positive integer or a positive float: ~S" msgstr "" "Argumentway isway otnay away ositivepay integerway orway away ositivepay " "oatflay: ~S" +#: src/code/rand-xoroshiro.lisp +msgid "" +"Jump the RNG-STATE. This is equivalent to 2^64 calls to the\n" +" xoroshiro128+ generator. It can be used to generate 2^64\n" +" non-overlapping subsequences for parallel computations." +msgstr "" + #: src/code/ntrace.lisp msgid "" "This is bound to the returned values when evaluating :BREAK-AFTER and\n" @@ -27348,10 +27357,6 @@ msgid "use inline (unsigned-byte 32) operations" msgstr "useway inlineway (unsignedway-ytebay 32) operationsway" #: src/compiler/float-tran.lisp -msgid "Shouldn't happen" -msgstr "Ouldnshay't appenhay" - -#: src/compiler/float-tran.lisp msgid "Can't open-code float to rational comparison." msgstr "Ancay't openway-odecay oatflay otay ationalray omparisoncay." @@ -30979,6 +30984,9 @@ msgstr "" "eplacedray ybay ethay\n" "Unicodeway eplacementray aracterchay." +#~ msgid "Shouldn't happen" +#~ msgstr "Ouldnshay't appenhay" + #~ msgid "No such program: ~S" #~ msgstr "Onay uchsay ogrampray: ~S" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl.po ===================================== --- a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po @@ -34,7 +34,7 @@ msgstr "스트림 인 버퍼의 크기." #: src/code/intl.lisp src/compiler/globaldb.lisp src/code/defstruct.lisp #: src/code/remote.lisp src/code/wire.lisp src/code/internet.lisp #: src/code/loop.lisp src/code/run-program.lisp src/code/parse-time.lisp -#: src/code/profile.lisp src/code/ntrace.lisp src/code/rand-mt19937.lisp +#: src/code/profile.lisp src/code/ntrace.lisp src/code/rand-xoroshiro.lisp #: src/code/debug.lisp src/code/debug-int.lisp src/code/debug-info.lisp #: src/code/eval.lisp src/code/filesys.lisp src/code/pathname.lisp #: src/code/fd-stream.lisp src/code/extfmts.lisp src/code/serve-event.lisp @@ -12130,13 +12130,13 @@ msgstr "" msgid "Type \"yes\" for yes or \"no\" for no. " msgstr "" -#: src/code/rand-mt19937.lisp +#: src/code/rand-xoroshiro.lisp msgid "" "Generate an random state vector from the given SEED. The seed can be\n" -" either an integer or a vector of (unsigned-byte 32)" +" either an integer or a vector of (unsigned-byte 64)" msgstr "" -#: src/code/rand-mt19937.lisp +#: src/code/rand-xoroshiro.lisp msgid "" "Make a random state object. If STATE is not supplied, return a copy\n" " of the default random state. If STATE is a random state, then return a\n" @@ -12144,20 +12144,27 @@ msgid "" " the universal time or /dev/urandom if available." msgstr "" -#: src/code/rand-mt19937.lisp -msgid "Argument is not a RANDOM-STATE, T or NIL: ~S" +#: src/code/rand-xoroshiro.lisp +msgid "Argument is not a RANDOM-STATE, T, or NIL: ~S" msgstr "" -#: src/code/rand-mt19937.lisp +#: src/code/rand-xoroshiro.lisp msgid "" "Generate a uniformly distributed pseudo-random number between zero\n" " and Arg. State, if supplied, is the random state to use." msgstr "" -#: src/code/rand-mt19937.lisp +#: src/code/rand-xoroshiro.lisp msgid "Argument is not a positive integer or a positive float: ~S" msgstr "" +#: src/code/rand-xoroshiro.lisp +msgid "" +"Jump the RNG-STATE. This is equivalent to 2^64 calls to the\n" +" xoroshiro128+ generator. It can be used to generate 2^64\n" +" non-overlapping subsequences for parallel computations." +msgstr "" + #: src/code/ntrace.lisp msgid "" "This is bound to the returned values when evaluating :BREAK-AFTER and\n" @@ -18909,10 +18916,6 @@ msgid "use inline (unsigned-byte 32) operations" msgstr "" #: src/compiler/float-tran.lisp -msgid "Shouldn't happen" -msgstr "" - -#: src/compiler/float-tran.lisp msgid "Can't open-code float to rational comparison." msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/11e8aafe5be25c1ad2b99854… --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/11e8aafe5be25c1ad2b99854… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new tag snapshot-2018-01
by Raymond Toy 15 Jan '18

15 Jan '18

Raymond Toy pushed new tag snapshot-2018-01 at cmucl / cmucl --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/tree/snapshot-2018-01 You're receiving this email because of your account on gitlab.common-lisp.net.

1 0