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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
Minimal swank-mop support just so that slime/abcl can be compiled and loaded.
Date: Tue Sep 14 01:11:38 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.11 slime/swank-abcl.lisp:1.12
--- slime/swank-abcl.lisp:1.11	Fri Aug 27 22:27:19 2004
+++ slime/swank-abcl.lisp	Tue Sep 14 01:11:37 2004
@@ -30,6 +30,52 @@
    gs:stream-read-char-no-hang
    ))
 
+;;; swank-mop
+(defclass standard-slot-definition ()())
+
+(import-to-swank-mop
+ '( ;; classes
+   cl:standard-generic-function
+;   ccl::standard-slot-definition
+   standard-slot-definition ;;dummy
+   cl:method
+   cl:standard-class
+   ;; standard-class readers
+   sys::class-default-initargs
+   sys::class-direct-default-initargs
+   sys::class-direct-slots
+   sys::class-direct-subclasses
+   sys::class-direct-superclasses
+;   openmcl-mop:class-finalized-p
+   cl:class-name
+   sys::class-precedence-list
+;   openmcl-mop:class-prototype
+   sys::class-slots
+   ;; generic function readers
+   sys::generic-function-argument-precedence-order
+;   openmcl-mop:generic-function-declarations
+   sys::generic-function-lambda-list
+   sys::generic-function-methods
+   sys::generic-function-method-class
+   sys::generic-function-method-combination
+   sys::generic-function-name
+   ;; method readers
+   sys::method-generic-function
+   sys::method-function
+   sys::method-lambda-list
+   sys::method-specializers
+   sys::method-qualifiers
+   ;; slot readers
+   sys::slot-definition-allocation
+;   ccl::slot-definition-documentation
+   sys::slot-definition-initargs
+   sys::slot-definition-initform
+   sys::slot-definition-initfunction
+   sys::slot-definition-name
+;   openmcl-mop:slot-definition-type
+   sys::slot-definition-readers
+   sys::slot-definition-writers))
+
 ;;;; TCP Server
 
 
@@ -367,3 +413,4 @@
 
 (defimplementation quit-lisp ()
   (ext:exit))
+