Commit 8ec239a8 authored by rtoy's avatar rtoy
Browse files

f2cl0.l:

o Export *STOP-SIGNALS-ERROR-P*

macros.l:
o Add *STOP-SIGNALS-ERROR-P* to allow user to control whether STOP
  signals a continuable error or not.  Default is to signal the
  error.
parent 713cfa27
......@@ -36,6 +36,7 @@
#:%false% #:%true%
;; User-settable runtime options
#:*check-array-bounds*
#:*stop-signals-error-p*
;; Types
#:integer4 #:integer2 #:integer1 #:real8 #:real4 #:complex8 #:complex16
#:array-double-float #:array-single-float #:array-integer4 #:array-strings
......@@ -84,8 +85,17 @@
;;;-------------------------------------------------------------------------
;;; end of f2cl0.l
;;;
;;; $Id: f2cl0.l,v 17bf313877f7 2009/01/07 17:28:19 rtoy $
;;; $Id: f2cl0.l,v 0852a0f34095 2009/01/08 12:57:19 rtoy $
;;; $Log$
;;; Revision 1.23 2009/01/08 12:57:19 rtoy
;;; f2cl0.l:
;;; o Export *STOP-SIGNALS-ERROR-P*
;;;
;;; macros.l:
;;; o Add *STOP-SIGNALS-ERROR-P* to allow user to control whether STOP
;;; signals a continuable error or not. Default is to signal the
;;; error.
;;;
;;; Revision 1.22 2009/01/07 17:28:19 rtoy
;;; f2cl0.l:
;;; o Export new dfloat function, an alias for dble.
......
......@@ -6,7 +6,7 @@
(in-package :f2cl-lib)
(defparameter *f2cl-macros-version*
"$Id: macros.l,v 25e896652df8 2009/01/07 21:50:16 rtoy $")
"$Id: macros.l,v 0852a0f34095 2009/01/08 12:57:19 rtoy $")
(eval-when
#+gcl (compile load eval)
......@@ -1448,17 +1448,34 @@ causing all pending operations to be flushed"
(declare (ignore frac sign))
(- exp 1)))
))
;; F2cl cannot tell if a STOP statement is an error condition or just
;; the end of the program. So, by default, we signal a continuable
;; error. However, we give the user the option of silently returning
;; or not.
(defvar *stop-signals-error-p* nil
"When non-NIL, STOP will signal an continuable error. Otherwise, STOP just returns")
(defun stop (&optional arg)
(when arg
(format cl::*error-output* "~A~%" arg))
(cerror "Continue anyway" "STOP reached"))
(unless *stop-signals-error-p*
(cerror "Continue anyway" "STOP reached")))
;;;-------------------------------------------------------------------------
;;; end of macros.l
;;;
;;; $Id: macros.l,v 25e896652df8 2009/01/07 21:50:16 rtoy $
;;; $Id: macros.l,v 0852a0f34095 2009/01/08 12:57:19 rtoy $
;;; $Log$
;;; Revision 1.112 2009/01/08 12:57:19 rtoy
;;; f2cl0.l:
;;; o Export *STOP-SIGNALS-ERROR-P*
;;;
;;; macros.l:
;;; o Add *STOP-SIGNALS-ERROR-P* to allow user to control whether STOP
;;; signals a continuable error or not. Default is to signal the
;;; error.
;;;
;;; Revision 1.111 2009/01/07 21:50:16 rtoy
;;; Use the fast rint-* functions for CMUCL with sse2 support.
;;;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment