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

[Git][cmucl/cmucl][master] Regenerated (due to docstring change for rename-package).
by Raymond Toy 28 Nov '15

28 Nov '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: a613a908 by Raymond Toy at 2015-11-28T16:45:41Z Regenerated (due to docstring change for rename-package). - - - - - 1 changed file: - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl.pot ===================================== --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -8120,7 +8120,10 @@ msgid "The package named ~S doesn't exist." msgstr "" #: src/code/package.lisp -msgid "Changes the name and nicknames for a package." +msgid "" +"Replaces the name and nicknames of Package. The old name and all of\n" +" the old nicknames of Package are eliminated and are replaced by\n" +" New-Name and New-Nicknames." msgstr "" #: src/code/package.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/a613a908988d4651740972f40…

1 0

[Git][cmucl/cmucl][master] Support constant shifts for bignum digits.
by Raymond Toy 28 Nov '15

28 Nov '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 5d3a63fa by Raymond Toy at 2015-11-28T16:43:54Z Support constant shifts for bignum digits. This gets rid of the load of the shift amount to ecx, saving one instruction and reducing pressure on the ecx register. - - - - - 1 changed file: - src/compiler/x86/arith.lisp Changes: ===================================== src/compiler/x86/arith.lisp ===================================== --- a/src/compiler/x86/arith.lisp +++ b/src/compiler/x86/arith.lisp @@ -1445,31 +1445,43 @@ (:translate bignum::%ashr) (:policy :fast-safe) (:args (digit :scs (unsigned-reg unsigned-stack) :target result) - (count :scs (unsigned-reg) :target ecx)) + (count :scs (unsigned-reg immediate))) (:arg-types unsigned-num positive-fixnum) (:temporary (:sc unsigned-reg :offset ecx-offset :from (:argument 1)) ecx) (:results (result :scs (unsigned-reg) :from (:argument 0) :load-if (not (and (sc-is result unsigned-stack) (location= digit result))))) (:result-types unsigned-num) - (:generator 1 + (:generator 2 (move result digit) - (move ecx count) - (inst sar result :cl))) + (sc-case count + (unsigned-reg + (move ecx count) + (inst sar result :cl)) + (immediate + (inst sar result (tn-value count)))))) (define-vop (digit-lshr digit-ashr) (:translate bignum::%digit-logical-shift-right) - (:generator 1 + (:generator 2 (move result digit) - (move ecx count) - (inst shr result :cl))) + (sc-case count + (unsigned-reg + (move ecx count) + (inst shr result :cl)) + (immediate + (inst shr result (tn-value count)))))) (define-vop (digit-ashl digit-ashr) (:translate bignum::%ashl) - (:generator 1 + (:generator 2 (move result digit) - (move ecx count) - (inst shl result :cl))) + (sc-case count + (unsigned-reg + (move ecx count) + (inst shl result :cl)) + (immediate + (inst shl result (tn-value count)))))) ;;;; Static functions. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/5d3a63fa223ea40f8625a47d3…

1 0

[Git][cmucl/cmucl][master] Rename arguments to RENAME-PACKAGE and update docstring
by Raymond Toy 10 Nov '15

