Don't use fname to define functions
[maxima.git] / src / numerical / slatec / fdump.lisp
blob7fb5b86d1e528b9fd6ab6ee3ba4be0b7a4dfbde7
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 (defun fdump () (prog () (declare) (go end_label) end_label (return (values))))
22 (in-package #:cl-user)
23 #+#.(cl:if (cl:find-package '#:f2cl) '(and) '(or))
24 (eval-when (:load-toplevel :compile-toplevel :execute)
25 (setf (gethash 'fortran-to-lisp::fdump fortran-to-lisp::*f2cl-function-info*)
26 (fortran-to-lisp::make-f2cl-finfo :arg-types 'nil
27 :return-values 'nil
28 :calls 'nil)))