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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-5-g75a020c
by Raymond Toy 19 Dec '12

19 Dec '12

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 75a020cf12f776c5fee74905887e62b6cccca48e (commit) from 5b98c1cb418d4e4b2594ff406748e2a9d9af83e9 (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 75a020cf12f776c5fee74905887e62b6cccca48e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 18 19:22:16 2012 -0800 Add source-location information for DEFINE-COMPILER-MACRO. Patch from Helmut Eller, cmucl-imp 2012-12-16. diff --git a/src/code/macros.lisp b/src/code/macros.lisp index 934bcbb..892e1cf 100644 --- a/src/code/macros.lisp +++ b/src/code/macros.lisp @@ -192,9 +192,9 @@ ;;; (defmacro define-symbol-macro (name expansion) `(eval-when (:compile-toplevel :load-toplevel :execute) - (%define-symbol-macro ',name ',expansion))) + (%define-symbol-macro ',name ',expansion (c::source-location)))) ;;; -(defun %define-symbol-macro (name expansion) +(defun %define-symbol-macro (name expansion source-location) (unless (symbolp name) (error 'simple-type-error :datum name :expected-type 'symbol :format-control (intl:gettext "Symbol macro name is not a symbol: ~S.") @@ -202,7 +202,8 @@ (ecase (info variable kind name) ((:macro :global nil) (setf (info variable kind name) :macro) - (setf (info variable macro-expansion name) expansion)) + (setf (info variable macro-expansion name) expansion) + (set-defvar-source-location name source-location)) (:special (error 'simple-program-error :format-control (intl:gettext "Symbol macro name already declared special: ~S.") ----------------------------------------------------------------------- Summary of changes: src/code/macros.lisp | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-4-g5b98c1c
by Raymond Toy 11 Dec '12

11 Dec '12

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 5b98c1cb418d4e4b2594ff406748e2a9d9af83e9 (commit) from c5d23ae79d1e97554256a43e331eb870954c8e2e (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 5b98c1cb418d4e4b2594ff406748e2a9d9af83e9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Dec 10 21:17:43 2012 -0800 Print out more info on specialization errors. diff --git a/src/compiler/disassem.lisp b/src/compiler/disassem.lisp index 2ffeb1b..13f6b35 100644 --- a/src/compiler/disassem.lisp +++ b/src/compiler/disassem.lisp @@ -1670,7 +1670,13 @@ (> (specializer-rank i1) (specializer-rank i2))))) (defun specialization-error (insts) - (error (intl:gettext "Instructions either aren't related or conflict in some way:~% ~s") insts)) + (error + (with-output-to-string (s) + (let ((*standard-output* s)) + (format s (intl:gettext "Instructions either aren't related or conflict in some way:~%")) + (dolist (inst insts) + (print-inst-bits inst) + (format s " ~S~%" inst)))))) (defun try-specializing (insts) "Given a list of instructions INSTS, Sees if one of these instructions is a ----------------------------------------------------------------------- Summary of changes: src/compiler/disassem.lisp | 8 +++++++- 1 files changed, 7 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-3-gc5d23ae
by Raymond Toy 03 Dec '12

03 Dec '12

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 c5d23ae79d1e97554256a43e331eb870954c8e2e (commit) via a9f4515bd5b4bb4489297fbd1121457879724dee (commit) from 420ac32313fbe762c29c2dee111748e16ba851cb (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 c5d23ae79d1e97554256a43e331eb870954c8e2e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Dec 2 22:27:21 2012 -0800 Updated from source code changes. diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index e338251..7dabde4 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -17389,15 +17389,15 @@ msgstr "" #: src/compiler/new-assem.lisp msgid "" "Byte spec ~S either overlaps another byte spec, or ~\n" -" extends past the end." +" extends past the end in emitter ~S." msgstr "" #: src/compiler/new-assem.lisp -msgid "There are holes." +msgid "There are holes in emitter ~S." msgstr "" #: src/compiler/new-assem.lisp -msgid "~D isn't an even multiple of ~D" +msgid "~D isn't an even multiple of ~D in emitter ~S" msgstr "" #: src/compiler/new-assem.lisp commit a9f4515bd5b4bb4489297fbd1121457879724dee Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Dec 2 22:27:06 2012 -0800 Print out name of offending emitter in some error messages. diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp index d9fdb32..f6179de 100644 --- a/src/compiler/new-assem.lisp +++ b/src/compiler/new-assem.lisp @@ -1553,8 +1553,8 @@ (quo rem) (truncate total-bits assembly-unit-bits) (unless (zerop rem) - (error (intl:gettext "~D isn't an even multiple of ~D") - total-bits assembly-unit-bits)) + (error (intl:gettext "~D isn't an even multiple of ~D in emitter ~S") + total-bits assembly-unit-bits name)) quo)) (bytes (make-array num-bytes :initial-element nil)) (segment-arg (gensym "SEGMENT-"))) @@ -1565,8 +1565,8 @@ (arg (gensym (format nil "~:@(ARG-FOR-~S-~)" byte-spec-expr)))) (when (ldb-test (byte byte-size byte-posn) overall-mask) (error (intl:gettext "Byte spec ~S either overlaps another byte spec, or ~ - extends past the end.") - byte-spec-expr)) + extends past the end in emitter ~S.") + byte-spec-expr name)) (setf (ldb byte-spec overall-mask) -1) (arg-names arg) (arg-types `(type (integer ,(ash -1 (1- byte-size)) ----------------------------------------------------------------------- Summary of changes: src/compiler/new-assem.lisp | 8 ++++---- src/i18n/locale/cmucl.pot | 6 +++--- 2 files changed, 7 insertions(+), 7 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-1-g420ac32
by Raymond Toy 02 Dec '12

02 Dec '12

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 420ac32313fbe762c29c2dee111748e16ba851cb (commit) from 3de1b873641f0bec715d1af6d31ff39aa6a370dd (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 420ac32313fbe762c29c2dee111748e16ba851cb Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Dec 2 09:31:02 2012 -0800 When emitter has holes, print out name of offending emitter. diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp index 5492eb7..d9fdb32 100644 --- a/src/compiler/new-assem.lisp +++ b/src/compiler/new-assem.lisp @@ -1614,7 +1614,7 @@ ,arg) (svref bytes end-byte)))))))))) (unless (= overall-mask -1) - (error (intl:gettext "There are holes."))) + (error (intl:gettext "There are holes in emitter ~S.") name)) (let ((forms nil)) (dotimes (i num-bytes) (let ((pieces (svref bytes i))) ----------------------------------------------------------------------- Summary of changes: src/compiler/new-assem.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0