10 Nov '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: f7e92b73 by Raymond Toy at 2015-11-10T21:39:15Z Rename arguments to RENAME-PACKAGE and update docstring Can't ever remember the order of arguments for RENAME-PACKAGE so just rename the variables to make it clearer. And update the docstring to be a little more verbose. - - - - - 1 changed file: - src/code/package.lisp Changes: ===================================== src/code/package.lisp ===================================== --- a/src/code/package.lisp +++ b/src/code/package.lisp @@ -1204,23 +1204,25 @@ ;;; Change the name if we can, blast any old nicknames and then ;;; add in any new ones. ;;; -(defun rename-package (package name &optional (nicknames ())) - "Changes the name and nicknames for a package." +(defun rename-package (package new-name &optional (new-nicknames ())) + "Replaces the name and nicknames of Package. The old name and all of + the old nicknames of Package are eliminated and are replaced by + New-Name and New-Nicknames." (let* ((package (package-or-lose package)) - (name (string name)) - (found (find-package name))) + (new-name (string new-name)) + (found (find-package new-name))) (unless (or (not found) (eq found package)) (error 'simple-package-error - :package name + :package new-name :format-control (intl:gettext "A package named ~S already exists.") - :format-arguments (list name))) + :format-arguments (list new-name))) (remhash (package-%name package) *package-names*) (dolist (n (package-%nicknames package)) (remhash n *package-names*)) - (setf (package-%name package) name) - (setf (gethash name *package-names*) package) + (setf (package-%name package) new-name) + (setf (gethash new-name *package-names*) package) (setf (package-%nicknames package) ()) - (enter-new-nicknames package nicknames) + (enter-new-nicknames package new-nicknames) package)) ;;; Delete-Package -- Public View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/f7e92b739fe1311d89924c9a5…

1 0

[Git][cmucl/cmucl][rtoy-mmap-anon-control-and-binding-stacks] Remove some unused code.
by Raymond Toy 04 Nov '15

04 Nov '15

Raymond Toy pushed to branch rtoy-mmap-anon-control-and-binding-stacks at cmucl / cmucl Commits: 70f15c09 by Raymond Toy at 2015-11-04T19:49:31Z Remove some unused code. - - - - - 1 changed file: - src/lisp/interrupt.c Changes: ===================================== src/lisp/interrupt.c ===================================== --- a/src/lisp/interrupt.c +++ b/src/lisp/interrupt.c @@ -408,10 +408,7 @@ interrupt_maybe_gc(HANDLER_ARGS) * Noise to install handlers. * \****************************************************************/ -//#if !(defined(i386) || defined(__x86_64)) -//#define SIGNAL_STACK_SIZE SIGSTKSZ char altstack[SIGNAL_STACK_SIZE]; -//#endif void interrupt_install_low_level_handler(int signal, void handler(HANDLER_ARGS)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/70f15c09eb7c4cb656ab38026…

1 0

[Git][cmucl/cmucl][rtoy-mmap-anon-control-and-binding-stacks] 2 commits: Fix merge mistake: Don't print break as int3.
by Raymond Toy 04 Nov '15

04 Nov '15

Raymond Toy pushed to branch rtoy-mmap-anon-control-and-binding-stacks at cmucl / cmucl Commits: 694331c1 by Raymond Toy at 2015-11-04T19:42:41Z Fix merge mistake: Don't print break as int3. - - - - - 0fb5c699 by Raymond Toy at 2015-11-04T19:44:58Z Define CONTROL_STACK_START and BINDING_STACK_START. ppc currently only supports allocating the control stack and binding stack at fixed addresses. (This used to work, but something broke it recently. Until the ppc machine comes back, we're going to disable that feature there.) - - - - - 2 changed files: - src/compiler/x86/insts.lisp - src/lisp/ppc-validate.h Changes: ===================================== src/compiler/x86/insts.lisp ===================================== --- a/src/compiler/x86/insts.lisp +++ b/src/compiler/x86/insts.lisp @@ -2105,7 +2105,6 @@ (define-instruction break (segment code) (:declare (type (unsigned-byte 8) code)) (:printer byte-imm ((op #b11001100)) '(:name :tab code) - :print-name 'int3 :control #'break-control) (:emitter (emit-byte segment #b11001100) ===================================== src/lisp/ppc-validate.h ===================================== --- a/src/lisp/ppc-validate.h +++ b/src/lisp/ppc-validate.h @@ -41,19 +41,13 @@ #define STATIC_SPACE_START (0x10000000) #define STATIC_SPACE_SIZE (0x07ff8000) /* 128 MB, almost */ -#if 0 #define CONTROL_STACK_START (0x30000000) -#endif #define CONTROL_STACK_SIZE (0x07ff8000) /* 128 MB, almost */ -#if 0 #define CONTROL_STACK_END (CONTROL_STACK_START + control_stack_size) -#endif #define SIGNAL_STACK_SIZE SIGSTKSZ -#if 0 #define BINDING_STACK_START (0x38000000) -#endif #define BINDING_STACK_SIZE (0x07ff8000) /* 128 MB, almost */ #if 0 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/138310f93edc558e3166c1a1…

1 0

[Git][cmucl/cmucl] Pushed new tag snapshot-2015-11
by Raymond Toy 31 Oct '15

31 Oct '15

Raymond Toy pushed new tag snapshot-2015-11 at cmucl / cmucl

1 0

[Git][cmucl/cmucl][master] Update from commit logs.
by Raymond Toy 31 Oct '15

31 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 0889dbb8 by Raymond Toy at 2015-10-31T17:48:50Z Update from commit logs. - - - - - 1 changed file: - src/general-info/release-21b.txt Changes: ===================================== src/general-info/release-21b.txt ===================================== --- a/src/general-info/release-21b.txt +++ b/src/general-info/release-21b.txt @@ -22,6 +22,26 @@ New in this release: * Feature enhancements * Changes + * Update to ASDF 3.1.6 + * Add support for asdf's static-image-op + * This mostly entails internal changes in how executables are + handled. lisp.a is not complete; it must be linked with + either exec-init.o or exec-final.o. + * If the linker fails to link an image, the exit code is + returned to indicate failure. + * When printing the process structure (from run-program), include + the exit code to make it easier to see if the the process exited + cleanly or not. The printed representation is also changed + slightly to use pprint-unreadable-object. + * Executable images on OSX no longer support running on other + versions of the OS. Previously, -mmacosx-version-min=10.5 was + used to specify the executable would run on OSX versions >= + 10.5. This, however, requires the 10.5DK be available. Thus, + no longer require that. + * Disassembly of bytes and words now use .BYTE and .WORD instead + of BYTE and WORD. + * Unix support on Linux has been unified with all other OSes. + Thus, src/code/unix-glibc2.lisp is no longer used. * ANSI compliance fixes: @@ -30,6 +50,9 @@ New in this release: * Trac Tickets: * Gitlab tickets: + * Ticket #10 fixed: setting an element of a 1, 2, or 4-bit array + with a constant index did not always set the element + appropriately. * Other changes: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/0889dbb8326a45e530cf035d0…

1 0

[Git][cmucl/cmucl][master] lisp.a, exec-init.o, and exec-final.o aren't executable.
by Raymond Toy 31 Oct '15

31 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 4038f7b0 by Raymond Toy at 2015-10-31T17:45:58Z lisp.a, exec-init.o, and exec-final.o aren't executable. Remove the execute bits from these files because they're not executables. - - - - - 1 changed file: - bin/make-main-dist.sh Changes: ===================================== bin/make-main-dist.sh ===================================== --- a/bin/make-main-dist.sh +++ b/bin/make-main-dist.sh @@ -96,9 +96,9 @@ install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/${MANDIR} install ${GROUP} ${OWNER} -m 0755 $TARGET/lisp/lisp $DESTDIR/bin/ if [ "$EXECUTABLE" = "true" ] then - install ${GROUP} ${OWNER} -m 0555 $TARGET/lisp/lisp.a $DESTDIR/lib/cmucl/lib/ - install ${GROUP} ${OWNER} -m 0555 $TARGET/lisp/exec-init.o $DESTDIR/lib/cmucl/lib/ - install ${GROUP} ${OWNER} -m 0555 $TARGET/lisp/exec-final.o $DESTDIR/lib/cmucl/lib/ + install ${GROUP} ${OWNER} -m 0644 $TARGET/lisp/lisp.a $DESTDIR/lib/cmucl/lib/ + install ${GROUP} ${OWNER} -m 0644 $TARGET/lisp/exec-init.o $DESTDIR/lib/cmucl/lib/ + install ${GROUP} ${OWNER} -m 0644 $TARGET/lisp/exec-final.o $DESTDIR/lib/cmucl/lib/ install ${GROUP} ${OWNER} -m 0755 src/tools/linker.sh $DESTDIR/lib/cmucl/lib/ if [ -f src/tools/$SCRIPT-cmucl-linker-script ]; then install ${GROUP} ${OWNER} -m 0755 src/tools/$SCRIPT-cmucl-linker-script $DESTDIR/lib/cmucl/lib/ View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/4038f7b0f9217e42a3f75391e…

1 0