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

[cmucl-cvs] CMUCL commit: src/code (misc.lisp)
by Raymond Toy 31 May '11

31 May '11

Date: Tuesday, May 31, 2011 @ 06:18:38 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: misc.lisp Add :CMUCL to *FEATURES*. (Even though I (rtoy) should know better, I still find myself writing :cmucl instead of :cmu in feature tests.) -----------+ misc.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) Index: src/code/misc.lisp diff -u src/code/misc.lisp:1.43 src/code/misc.lisp:1.44 --- src/code/misc.lisp:1.43 Mon Nov 8 05:45:27 2010 +++ src/code/misc.lisp Tue May 31 06:18:37 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/misc.lisp,v 1.43 2010/11/08 13:45:27 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/misc.lisp,v 1.44 2011/05/31 13:18:37 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -160,6 +160,12 @@ #+unicode (sys:register-lisp-runtime-feature :unicode) +#+cmu +(sys:register-lisp-feature :cmu) + +#+(or cmu cmucl) +(sys:register-lisp-feature :cmucl) + (defun featurep (x) "If X is an atom, see if it is present in *FEATURES*. Also handle arbitrary combinations of atoms using NOT, AND, OR."

1 0

[cmucl-cvs] CMUCL commit: src/code (fd-stream.lisp)
by Raymond Toy 31 May '11

31 May '11

