Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
S
slime
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Francois-Rene Rideau
slime
Commits
697bb9c9
Commit
697bb9c9
authored
Sep 12, 2005
by
Helmut Eller
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(lisp-version-string)[cmu]: Replace spaces with underscores.
parent
bc7a8222
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
15 deletions
+14
-15
swank-loader.lisp
swank-loader.lisp
+14
-15
No files found.
swank-loader.lisp
View file @
697bb9c9
...
...
@@ -9,9 +9,9 @@
;;;
(
cl:defpackage
:swank-loader
(
:use
:c
ommon-lisp
))
(
:use
:c
l
))
(
in-package
:swank-loader
)
(
cl:
in-package
:swank-loader
)
(
defun
make-swank-pathname
(
name
&optional
(
type
"lisp"
))
"Return a pathname with name component NAME in the Slime directory."
...
...
@@ -38,7 +38,8 @@
)))
(
defparameter
*implementation-features*
'
(
:allegro
:lispworks
:sbcl
:openmcl
:cmu
:clisp
:ccl
:corman
:cormanlisp
:armedbear
:gcl
:ecl
))
'
(
:allegro
:lispworks
:sbcl
:openmcl
:cmu
:clisp
:ccl
:corman
:cormanlisp
:armedbear
:gcl
:ecl
))
(
defparameter
*os-features*
'
(
:macosx
:linux
:windows
:mswindows
:win32
:solaris
:darwin
:sunos
:unix
))
...
...
@@ -47,10 +48,10 @@
'
(
:powerpc
:ppc
:x86
:x86-64
:i686
:pc386
:iapx386
:sparc
))
(
defun
lisp-version-string
()
#+
cmu
(
substitute
#\-
#\/
(
lisp-implementation-version
))
#+
cmu
(
substitute-if
#\_
(
lambda
(
x
)
(
find
x
" /"
))
(
lisp-implementation-version
))
#+
sbcl
(
lisp-implementation-version
)
#+
ecl
(
lisp-implementation-version
)
#+
gcl
(
let
((
s
(
lisp-implementation-version
)))
(
subseq
s
4
))
#+
openmcl
(
format
nil
"~d.~d"
ccl::*openmcl-major-version*
ccl::*openmcl-minor-version*
)
...
...
@@ -133,25 +134,23 @@ recompiled."
(
load
file
:verbose
t
)
(
force-output
)))
(
compile-files-if-needed-serially
(
append
(
list
(
make-swank-pathname
"swank-backend"
))
*sysdep-pathnames*
(
list
*swank-pathname*
)))
(
funcall
(
intern
(
string
:warn-unimplemented-interfaces
)
:swank-backend
))
(
defun
load-user-init-file
()
"Load the user init file, return NIL if it does not exist."
(
load
(
merge-pathnames
(
user-homedir-pathname
)
(
make-pathname
:name
".swank"
:type
"lisp"
))
:if-does-not-exist
nil
))
(
export
'load-user-init-file
)
(
defun
load-site-init-file
()
(
load
(
make-pathname
:name
"site-init"
:type
"lisp"
:defaults
*load-truename*
)
:if-does-not-exist
nil
))
(
or
(
load-site-init-file
)
(
load-user-init-file
))
(
compile-files-if-needed-serially
(
append
(
list
(
make-swank-pathname
"swank-backend"
))
*sysdep-pathnames*
(
list
*swank-pathname*
)))
(
funcall
(
intern
(
string
:warn-unimplemented-interfaces
)
:swank-backend
))
(
load-site-init-file
)
(
load-user-init-file
)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment