[Maxima-commits] [git] Maxima CAS branch, master, updated. branch-5_38-base-95-gf9051b6

[Kris K. <kj...@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, master has been updated
       via  f9051b6ecbd468b5907dfa1c52cfa15f547407ba (commit)
       via  e2bf248e4aee31af06a4205e75a532e08624fa1d (commit)
      from  84ca9429669b602092d4ac55480c23d3d63291db (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 f9051b6ecbd468b5907dfa1c52cfa15f547407ba
Author: Kris Katterjohn <kat...@gm...>
Date:   Mon Jun 13 15:27:51 2016 -0500

    Remove unused lexical variables in the contrib package gentran

diff --git a/share/contrib/gentran/lspfor.lisp b/share/contrib/gentran/lspfor.lisp
index f6ccf96..25b804c 100644
--- a/share/contrib/gentran/lspfor.lisp
+++ b/share/contrib/gentran/lspfor.lisp
@@ -344,7 +344,7 @@
 )
 
 (defun fortloop (stmt)
-  (prog (var lo nextexp exitcond body r)
+  (prog (var lo nextexp exitcond body)
 	(cond ((complexdop stmt)
 	       (return (fortstmt (seqtogp (simplifydo stmt))))))
 	(cond ((setq var (cadr stmt))
diff --git a/share/contrib/gentran/lsprat.lisp b/share/contrib/gentran/lsprat.lisp
index 0c31561..e05a5bf 100644
--- a/share/contrib/gentran/lsprat.lisp
+++ b/share/contrib/gentran/lsprat.lisp
@@ -283,7 +283,7 @@
   (mkfratliteral (cdr stmt)))
 
 (defun ratloop (stmt)
-  (prog (var lo nextexp exitcond body r)
+  (prog (var lo nextexp exitcond body)
 	(cond ((complexdop stmt)
 	       (return (ratstmt (seqtogp (simplifydo stmt))))))
 	(cond ((setq var (cadr stmt))

commit e2bf248e4aee31af06a4205e75a532e08624fa1d
Author: Kris Katterjohn <kat...@gm...>
Date:   Mon Jun 13 15:22:11 2016 -0500

    Declare unused variables to be ignored in some contrib packages
    
    The contrib packages are gentran, graph2d and noninteractive.

diff --git a/share/contrib/gentran/convmac.lisp b/share/contrib/gentran/convmac.lisp
index 6cbeb60..676fb37 100644
--- a/share/contrib/gentran/convmac.lisp
+++ b/share/contrib/gentran/convmac.lisp
@@ -143,6 +143,7 @@
   #+sbcl (sb-impl::charpos))
 
 (defun exec (program)
+  #-(or clisp cmu) (declare (ignore program))
   #+clisp (EXT:RUN-PROGRAM program)
   #+cmu (ext:run-program program))
 
diff --git a/share/contrib/gentran/lspc.lisp b/share/contrib/gentran/lspc.lisp
index 00c82cd..6e620ca 100644
--- a/share/contrib/gentran/lspc.lisp
+++ b/share/contrib/gentran/lspc.lisp
@@ -198,9 +198,11 @@
   (mkfcassign (cadr stmt) (caddr stmt)))
 
 (defun cbreak (stmt)
+  (declare (ignore stmt))
   (mkfcbreak))
 
 (defun cexit (stmt)
+  (declare (ignore stmt))
   (mkfcexit))
 
 (defun cexpstmt (exp)
diff --git a/share/contrib/gentran/lspfor.lisp b/share/contrib/gentran/lspfor.lisp
index f33fcc6..f6ccf96 100644
--- a/share/contrib/gentran/lspfor.lisp
+++ b/share/contrib/gentran/lspfor.lisp
@@ -216,6 +216,7 @@
   (mkffortassign (cadr stmt) (caddr stmt)))
 
 (defun fortbreak (stmt)
+  (declare (ignore stmt))
   (cond ((null *endofloopstack*)
 	 (gentranerr 'e nil "break not inside loop - cannot be translated" nil))
 	((atom (car *endofloopstack*))
@@ -248,6 +249,7 @@
 	(return result)))
 
 (defun fortend (stmt)
+  (declare (ignore stmt))
   (mkffortend))
 
 (defun fortfor (var lo nextexp exitcond body)
@@ -418,6 +420,7 @@
 	(return (mkffortcontinue stmtno))))
 
 (defun fortstop (stmt)
+  (declare (ignore stmt))
   (mkffortstop))
 
 (defun fortwhile (exitcond body)
diff --git a/share/contrib/gentran/lsprat.lisp b/share/contrib/gentran/lsprat.lisp
index 2da5fab..0c31561 100644
--- a/share/contrib/gentran/lsprat.lisp
+++ b/share/contrib/gentran/lsprat.lisp
@@ -200,6 +200,7 @@
   (mkfratassign (cadr stmt) (caddr stmt)))
 
 (defun ratbreak (stmt)
+  (declare (ignore stmt))
   (mkfratbreak))
 
 (defun ratcall (stmt)
@@ -217,6 +218,7 @@
 	(return r)))
 
 (defun ratend (stmt)
+  (declare (ignore stmt))
   (mkfratend))
 
 (defun ratforfor (var lo nextexp cond body)
@@ -344,6 +346,7 @@
 	(return (mkfratcontinue stmtno))))
 
 (defun ratstop (stmt)
+  (declare (ignore stmt))
   (mkfratstop))
 
 (defun ratwhile (cond body)
diff --git a/share/contrib/gentran/vaxlsp.lisp b/share/contrib/gentran/vaxlsp.lisp
index 702c042..045353f 100755
--- a/share/contrib/gentran/vaxlsp.lisp
+++ b/share/contrib/gentran/vaxlsp.lisp
@@ -219,6 +219,7 @@
 	      (t (return (intern (format nil "(~a.0,0.0)" num)))))))
 
 (defun simptimes1 (terms fp)
+  (declare (ignore fp))
   (let ((neg) (denoms))
        (setq terms
 	     (foreach trm in (simptimes2 terms) conc
@@ -384,6 +385,7 @@
 (defun franzif (stmt)
   ; return the franz lisp representation for an if statement ;
   (destructuring-bind (x exp stmt1 y stmt2) stmt
+   (declare (ignore x y))
    (let ((fr '(cond)))
         (setq fr (append1 fr (list (franzexp exp 0 exp)
 				   (franzstmt stmt1))))
@@ -455,6 +457,7 @@
   ;            dobody)                                                      ;
   (let ((gvar) condbody)
     (destructuring-bind (dovar (_x1 . dolist) _x2 _x3 _x4 doexitcond dobody) (cdr stmt)
+       (declare (ignore _x1 _x2 _x3 _x4))
        (setq tvname tempvarname*)
        (setq tempvarname* 'i)
        (setq gvar ($tempvar nil))
@@ -498,10 +501,12 @@
 		(cdr stmt))))
 
 (defun franzstop (stmt)
+  (declare (ignore stmt))
   ; return the franz lisp representation for a stop statement ;
   '(stop))
 
 (defun franzend (stmt)
+  (declare (ignore stmt))
   ; return the franz lisp representation for an end statement ;
   '(end))
 
@@ -600,6 +605,7 @@
 
 
 (defun maccallp (stmt)
+  (declare (ignore stmt))
   ; is stmt a macsyma call statement? ;
   t)
 
diff --git a/share/contrib/graph2d.lisp b/share/contrib/graph2d.lisp
index 7a486d1..65f6af4 100644
--- a/share/contrib/graph2d.lisp
+++ b/share/contrib/graph2d.lisp
@@ -1,5 +1,6 @@
 (in-package :maxima)
 
 (defun $graph2d(&rest lis)
+  (declare (ignore lis))
   (format nil (intl:gettext "graph2d is deprecated. Please use plot2d instead")))
 
diff --git a/share/contrib/noninteractive/asksign1.lisp b/share/contrib/noninteractive/asksign1.lisp
index bebbdfa..737538d 100644
--- a/share/contrib/noninteractive/asksign1.lisp
+++ b/share/contrib/noninteractive/asksign1.lisp
@@ -48,6 +48,7 @@
 ;; Replaces ASK-PROP in askp.lisp
 (defvar *real-ask-prop* (symbol-function 'ask-prop))
 (defun ask-prop (object property fun-or-number)
+  (declare (ignore fun-or-number))
   (if $no_questions
       (meval `(($throw) '(($askprop) ,object ,property)))
       (funcall *real-ask-prop*)))

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

Summary of changes:
 share/contrib/gentran/convmac.lisp         |    1 +
 share/contrib/gentran/lspc.lisp            |    2 ++
 share/contrib/gentran/lspfor.lisp          |    5 ++++-
 share/contrib/gentran/lsprat.lisp          |    5 ++++-
 share/contrib/gentran/vaxlsp.lisp          |    6 ++++++
 share/contrib/graph2d.lisp                 |    1 +
 share/contrib/noninteractive/asksign1.lisp |    1 +
 7 files changed, 19 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
Maxima CAS