From 4e17f5d1d88a97d25596d8ae1c17d69f5e26c42d Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 29 Nov 2012 23:03:41 +0100 Subject: [PATCH] Simplify the with-*-syntax macros using with-clean-symbols --- src/lsp/iolib.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/lsp/iolib.lsp b/src/lsp/iolib.lsp index 73f7d62d7..d3c43f16e 100644 --- a/src/lsp/iolib.lsp +++ b/src/lsp/iolib.lsp @@ -247,8 +247,8 @@ the one defined in the ANSI standard. *print-base* is 10, *print-array* is t, *package* is \"CL-USER\", etc." (with-clean-symbols (%progv-list) `(let ((%progv-list +io-syntax-progv-list+)) - (progv (car (ext:truly-the cons %progv-list)) - (cdr (ext:truly-the cons %progv-list)) + (progv (si:cons-car %progv-list) + (si:cons-cdr %progv-list) ,@body)))) (defmacro with-ecl-io-syntax (&body body) @@ -257,8 +257,8 @@ The forms of the body are executed in a print environment that corresponds to the one used internally by ECL compiled files." (with-clean-symbols (%progv-list) `(let ((%progv-list +ecl-syntax-progv-list+)) - (progv (car (ext:truly-the cons %progv-list)) - (cdr (ext:truly-the cons %progv-list)) + (progv (si:cons-car %progv-list) + (si:cons-cdr %progv-list) ,@body)))) #-formatter