cmucl-cvs

cmucl-cvs@common-lisp.net

2904 discussions

[git] CMU Common Lisp branch master updated. snapshot-2013-09-2-g7e2a98e
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 7e2a98eea48abc007e74490fa099da019b440ddc (commit) from 44abdb520938a95395c7b1ba00148d65d4db6aac (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 7e2a98eea48abc007e74490fa099da019b440ddc Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Sep 11 19:51:29 2013 -0700 Allow disabling the use of git for the file-comment. * src/compiler/main.lisp: * Add *FILE-COMMENT-FROM-GIT* to control whether to use git to derive the file-comment. Default is T. Otherwise, the actual file-comment is used. * Update PROCESS-FILE-COMMENT to use *FILE-COMMENT-FROM-GIT*. * bin/build-all.sh * bin/build.sh * bin/build-world.sh * Add -G option to control whether file-comment's are derived from git. diff --git a/bin/build-all.sh b/bin/build-all.sh index d5823af..0bf6ed5 100755 --- a/bin/build-all.sh +++ b/bin/build-all.sh @@ -35,12 +35,13 @@ usage () echo " -P On the last build, (re)generate cmucl.pot and the" echo " translations" echo " -R Force recompilation of C runtime" + echo " -G Don't use git to fill file-comment information" } CREATE_OPT="" UPDATE_POT="-P" -while getopts "PRUB:b:v:C:o:8:?" arg +while getopts "PRUGB:b:v:C:o:8:?" arg do case $arg in b) BASE="$OPTARG" ;; @@ -53,6 +54,7 @@ do U) UPDATE_TRANS="-U" ;; P) UPDATE_POT="" ;; R) RECOMPILEC="-R" ;; + G) GIT_FILE_COMMENT="-G" ;; \?) usage; exit 1 ;; esac done @@ -87,15 +89,15 @@ buildx86 () if [ -n "$OLD8" ]; then # Build non-unicode versions set -x - $BINDIR/build.sh -f x87 -b ${BASE}-8bit $bootfiles ${VERSION:+-v "$VERSION"} -C "${CREATE_OPT}" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} -o "$OLD8" - $BINDIR/build.sh -f sse2 -b ${BASE}-8bit $bootfiles ${VERSION:+-v "$VERSION"} -C "${CREATE_OPT}" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} -o "$OLD8" + $BINDIR/build.sh -f x87 -b ${BASE}-8bit $bootfiles ${VERSION:+-v "$VERSION"} -C "${CREATE_OPT}" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} ${GIT_FILE_COMMENT} -o "$OLD8" + $BINDIR/build.sh -f sse2 -b ${BASE}-8bit $bootfiles ${VERSION:+-v "$VERSION"} -C "${CREATE_OPT}" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} ${GIT_FILE_COMMENT} -o "$OLD8" set +x fi # Build the unicode versions if [ -n "$OLDLISP" ]; then set -x - $BINDIR/build.sh -f x87 -b ${BASE} $bootfiles ${VERSION:+-v "$VERSION"} -C "${CREATE_OPT}" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} -o "$OLDLISP" - $BINDIR/build.sh -f sse2 -b ${BASE} $bootfiles ${VERSION:+-v "$VERSION"} -C "${CREATE_OPT}" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} -o "$OLDLISP" + $BINDIR/build.sh -f x87 -b ${BASE} $bootfiles ${VERSION:+-v "$VERSION"} -C "${CREATE_OPT}" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} ${GIT_FILE_COMMENT} -o "$OLDLISP" + $BINDIR/build.sh -f sse2 -b ${BASE} $bootfiles ${VERSION:+-v "$VERSION"} -C "${CREATE_OPT}" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} ${GIT_FILE_COMMENT} -o "$OLDLISP" set +x fi } @@ -108,13 +110,13 @@ buildsun4 () # Build non-unicode versions if [ -n "$OLD8" ]; then set -x - $BINDIR/build.sh -b ${BASE}-8bit $bootfiles ${VERS} -C "$CREATE_OPT" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} -o "$OLD8" + $BINDIR/build.sh -b ${BASE}-8bit $bootfiles ${VERS} -C "$CREATE_OPT" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} ${GIT_FILE_COMMENT} -o "$OLD8" set +x fi # Build the unicode version. if [ -n "$OLDLISP" ]; then set -x - $BINDIR/build.sh -b ${BASE} $bootfiles ${VERS} -C "$CREATE_OPT" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} -o "$OLDLISP" + $BINDIR/build.sh -b ${BASE} $bootfiles ${VERS} -C "$CREATE_OPT" ${UPDATE_TRANS} ${UPDATE_POT} ${RECOMPILEC} ${GIT_FILE_COMMENT} -o "$OLDLISP" set +x fi } diff --git a/bin/build-world.sh b/bin/build-world.sh index f354915..8a20911 100755 --- a/bin/build-world.sh +++ b/bin/build-world.sh @@ -26,6 +26,12 @@ if [ -n "$MAKE_POT" ]; then SAVEPOT='(intl::dump-pot-files :output-directory "default:src/i18n/locale/")' fi +if [ "$GIT_FILE_COMMENT" = "no" ]; then + GIT_FILE_COMMENT="(setf c::*file-comment-from-git* nil)" +else + GIT_FILE_COMMENT= +fi + $LISP "$@" -noinit -nositeinit <<EOF (in-package :cl-user) @@ -56,6 +62,8 @@ $LISP "$@" -noinit -nositeinit <<EOF (setq debug:*debug-print-level* nil) (setq debug:*debug-print-length* nil) +$GIT_FILE_COMMENT + (load "target:tools/worldcom") #-(or no-compiler runtime) (load "target:tools/comcom") ;; Compile at least new-genesis, so that genesis doesn't take ages @@ -64,7 +72,6 @@ $LISP "$@" -noinit -nositeinit <<EOF $GETFMT $SAVEPOT - (setq *gc-verbose* t *interactive* t) (load "target:tools/worldbuild") diff --git a/bin/build.sh b/bin/build.sh index 4aa8f24..9be48e4 100755 --- a/bin/build.sh +++ b/bin/build.sh @@ -45,6 +45,8 @@ BINDIR=bin TOOLDIR=$BINDIR OLDLISPFLAGS="-noinit -nositeinit" OLDLISP="cmulisp" +GIT_FILE_COMMENT="yes" +export GIT_FILE_COMMENT SKIPUTILS=no @@ -66,7 +68,7 @@ fi usage () { - echo "build.sh [-123obvuBCU?]" + echo "build.sh [-123obvuBCUG?]" echo " -1 Skip build 1" echo " -2 Skip build 2" echo " -3 Skip build 3" @@ -96,6 +98,7 @@ usage () echo " The flags always include -noinit -nositeinit" echo " -R Force recompiling the C runtime. Normally, just runs make to " echo " recompile anything that has changed." + echo " -G Don't use git to fill file-comment information" exit 1 } @@ -152,7 +155,7 @@ BUILDWORLD="$TOOLDIR/build-world.sh" BUILD_POT="yes" UPDATE_TRANS= -while getopts "123PRo:b:v:uB:C:Ui:f:w:O:?" arg +while getopts "123PRGo:b:v:uB:C:Ui:f:w:O:?" arg do case $arg in 1) ENABLE2="no" ;; @@ -172,6 +175,7 @@ do U) UPDATE_TRANS="yes";; O) OLDLISPFLAGS="$OLDLISPFLAGS $OPTARG" ;; R) REBUILD_LISP="yes";; + G) GIT_FILE_COMMENT="no";; \?) usage ;; esac diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp index cba62e9..6abe478 100644 --- a/src/compiler/main.lisp +++ b/src/compiler/main.lisp @@ -1094,34 +1094,41 @@ ;;; ;;; Stash file comment in the file-info structure. ;;; + +(defvar *file-comment-from-git* t + "If non-Nil, use git to derive the file-comment. This info includes + the sha1 hash, the time and the author of the change. Otherwise, + just use the supplied file-comment.") + (defun process-file-comment (form) (unless (and (= (length form) 2) (stringp (second form))) (compiler-error _N"Bad FILE-COMMENT form: ~S." form)) (let ((file (first (source-info-current-file *source-info*)))) (labels ((run-git (path) - (let ((cwd (default-directory)) - (new (make-pathname :directory (pathname-directory path)))) - (unwind-protect - (progn - ;; Cd to the directory containing the file so that - ;; git can find the git repo, if available. - (setf (default-directory) new) - ;; Run git to get the info. Don't signal any - ;; errors if we can't find git and discard any - ;; error messages from git. We only use the - ;; result if git returns a zero exit code, anyway. - (handler-case - (run-program "git" - (list "log" - "-1" - "--pretty=format:%h %ai %an" - (namestring path)) - :output :stream - :error nil) - (error () - nil))) - (setf (default-directory) cwd)))) + (when *file-comment-from-git* + (let ((cwd (default-directory)) + (new (make-pathname :directory (pathname-directory path)))) + (unwind-protect + (progn + ;; Cd to the directory containing the file so that + ;; git can find the git repo, if available. + (setf (default-directory) new) + ;; Run git to get the info. Don't signal any + ;; errors if we can't find git and discard any + ;; error messages from git. We only use the + ;; result if git returns a zero exit code, anyway. + (handler-case + (run-program "git" + (list "log" + "-1" + "--pretty=format:%h %ai %an" + (namestring path)) + :output :stream + :error nil) + (error () + nil))) + (setf (default-directory) cwd))))) (generate-comment (file-info) (let* ((name (pathname (source-info-stream file-info))) (proc (run-git name)) ----------------------------------------------------------------------- Summary of changes: bin/build-all.sh | 16 ++++++++------- bin/build-world.sh | 9 ++++++++- bin/build.sh | 8 ++++++-- src/compiler/main.lisp | 51 +++++++++++++++++++++++++++--------------------- 4 files changed, 52 insertions(+), 32 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-09-7-gd03e178
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-91-g4771859
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

1 0

[git] CMU Common Lisp annotated tag 20e created. 20e
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The annotated tag, 20e has been created at 828631213b891de7d4b4ea690123488971d27e1f (tag) tagging bc828bed51339b951d84d2a264adf0221172f126 (commit) replaces snapshot-2013-09 tagged by Raymond Toy on Sat Sep 28 08:04:49 2013 -0700 - Log ----------------------------------------------------------------- CMUCL Release 20e -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.13 (Darwin) iEYEABECAAYFAlJG8B0ACgkQJ5IjUmgZO7J0LQCgwKZlRTOZ7IcN/7+k3HbR+5q2 IokAniRDnBEPgl6YOyqyOPuW7lipYI3y =N5yQ -----END PGP SIGNATURE----- Raymond Toy (9): Change Sparc default variant to sparc_sunc instead of sparc_gcc. Allow disabling the use of git for the file-comment. Set lvshort to solaris too if lisp_variant=sparc*. Support all sun4 archs, not just sun4u. (sun4v is T1). Update for new documentation. Update for release 20e. Update to date to Oct 2013, 20e. Make :plus-integer actually print + or - as documented. Update for 20e. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-9-gcc7145c
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via cc7145cac2b298800b0650938d559c11c35caa24 (commit) via 7a11c612892beceb575257c8b2e7fe239964f0e7 (commit) from e934d7ccdc07f355d29014b670605d1bc0b92dc1 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit cc7145cac2b298800b0650938d559c11c35caa24 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jul 22 08:09:42 2014 -0700 Comment out all of the trig functions in lisp in favor of calling out to C. Also add interface to sincos function in C. This needs more testing and currently some tests fail. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index bcd40c3..6d17c6c 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -197,6 +197,20 @@ (y0 double-float :out) (y1 double-float :out)) +(declaim (inline %%sincos)) +(alien:def-alien-routine ("sincos" %%sincos) c-call:void + (x double-float) + (s double-float :out) + (c double-float :out)) + +(declaim (inline %sincos)) +(defun %sincos (x) + (declare (double-float x)) + (multiple-value-bind (ign s c) + (%%sincos x) + (values s c))) + +#|| ;; Implement sin/cos/tan in Lisp. These are based on the routines ;; from fdlibm. @@ -603,7 +617,7 @@ (let ((flag (- 1 (ash (logand n 1) 1)))) ;; flag = 1 if n even, -1 if n odd (kernel-tan y0 y1 flag))))))) - +||# ;; Compute sin and cos of x, simultaneously. (defun %sincos (x) (declare (double-float x) @@ -628,7 +642,7 @@ (3 (values (- (kernel-cos y0 y1)) (kernel-sin y0 y1 1)))))))) -(declaim (ext:end-block)) +;;(declaim (ext:end-block)) ;;;; Power functions. commit 7a11c612892beceb575257c8b2e7fe239964f0e7 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jul 22 08:07:31 2014 -0700 Add implmeentation of sincos in C. Darwin/x86 doesn't have sincos in libm so include sincos when building on Darwin. diff --git a/src/lisp/Config.x86_darwin b/src/lisp/Config.x86_darwin index 39c09bd..2af8d77 100644 --- a/src/lisp/Config.x86_darwin +++ b/src/lisp/Config.x86_darwin @@ -17,3 +17,14 @@ OS_LINK_FLAGS = -m32 $(MIN_VER) OS_LIBS = EXEC_FINAL_OBJ = exec-final.o + +OS_SRC += sincos.c k_sin.o k_cos.o + +sincos.o : sincos.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< + +k_sin.o : k_sin.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< + +k_cos.o : k_cos.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< diff --git a/src/lisp/sincos.c b/src/lisp/sincos.c new file mode 100644 index 0000000..f5db8b3 --- /dev/null +++ b/src/lisp/sincos.c @@ -0,0 +1,43 @@ +#include "fdlibm.h" + +void sincos (double x, double *s, double *c) +{ + int ix; + union { int i[2]; double d; } ux; + + ux.d = x; + ix = ux.i[HIWORD] & 0x7fffffff; + + /* |x| ~< pi/4 */ + if (ix < 0x3fe921fb) { + *s = __kernel_sin(x, 0.0, 0); + *c = __kernel_cos(x, 0.0); + } else { + /* Argument reduction needed */ + double y[2]; + int n; + + n = __ieee754_rem_pio2(x, y); + + switch (n & 3) { + case 0: + *s = __kernel_sin(y[0], y[1], 1); + *c = __kernel_cos(y[0], y[1]); + break; + case 1: + *s = __kernel_cos(y[0], y[1]); + *c = - __kernel_sin(y[0], y[1], 1); + break; + case 2: + *s = - __kernel_sin(y[0], y[1], 1); + *c = - __kernel_cos(y[0], y[1]); + break; + case 3: + *s = - __kernel_cos(y[0], y[1]); + *c = __kernel_sin(y[0], y[1], 1); + break; + } + } + + return; +} ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 18 ++++++++++++++++-- src/lisp/Config.x86_darwin | 11 +++++++++++ src/lisp/sincos.c | 43 +++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 70 insertions(+), 2 deletions(-) create mode 100644 src/lisp/sincos.c hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-08-35-ge38211a
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-08-37-g98d3b69
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

