/[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.101 by trittweiler, Thu Feb 25 16:35:23 2010 UTC revision 1.102 by sboukarev, Thu Feb 25 22:35:50 2010 UTC
# Line 61  Line 61 
61    
62  #+ecl  #+ecl
63  (defun ecl-version-string ()  (defun ecl-version-string ()
64    #+#.(cl:if (cl:find-symbol "LISP-IMPLEMENTATION-VCS-ID" :ext) '(:and) '(:or))    #+#.(cl:if (cl:and
65                  (cl:find-package :ext)
66                  (cl:find-symbol "LISP-IMPLEMENTATION-VCS-ID" :ext)) '(:and) '(:or))
67    (format nil "~A-~A"    (format nil "~A-~A"
68            (lisp-implementation-version)            (lisp-implementation-version)
69            (subseq (ext:lisp-implementation-vcs-id) 0 8))            (subseq (ext:lisp-implementation-vcs-id) 0 8))
70    #-#.(cl:if (cl:find-symbol "LISP-IMPLEMENTATION-VCS-ID" :ext) '(:and) '(:or))    #-#.(cl:if (cl:and
71                  (cl:find-package :ext)
72                  (cl:find-symbol "LISP-IMPLEMENTATION-VCS-ID" :ext)) '(:and) '(:or))
73    (lisp-implementation-version))    (lisp-implementation-version))
74    
75  (defun lisp-version-string ()  (defun lisp-version-string ()

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

  ViewVC Help
Powered by ViewVC 1.1.5