mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

The auxiliary function ASSERT-FAILURE was missing a variable definition.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-27 23:48:14 +02:00
parent 747fddfecf
commit 164605aa72
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/clos/conditions.lsp
View file

@ -745,7 +745,7 @@ memory limits before executing the program again."))))
value))
(defun assert-failure (test-form &optional place-names values
&rest condition-arguments)
&rest arguments)
(unless arguments
(setf arguments (list 'SIMPLE-TYPE-ERROR
:DATUM test-form
@ -753,9 +753,9 @@ memory limits before executing the program again."))))
:FORMAT-CONTROL "The assertion ~S failed"
:FORMAT-ARGUMENTS (list test-form))))
(restart-case (error (si::coerce-to-condition (first arguments)
(rest arguments)
'simple-error
'assert))
(rest arguments)
'simple-error
'assert))
(continue ()
:REPORT (lambda (stream) (assert-report place-names stream))
(return-from assert-failure