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

Diff of /slime/swank-backend.lisp

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

revision 1.184 by heller, Mon Nov 2 09:20:33 2009 UTC revision 1.185 by trittweiler, Sat Nov 21 21:32:28 2009 UTC
# Line 951  output of CL:DESCRIBE." Line 951  output of CL:DESCRIBE."
951       (:newline) (:newline)       (:newline) (:newline)
952       ,(with-output-to-string (desc) (describe object desc))))       ,(with-output-to-string (desc) (describe object desc))))
953    
954    
955  ;;; Utilities for inspector methods.  ;;; Utilities for inspector methods.
956  ;;;  ;;;
957    
958  (defun label-value-line (label value &key (newline t))  (defun label-value-line (label value &key (newline t))
959    "Create a control list which prints \"LABEL: VALUE\" in the inspector.    "Create a control list which prints \"LABEL: VALUE\" in the inspector.
960  If NEWLINE is non-NIL a `(:newline)' is added to the result."  If NEWLINE is non-NIL a `(:newline)' is added to the result."
961    
962    (list* (princ-to-string label) ": " `(:value ,value)    (list* (princ-to-string label) ": " `(:value ,value)
963           (if newline '((:newline)) nil)))           (if newline '((:newline)) nil)))
964    

Legend:
Removed from v.1.184  
changed lines
  Added in v.1.185

  ViewVC Help
Powered by ViewVC 1.1.5