From 3ce9a3f6c6bb8e8db7d2cf85b09be98c016ef3cf Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 11 Jul 2010 12:27:02 +0200 Subject: [PATCH] Fixed warning message (A. Gavrilov) --- src/clos/slot.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/clos/slot.lsp b/src/clos/slot.lsp index c25039ae1..c1696116f 100644 --- a/src/clos/slot.lsp +++ b/src/clos/slot.lsp @@ -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)))