X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/c884ec24084f0c2ad184ba2372fb78f501cdc165..9fb0b75bf65564984030d942a125ebc71da2ab3c:/src/parser/floc-proto.lisp

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