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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Apr 26 03:12:21 2009
New Revision: 11787

Log:
Remove accidentally committed code.
Do some re-indenting elsewhere.

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	Sun Apr 26 03:12:21 2009
@@ -353,7 +353,6 @@
 
 (declaim (ftype (function (t) t) precompile1))
 (defun precompile1 (form)
-;;  (sys::%format t "~S~%" form)
   (cond ((symbolp form)
          (let ((varspec (find-varspec form)))
            (cond ((and varspec (eq (second varspec) :symbol-macro))
@@ -597,32 +596,14 @@
       (setq aux-vars (nreverse aux-vars))
       (setq lambda-list (subseq lambda-list 0 (position '&AUX lambda-list)))
       (multiple-value-bind (lambda-decls let-decls)
-          (rewrite-aux-vars-process-decls decls (lambda-list-names lambda-list) aux-vars)
-        `(lambda ,lambda-list , at lambda-decls (let* ,lets , at let-decls , at body))))))
-
-#|
-(defun split-declarations (related-symbols decls)
-  "Splits IGNORE, IGNORABLE, DYNAMIC-EXTENT, TYPE, FTYPE and <type-specifier>
-into the declarations related to `related-symbols' and the rest."
-  ;; IGNORE, IGNORABLE and DYNAMIC-EXTENT have the same format
-  (let (related-decls other-decls)
-    (dolist (decl-form decls)
-      (dolist (decl (cdr decl-form))
-        (case (car decl)
-          ((IGNORE IGNORABLE DYNAMIC-EXTENT SPECIAL)
-           (let (rel oth)
-             
-           ...)
-          ((TYPE FTYPE) ;; FUNCTION?
-           ...)
-          ((INLINE NOTINLINE OPTIMIZE DECLARATION)
-           (push decl other-decls))
-          (t
-           (if (symbolp (car decl)) ;; a type specifier
-               ...
-               (push decl other-decls))))))
-    (values related-decls other-decls)))
-|#
+          (rewrite-aux-vars-process-decls decls
+                                          (lambda-list-names lambda-list)
+                                          aux-vars)
+        `(lambda ,lambda-list
+           , at lambda-decls
+           (let* ,lets
+             , at let-decls
+             , at body))))))
 
 (defun maybe-rewrite-lambda (form)
   (let* ((lambda-list (cadr form)))
@@ -688,7 +669,6 @@
 
 (defun precompile-lambda (form)
   (setq form (maybe-rewrite-lambda form))
-;;  (sys::%format t "~S~%" form)
   (let ((body (cddr form))
         (*inline-declarations* *inline-declarations*))
     (process-optimization-declarations body)