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