Skip to content
Snippets Groups Projects
Commit 9c80090d authored by ram's avatar ram
Browse files

Merged in fix to PRINT-CONTROL-ERROR from working code version.

parent a34ef7a7
No related branches found
No related tags found
No related merge requests found
......@@ -771,11 +771,10 @@ The previous version is uglier, but it sets up unique run-time tags.
(defun print-control-error (condition stream)
(apply #'format
stream "~&Error in function ~S.~%~?"
(control-error-function-name condition)
(control-error-format-string condition)
(control-error-format-arguments condition)))
(format stream "~&Error in function ~S.~%~?"
(control-error-function-name condition)
(control-error-format-string condition)
(control-error-format-arguments condition)))
(define-condition control-error (error)
(format-string
......
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