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

Diff of /slime/swank.lisp

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

revision 1.712 by sboukarev, Mon Apr 19 00:42:28 2010 UTC revision 1.713 by sboukarev, Sat Apr 24 04:44:38 2010 UTC
# Line 2182  Errors are trapped and invoke our debugg Line 2182  Errors are trapped and invoke our debugg
2182        (cond ((null values) "; No value")        (cond ((null values) "; No value")
2183              ((and (integerp (car values)) (null (cdr values)))              ((and (integerp (car values)) (null (cdr values)))
2184               (let ((i (car values)))               (let ((i (car values)))
2185                 (format nil "~A~D (#x~X, #o~O, #b~B)"                 (format nil "~A~D (~a bit~:p, #x~X, #o~O, #b~B)"
2186                         *echo-area-prefix* i i i i)))                         *echo-area-prefix*
2187                           i (integer-length i) i i i)))
2188              (t (format nil "~a~{~S~^, ~}" *echo-area-prefix* values))))))              (t (format nil "~a~{~S~^, ~}" *echo-area-prefix* values))))))
2189    
2190  (defmacro values-to-string (values)  (defmacro values-to-string (values)

Legend:
Removed from v.1.712  
changed lines
  Added in v.1.713

  ViewVC Help
Powered by ViewVC 1.1.5