1 0

[git] CMU Common Lisp branch rtoy-lisp-trig updated. snapshot-2013-12-a-13-g5b9111e
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, rtoy-lisp-trig has been updated via 5b9111e975748929ddcdd9052c5b5ec8138dcca5 (commit) via 0bd9e773136b7b827f711f51500fdca4122adf73 (commit) from 1ae2d46cf3e9776ff35c6d6eddf3d73f6b0b66a1 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 5b9111e975748929ddcdd9052c5b5ec8138dcca5 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 17 20:09:42 2013 -0800 Need to build e_rem_pio2.c on sparc now. diff --git a/src/lisp/Config.sparc_common b/src/lisp/Config.sparc_common index f8f7524..c4a8ed6 100644 --- a/src/lisp/Config.sparc_common +++ b/src/lisp/Config.sparc_common @@ -56,6 +56,6 @@ ASSEM_SRC = sparc-assem.S ARCH_SRC = sparc-arch.c DEPEND=$(CC) -OS_SRC = solaris-os.c os-common.c undefineds.c elf.c k_rem_pio2.c +OS_SRC = solaris-os.c os-common.c undefineds.c elf.c e_rem_pio2.c k_rem_pio2.c OS_LIBS= -lsocket -lnsl -ldl EXEC_FINAL_OBJ = exec-final.o commit 0bd9e773136b7b827f711f51500fdca4122adf73 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 17 20:09:15 2013 -0800 Add some comments and remove unneeded package qualifiers. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 4dc7773..4ccf80a 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -242,15 +242,17 @@ (optimize (speed 3) (safety 0))) (let ((ix (ldb (byte 31 0) (kernel:double-float-high-bits x)))) (when (< ix #x3e400000) + ;; |x| < 2^-27 + ;; Signal inexact if x /= 0 (if (zerop (truncate x)) (return-from kernel-sin x) (return-from kernel-sin x))) - (let* ((s1 -1.66666666666666324348d-01) - (s2 8.33333333332248946124d-03) - (s3 -1.98412698298579493134d-04) - (s4 2.75573137070700676789d-06) - (s5 -2.50507602534068634195d-08) - (s6 1.58969099521155010221d-10) + (let* ((s1 -1.66666666666666324348d-01) ; #xBFC55555 #x55555549 + (s2 8.33333333332248946124d-03) ; #x3F811111 #x1110F8A6 + (s3 -1.98412698298579493134d-04) ; #xBF2A01A0 #x19C161D5 + (s4 2.75573137070700676789d-06) ; #x3EC71DE3 #x57B1FE7D + (s5 -2.50507602534068634195d-08) ; #xBE5AE5E6 #x8A2B9CEB + (s6 1.58969099521155010221d-10) ; #x3DE5D93A #x5ACFD57C (z (* x x)) (v (* z x)) (r (+ s2 @@ -338,13 +340,15 @@ (- (* z r) (* x y))))) (t + ;; qx = 0.28125 if |x| > 0.78125, else x/4 dropping the + ;; least significant 32 bits. (let* ((qx (if (> ix #x3fe90000) 0.28125d0 ;; x/4, exactly, and also dropping the ;; least significant 32 bits of the - ;; fraction. (Why?) - (kernel:make-double-float (- ix #x00200000) - 0))) + ;; fraction. + (make-double-float (- ix #x00200000) + 0))) (hz (- (* 0.5 z) qx)) (a (- 1 qx))) (- a (- hz (- (* z r) @@ -419,7 +423,8 @@ (when (zerop (truncate x)) (cond ((zerop (logior (logior ix (kernel:double-float-low-bits x)) (+ iy 1))) - ;; x = 0 and iy = -1 (cot) + ;; x = 0 (because hi and low bits are 0) and iy = -1 + ;; (cot) (return-from kernel-tan (/ (abs x)))) ((= iy 1) (return-from kernel-tan x)) @@ -429,10 +434,10 @@ (let ((a 0d0) (tt 0d0)) (setf w (+ x y)) - (setf z (kernel:make-double-float (kernel:double-float-high-bits w) 0)) + (setf z (make-double-float (double-float-high-bits w) 0)) (setf v (- y (- z x))) (setf a (/ -1 w)) - (setf tt (kernel:make-double-float (kernel:double-float-high-bits a) 0)) + (setf tt (make-double-float (double-float-high-bits a) 0)) (setf s (+ 1 (* tt z))) (return-from kernel-tan (+ tt (* a (+ s (* tt v)))))))))) @@ -441,10 +446,13 @@ (when (minusp hx) (setf x (- x)) (setf y (- y))) + ;; The two constants below are such that pi/4 + pi/4_lo is pi/4 + ;; to twice the accuracy of a double float. + ;; ;; z = pi/4-x - (setf z (- (kernel:make-double-float #x3FE921FB #x54442D18) x)) - ;; w = pi/4_lo - y - (setf w (- (kernel:make-double-float #x3C81A626 #x33145C07) y)) + (setf z (- (make-double-float #x3FE921FB #x54442D18) x)) + ;; w = pi/4_lo - y. + (setf w (- (make-double-float #x3C81A626 #x33145C07) y)) (setf x (+ z w)) (setf y 0d0)) (setf z (* x x)) ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 38 +++++++++++++++++++++++--------------- src/lisp/Config.sparc_common | 2 +- 2 files changed, 24 insertions(+), 16 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-10-gd9fb490
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

1 0

[git] CMU Common Lisp annotated tag snapshot-2013-06 created. snapshot-2013-06
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The annotated tag, snapshot-2013-06 has been created at 5bb85899559aa56dff922bcc67cc65cef79364e4 (tag) tagging faf5cd6df3c8fd377891082e2f3bbcbada81e1d6 (commit) replaces snapshot-2013-05 tagged by Raymond Toy on Sat Jun 1 06:34:52 2013 -0700 - Log ----------------------------------------------------------------- Snapshot 2013-06 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (Darwin) iEYEABECAAYFAlGp+HwACgkQJ5IjUmgZO7K6NQCgq70jgG6j8OQHpW3/K2kOTQdF BoMAn2YuGpubnd1qy1IDYgmKoepc4jy6 =gVMY -----END PGP SIGNATURE----- Raymond Toy (21): Wrap exports in eval-when. Wrap exports in eval-when for ppc as was done for sparc and add Wrap exports in eval-when for x86 as was done for sparc and add Forgot to commit changes to code/x86-vm.lisp to: Fix ticket:81 and fix ticket:83. Update. Don't reverse surrogate pairs in strings; it's not allowed by the Fix ticket:82: If the form numbers are too large to be encoded, don't Regenerated from current sources. Update to ASDF 3.0.1. Fix typo. Remove all the extensions to string-upcase and friends. The extended Import many unicode symbols from LISP into the UNICODE package. Update. Use BYTE-BASH-COPY in COPY-SEQ on strings. Update. Use BYTE-BASH-COPY too when CONCATENATE'ing simple-strings. Minor corrections for the usage message. Update piglatin translations using the latest pot files. Regenerated from sparc build. Regenerated after sparc build. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs