From 74eb62875cc4fd5eb21cf214a9eb2244af1e1ba0 Mon Sep 17 00:00:00 2001 From: Guilherme Affonso Date: Wed, 27 Feb 2019 12:46:05 +0900 Subject: [PATCH] Raise errors on 'assert' --- lisp/l/eusdebug.l | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/l/eusdebug.l b/lisp/l/eusdebug.l index e674b7694..7e07830c5 100644 --- a/lisp/l/eusdebug.l +++ b/lisp/l/eusdebug.l @@ -23,11 +23,9 @@ *remote-port* remote-error reval *server-streams* remote-port)) -(defmacro assert (pred &optional (message "") &rest args) - `(while (not ,pred) - (format *error-output* ,message ,@args) - (finish-output *error-output*) - (reploop "ass: " ))) +(defun assert (pred &optional (message "Assertation Error") &rest args) + (if (not pred) + (apply #'error message args))) (defun warning-message (color format &rest mesg) (format *error-output* "~C[3~Cm" #x1b (+ color 48))