Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
03dbcf87
Commit
03dbcf87
authored
Nov 30, 2011
by
Dave Cooper
Browse files
proceeding with sbcl port
parent
58cac74f
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
gdl/cl-lite/source/genworks.lisp
View file @
03dbcf87
...
...
@@ -34,13 +34,14 @@
(
defparameter
*fasl-extension*
#+
allegro
excl:*fasl-default-type*
#+
lispworks
compiler:*fasl-extension-string*
#-
(
or
allegro
lispworks
)
(
error
"Need fasl extension string for the currently running lisp.~%"
))
#+
sbcl
sb-fasl:*fasl-file-type*
#-
(
or
allegro
lispworks
sbcl
)
(
error
"Need fasl extension string for the currently running lisp.~%"
))
(
defun
concatenate-fasls
(
files
dest
)
#-
(
or
allegro
lispworks
)
(
error
"~&Please implement concatenate-fasls for the currently running lisp.~%"
)
#-
(
or
allegro
lispworks
sbcl
)
(
error
"~&Please implement concatenate-fasls for the currently running lisp.~%"
)
#+
allegro
#+
(
or
allegro
sbcl
)
;;
;; Provided by Franz:
;;
...
...
@@ -101,6 +102,6 @@
(
defun
file-directory-p
(
file
)
"Returns non-nil if the path is a directory."
#-
(
or
allegro
lispworks
)
(
error
"Need implementation for file-directory-p for currently running Lisp."
)
(
#+
allegro
excl:file-directory-p
#+
lispworks
lw:file-directory-p
file
))
(
#-
(
or
allegro
lispworks
)
asdf:directory-pathname-p
#+
allegro
excl:file-directory-p
#+
lispworks
lw:file-directory-p
file
))
gdl/gwl/source/genworks.lisp
View file @
03dbcf87
This diff is collapsed.
Click to expand it.
gdl/gwl/source/publish.lisp
View file @
03dbcf87
...
...
@@ -28,7 +28,7 @@
(
with-all-servers
(
server
)
(
publish-file
:path
"/favicon.ico"
:server
server
:file
(
translate-logical
-pathname
"
sys:
images
;gwl;
favicon.ico"
)))
:file
(
merge
-pathname
s
"
gdl/gwl/static/gwl/
images
/
favicon.ico"
glisp:*genworks-source-home*
)))
(
publish
:path
"/fetch-remote-input"
...
...
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