Commit 3d7da45e authored by Dave Cooper's avatar Dave Cooper
Browse files

added missing dependencies for non-allegro platforms. Removed cl-fad...

added missing dependencies for non-allegro platforms. Removed cl-fad dependency, in process of replacing with uiop/filesystem.
parent 952c8c7e
......@@ -6,7 +6,10 @@
:license "Affero Gnu General Public License (please see http://www.gnu.org/licenses/"
:serial t
:version "2013031600"
:depends-on (:cl-lite :gwl-graphics :tasty :robot :yadd))
:depends-on (:cl-lite :gwl-graphics :tasty :robot :yadd)
:components ((:file "source/try"))
)
(:base :uiop :cl-typesetting :cl-ppcre :cl-who)
\ No newline at end of file
"(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :acl-compat)"
......@@ -4,7 +4,8 @@
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130317" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who) :components
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :acl-compat)
:components
((:file "source/presets") (:file "source/genworks")
(:file "source/initialize") (:file "source/parameters")
(:file "source/zzinit")))
......@@ -80,11 +80,7 @@
(make-pathname :name :wild :type :wild :version :wild))
;;
;; FLAG -- replace with cl-fad version.
;;
#-(or allegro lispworks clozure)
(warn "please find a copy-directory from cl-fad or elsewhere for ~a~%" (lisp-implementation-type))
#+nil
(defun copy-directory (from-dir to-dir &rest args)
(declare (ignore args))
#+allegro (excl:copy-directory from-dir to-dir)
......@@ -94,6 +90,7 @@
(error "~&copy-directory needed for ~a. Consider cl-fad.~%" (lisp-implementation-type)))
#+nil
(defun delete-directory-and-files (target &key force quiet (if-does-not-exist :error))
#-allegro (declare (ignore force quiet))
(cond ((probe-file target)
......@@ -142,9 +139,7 @@ and \"..\" entries."
(defun file-directory-p (file)
"Returns non-nil if the path is a directory."
(#-(or allegro lispworks) cl-fad:directory-pathname-p
#+allegro excl:file-directory-p
#+lispworks lw:file-directory-p file))
(uiop/filesystem:directory-exists-p file))
;;
;; temporary-folder is potentially platform-specific so it is defined here.
......
"(:glisp :aserve #-allegro :cl-base64 #-allegro :babel)"
(:glisp :aserve)
(in-package :gdl-user)
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