[armedbear-cvs] r12857 - branches/generic-class-file/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Aug  2 17:23:49 2010
New Revision: 12857

Log:
Remove unused function GET-DESCRIPTOR.

Modified:
   branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Mon Aug  2 17:23:49 2010
@@ -412,10 +412,6 @@
            (emit 'dup2_x2)
            (emit 'pop2)))))
 
-(declaim (inline get-descriptor))
-(defun get-descriptor (arg-types return-type)
-  (apply #'descriptor return-type arg-types))
-
 (declaim (ftype (function * t) emit-invokestatic))
 (defun emit-invokestatic (class-name method-name arg-types return-type)
   (let* ((descriptor (apply #'descriptor return-type arg-types))