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

Diff of /slime/swank.lisp

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

revision 1.644 by heller, Sat May 16 11:28:41 2009 UTC revision 1.645 by heller, Sat May 16 11:38:47 2009 UTC
# Line 2303  MAP -- rewrite the chars in STRING accor Line 2303  MAP -- rewrite the chars in STRING accor
2303              (write-string "..." stream)              (write-string "..." stream)
2304              (return))              (return))
2305            (let ((probe (assoc c map)))            (let ((probe (assoc c map)))
2306              (cond (probe (write-string (cadr probe) stream))              (cond (probe (write-string (cdr probe) stream))
2307                    (t (write-char c stream)))))                    (t (write-char c stream)))))
2308      (write-char #\" stream)))      (write-char #\" stream)))
2309    

Legend:
Removed from v.1.644  
changed lines
  Added in v.1.645

  ViewVC Help
Powered by ViewVC 1.1.5