43 |
(with-simple-restart |
(with-simple-restart |
44 |
(continue "~a" (apply #'format nil continue-format-string args)) |
(continue "~a" (apply #'format nil continue-format-string args)) |
45 |
(apply #'error condition-name |
(apply #'error condition-name |
46 |
:function-name function-name |
:function-name function-name |
47 |
(let ((k-a (mapcan #'list (cdr e-d) args))) |
(let ((k-a (mapcan #'list (cdr e-d) args))) |
48 |
(if (simple-condition-class-p condition-name) |
(if (simple-condition-class-p condition-name) |
49 |
(list* :format-string error-format-string |
(list* :format-string error-format-string |
76 |
(defparameter *internal-error-list* |
(defparameter *internal-error-list* |
77 |
'(("FEwrong_type_argument" :wrong-type-argument "~S is not of type ~S." |
'(("FEwrong_type_argument" :wrong-type-argument "~S is not of type ~S." |
78 |
internal-type-error :datum :expected-type) |
internal-type-error :datum :expected-type) |
79 |
("FEpackage_error" :package-error "A package error occurred on ~S:~S." |
("FEpackage_error" :package-error "A package error occurred on ~S: ~S." |
80 |
internal-package-error) ; |<function>| |top - base| |
internal-package-error :package :message) ; |<function>| |top - base| |
81 |
("FEtoo_few_arguments" :too-few-arguments "~S [or a callee] requires more than ~R argument~:p." |
("FEtoo_few_arguments" :too-few-arguments "~S [or a callee] requires more than ~R argument~:p." |
82 |
internal-simple-control-error) ; |<function>| |top - base| |
internal-simple-control-error) ; |<function>| |top - base| |
83 |
("FEtoo_few_argumentsF" :too-few-arguments "Too few arguments." |
("FEtoo_few_argumentsF" :too-few-arguments "Too few arguments." |