Date: Tuesday, May 31, 2011 @ 06:14:39 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: fd-stream.lisp Ignore shell wildcards when determining next version. Comment from Paul Foley: Problem: FD-OPEN calls NEXT-VERSION with the namestring; NEXT-VERSION calls EXTRACT-NAME-TYPE-AND-VERSION, which builds a "pattern" when it sees globbing characters in the name, and NEXT-VERSION promptly crashes when it tries to concatenate strings. Fix: Bind *IGNORE-WILDCARDS* to T in NEXT-VERSION (in fd-stream.lisp) ----------------+ fd-stream.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) Index: src/code/fd-stream.lisp diff -u src/code/fd-stream.lisp:1.123 src/code/fd-stream.lisp:1.124 --- src/code/fd-stream.lisp:1.123 Wed Feb 16 18:55:45 2011 +++ src/code/fd-stream.lisp Tue May 31 06:14:39 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.123 2011/02/17 02:55:45 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.124 2011/05/31 13:14:39 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1948,7 +1948,8 @@ ;;; (defun next-version (name) (declare (type simple-string name)) - (let* ((sep (position #\/ name :from-end t)) + (let* ((*ignore-wildcards* t) + (sep (position #\/ name :from-end t)) (base (if sep (subseq name 0 (1+ sep)) "")) (dir (unix:open-dir base))) (multiple-value-bind (name type version)

1 0

[cmucl-cvs] CMUCL commit: src (BUILDING)
by Raymond Toy 11 May '11

11 May '11

Date: Wednesday, May 11, 2011 @ 10:20:27 Author: rtoy Path: /project/cmucl/cvsroot/src Modified: BUILDING Add short description for build.sh. ----------+ BUILDING | 6 ++++++ 1 file changed, 6 insertions(+) Index: src/BUILDING diff -u src/BUILDING:1.23 src/BUILDING:1.24 --- src/BUILDING:1.23 Wed Sep 15 20:13:01 2010 +++ src/BUILDING Wed May 11 10:20:27 2011 @@ -245,6 +245,12 @@ Overview of the included build scripts -------------------------------------- +* src/tools/build.sh [-123obvuBCU?] + +This is the main build script. It essentially calls the other build +scripts described below in the proper sequence to build cmucl from an +existing binary of cmucl. + * src/tools/create-target.sh target-directory [lisp-variant [motif-variant]] This script creates a new target directory, which is a shadow of the

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (download.html)
by Raymond Toy 12 Apr '11

12 Apr '11

Date: Tuesday, April 12, 2011 @ 10:41:42 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: download.html common-lisp.net isn't in the UK anymore. Delete location. ---------------+ download.html | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: cmucl-www/cmucl-www/www/download.html diff -u cmucl-www/cmucl-www/www/download.html:1.32 cmucl-www/cmucl-www/www/download.html:1.33 --- cmucl-www/cmucl-www/www/download.html:1.32 Tue Apr 12 09:26:29 2011 +++ cmucl-www/cmucl-www/www/download.html Tue Apr 12 10:41:42 2011 @@ -21,7 +21,7 @@ <dl> <dt> <a href="http://common-lisp.net/project/cmucl/downloads/">common-lisp.net/project/cmucl/downloads/</a> -<dd> The primary CMUCL machine, hosted in the United Kingdom.</dd> +<dd> The primary CMUCL machine</dd> <!-- <dt> <a href = "ftp://ftp.averillpark.net/cmucl/">ftp.averillpark.net:/cmucl</a>

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (download.html)
by Raymond Toy 12 Apr '11

12 Apr '11

Date: Tuesday, April 12, 2011 @ 09:26:29 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: download.html Update list of binaries available for 2011-04. ---------------+ download.html | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) Index: cmucl-www/cmucl-www/www/download.html diff -u cmucl-www/cmucl-www/www/download.html:1.31 cmucl-www/cmucl-www/www/download.html:1.32 --- cmucl-www/cmucl-www/www/download.html:1.31 Sun Apr 10 15:32:46 2011 +++ cmucl-www/cmucl-www/www/download.html Tue Apr 12 09:26:29 2011 @@ -110,10 +110,14 @@ </ul> </td> <td> - - +  + <dl> + <dt>8.1-stable + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshot/2011/04/cmucl-2011-…">Unicode</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshot/2011/04/cmucl-2011-…">Unicode extras</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshot/2011/04/cmucl-2011-…">Non-Unicode</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshot/2011/04/cmucl-2011-…">Non-Unicode extras</a></dd> + </dl> </td> <td>  @@ -123,12 +127,13 @@ <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode extras</a></dd> <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode</a></dd> <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode extras</a></> - <dt>Solaris10/x86 - <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode</a></dd> - <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode extras</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode extras</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-uUnicode extras</a></dd> </dl> ---> </td> <td>

1 0

[cmucl-cvs] CMUCL commit: src/tools/cross-scripts (cross-x86-osx-solaris.lisp)
by Raymond Toy 12 Apr '11

12 Apr '11

Date: Monday, April 11, 2011 @ 21:55:14 Author: rtoy Path: /project/cmucl/cvsroot/src/tools/cross-scripts Modified: cross-x86-osx-solaris.lisp Update so we can cross-compile from linux to solaris too. ----------------------------+ cross-x86-osx-solaris.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/tools/cross-scripts/cross-x86-osx-solaris.lisp diff -u src/tools/cross-scripts/cross-x86-osx-solaris.lisp:1.2 src/tools/cross-scripts/cross-x86-osx-solaris.lisp:1.3 --- src/tools/cross-scripts/cross-x86-osx-solaris.lisp:1.2 Tue Dec 21 21:12:52 2010 +++ src/tools/cross-scripts/cross-x86-osx-solaris.lisp Mon Apr 11 21:55:14 2011 @@ -42,12 +42,12 @@ '(:x86-bootstrap ;; :alpha :osf1 :mips :propagate-fun-type :propagate-float-type :constrain-float-type - ;; :openbsd :freebsd :glibc2 :linux + :openbsd :freebsd :glibc2 :linux :mach-o :darwin :long-float :new-random :small)) ;;; (setf *features* (remove :bsd *features*)) -;; Set up the linkage space stuff appropriately for sparc. +;; Set up the linkage space stuff appropriately for x86-solaris. (setf (c::backend-foreign-linkage-space-start c::*target-backend*) #x30000000 (c::backend-foreign-linkage-entry-size c::*target-backend*)

1 0

[cmucl-cvs] CMUCL commit: src/tools (make-dist.sh)
by Raymond Toy 11 Apr '11

11 Apr '11

Date: Monday, April 11, 2011 @ 12:34:49 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: make-dist.sh Automatically select arch and os on FreeBSD, if none given. --------------+ make-dist.sh | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) Index: src/tools/make-dist.sh diff -u src/tools/make-dist.sh:1.19 src/tools/make-dist.sh:1.20 --- src/tools/make-dist.sh:1.19 Wed Dec 22 22:17:43 2010 +++ src/tools/make-dist.sh Mon Apr 11 12:34:49 2011 @@ -9,7 +9,7 @@ # you extracted the two tarballs and the source distribution into that # directory. # -# $Header: /project/cmucl/cvsroot/src/tools/make-dist.sh,v 1.19 2010-12-23 03:17:43 rtoy Exp $ +# $Header: /project/cmucl/cvsroot/src/tools/make-dist.sh,v 1.20 2011-04-11 16:34:49 rtoy Exp $ usage() { echo "make-dist.sh: [-hbg] [-G group] [-O owner] [-I destdir] [-M mandir] dir version [arch os]" @@ -79,6 +79,11 @@ NetBSD) ARCH=x86 OS=netbsd + ;; + FreeBSD) + ARCH=x86 + OS=freebsd_`uname -r | tr 'A-Z' 'a-z'` + ;; esac }

1 0

[cmucl-cvs] CMUCL commit: src/tools/cross-scripts (cross-x86-osx-freebsd.lisp)
by Raymond Toy 11 Apr '11

11 Apr '11

Date: Monday, April 11, 2011 @ 12:32:56 Author: rtoy Path: /project/cmucl/cvsroot/src/tools/cross-scripts Modified: cross-x86-osx-freebsd.lisp Update so that linux can be used to cross-compile to freebsd. ----------------------------+ cross-x86-osx-freebsd.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) Index: src/tools/cross-scripts/cross-x86-osx-freebsd.lisp diff -u src/tools/cross-scripts/cross-x86-osx-freebsd.lisp:1.1 src/tools/cross-scripts/cross-x86-osx-freebsd.lisp:1.2 --- src/tools/cross-scripts/cross-x86-osx-freebsd.lisp:1.1 Wed Dec 1 08:55:25 2010 +++ src/tools/cross-scripts/cross-x86-osx-freebsd.lisp Mon Apr 11 12:32:56 2011 @@ -40,7 +40,10 @@ '(:x86-bootstrap ;; :alpha :osf1 :mips :propagate-fun-type :propagate-float-type :constrain-float-type - ;; :openbsd :freebsd :glibc2 :linux + ;; :openbsd :freebsd :glibc2 + :openbsd + :glibc2 + :linux :mach-o :darwin :long-float :new-random :small))

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (download.html index.html)
by Raymond Toy 10 Apr '11

10 Apr '11

Date: Sunday, April 10, 2011 @ 15:32:47 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: download.html index.html Update for 2011-04 snapshot. ---------------+ download.html | 61 +++++++++++++++++++++++++++++++++++++++++++++++++++++--- index.html | 14 +++++++++++- 2 files changed, 71 insertions(+), 4 deletions(-) Index: cmucl-www/cmucl-www/www/download.html diff -u cmucl-www/cmucl-www/www/download.html:1.30 cmucl-www/cmucl-www/www/download.html:1.31 --- cmucl-www/cmucl-www/www/download.html:1.30 Mon Mar 7 00:02:15 2011 +++ cmucl-www/cmucl-www/www/download.html Sun Apr 10 15:32:46 2011 @@ -89,6 +89,64 @@ <th>NetBSD</th> <th>Miscellaneous files</th> </tr> + <tr> + <td>2011-04</td> + <td> +  + <ul> + <li><a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode</a></li> + <li><a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode extras</a></li> + <li><a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode</a></li> + <li><a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode extras</a></li> + </ul> + </td> + <td> + <ul> +  + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode extras</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode extras</a></li> + </ul> + </td> + <td> + + + </td> + <td> +  + <dl> + <dt>Solaris10/sparc + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode extras</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode</a></dd> + <dd> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode extras</a></> + + </td> + <td> + + <ul> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Unicode extras</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-2011…">Non-Unicode extras</a></li> + </ul> + </td> + <td> +  + <ul> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/cmucl-src-…">Source code</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/snapshots/2011/04/release-20…">Release notes for 20c</a></li> + </ul> + </td> + </tr> <tr> <td>2011-03</td> @@ -133,15 +191,12 @@ </td> <td> -  </td> <td>  Index: cmucl-www/cmucl-www/www/index.html diff -u cmucl-www/cmucl-www/www/index.html:1.22 cmucl-www/cmucl-www/www/index.html:1.23 --- cmucl-www/cmucl-www/www/index.html:1.22 Thu Mar 3 12:04:06 2011 +++ cmucl-www/cmucl-www/www/index.html Sun Apr 10 15:32:47 2011 @@ -68,7 +68,19 @@ Also see <a href="news/index.html">News</a> for older news. <dl> -<dt>Snapshot 2011-03 +<dt>Snapshot 2011-04 + +<dd> The 2011-04 snapshot has been released. See the release nots for + details, but here is a quick summary of the changes between the + this snapshot and the previous snapshot. + <ul> + <li> In <code>COMPILE-FILE</code>, the second return value is now non-nil if + there are style warnings. Previously, style warnings were + erroneously ignored. </li> + <li> ASDF has been updated to version 2.014.1 </li> + </ul> +</dd> +<dt>Snapshot 2011-03 <dd> The 2011-02 snapshot has been released. See the release notes for details, but here is a quick summary of the changes between the

1 0

[cmucl-cvs] CMUCL commit: src/tools (piglatin.lisp)
by Raymond Toy 03 Apr '11

03 Apr '11

Date: Sunday, April 3, 2011 @ 11:19:14 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: piglatin.lisp Order the header in the same order as what the tools tend to produce (at least on my Mac). ---------------+ piglatin.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: src/tools/piglatin.lisp diff -u src/tools/piglatin.lisp:1.4 src/tools/piglatin.lisp:1.5 --- src/tools/piglatin.lisp:1.4 Wed Sep 15 11:49:17 2010 +++ src/tools/piglatin.lisp Sun Apr 3 11:19:14 2011 @@ -81,10 +81,10 @@ \"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\\n\" \"Last-Translator: Automatic translation\\n\" \"Language-Team: Pig Latin (auto-translated)\\n\" +\"Language: Pig Latin\\n\" \"MIME-Version: 1.0\\n\" \"Content-Type: text/plain; charset=UTF-8\\n\" \"Content-Transfer-Encoding: 8bit\\n\" -\"Language: Pig Latin\\n\" \"Plural-Forms: nplurals=2; plural=(n != 1);\\n\" ")

1 0