From 45944de24675266c1d9a4c7df319a1ddbd896261 Mon Sep 17 00:00:00 2001
From: Shinmera <shinmera@tymoon.eu>
Date: Sat, 4 Feb 2017 09:22:29 +0100
Subject: [PATCH] Fix WITH-ERROR.

---
 toolkit.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/toolkit.lisp b/toolkit.lisp
index c344d0c..6f74009 100644
--- a/toolkit.lisp
+++ b/toolkit.lisp
@@ -17,7 +17,7 @@
        (with-foreign-values ,bindings ,call)
      ,@body))
 
-(defmacro with-error ((err datum &rest datum-args &key (ok '(:ok)) &allow-other-keys) &body form)
+(defmacro with-error ((err datum &rest datum-args &key (ok ''(:ok)) &allow-other-keys) &body form)
   (let ((args (copy-list datum-args)))
     (remf args :ok)
     `(let ((,err (progn ,@form)))