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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug 12 05:00:39 2011
New Revision: 13465

Log:
Delete commented out code which isn't returning any time soon.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Thu Aug 11 12:44:30 2011	(r13464)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Fri Aug 12 05:00:39 2011	(r13465)
@@ -405,7 +405,6 @@
             (cond (compiled-function
                    (setf (getf tail key)
 			 `(sys::get-fasl-function *fasl-loader* ,saved-class-number)))
-;;                         `(load-compiled-function ,(file-namestring classfile))))
                   (t
                    ;; FIXME This should be a warning or error of some sort...
                    (format *error-output* "; Unable to compile method~%")))))))))