aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGabriel Dos Reis <gdr@axiomatics.org>2017-12-27 03:29:02 -0800
committerGabriel Dos Reis <gdr@axiomatics.org>2017-12-27 03:29:02 -0800
commitd16f9a090321f1ec1e8b20f1fb30859bf93cea46 (patch)
tree70343209f86d445286d11b6d10c98c6097c90042 /src
parent3765ca989446c6686efb42ee899d98232531dba5 (diff)
downloadopen-axiom-d16f9a090321f1ec1e8b20f1fb30859bf93cea46.tar.gz
Fix build with SBCL
ERROR does no expect a LIST.
Diffstat (limited to 'src')
-rw-r--r--src/interp/vmlisp.lisp3
1 files changed, 1 insertions, 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