From cfbd2831807822f12fa32c781d50f54a6a2ea91d Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 7 Aug 2019 17:21:40 +0100 Subject: [PATCH] src/parser/streams-impl.lisp: Use slot accessor rather than `with-slots'. The code is a bit longer, but I think it's more comfortable to read. --- src/parser/streams-impl.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/parser/streams-impl.lisp b/src/parser/streams-impl.lisp index f14bf31..b3bb424 100644 --- a/src/parser/streams-impl.lisp +++ b/src/parser/streams-impl.lisp @@ -224,8 +224,8 @@ present back to a user. Secondly, a name can be attached to a stream which doesn't actually have a file backing it." - (with-slots (file) stream - (or file (call-next-method)))) + (or (position-aware-stream-file stream) + (call-next-method))) (defmethod file-location ((stream position-aware-stream)) (multiple-value-bind (line column) (stream-line-and-column stream) -- 2.11.0