[slime-cvs] CVS update: slime/swank-abcl.lisp

[Andras Simon]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv32470

Modified Files:
	swank-abcl.lisp 
Log Message:
arglist
Date: Tue Sep 14 11:15:00 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.12 slime/swank-abcl.lisp:1.13
--- slime/swank-abcl.lisp:1.12	Tue Sep 14 01:11:37 2004
+++ slime/swank-abcl.lisp	Tue Sep 14 11:15:00 2004
@@ -31,7 +31,12 @@
    ))
 
 ;;; swank-mop
+
+;;dummies:
 (defclass standard-slot-definition ()())
+(defun class-finalized-p (class) t)
+(defun slot-definition-documentation (slot))
+(defun slot-definition-type (slot) t)
 
 (import-to-swank-mop
  '( ;; classes
@@ -47,6 +52,7 @@
    sys::class-direct-subclasses
    sys::class-direct-superclasses
 ;   openmcl-mop:class-finalized-p
+   class-finalized-p ;;dummy
    cl:class-name
    sys::class-precedence-list
 ;   openmcl-mop:class-prototype
@@ -68,11 +74,13 @@
    ;; slot readers
    sys::slot-definition-allocation
 ;   ccl::slot-definition-documentation
+   slot-definition-documentation ;;dummy
    sys::slot-definition-initargs
    sys::slot-definition-initform
    sys::slot-definition-initfunction
    sys::slot-definition-name
 ;   openmcl-mop:slot-definition-type
+   slot-definition-type ;;dummy
    sys::slot-definition-readers
    sys::slot-definition-writers))
 
@@ -122,9 +130,14 @@
 
 ;;;; Misc
 
-(defimplementation arglist (symbol)
+
+(defimplementation arglist ((symbol symbol))
   (handler-case (sys::arglist symbol)
     (simple-error () :not-available)))
+
+;;It's a string, not a symbol, but this is better than nothing.
+(defimplementation function-name (function)
+  (nth-value 2 (function-lambda-expression function)))
 
 (defimplementation macroexpand-all (form)
   (macroexpand form))