Commit 03dbcf87 authored by Dave Cooper's avatar Dave Cooper
Browse files

proceeding with sbcl port

parent 58cac74f
......@@ -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))
This diff is collapsed.
......@@ -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-pathnames "gdl/gwl/static/gwl/images/favicon.ico" glisp:*genworks-source-home*)))
(publish :path "/fetch-remote-input"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment