Skip to content
Snippets Groups Projects
Commit 12618d07 authored by ram's avatar ram
Browse files

Added NIL-FUNCTION-RETURNED-ERROR for flaming about functions that returned,

but shouldn't have.
parent 653f0208
No related branches found
No related tags found
No related merge requests found
...@@ -7,11 +7,11 @@ ...@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.18 1991/11/09 02:47:16 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.19 1991/11/09 20:49:49 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.18 1991/11/09 02:47:16 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.19 1991/11/09 20:49:49 ram Exp $
;;; ;;;
;;; Functions and macros to define and deal with internal errors (i.e. ;;; Functions and macros to define and deal with internal errors (i.e.
;;; problems that can be signaled from assembler code). ;;; problems that can be signaled from assembler code).
...@@ -51,7 +51,7 @@ ...@@ -51,7 +51,7 @@
object-not-simple-array-single-float-error object-not-simple-array-single-float-error
object-not-simple-array-double-float-error object-not-simple-array-double-float-error
object-not-complex-error object-not-weak-pointer-error object-not-complex-error object-not-weak-pointer-error
object-not-structure-error)) object-not-structure-error nil-function-returned-error))
...@@ -408,6 +408,15 @@ ...@@ -408,6 +408,15 @@
:format-string "Attempt to THROW to a tag that does not exist: ~S" :format-string "Attempt to THROW to a tag that does not exist: ~S"
:format-arguments (list tag))) :format-arguments (list tag)))
(deferr nil-function-returned-error
"Function with declared result type NIL returned."
(function)
(error 'control-error
:function-name name
:format-string
"Function with declared result type NIL returned:~% ~S"
:format-arguments (list function)))
(deferr division-by-zero-error (deferr division-by-zero-error
"Attempt to divide by zero." "Attempt to divide by zero."
(this that) (this that)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment