From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 20 Feb 2021 22:47:33 +0000 (+0000)
Subject: src/parser/floc-proto.lisp: Use correct function for constructing conditions.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/016f25e4b5f5edb3b478cd87947b176f871f201c?hp=31194ea55102b83b087232e7af8e1a47399eec02

src/parser/floc-proto.lisp: Use correct function for constructing conditions.
---

diff --git a/src/parser/floc-proto.lisp b/src/parser/floc-proto.lisp
index 0ee952d..9eb31d4 100644
--- a/src/parser/floc-proto.lisp
+++ b/src/parser/floc-proto.lisp
@@ -218,7 +218,7 @@ (defun cerror*-with-location (floc datum &rest arguments)
 ;;;--------------------------------------------------------------------------
 ;;; Stamping errors with location information.
 
-(let ((control-condition (make-instance 'condition)))
+(let ((control-condition (make-condition 'condition)))
   (defun with-default-error-location* (floc thunk)
     "Invoke THUNK in a dynamic environment which attaches FLOC to errors (and
      other conditions) which do not have file location information attached