From b8e9f96da5eef4cc0cf9c13eedce002157ec5a71 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 28 May 2010 21:36:04 +0200 Subject: [PATCH] Do not allow :READ-ONLY declarations for special variables --- src/cmp/cmplet.lsp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmplet.lsp b/src/cmp/cmplet.lsp index a4fafd304..3eaf102ec 100644 --- a/src/cmp/cmplet.lsp +++ b/src/cmp/cmplet.lsp @@ -95,8 +95,11 @@ "In LET/LET* bindings") (default-init var)))) ;; :read-only variable handling. Beppe - (when (read-only-variable-p name other-decls) - (setf (var-type var) (c1form-primary-type init))) + (if (read-only-variable-p name other-decls) + (if (global-var-p var) + (cmpwarn "Found :READ-ONLY declaration for global var ~A" + name) + (setf (var-type var) (c1form-primary-type init)))) (push var vars) (push init forms) (when (eq let/let* 'LET*) (push-vars var))))