Skip to content
Snippets Groups Projects
Commit 6c36e38b authored by dtc's avatar dtc
Browse files

Rework some errors into simple-program-error's and simple-type-error's.

Based on patches from Peter Van Eynde.
parent 727dfb7d
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.35 1998/08/14 07:16:58 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.36 1998/12/19 16:05:46 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -232,14 +232,16 @@
:expected-type 'coercable-to-function))
(deferr invalid-argument-count-error (nargs)
(error 'simple-error
(error 'simple-program-error
:function-name name
:format-control "Invalid number of arguments: ~S"
:format-arguments (list nargs)))
(deferr bogus-argument-to-values-list-error (list)
(error 'simple-error
(error 'simple-type-error
:function-name name
:datum list
:expected-type 'list
:format-control "Attempt to use VALUES-LIST on a dotted-list:~% ~S"
:format-arguments (list list)))
......@@ -299,12 +301,13 @@
:expected-type (layout-class layout)))
(deferr odd-keyword-arguments-error ()
(error 'simple-error
(error 'simple-type-error
:function-name name
:datum nil :expected-type nil
:format-control "Odd number of keyword arguments."))
(deferr unknown-keyword-argument-error (key)
(error 'simple-error
(error 'simple-program-error
:function-name name
:format-control "Unknown keyword: ~S"
:format-arguments (list key)))
......
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