From 6ff237b689590320f942a195193fed3f95934de1 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 22 Mar 2020 06:07:22 -0700 Subject: dump-compiled-objects: wrong self name. * share/txr/stdlib/compiler.tl (dump-compiled-objects): Fixed incorrect value of self variable. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 953a4129..f510d892 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1800,7 +1800,7 @@ [compile-file-conditionally in-path out-path [mapf path-newer fstat identity]]) (defun usr:dump-compiled-objects (out-stream . compiled-objs) - (symacrolet ((self 'dump-compiled-object)) + (symacrolet ((self 'dump-compiled-objects)) (let ((out (new list-builder))) (flet ((vm-from-fun (fun) (unless (vm-fun-p fun) -- cgit v1.2.3