/[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.14 by asimon, Tue Sep 14 12:17:44 2004 UTC revision 1.15 by asimon, Tue Sep 14 17:37:21 2004 UTC
# Line 33  Line 33 
33  ;;; swank-mop  ;;; swank-mop
34    
35  ;;dummies:  ;;dummies:
36    
37  (defclass standard-slot-definition ()())  (defclass standard-slot-definition ()())
38    
39  (defun class-finalized-p (class) t)  (defun class-finalized-p (class) t)
40  (defun slot-definition-documentation (slot))  
41    (defun slot-definition-documentation (slot) #+nil (documentation slot 't))
42  (defun slot-definition-type (slot) t)  (defun slot-definition-type (slot) t)
43  (defun class-prototype (class))  (defun class-prototype (class))
44  (defun generic-function-declarations (gf))  (defun generic-function-declarations (gf))
# Line 345  Should work (with a patched xref.lisp) b Line 348  Should work (with a patched xref.lisp) b
348    
349  |#  |#
350    
 #|  
   
351  ;;;; Inspecting  ;;;; Inspecting
352    
353  (defmethod inspected-parts (o)  (defclass abcl-inspector (inspector)
354      ())
355    
356    (defimplementation make-default-inspector ()
357      (make-instance 'abcl-inspector))
358    
359    (defmethod inspect-for-emacs ((slot sys::slot-definition) (inspector t))
360      (declare (ignore inspector))
361      (values "A slot."
362              `("Name: " (:value ,(sys::slot-definition-name slot))
363                (:newline)
364                "Documentation:" (:newline)
365                ,@(when (slot-definition-documentation slot)
366                    `((:value ,(slot-definition-documentation slot)) (:newline)))
367                "Initialization:" (:newline)
368                "  Args: " (:value ,(sys::slot-definition-initargs slot)) (:newline)
369                "  Form: "  ,(if (sys::slot-definition-initfunction slot)
370                                 `(:value ,(sys::slot-definition-initform slot))
371                                 "#<unspecified>") (:newline)
372                "  Function: " (:value ,(sys::slot-definition-initfunction slot))
373                (:newline))))
374    
375    #|
376    
377    (defimplementation inspect-for-emacs ((o t) (inspector abcl-inspector))
378    (let* ((class (class-of o))    (let* ((class (class-of o))
379           (slots (clos:class-slots class)))           (slots (sys::class-slots class)))
380      (values (format nil "~A~%   is a ~A" o class)      (values (format nil "~A~%   is a ~A" o class)
381              (mapcar (lambda (slot)              (mapcar (lambda (slot)
382                        (let ((name (clos:slot-definition-name slot)))                        (let ((name (sys::slot-definition-name slot)))
383                          (cons (princ-to-string name)                          (cons (princ-to-string name)
384                                (slot-value o name))))                                (slot-value o name))))
385                      slots))))                      slots))))
386  |#  |#
387    
388  ;;;; Multithreading  ;;;; Multithreading
389    
390  (defimplementation startup-multiprocessing ()  (defimplementation startup-multiprocessing ()

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5