mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 20:31:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed warning message (A. Gavrilov)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-07-11 12:27:02 +02:00
parent 5bf130dfbc
commit 3ce9a3f6c6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clos/slot.lsp
View file

@ -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)))