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

Diff of /slime/swank-abcl.lisp

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

revision 1.11 by asimon, Fri Aug 27 20:27:19 2004 UTC revision 1.12 by asimon, Mon Sep 13 23:11:37 2004 UTC
# Line 30  Line 30 
30     gs:stream-read-char-no-hang     gs:stream-read-char-no-hang
31     ))     ))
32    
33    ;;; swank-mop
34    (defclass standard-slot-definition ()())
35    
36    (import-to-swank-mop
37     '( ;; classes
38       cl:standard-generic-function
39    ;   ccl::standard-slot-definition
40       standard-slot-definition ;;dummy
41       cl:method
42       cl:standard-class
43       ;; standard-class readers
44       sys::class-default-initargs
45       sys::class-direct-default-initargs
46       sys::class-direct-slots
47       sys::class-direct-subclasses
48       sys::class-direct-superclasses
49    ;   openmcl-mop:class-finalized-p
50       cl:class-name
51       sys::class-precedence-list
52    ;   openmcl-mop:class-prototype
53       sys::class-slots
54       ;; generic function readers
55       sys::generic-function-argument-precedence-order
56    ;   openmcl-mop:generic-function-declarations
57       sys::generic-function-lambda-list
58       sys::generic-function-methods
59       sys::generic-function-method-class
60       sys::generic-function-method-combination
61       sys::generic-function-name
62       ;; method readers
63       sys::method-generic-function
64       sys::method-function
65       sys::method-lambda-list
66       sys::method-specializers
67       sys::method-qualifiers
68       ;; slot readers
69       sys::slot-definition-allocation
70    ;   ccl::slot-definition-documentation
71       sys::slot-definition-initargs
72       sys::slot-definition-initform
73       sys::slot-definition-initfunction
74       sys::slot-definition-name
75    ;   openmcl-mop:slot-definition-type
76       sys::slot-definition-readers
77       sys::slot-definition-writers))
78    
79  ;;;; TCP Server  ;;;; TCP Server
80    
81    
# Line 367  Should work (with a patched xref.lisp) b Line 413  Should work (with a patched xref.lisp) b
413    
414  (defimplementation quit-lisp ()  (defimplementation quit-lisp ()
415    (ext:exit))    (ext:exit))
416    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5