From 24c658e918c1734b44850b36dbf1dfd8e19b6025 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 23 Dec 2011 12:11:54 +0100 Subject: [PATCH] Fixed proclamation for do-defsetf --- src/cmp/proclamations.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/proclamations.lsp b/src/cmp/proclamations.lsp index 2fd567cd1..ce51c7342 100644 --- a/src/cmp/proclamations.lsp +++ b/src/cmp/proclamations.lsp @@ -188,7 +188,7 @@ ;; ECL extensions: (proclamation si:specialp (symbol) gen-bool :predicate) -(proclamation si::do-defsetf (symbol function) t) +(proclamation si::do-defsetf (symbol (or symbol function)) t) (proclamation si::do-define-setf-method (symbol function) t) ;;;