Changeset 12857

Timestamp:

08/02/10 21:23:49 (13 years ago)

Author:

ehuelsmann

Message:

Remove unused function GET-DESCRIPTOR.

File:

• branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

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

@@ -412 +412 @@
            (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))