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

[Git][cmucl/cmucl][master] 4 commits: Fix #30: compilation of (describe 'foo)
by Raymond Toy 08 Sep '16

08 Sep '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 53fe0a4f by Raymond Toy at 2016-09-07T20:28:36-07:00 Fix #30: compilation of (describe 'foo) The debug-info-source isn't available until later in the fasl, so don't try to print where the source was compiled from. This seems like a small oversight since the next bit of code does nothing if the debug-info-source isn't available. - - - - - 5524c034 by Raymond Toy at 2016-09-07T20:29:38-07:00 Add test for issue #30. - - - - - 6714a3a1 by Raymond Toy at 2016-09-07T20:52:29-07:00 Fix mistake in test. - - - - - f810fc97 by Raymond Toy at 2016-09-08T03:55:32+00:00 Merge branch 'rtoy-fix-30-describe-foo' into 'master' Fix #30: compilation of describe foo The debug-info-source isn't available until later in the fasl, so don't try to print where the source was compiled from. This seems like a small oversight since the next bit of code does nothing if the debug-info-source isn't available. See merge request !11 - - - - - 3 changed files: - src/code/describe.lisp - tests/issues.lisp - + tests/resources/issue-30.lisp Changes: ===================================== src/code/describe.lisp ===================================== --- a/src/code/describe.lisp +++ b/src/code/describe.lisp @@ -313,11 +313,12 @@ (let ((info (kernel:%code-debug-info code-obj))) (when info (let ((sources (c::debug-info-source info))) - (format t (intl:gettext "~&On ~A it was compiled from:") - (format-universal-time nil - (c::debug-source-compiled - (first sources)) - :style :iso8601)) + (when sources + (format t (intl:gettext "~&On ~A it was compiled from:") + (format-universal-time nil + (c::debug-source-compiled + (first sources)) + :style :iso8601))) (dolist (source sources) (let ((name (c::debug-source-name source))) (ecase (c::debug-source-from source) ===================================== tests/issues.lisp ===================================== --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -298,3 +298,15 @@ (assert-eql (length in-string) (length out-string)) (assert-equal in-string out-string))))) + + +(define-test issue.30 + (:tag :issues) + (let* ((test-file #.(merge-pathnames #p"resources/issue-30.lisp" cl:*load-pathname*)) + (fasl-file (compile-file-pathname test-file))) + ;; Compiling and loading the test file should succeed without + ;; errors. + (assert-true (pathnamep test-file)) + (assert-true (pathnamep fasl-file)) + (assert-equalp (list fasl-file nil nil) + (multiple-value-list (compile-file test-file :load t))))) ===================================== tests/resources/issue-30.lisp ===================================== --- /dev/null +++ b/tests/resources/issue-30.lisp @@ -0,0 +1,4 @@ +(defun foo () + (print "Hello world")) + +(describe 'foo) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/a5175917df91f875c88e7206…

1 0

[Git][cmucl/cmucl] Pushed new branch rtoy-fix-30-describe-foo
by Raymond Toy 08 Sep '16

08 Sep '16

Raymond Toy pushed new branch rtoy-fix-30-describe-foo at cmucl / cmucl

1 0

[Git][cmucl/cmucl] Pushed new tag snapshot-2016-09
by Raymond Toy 05 Sep '16

05 Sep '16

Raymond Toy pushed new tag snapshot-2016-09 at cmucl / cmucl

1 0

[Git][cmucl/cmucl][master] Revert changes restoring to snapshot-2016-06.
by Raymond Toy 05 Sep '16

05 Sep '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: a5175917 by Raymond Toy at 2016-09-05T15:38:08-07:00 Revert changes restoring to snapshot-2016-06. - - - - - 1 changed file: - src/general-info/release-21a.txt Changes: ===================================== src/general-info/release-21a.txt ===================================== --- a/src/general-info/release-21a.txt +++ b/src/general-info/release-21a.txt @@ -100,16 +100,6 @@ New in this release: * Issue #3: Shadowing compiler macro functions. * Issue #7: Local functions and get-setf-expansions * Issue #8: Constants and top-level code - * Issue #10: (setf aref) on (simple-array (unsigned-byte 4) (*)) - with constant index is incorrect. - * Issue #11: Merge unix-glibc2.lisp into unix.lisp - * Issue #14: (asinh 0d0) signals inexact on linux - * Issue #16: pathname-match-p doesn't handle search lists - * Issue #18: Fix docstring for *environment-list* - * Issue #18: Add better description to :env option for run-program - * Issue #19: Make min version for OSX be 10.6 - * Issue #22: Incorrect coercion to float - * Issue #12: unable to build master/$HEAD with 2015-12 darwin snapshot * Other changes: * Cross compile scripts from x86 to sparc and ppc updated to work View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/a5175917df91f875c88e72067…

1 0

[Git][cmucl/cmucl][master] 2 commits: Revert change.
by Raymond Toy 05 Sep '16

05 Sep '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: df0289d5 by Raymond Toy at 2016-09-05T15:16:44-07:00 Revert change. - - - - - ff661afb by Raymond Toy at 2016-09-05T15:18:22-07:00 Update from logs. - - - - - 2 changed files: - src/general-info/release-21a.txt - src/general-info/release-21b.txt Changes: ===================================== src/general-info/release-21a.txt ===================================== --- a/src/general-info/release-21a.txt +++ b/src/general-info/release-21a.txt @@ -110,10 +110,6 @@ New in this release: * Issue #19: Make min version for OSX be 10.6 * Issue #22: Incorrect coercion to float * Issue #12: unable to build master/$HEAD with 2015-12 darwin snapshot - * Issue #25: Issue with ext:run-program and string streams - (related to character sizes?) - * Issue #27: Regression: ASDF test failures - * Issue #28: Recursive function definition during cross-compile * Other changes: * Cross compile scripts from x86 to sparc and ppc updated to work ===================================== src/general-info/release-21b.txt ===================================== --- a/src/general-info/release-21b.txt +++ b/src/general-info/release-21b.txt @@ -89,6 +89,11 @@ New in this release: * Ticket #18 fixed: better description of :ENV option for RUN-PROGRAM. * Ticket #22 fixed: Incorrect coercion to float. + * Ticket #25 fixed: Issue with ext:run-program and string streams + (related to character sizes?) + * Ticket #27 fixed: Regression: ASDF test failures + * Ticket #28 fixed: Recursive function definition during + cross-compile * Other changes: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/9f2f0330804a623d887c7969…

1 0

[Git][cmucl/cmucl] Deleted tag snapshot-2016-09
by Raymond Toy 05 Sep '16

05 Sep '16

Raymond Toy deleted tag snapshot-2016-09 at cmucl / cmucl

1 0

[Git][cmucl/cmucl] Pushed new tag snapshot-2016-09
by Raymond Toy 05 Sep '16

05 Sep '16

Raymond Toy pushed new tag snapshot-2016-09 at cmucl / cmucl

1 0

[Git][cmucl/cmucl] Deleted tag snapshot-2016-09
by Raymond Toy 05 Sep '16

05 Sep '16

Raymond Toy deleted tag snapshot-2016-09 at cmucl / cmucl

1 0

[Git][cmucl/cmucl] Pushed new tag snapshot-2016-09
by Raymond Toy 05 Sep '16

05 Sep '16

Raymond Toy pushed new tag snapshot-2016-09 at cmucl / cmucl

1 0

[Git][cmucl/cmucl] Deleted tag snapshot-2016-09
by Raymond Toy 05 Sep '16

05 Sep '16

Raymond Toy deleted tag snapshot-2016-09 at cmucl / cmucl

1 0