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

Diff of /slime/swank-clisp.lisp

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

revision 1.22 by heller, Wed Mar 3 20:55:38 2004 UTC revision 1.23 by heller, Thu Mar 4 22:15:40 2004 UTC
# Line 160  Return NIL if the symbol is unbound." Line 160  Return NIL if the symbol is unbound."
160    
161  (defun find-multiple-definitions (fspec)  (defun find-multiple-definitions (fspec)
162    (list `(,fspec t)))    (list `(,fspec t)))
163    (fspec-pathname 'disassemble)
164  (defun find-definition-in-file (fspec type file)  (defun find-definition-in-file (fspec type file)
165    (declare (ignore fspec type file))    (declare (ignore fspec type file))
166    ;; FIXME    ;; FIXME
# Line 510  Return NIL if the symbol is unbound." Line 510  Return NIL if the symbol is unbound."
510                                      (invoke-debugger condition)))))                                      (invoke-debugger condition)))))
511     nil))     nil))
512    
513    ;;; Inspecting
514    
515    (defmethod inspected-parts (o)
516      (let* ((*print-array* nil) (*print-pretty* t)
517             (*print-circle* t) (*print-escape* t)
518             (*print-lines* custom:*inspect-print-lines*)
519             (*print-level* custom:*inspect-print-level*)
520             (*print-length* custom:*inspect-print-length*)
521             (sys::*inspect-all* (make-array 10 :fill-pointer 0 :adjustable t))
522             (tmp-pack (make-package (gensym "INSPECT-TMP-PACKAGE-")))
523             (*package* tmp-pack)
524             (sys::*inspect-unbound-value* (intern "#<unbound>" tmp-pack)))
525        (let ((inspection (sys::inspect-backend o)))
526          (values (format nil "~S~% ~A~{~%~A~}" o
527                          (sys::insp-title inspection)
528                          (sys::insp-blurb inspection))
529                  (let ((count (sys::insp-num-slots inspection))
530                        (pairs '()))
531                    (dotimes (i count)
532                      (multiple-value-bind (value name)
533                          (funcall (sys::insp-nth-slot inspection) i)
534                        (push (cons (to-string (or name i)) value)
535                              pairs)))
536                    (nreverse pairs))))))
537    
538  ;;; Local Variables:  ;;; Local Variables:
539  ;;; eval: (put 'compile-file-frobbing-notes 'lisp-indent-function 1)  ;;; eval: (put 'compile-file-frobbing-notes 'lisp-indent-function 1)
540  ;;; End:  ;;; End:

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5