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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sat Jan 28 01:54:58 2012
New Revision: 13816

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Fri Jan 27 06:53:23 2012	(r13815)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sat Jan 28 01:54:58 2012	(r13816)
@@ -3677,6 +3677,13 @@
   (:method ((method standard-accessor-method))
     (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)
   (require "MOP"))