[Maxima-commits] [git] Maxima CAS branch, parse-info, updated. branch-5_30-base-161-g318515c

[Rupert S. <rsw...@us...>]

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 "Maxima CAS".

The branch, parse-info has been updated
       via  318515c11f9dc51e91d3ffbdb69aef4a6397553e (commit)
      from  366098870350ea84d00d015fcf81dce9dfe1b466 (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 318515c11f9dc51e91d3ffbdb69aef4a6397553e
Author: Rupert Swarbrick <rsw...@gm...>
Date:   Tue May 28 15:02:19 2013 +0100

    Hush a CMUCL compiler note.

diff --git a/src/info-documentation.lisp b/src/info-documentation.lisp
index c493d46..0d08896 100644
--- a/src/info-documentation.lisp
+++ b/src/info-documentation.lisp
@@ -45,7 +45,13 @@ error, but the resulting text stream might well be garbage. The encoding is
 guessed from the directory name - if we don't understand it we default
 to :latin1."
   (let ((pn (gensym)))
-    `(let ((,pn ,pathname))
+    `(let ((,pn ,pathname)
+           ;; I think that CMUCL doesn't compile in character conversion
+           ;; routines until they get called. As a result, there's an ugly
+           ;; signed word -> integer conversion compiler note that appears when
+           ;; we first call READ-LINE or similar here. As a workaround, we just
+           ;; tell CMUCL to shut up about it...
+           #+cmucl (extensions:*efficiency-note-cost-threshold* 50))
        (with-open-file
            ;; On GCL, complicated things like external formats are passed over. In
            ;; fact, there's not even a keyword argument with that name.

-----------------------------------------------------------------------

Summary of changes:
 src/info-documentation.lisp |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
Maxima CAS