Skip to content
Snippets Groups Projects
Commit 4533b1b6 authored by gerd's avatar gerd
Browse files

* compiler/ir1util.lisp (print-error-message): Make sure

	FORMAT-ARGS is a list.
parent 47396cc9
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.88 2003/03/10 11:29:02 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.89 2003/03/10 13:35:12 gerd Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1855,7 +1855,7 @@ ...@@ -1855,7 +1855,7 @@
(values (simple-condition-format-control condition) (values (simple-condition-format-control condition)
(simple-condition-format-arguments condition)) (simple-condition-format-arguments condition))
(values "~a" (values "~a"
(with-output-to-string (s) (princ condition s)))) (list (with-output-to-string (s) (princ condition s)))))
(let ((stream *compiler-error-output*) (let ((stream *compiler-error-output*)
(context (find-error-context format-args))) (context (find-error-context format-args)))
(cond (cond
......
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