[armedbear-cvs] r12228 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Oct 26 16:18:01 2009
New Revision: 12228

Log:
Remove unused function (PROCESS-SPECIAL-DECLARATIONS).

Modified:
   trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Mon Oct 26 16:18:01 2009
@@ -33,7 +33,6 @@
 
 (export '(*inline-declarations*
           process-optimization-declarations
-          process-special-declarations
           inline-p notinline-p inline-expansion expand-inline
           *defined-functions* *undefined-functions* note-name-defined))
 
@@ -83,19 +82,6 @@
                  (setf *explain* (remove quality *explain*)))))))))
   t)
 
-;; Returns list of declared specials.
-(declaim (ftype (function (list) list) process-special-declarations))
-(defun process-special-declarations (forms)
-  (let ((specials nil))
-    (dolist (form forms)
-      (unless (and (consp form) (eq (%car form) 'DECLARE))
-        (return))
-      (let ((decls (%cdr form)))
-        (dolist (decl decls)
-          (when (eq (car decl) 'special)
-            (setq specials (append (cdr decl) specials))))))
-    specials))
-
 (declaim (ftype (function (t) t) inline-p))
 (defun inline-p (name)
   (declare (optimize speed))