Don't use fname to define functions
[maxima.git] / src / numerical / slatec / j4save.lisp
blob74fb6e56e4bccd199573aebecf804eff2cf25596
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 46c1f6a93b0d 2012/05/03 04:40:28 toy $"
3 ;;; "f2cl2.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
4 ;;; "f2cl3.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
5 ;;; "f2cl4.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
6 ;;; "f2cl5.l,v 46c1f6a93b0d 2012/05/03 04:40:28 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v fceac530ef0c 2011/11/26 04:02:26 toy $")
10 ;;; Using Lisp CMU Common Lisp snapshot-2012-04 (20C Unicode)
11 ;;;
12 ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
13 ;;; (:coerce-assigns :as-needed) (:array-type ':simple-array)
14 ;;; (:array-slicing nil) (:declare-common nil)
15 ;;; (:float-format double-float))
17 (in-package :slatec)
20 (let ((iparam
21 (make-array 9
22 :element-type 'f2cl-lib:integer4
23 :initial-contents '(0 2 0 10 1 0 0 0 0))))
24 (declare (type (simple-array f2cl-lib:integer4 (9)) iparam))
25 (defun j4save (iwhich ivalue iset)
26 (declare (type f2cl-lib:logical iset)
27 (type (f2cl-lib:integer4) ivalue iwhich))
28 (prog ((j4save 0))
29 (declare (type (f2cl-lib:integer4) j4save))
30 (setf j4save (f2cl-lib:fref iparam (iwhich) ((1 9))))
31 (if iset (setf (f2cl-lib:fref iparam (iwhich) ((1 9))) ivalue))
32 (go end_label)
33 end_label
34 (return (values j4save nil nil nil)))))
36 (in-package #:cl-user)
37 #+#.(cl:if (cl:find-package '#:f2cl) '(and) '(or))
38 (eval-when (:load-toplevel :compile-toplevel :execute)
39 (setf (gethash 'fortran-to-lisp::j4save
40 fortran-to-lisp::*f2cl-function-info*)
41 (fortran-to-lisp::make-f2cl-finfo
42 :arg-types '((fortran-to-lisp::integer4) (fortran-to-lisp::integer4)
43 fortran-to-lisp::logical)
44 :return-values '(nil nil nil)
45 :calls 'nil)))