/[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.88 by heller, Sat Jan 10 12:25:16 2009 UTC revision 1.89 by trittweiler, Fri Jan 30 09:58:48 2009 UTC
# Line 307  Return NIL if the symbol is unbound." Line 307  Return NIL if the symbol is unbound."
307                            (make-location (list :file (namestring truename))                            (make-location (list :file (namestring truename))
308                                           (if (consp lines)                                           (if (consp lines)
309                                               (list* :line lines)                                               (list* :line lines)
310                                               (list :function-name (string fspec)))                                               (list :function-name (string name)))
311                                           (list :snippet (format nil "~A" type))))                                           (when (consp type)
312                                               (list :snippet (format nil "~A" type)))))
313                           (t (list :error (princ-to-string c))))))                           (t (list :error (princ-to-string c))))))
314                  (t (list :error (format nil "No source information available for: ~S"                  (t (list :error (format nil "No source information available for: ~S"
315                                          fspec)))))))                                          fspec)))))))

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

  ViewVC Help
Powered by ViewVC 1.1.5