From c65ab77005afdaefb966fd43e0e0e0950ecff481 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 28 Jan 1991 12:44:30 +0000 Subject: [PATCH] Fixed COMPILER-ERROR to not assume that all :COMPILE-FILE notes have a Buffer (which they don't in the case of "Compile File".) --- hemlock/lispeval.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hemlock/lispeval.lisp b/hemlock/lispeval.lisp index bc3ef3f84..b79d8ae16 100644 --- a/hemlock/lispeval.lisp +++ b/hemlock/lispeval.lisp @@ -173,7 +173,8 @@ (:compile (note-region note)) (:compile-file - (buffer-region (note-buffer note))) + (let ((buff (note-buffer note))) + (and buff (buffer-region buff)))) (t (error "Compiler error in ~S?" note))))) (when region -- GitLab