From: Christophe R. <cr...@us...> - 2003-02-18 17:22:10
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1:/tmp/cvs-serv8465/src/compiler Modified Files: ir1-translators.lisp Log Message: 0.7.12.45: Fix special operator status of DECLARE ... DECLARE no longer returns T to SPECIAL-OPERATOR-P Index: ir1-translators.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1-translators.lisp,v retrieving revision 1.41 retrieving revision 1.42 diff -u -d -r1.41 -r1.42 --- ir1-translators.lisp 15 Feb 2003 11:16:34 -0000 1.41 +++ ir1-translators.lisp 18 Feb 2003 17:22:05 -0000 1.42 @@ -346,15 +346,6 @@ macrobindings (lambda (&key vars) (ir1-translate-locally body start cont :vars vars)))) - -;;; not really a special form, but.. -(def-ir1-translator declare ((&rest stuff) start cont) - (declare (ignore stuff)) - ;; We ignore START and CONT too, but we can't use DECLARE IGNORE to - ;; tell the compiler about it here, because the DEF-IR1-TRANSLATOR - ;; macro would put the DECLARE in the wrong place, so.. - start cont - (compiler-error "misplaced declaration")) ;;;; %PRIMITIVE ;;;; |