Fix WITH-ERROR.

Shirakumo · Feb 4, 2017 · 45944de · 45944de
1 parent de9de7d
commit 45944de
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)))