Fixed warning message (A. Gavrilov)

parent 5bf130df
......@@ -98,8 +98,8 @@
;;
(if (constantp form)
(let ((value (eval form)))
(cond ((null value) ''si::constantly-nil)
((eq value t) ''si::constantly-t)
(cond ((null value) '#'si::constantly-nil)
((eq value t) '#'si::constantly-t)
(t `(constantly ,form))))
`#'(lambda () ,form)))
......
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