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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-25-gd6a6792
by Raymond Toy 22 Oct '11

22 Oct '11

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 d6a6792b94882e781003cf47cfdb882ba3a96f6a (commit) from c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef (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 d6a6792b94882e781003cf47cfdb882ba3a96f6a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Oct 21 20:35:49 2011 -0700 (format t "a~0&b") should not output a newline between a and b. diff --git a/code/format.lisp b/code/format.lisp index b8a9e76..704ec34 100644 --- a/code/format.lisp +++ b/code/format.lisp @@ -1999,9 +1999,10 @@ (if params (expand-bind-defaults ((count 1)) params `(progn - (fresh-line stream) - (dotimes (i (1- ,count)) - (terpri stream)))) + (when (plusp ,count) + (fresh-line stream) + (dotimes (i (1- ,count)) + (terpri stream))))) '(fresh-line stream))) (def-format-interpreter #\& (colonp atsignp params) @@ -2010,9 +2011,10 @@ :complaint (intl:gettext "Cannot specify either colon or atsign for this directive."))) (interpret-bind-defaults ((count 1)) params - (fresh-line stream) - (dotimes (i (1- count)) - (terpri stream)))) + (when (plusp count) + (fresh-line stream) + (dotimes (i (1- count)) + (terpri stream))))) (def-format-directive #\| (colonp atsignp params) (when (or colonp atsignp) diff --git a/general-info/release-20c.txt b/general-info/release-20c.txt index ffe98b5..2db1794 100644 --- a/general-info/release-20c.txt +++ b/general-info/release-20c.txt @@ -1,7 +1,5 @@ ========================== C M U C L 20 c ============================= -[--- WORK IN PROGRESS ---] - The CMUCL project is pleased to announce the release of CMUCL 20c. This is a major release which contains numerous enhancements and bug fixes from the 20b release. @@ -60,6 +58,7 @@ New in this release: - Improve type propagation for LOAD-TIME-VALUE. - Add -O option to build.sh to allow specifying options to lisp when doing the builds. + - (format t "a~0&b") should not output a newline between a and b. * ANSI compliance fixes: - Fixes for signaling errors with READ-CHAR and READ-BYTE ----------------------------------------------------------------------- Summary of changes: code/format.lisp | 14 ++++++++------ general-info/release-20c.txt | 3 +-- 2 files changed, 9 insertions(+), 8 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-24-gc3ec128
by Raymond Toy 22 Oct '11

22 Oct '11

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 c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef (commit) from 7243adb2da5a50c966fb9676f72caa1f20ed4116 (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 c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Oct 21 19:02:06 2011 -0700 Clean up docstrings of MAP<foo> to match the argument names. diff --git a/code/list.lisp b/code/list.lisp index aa44acd..590564a 100644 --- a/code/list.lisp +++ b/code/list.lisp @@ -1056,27 +1056,32 @@ (defun mapc (function list &rest more-lists) - "Applies fn to successive elements of lists, returns its second argument." + "Applies Function to successive elements of each List, and returns + its second argument." (map1 function (cons list more-lists) nil t)) (defun mapcar (function list &rest more-lists) - "Applies fn to successive elements of list, returns list of results." + "Applies Function to successive elements of each List, and returns a + list of results." (map1 function (cons list more-lists) :list t)) (defun mapcan (function list &rest more-lists) - "Applies fn to successive elements of list, returns NCONC of results." + "Applies Function to successive elements of each List, and returns + NCONC of results." (map1 function (cons list more-lists) :nconc t)) (defun mapl (function list &rest more-lists) - "Applies fn to successive CDRs of list, returns ()." + "Applies Function to successive CDRs of each List, and returns ()." (map1 function (cons list more-lists) nil nil)) (defun maplist (function list &rest more-lists) - "Applies fn to successive CDRs of list, returns list of results." + "Applies Function to successive CDRs of each List, and returns list + of results." (map1 function (cons list more-lists) :list nil)) (defun mapcon (function list &rest more-lists) - "Applies fn to successive CDRs of lists, returns NCONC of results." + "Applies Function to successive CDRs of each List, and returns NCONC + of results." (map1 function (cons list more-lists) :nconc nil)) ----------------------------------------------------------------------- Summary of changes: code/list.lisp | 17 +++++++++++------ 1 files changed, 11 insertions(+), 6 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch dynamic-stack-alloc updated. snapshot-2011-10-38-g9122483
by Raymond Toy 15 Oct '11

15 Oct '11

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, dynamic-stack-alloc has been updated via 9122483ad1826b335339eca9982882ef8faaf7f7 (commit) via a34b7f0e2796651ac002cefd0811767091a3731a (commit) via ae88f40f3125a4cc7729ccb81ebadd33e05889c7 (commit) via e9c497d7156a43a4acb77c26e392fb47f9c47552 (commit) via 987c3f200c854ede9196132e517756c5d4421239 (commit) via c78ad0faeb5c8518124d55757c2b868ae8b97dfb (commit) via 1e5b21e28d58b1b16a36111967e2ee77464cafbd (commit) via fce6baff8422e8de9c3f4b33e557c55e3e34ebee (commit) via 8c5abd162d1cbee840088eee055f064bf9c1e283 (commit) via 6758988de6238d627c018601adfa137e9321e69d (commit) via 5079827f9d27e143f3a48ab5006ec42f71f0815c (commit) via a0559708e0f703f88c7bb731689e85e3c9f0b88c (commit) via e04778be14f6bba6a489a8bae37e39dee50bebe8 (commit) via ef0137913f8e6bcbe6bc7931d25f5c30cbb91857 (commit) via 39ecf08786867b6aa353203a26b51256a541cedf (commit) via e656215ac44b80944c2ead1314d512ddbcb94ac4 (commit) via 803a8bd24679310c298c8e51264f9dbdb2cf30a7 (commit) via 15db498a83e329bfd524a40897a07a3076f390c8 (commit) via 4be42bd6d9718524eab70a3cdc9ba8f457d83b86 (commit) via 7c53c93c934cafc335ef98e48be2d1cd7e141579 (commit) via b4d64266f7e16b51677285a3e6f93b5351fb13c3 (commit) from d452655e2ee178a879d8e3b6caaec5469d99cf2a (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 9122483ad1826b335339eca9982882ef8faaf7f7 Merge: d452655 a34b7f0 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Oct 13 18:59:33 2011 -0700 Merge branch 'master' into dynamic-stack-alloc Conflicts: tools/create-target.sh tools/load-world.sh diff --cc tools/load-world.sh index d381769,288e40c..391208f --- a/tools/load-world.sh +++ b/tools/load-world.sh @@@ -11,9 -11,10 +11,9 @@@ usage( SKIP_PCL= NO_PCL_FEATURE= - # Default version is the date and the git hash + # Default version is the date with the git hash. GIT_HASH="`(cd src; git describe --dirty 2>/dev/null)`" - VERSION="`date '+%Y-%m-%d %H:%M:%S'`" + VERSION="`date '+%Y-%m-%d %H:%M:%S'`${GIT_HASH:+ $GIT_HASH}" -echo $VERSION while getopts "p" arg do ----------------------------------------------------------------------- Summary of changes: compiler/main.lisp | 137 ++++++++++++++++++++++++++--------------------- tools/build-all.sh | 26 +++++---- tools/create-target.sh | 2 +- tools/load-world.sh | 8 ++-- 4 files changed, 95 insertions(+), 78 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-21-g7b6eb21
by Raymond Toy 15 Oct '11

15 Oct '11

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 7b6eb2172fe582d5d1278abc041ba097fda9aa32 (commit) from a34b7f0e2796651ac002cefd0811767091a3731a (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 7b6eb2172fe582d5d1278abc041ba097fda9aa32 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Oct 14 22:44:17 2011 -0700 Properly handle a denormal operand exception. This should get rid of the occasional problem about SIGFPE's with no exceptions enabled. error.lisp: o Add floating-point-denormal-operand arithmetic error. exports.lisp: o Export the new arithmetic error type. float-trap.lisp: o Check the denormal trap bit and signal the appropriate error. release-20c.txt: o Update. diff --git a/code/error.lisp b/code/error.lisp index f2b2a19..2678d22 100644 --- a/code/error.lisp +++ b/code/error.lisp @@ -53,7 +53,8 @@ arithmetic-error arithmetic-error-operation arithmetic-error-operands package-error package-error-package division-by-zero floating-point-overflow floating-point-underflow - floating-point-inexact floating-point-invalid-operation)) + floating-point-inexact floating-point-invalid-operation + #+x86 floating-point-denormal-operand)) (in-package "CONDITIONS") @@ -1129,6 +1130,8 @@ (define-condition floating-point-underflow (arithmetic-error) ()) (define-condition floating-point-inexact (arithmetic-error) ()) (define-condition floating-point-invalid-operation (arithmetic-error) ()) +#+x86 +(define-condition floating-point-denormal-operand (arithmetic-error) ()) ;;; This condition is signalled whenever we make a UNKNOWN-TYPE so that ;;; compiler warnings can be emitted as appropriate. diff --git a/code/exports.lisp b/code/exports.lisp index 6749fb0..d34e2d3 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -720,7 +720,9 @@ "FIND-IF" "FIND-IF-NOT" "FIND-PACKAGE" "FIND-RESTART" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM" "FLET" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX" - "FLOAT-SIGN" "FLOATING-POINT-INEXACT" + "FLOAT-SIGN" + "FLOATING-POINT-DENORMAL-OPERAND" + "FLOATING-POINT-INEXACT" "FLOATING-POINT-INVALID-OPERATION" "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW" "FLOATP" "FLOOR" "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FORMATTER" diff --git a/code/float-trap.lisp b/code/float-trap.lisp index 5cb3b3f..0ac3898 100644 --- a/code/float-trap.lisp +++ b/code/float-trap.lisp @@ -289,6 +289,11 @@ (error 'floating-point-inexact :operation fop :operands operands)) + #+x86 + ((not (zerop (logand float-denormal-trap-bit traps))) + (error 'floating-point-denormal-operand + :operation fop + :operands operands)) (t ;; It looks like the sigcontext on Solaris/x86 doesn't ;; actually save the status word of the FPU. The diff --git a/general-info/release-20c.txt b/general-info/release-20c.txt index 50bea98..ffe98b5 100644 --- a/general-info/release-20c.txt +++ b/general-info/release-20c.txt @@ -145,7 +145,7 @@ New in this release: actually prevent stack overflows from crashing lisp. - Fix rounding of numbers larger than a fixnum. (See Trac #10 for a related issue.) - + - Properly handle the denormal operand trap on x86es. * Trac Tickets: - #43: unread-char doesn't change file-position ----------------------------------------------------------------------- Summary of changes: code/error.lisp | 5 ++++- code/exports.lisp | 4 +++- code/float-trap.lisp | 5 +++++ general-info/release-20c.txt | 2 +- 4 files changed, 13 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-20-ga34b7f0
by Raymond Toy 13 Oct '11

13 Oct '11

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 a34b7f0e2796651ac002cefd0811767091a3731a (commit) via ae88f40f3125a4cc7729ccb81ebadd33e05889c7 (commit) from e9c497d7156a43a4acb77c26e392fb47f9c47552 (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 a34b7f0e2796651ac002cefd0811767091a3731a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Oct 12 22:15:46 2011 -0700 Clean up implementation of PROCESS-FILE-COMMENT slightly. diff --git a/compiler/main.lisp b/compiler/main.lisp index eac347d..544ccb0 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1127,9 +1127,9 @@ (generate-comment (file-info) (let* ((name (pathname (source-info-stream file-info))) (proc (run-git name)) - comment) - (if (and proc (zerop (process-exit-code proc)) - (setf comment (read-line (process-output proc) nil nil))) + (comment (and proc (zerop (process-exit-code proc)) + (read-line (process-output proc) nil nil)))) + (if comment (format nil "$Header: ~A ~A $" (enough-namestring name) comment) commit ae88f40f3125a4cc7729ccb81ebadd33e05889c7 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Oct 12 22:06:43 2011 -0700 Format docstrings for COMPILE-FILE and COMPILE-FILE-PATHNAME so DESCRIBE prints them neatly. diff --git a/compiler/main.lisp b/compiler/main.lisp index 9e16830..eac347d 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1810,13 +1810,14 @@ These keywords are supported: :Output-File - The name of the FASL to output, NIL for none, T for the default. (Note the - difference between the treatment of NIL :Output-File here and in COMPILE-FILE-PATHNAME.) - The returned pathname of the output file may differ from the pathname of the - :Output-File parameter, e.g. when the latter is a designator for a directory. + The name of the FASL to output, NIL for none, T for the default. + (Note the difference between the treatment of NIL :Output-File + here and in COMPILE-FILE-PATHNAME.) The returned pathname of the + output file may differ from the pathname of the :Output-File + parameter, e.g. when the latter is a designator for a directory. :Load - Load the compiled file; T here requires :Output-File to be non-NIL, as well. - The default for :Load is NIL. + Load the compiled file; T here requires :Output-File to be + non-NIL, as well. The default for :Load is NIL. :Error-File The name of the error listing file, NIL for none (the default), T for .err. :Trace-File @@ -2135,10 +2136,12 @@ (byte-compile *byte-compile-default*) (output-file t output-file-supplied-p) &allow-other-keys) - "Return a pathname describing what file COMPILE-FILE would write to given these arguments. - The returned pathname of the output file may differ from the pathname of the :Output-File - parameter, e.g. when the latter is a designator for a directory. The CMUCL caveat: NIL is - accepted for :Output-File there but not here, which is probably not in line with CLHS." + "Return a pathname describing what file COMPILE-FILE would write to + given these arguments. The returned pathname of the output file may + differ from the pathname of the :Output-File parameter, e.g. when + the latter is a designator for a directory. The CMUCL caveat: NIL is + accepted for :Output-File there but not here, which is probably not + in line with CLHS." (declare (type (or string pathname stream) input-file) (type (or string pathname stream (member t)) output-file) (values (or null pathname))) ----------------------------------------------------------------------- Summary of changes: compiler/main.lisp | 29 ++++++++++++++++------------- 1 files changed, 16 insertions(+), 13 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-18-ge9c497d
by Alex Goncharov 13 Oct '11

13 Oct '11

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 e9c497d7156a43a4acb77c26e392fb47f9c47552 (commit) from 987c3f200c854ede9196132e517756c5d4421239 (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 e9c497d7156a43a4acb77c26e392fb47f9c47552 Author: Alex Goncharov <alex-goncharov(a)comcast.net> Date: Thu Oct 13 00:11:25 2011 -0400 compiler/main.lisp: Improve the doc strings for compile-file and compile-file-pathname. Unify the use of the FASL and NIL words across all documentation strings in this file. diff --git a/compiler/main.lisp b/compiler/main.lisp index a4bbefd..9e16830 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1801,12 +1801,19 @@ *byte-compile-default*) ((:xref *record-xref-info*) *record-xref-info*)) - "Compiles Source, producing a corresponding .FASL file. Source may be a list + "Compiles Source, producing a corresponding FASL file. Source may be a list of files, in which case the files are compiled as a unit, producing a single - .FASL file. The output file names are defaulted from the first (or only) - input file name. Other options available via keywords: + FASL file. The output file names are defaulted from the first (or only) + input file name. (The use of a list for Source is a CMUCL extension, not + specified in CLHS.) + + These keywords are supported: + :Output-File - The name of the fasl to output, NIL for none, T for the default. + The name of the FASL to output, NIL for none, T for the default. (Note the + difference between the treatment of NIL :Output-File here and in COMPILE-FILE-PATHNAME.) + The returned pathname of the output file may differ from the pathname of the + :Output-File parameter, e.g. when the latter is a designator for a directory. :Load Load the compiled file; T here requires :Output-File to be non-NIL, as well. The default for :Load is NIL. @@ -1848,7 +1855,7 @@ The external format to use when opening the source file. :Decoding-Error How to handle decoding errors in the external format when reading the - source file. Default (T) is to signal an error. Nil means silently + source file. Default (T) is to signal an error. NIL means silently continue, replacing the invalid sequence with a suitable replacment character." (let* ((fasl-file nil) @@ -2001,7 +2008,7 @@ be compiled. IF NAME names a macro, then the compiled expression replaces the existing macro-function. If NAME names a function, the compiled expression is placed in the function cell of NAME. If NAME - is Nil, the compiled code object is returned." + is NIL, the compiled code object is returned." (with-compilation-unit () (with-ir1-namespace (let* ((*backend* *native-backend*) @@ -2128,8 +2135,10 @@ (byte-compile *byte-compile-default*) (output-file t output-file-supplied-p) &allow-other-keys) - "Return a pathname describing what file COMPILE-FILE would write to given - these arguments." + "Return a pathname describing what file COMPILE-FILE would write to given these arguments. + The returned pathname of the output file may differ from the pathname of the :Output-File + parameter, e.g. when the latter is a designator for a directory. The CMUCL caveat: NIL is + accepted for :Output-File there but not here, which is probably not in line with CLHS." (declare (type (or string pathname stream) input-file) (type (or string pathname stream (member t)) output-file) (values (or null pathname))) ----------------------------------------------------------------------- Summary of changes: compiler/main.lisp | 25 +++++++++++++++++-------- 1 files changed, 17 insertions(+), 8 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-17-g987c3f2
by Alex Goncharov 12 Oct '11

12 Oct '11

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 987c3f200c854ede9196132e517756c5d4421239 (commit) via c78ad0faeb5c8518124d55757c2b868ae8b97dfb (commit) from 1e5b21e28d58b1b16a36111967e2ee77464cafbd (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 987c3f200c854ede9196132e517756c5d4421239 Merge: c78ad0f 1e5b21e Author: Alex Goncharov <alex-goncharov(a)comcast.net> Date: Tue Oct 11 21:30:54 2011 -0400 Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl commit c78ad0faeb5c8518124d55757c2b868ae8b97dfb Author: Alex Goncharov <alex-goncharov(a)comcast.net> Date: Tue Oct 11 21:30:44 2011 -0400 compiler/main.lisp: Doc strings reformat per the established conventions. Plus one dot added. Minus the new line in ext:file-comment diff --git a/compiler/main.lisp b/compiler/main.lisp index 7bfce70..9a2dd99 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -4,8 +4,7 @@ ;;; This code was written as part of the CMU Common Lisp project at ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; -(ext:file-comment - "$Header: src/compiler/main.lisp $") +(ext:file-comment "$Header: src/compiler/main.lisp $") ;;; ;;; ********************************************************************** ;;; @@ -54,8 +53,8 @@ ;;; Exported: (defvar *byte-compile-top-level* t "Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-level - forms (evaluated at load-time) when the :BYTE-COMPILE argument is :MAYBE - (the default.) When true, we decide to byte-compile.") + forms (evaluated at load-time) when the :BYTE-COMPILE argument is :MAYBE + (the default.) When true, we decide to byte-compile.") ;;; Exported: (defvar *loop-analyze* nil @@ -139,9 +138,9 @@ (defvar *user-source-info* nil "The user supplied source-info for the current compilation. -This is the :source-info argument to COMPILE-FROM-STREAM and will be -stored in the INFO slot of the DEBUG-SOURCE in code components and -in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") + This is the :source-info argument to COMPILE-FROM-STREAM and will be + stored in the INFO slot of the DEBUG-SOURCE in code components and + in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") ;;; Maybe-Mumble -- Internal ;;; @@ -1801,56 +1800,55 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") ((:xref *record-xref-info*) *record-xref-info*)) "Compiles Source, producing a corresponding .FASL file. Source may be a list - of files, in which case the files are compiled as a unit, producing a single - .FASL file. The output file names are defaulted from the first (or only) - input file name. Other options available via keywords: - :Output-File - The name of the fasl to output, NIL for none, T for the default. - :Load - Load the compiled file; T here requires :Output-File to be non-NIL, as well. - The default for :Load is NIL. - :Error-File - The name of the error listing file, NIL for none (the default), T for - .err. - :Trace-File - If specified, internal data structures are dumped to this file. T for - the .trace default. - :Error-Output - If a stream, then error output is sent there as well as to the listing - file. NIL suppresses this additional error output. The default is T, - which means use *ERROR-OUTPUT*. - :Block-Compile {NIL | :SPECIFIED | T} - Determines whether multiple functions are compiled together as a unit, - resolving function references at compile time. NIL means that global - function names are never resolved at compilation time. :SPECIFIED means - that names are resolved at compile-time when convenient (as in a - self-recursive call), but the compiler doesn't combine top-level DEFUNs. - With :SPECIFIED, an explicit START-BLOCK declaration will enable block - compilation. A value of T indicates that all forms in the file(s) should - be compiled as a unit. The default is the value of - EXT:*BLOCK-COMPILE-DEFAULT*, which is initially :SPECIFIED. - :Entry-Points - This specifies a list of function names for functions in the file(s) that - must be given global definitions. This only applies to block - compilation, and is useful mainly when :BLOCK-COMPILE T is specified on a - file that lacks START-BLOCK declarations. If the value is NIL (the - default) then all functions will be globally defined. - :Byte-Compile {T | NIL | :MAYBE} - Determines whether to compile into interpreted byte code instead of - machine instructions. Byte code is several times smaller, but much - slower. If :MAYBE, then only byte-compile when SPEED is 0 and - DEBUG <= 1. The default is the value of EXT:*BYTE-COMPILE-DEFAULT*, - which is initially :MAYBE. - :Xref - If non-NIL, enable recording of cross-reference information. The default - is the value of C:*RECORD-XREF-INFO* - :External-Format - The external format to use when opening the source file - :Decoding-Error - How to handle decoding errors in the external format when reading the - source file. Default (T) is to signal an error. Nil means silently - continue, replacing the invalid sequence with a suitable replacment - character." + of files, in which case the files are compiled as a unit, producing a single + .FASL file. The output file names are defaulted from the first (or only) + input file name. Other options available via keywords: + :Output-File + The name of the fasl to output, NIL for none, T for the default. + :Load + Load the compiled file; T here requires :Output-File to be non-NIL, as well. + The default for :Load is NIL. + :Error-File + The name of the error listing file, NIL for none (the default), T for .err. + :Trace-File + If specified, internal data structures are dumped to this file. T for + the .trace default. + :Error-Output + If a stream, then error output is sent there as well as to the listing + file. NIL suppresses this additional error output. The default is T, + which means use *ERROR-OUTPUT*. + :Block-Compile {NIL | :SPECIFIED | T} + Determines whether multiple functions are compiled together as a unit, + resolving function references at compile time. NIL means that global + function names are never resolved at compilation time. :SPECIFIED means + that names are resolved at compile-time when convenient (as in a + self-recursive call), but the compiler doesn't combine top-level DEFUNs. + With :SPECIFIED, an explicit START-BLOCK declaration will enable block + compilation. A value of T indicates that all forms in the file(s) should + be compiled as a unit. The default is the value of + EXT:*BLOCK-COMPILE-DEFAULT*, which is initially :SPECIFIED. + :Entry-Points + This specifies a list of function names for functions in the file(s) that + must be given global definitions. This only applies to block + compilation, and is useful mainly when :BLOCK-COMPILE T is specified on a + file that lacks START-BLOCK declarations. If the value is NIL (the + default) then all functions will be globally defined. + :Byte-Compile {T | NIL | :MAYBE} + Determines whether to compile into interpreted byte code instead of + machine instructions. Byte code is several times smaller, but much + slower. If :MAYBE, then only byte-compile when SPEED is 0 and + DEBUG <= 1. The default is the value of EXT:*BYTE-COMPILE-DEFAULT*, + which is initially :MAYBE. + :Xref + If non-NIL, enable recording of cross-reference information. The default + is the value of C:*RECORD-XREF-INFO* + :External-Format + The external format to use when opening the source file. + :Decoding-Error + How to handle decoding errors in the external format when reading the + source file. Default (T) is to signal an error. Nil means silently + continue, replacing the invalid sequence with a suitable replacment + character." (let* ((fasl-file nil) (error-file-stream nil) (output-file-pathname nil) @@ -2129,7 +2127,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") (output-file t output-file-supplied-p) &allow-other-keys) "Return a pathname describing what file COMPILE-FILE would write to given - these arguments." + these arguments." (declare (type (or string pathname stream) input-file) (type (or string pathname stream (member t)) output-file) (values (or null pathname))) ----------------------------------------------------------------------- Summary of changes: compiler/main.lisp | 114 +++++++++++++++++++++++++-------------------------- 1 files changed, 56 insertions(+), 58 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-sync-label-2009-03-16 created. 84111a10beb9aefaf3f1bf4cee45d42d7057615b
by Raymond Toy 11 Oct '11

11 Oct '11

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 tag, unicode-utf16-sync-label-2009-03-16 has been created at 84111a10beb9aefaf3f1bf4cee45d42d7057615b (commit) - Log ----------------------------------------------------------------- commit 84111a10beb9aefaf3f1bf4cee45d42d7057615b Author: rtoy <rtoy> Date: Mon Mar 16 21:10:57 2009 +0000 Sync to CVS HEAD, tag label-2009-03-16. But don't sync Config.FreeBSD_gencgc, Config.x86_freebsd, FreeBSD-os.c, and FreeBSD-os.h. Let Alex sync those later. The result seems to work as expected on Solaris and x86/linux. Darwin (ppc or x86) untested. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-sync-2008-12 created. 5ea897048ca5d1bc7321be6916b11f2e76eb69a8
by Raymond Toy 11 Oct '11

11 Oct '11

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 tag, unicode-utf16-sync-2008-12 has been created at 5ea897048ca5d1bc7321be6916b11f2e76eb69a8 (commit) - Log ----------------------------------------------------------------- commit 5ea897048ca5d1bc7321be6916b11f2e76eb69a8 Author: rtoy <rtoy> Date: Thu Dec 18 21:50:19 2008 +0000 Merge Snapshot 2008-12 to this branch. Some tweaks needed in boot-2008-05-cross-unicode-x86.lisp and the Config files. FreeBSD and Darwin/x86 untested, but Linux and Solaris build ok. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-sync-2008-11 created. 2cad8ceb89e302dc9f3041bd0887378c4cb56e72
by Raymond Toy 11 Oct '11

11 Oct '11

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 tag, unicode-utf16-sync-2008-11 has been created at 2cad8ceb89e302dc9f3041bd0887378c4cb56e72 (commit) - Log ----------------------------------------------------------------- commit 2cad8ceb89e302dc9f3041bd0887378c4cb56e72 Author: rtoy <rtoy> Date: Sat Nov 1 22:40:36 2008 +0000 Sync to snapshot 2008-11. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0