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)
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))
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
))
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
))
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
)