~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to src/numerical/slatec/xerhlt.lisp

• browse files at revision 1.2.1
• compare with another revision
• download diff
• download tarball
• view history from revision 1.2.1

Show diffs side-by-side

added

removed

src/numerical/slatec/xerhlt.lisp

1

 

;;; Compiled by f2cl version 2.0 beta 2002-05-06

 

1

;;; Compiled by f2cl version 2.0 beta Date: 2006/01/31 15:11:05 

 

2

;;; Using Lisp CMU Common Lisp Snapshot 2006-01 (19C)

2

3

;;; 

3

4

;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)

4

5

;;;           (:coerce-assigns :as-needed) (:array-type ':simple-array)

5

6

;;;           (:array-slicing nil) (:declare-common nil)

6

7

;;;           (:float-format double-float))

7

8

 

8

 

(in-package "SLATEC")

9

 

 

10

 

 

11

 

;; If we get a SLATEC error, print out the message and signal a Maxima

12

 

;; error.  Should we also clear out the error message summary that

13

 

;; SLATEC seems to keep?

 

9

(in-package :slatec)

 

10

 

 

11

 

14

12

(defun xerhlt (messg)

15

 

  (maxima::merror messg))

 

13

  (declare (type (simple-array character (*)) messg))

 

14

  (prog () (declare) (f2cl-lib::stop nil) end_label (return (values nil))))

 

15

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1