From 016f25e4b5f5edb3b478cd87947b176f871f201c Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 20 Feb 2021 22:47:33 +0000 Subject: [PATCH] src/parser/floc-proto.lisp: Use correct function for constructing conditions. --- src/parser/floc-proto.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 @@ ;;;-------------------------------------------------------------------------- ;;; 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 -- 2.11.0