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

Diff of /slime/swank-lispworks.lisp

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

revision 1.56 by msimmons, Wed Sep 8 16:08:26 2004 UTC revision 1.57 by msimmons, Mon Sep 13 19:09:15 2004 UTC
# Line 25  Line 25 
25     stream:stream-line-column     stream:stream-line-column
26     ))     ))
27    
28    (import-to-swank-mop
29     '( ;; classes
30       cl:standard-generic-function
31       clos:standard-slot-definition
32       cl:method
33       cl:standard-class
34       ;; standard-class readers
35       clos:class-default-initargs
36       clos:class-direct-default-initargs
37       clos:class-direct-slots
38       clos:class-direct-subclasses
39       clos:class-direct-superclasses
40       clos:class-finalized-p
41       cl:class-name
42       clos:class-precedence-list
43       clos:class-prototype
44       clos:class-slots
45       ;; generic function readers
46       clos:generic-function-argument-precedence-order
47       clos:generic-function-declarations
48       clos:generic-function-lambda-list
49       clos:generic-function-methods
50       clos:generic-function-method-class
51       clos:generic-function-method-combination
52       clos:generic-function-name
53       ;; method readers
54       clos:method-generic-function
55       clos:method-function
56       clos:method-lambda-list
57       clos:method-specializers
58       clos:method-qualifiers
59       ;; slot readers
60       clos:slot-definition-allocation
61       clos:slot-definition-initargs
62       clos:slot-definition-initform
63       clos:slot-definition-initfunction
64       clos:slot-definition-name
65       clos:slot-definition-type
66       clos:slot-definition-readers
67       clos:slot-definition-writers))
68    
69    (defun swank-mop:slot-definition-documentation (slot)
70      (documentation slot t))
71    
72  (when (fboundp 'dspec::define-dspec-alias)  (when (fboundp 'dspec::define-dspec-alias)
73    (dspec::define-dspec-alias defimplementation (name args &rest body)    (dspec::define-dspec-alias defimplementation (name args &rest body)
74      `(defmethod ,name ,args ,@body)))      `(defmethod ,name ,args ,@body)))
# Line 111  Line 155 
155    
156  ;;;; Documentation  ;;;; Documentation
157    
158  (defimplementation arglist (symbol)  (defimplementation arglist (symbol-or-function)
159    (let ((arglist (lw:function-lambda-list symbol)))    (let ((arglist (lw:function-lambda-list symbol-or-function)))
160      (etypecase arglist      (etypecase arglist
161        ((member :dont-know)        ((member :dont-know)
162         :not-available)         :not-available)
163        (list        (list
164         arglist))))         arglist))))
165    
166    (defimplementation function-name (function)
167      (nth-value 2 (function-lambda-expression function)))
168    
169  (defimplementation macroexpand-all (form)  (defimplementation macroexpand-all (form)
170    (walker:walk-form form))    (walker:walk-form form))
171    

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

  ViewVC Help
Powered by ViewVC 1.1.5