Changeset 13816

Timestamp:

01/28/12 09:54:58 (10 years ago)

Author:

rschlatte

Message:

Re-add some old-style readers for SLIME's benefit.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -3678 +3678 @@
     (std-accessor-method-slot-definition method)))
 
+;;; SLIME compatibility functions.
+
+(defun %method-generic-function (method)
+  (method-generic-function method))
+
+(defun %method-function (method)
+  (method-function method))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)