/[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.12 by asimon, Mon Sep 13 23:11:37 2004 UTC revision 1.13 by asimon, Tue Sep 14 09:15:00 2004 UTC
# Line 31  Line 31 
31     ))     ))
32    
33  ;;; swank-mop  ;;; swank-mop
34    
35    ;;dummies:
36  (defclass standard-slot-definition ()())  (defclass standard-slot-definition ()())
37    (defun class-finalized-p (class) t)
38    (defun slot-definition-documentation (slot))
39    (defun slot-definition-type (slot) t)
40    
41  (import-to-swank-mop  (import-to-swank-mop
42   '( ;; classes   '( ;; classes
# Line 47  Line 52 
52     sys::class-direct-subclasses     sys::class-direct-subclasses
53     sys::class-direct-superclasses     sys::class-direct-superclasses
54  ;   openmcl-mop:class-finalized-p  ;   openmcl-mop:class-finalized-p
55       class-finalized-p ;;dummy
56     cl:class-name     cl:class-name
57     sys::class-precedence-list     sys::class-precedence-list
58  ;   openmcl-mop:class-prototype  ;   openmcl-mop:class-prototype
# Line 68  Line 74 
74     ;; slot readers     ;; slot readers
75     sys::slot-definition-allocation     sys::slot-definition-allocation
76  ;   ccl::slot-definition-documentation  ;   ccl::slot-definition-documentation
77       slot-definition-documentation ;;dummy
78     sys::slot-definition-initargs     sys::slot-definition-initargs
79     sys::slot-definition-initform     sys::slot-definition-initform
80     sys::slot-definition-initfunction     sys::slot-definition-initfunction
81     sys::slot-definition-name     sys::slot-definition-name
82  ;   openmcl-mop:slot-definition-type  ;   openmcl-mop:slot-definition-type
83       slot-definition-type ;;dummy
84     sys::slot-definition-readers     sys::slot-definition-readers
85     sys::slot-definition-writers))     sys::slot-definition-writers))
86    
# Line 122  Line 130 
130    
131  ;;;; Misc  ;;;; Misc
132    
133  (defimplementation arglist (symbol)  
134    (defimplementation arglist ((symbol symbol))
135    (handler-case (sys::arglist symbol)    (handler-case (sys::arglist symbol)
136      (simple-error () :not-available)))      (simple-error () :not-available)))
137    
138    ;;It's a string, not a symbol, but this is better than nothing.
139    (defimplementation function-name (function)
140      (nth-value 2 (function-lambda-expression function)))
141    
142  (defimplementation macroexpand-all (form)  (defimplementation macroexpand-all (form)
143    (macroexpand form))    (macroexpand form))
144    

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

  ViewVC Help
Powered by ViewVC 1.1.5