/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.100 by mbaringer, Sun Sep 12 23:56:39 2004 UTC revision 1.101 by mbaringer, Mon Sep 13 16:42:31 2004 UTC
# Line 37  Line 37 
37    
38  ;;; swank-mop  ;;; swank-mop
39    
40    (import-to-swank-mop
41     '( ;; classes
42       cl:standard-generic-function
43       sb-mop::standard-slot-definition
44       cl:method
45       cl:standard-class
46       ;; standard-class readers
47       sb-mop:class-default-initargs
48       sb-mop:class-direct-default-initargs
49       sb-mop:class-direct-slots
50       sb-mop:class-direct-subclasses
51       sb-mop:class-direct-superclasses
52       sb-mop:class-finalized-p
53       cl:class-name
54       sb-mop:class-precedence-list
55       sb-mop:class-prototype
56       sb-mop:class-slots
57       ;; generic function readers
58       sb-mop:generic-function-argument-precedence-order
59       sb-mop:generic-function-declarations
60       sb-mop:generic-function-lambda-list
61       sb-mop:generic-function-methods
62       sb-mop:generic-function-method-class
63       sb-mop:generic-function-method-combination
64       sb-mop:generic-function-name
65       ;; method readers
66       sb-mop:method-generic-function
67       sb-mop:method-function
68       sb-mop:method-lambda-list
69       sb-mop:method-specializers
70       sb-mop:method-qualifiers
71       ;; slot readers
72       sb-mop:slot-definition-allocation
73       sb-mop:slot-definition-initargs
74       sb-mop:slot-definition-initform
75       sb-mop:slot-definition-initfunction
76       sb-mop:slot-definition-name
77       sb-mop:slot-definition-type
78       sb-mop:slot-definition-readers
79       sb-mop:slot-definition-writers))
80    
81  (eval-when (:compile-toplevel :load-toplevel :execute)  (defun swank-mop:slot-definition-documentation (slot)
82    (defun import-to-swank-mop (sym/sym-list)    (sb-pcl::documentation slot t))
     (if (listp sym/sym-list)  
         (dolist (sym sym/sym-list)  
           (import-to-swank-mop sym))  
         (let* ((sym sym/sym-list)  
                (swank-mop-sym (find-symbol (symbol-name sym) :swank-mop)))  
           ;; 1) "delete" the symbol form the :swank-mop package  
           (when swank-mop-sym  
             (unintern swank-mop-sym :swank-mop))  
           (import sym :swank-mop)  
           (export sym :swank-mop))))  
   
   (import-to-swank-mop  
    '( ;; classes  
      cl:standard-generic-function  
      sb-mop::standard-slot-definition  
      cl:method  
      cl:standard-class  
      ;; standard-class readers  
      sb-mop:class-default-initargs  
      sb-mop:class-direct-default-initargs  
      sb-mop:class-direct-slots  
      sb-mop:class-direct-subclasses  
      sb-mop:class-direct-superclasses  
      sb-mop:class-finalized-p  
      cl:class-name  
      sb-mop:class-precedence-list  
      sb-mop:class-prototype  
      sb-mop:class-slots  
      ;; generic function readers  
      sb-mop:generic-function-argument-precedence-order  
      sb-mop:generic-function-declarations  
      sb-mop:generic-function-lambda-list  
      sb-mop:generic-function-methods  
      sb-mop:generic-function-method-class  
      sb-mop:generic-function-method-combination  
      sb-mop:generic-function-name  
      ;; method readers  
      sb-mop:method-generic-function  
      sb-mop:method-function  
      sb-mop:method-lambda-list  
      sb-mop:method-specializers  
      sb-mop:method-qualifiers  
      ;; slot readers  
      sb-mop:slot-definition-allocation  
      sb-mop:slot-definition-initargs  
      sb-mop:slot-definition-initform  
      sb-mop:slot-definition-initfunction  
      sb-mop:slot-definition-name  
      sb-mop:slot-definition-type  
      sb-mop:slot-definition-readers  
      sb-mop:slot-definition-writers))  
   
   (defun swank-mop:slot-definition-documentation (slot)  
     (sb-pcl::documentation slot t))  
   
   )  
83    
84  ;;; TCP Server  ;;; TCP Server
85    

Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101

  ViewVC Help
Powered by ViewVC 1.1.5