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

Sometimes the compiler messages are useful in RT. Let the calling routine set the values of *compile-{verbose,print}*.

Browse source
This commit is contained in:
jgarcia 2006-10-11 15:15:16 +00:00
parent 3be09c41b2
commit 433c8fe385
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
contrib/rt/rt.lisp
View file

@ -162,15 +162,13 @@
(flet ((%do
()
(if *compile-tests*
(let ((*compile-verbose* nil)
(*compile-print* nil))
(multiple-value-list
(funcall (compile
nil
`(lambda ()
(declare
(optimize ,@*optimization-settings*))
,(form entry))))))
(multiple-value-list
(funcall (compile
nil
`(lambda ()
(declare
(optimize ,@*optimization-settings*))
,(form entry)))))
(multiple-value-list
(eval (form entry))))))
(if *catch-errors*