/[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.58 by mbaringer, Tue Sep 14 16:01:06 2004 UTC revision 1.59 by mbaringer, Fri Sep 17 12:50:41 2004 UTC
# Line 42  Line 42 
42     clos:class-precedence-list     clos:class-precedence-list
43     clos:class-prototype     clos:class-prototype
44     clos:class-slots     clos:class-slots
45       clos:specializer-direct-methods
46     ;; generic function readers     ;; generic function readers
47     clos:generic-function-argument-precedence-order     clos:generic-function-argument-precedence-order
48     clos:generic-function-declarations     clos:generic-function-declarations
# Line 69  Line 70 
70  (defun swank-mop:slot-definition-documentation (slot)  (defun swank-mop:slot-definition-documentation (slot)
71    (documentation slot t))    (documentation slot t))
72    
73    ;;;; lispworks doesn't have the eql-specializer class, it represents
74    ;;;; them as a list of `(EQL ,OBJECT)
75    (deftype swank-mop:eql-specializer () 'cons)
76    
77    (defun swank-mop:eql-specializer-object (eql-spec)
78      (second eql-spec))
79    
80  (when (fboundp 'dspec::define-dspec-alias)  (when (fboundp 'dspec::define-dspec-alias)
81    (dspec::define-dspec-alias defimplementation (name args &rest body)    (dspec::define-dspec-alias defimplementation (name args &rest body)
82      `(defmethod ,name ,args ,@body)))      `(defmethod ,name ,args ,@body)))

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

  ViewVC Help
Powered by ViewVC 1.1.5