Make sure to return only one value in macro-character reader function.

Makes clisp happy.

diff --git a/quasiquote.lisp b/quasiquote.lisp
index 9132269..ca94c94 100644 (file)
--- a/quasiquote.lisp
+++ b/quasiquote.lisp
@@ -5,7 +5,6 @@
 
 #+xcvb (module (:depends-on ("packages" "matcher")))
 
-
 (in-package :fare-quasiquote)
 
 (declaim (optimize (speed 1) (safety 3) (debug 3)))
@@ -308,7 +307,7 @@ of the result of the top operation applied to the expression"
          ((read)
           #'(lambda (stream char)
               (declare (ignore char))
-              (macroexpand-1 (read-quasiquote stream))))
+              (values (macroexpand-1 (read-quasiquote stream)))))
          ((macroexpand)
           #'(lambda (stream char)
               (declare (ignore char))