/[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.95 by heller, Sat Feb 9 18:39:02 2008 UTC revision 1.96 by heller, Sat Feb 9 18:47:05 2008 UTC
# Line 644  function names like \(SETF GET)." Line 644  function names like \(SETF GET)."
644    (multiple-value-bind (names values _getter _setter type)    (multiple-value-bind (names values _getter _setter type)
645        (lw:get-inspector-values o nil)        (lw:get-inspector-values o nil)
646      (declare (ignore _getter _setter))      (declare (ignore _getter _setter))
     (values "A value."  
647              (append              (append
648               (label-value-line "Type" type)               (label-value-line "Type" type)
649               (loop for name in names               (loop for name in names
650                     for value in values                     for value in values
651                     append (label-value-line name value))))))                     append (label-value-line name value)))))
652    
653  ;;; Miscellaneous  ;;; Miscellaneous
654    

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

  ViewVC Help
Powered by ViewVC 1.1.5