From d16f9a090321f1ec1e8b20f1fb30859bf93cea46 Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Wed, 27 Dec 2017 03:29:02 -0800
Subject: Fix build with SBCL ERROR does no expect a LIST.

---
 src/interp/vmlisp.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp
index c4b95da4..e909bfd4 100644
--- a/src/interp/vmlisp.lisp
+++ b/src/interp/vmlisp.lisp
@@ -1101,8 +1101,7 @@
 (defun MACERR (MESSAGE &rest ignore)
   (declare (ignore ignore))
       (setq MACERRORCOUNT (+ 1 (eval 'MACERRORCOUNT)))
-      (error
-        (LIST "in the expression:" MESSAGE))
+      (error (strconc "in the expression: " MESSAGE))
       ())
 
 ; 98.0 Stuff Not In The VMLisp Manual That We Like
-- 
cgit v1.2.3