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

Diff of /slime/swank-loader.lisp

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

revision 1.114 by heller, Sat Dec 10 12:33:28 2011 UTC revision 1.115 by sboukarev, Mon Jan 2 04:20:52 2012 UTC
# Line 73  Line 73 
73  (defun lisp-version-string ()  (defun lisp-version-string ()
74    #+(or clozure cmu) (substitute-if #\_ (lambda (x) (find x " /"))    #+(or clozure cmu) (substitute-if #\_ (lambda (x) (find x " /"))
75                                      (lisp-implementation-version))                                      (lisp-implementation-version))
76    #+(or cormanlisp scl sbcl) (lisp-implementation-version)    #+(or cormanlisp scl) (lisp-implementation-version)
77      #+sbcl (format nil "~a~:[~;-no-threads~]"
78                     (lisp-implementation-version)
79                     #+sb-thread nil
80                     #-sb-thread t)
81    #+lispworks (lisp-implementation-version)    #+lispworks (lisp-implementation-version)
82    #+allegro   (format nil "~A~A~A~A"    #+allegro   (format nil "~A~A~A~A"
83                        excl::*common-lisp-version-number*                        excl::*common-lisp-version-number*

Legend:
Removed from v.1.114  
changed lines
  Added in v.1.115

  ViewVC Help
Powered by ViewVC 1.1.5