; file: C:/Program Files (x86)/Maxima/share/maxima/5.35.1/share/lbfgs/lb1.lisp
; in: DEFUN LB1
; (PROG ((I 0))
; (DECLARE (TYPE (INTEGER) I))
; (COND
; ((= ITER 0)
; (F2CL-LIB:FFORMAT MP
; ("*******"
; "~%"))
; (F2CL-LIB:FFORMAT MP
; (" N=" 1 # " NUMBER OF CORRECTIONS=" 1 # "~%"
; " INITIAL VALUES" "~%")
; N M)
; (F2CL-LIB:FFORMAT MP (" F= " 1 # " GNORM= " 1 # "~%") F GNORM)
; (COND (# # # # #))
; (F2CL-LIB:FFORMAT MP
; ("*******"
; "~%"))
; (F2CL-LIB:FFORMAT MP
; ("~%" " I NFN" "~5@T" "FUNC" "~20@T" "GNORM" "~19@T"
; "STEPLENGTH" "~%" "~%")))
; (T
; (IF (AND # #)
; (GO END_LABEL))
; (COND (# #) (T # #)) (COND (# # # #))
; (IF FINISH
; (F2CL-LIB:FFORMAT MP #))))
; (GO END_LABEL)
; END_LABEL
; (RETURN (VALUES NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)))
; --> BLOCK
; ==>
; (LET ((I 0))
; (DECLARE (TYPE (INTEGER) I))
; (TAGBODY
; (COND
; ((= ITER 0) (F2CL-LIB:FFORMAT MP #) (F2CL-LIB:FFORMAT MP # N M)
; (F2CL-LIB:FFORMAT MP # F GNORM) (COND #) (F2CL-LIB:FFORMAT MP #)
; (F2CL-LIB:FFORMAT MP #))
; (T
; (IF #
; #)
; (COND # #) (COND #)
; (IF FINISH
; #)))
; (GO END_LABEL)
; END_LABEL
; (RETURN (VALUES NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))))
;
; caught STYLE-WARNING:
; The variable I is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
(%o2) "C:/PROGRA~2/Maxima/share/maxima/5.35.1/share/lsquares/lsquares.mac"
Windows7
wxbuild_info()$
wxMaxima version: 14.12.0
Maxima version: 5.35.1
Maxima build date: 2014-12-23 14:34:16
Host type: i686-pc-mingw32
Lisp implementation type: SBCL
Lisp implementation version: 1.2.1
Fixed by commit [d945186]. Closing this report.
As it happens, this is just a warning -- I think you should find the package is actually successfully loaded despite the warning message. In any event, I've modified the code so that the warning should go away.
Thanks
Just curious: do you know when a new release (Windows) is expected ?
/Rene'
2015-01-14 21:46 GMT+01:00 Robert Dodier robert_dodier@users.sf.net:
Related
Bugs:
#2883