Commit d0288343 by Francois-Rene Rideau

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

Makes clisp happy.
parent 68ad3a25
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment