Commit 1f63adfa authored by Dave Cooper's avatar Dave Cooper
Browse files

preparing for website update

parent 60660811
......@@ -343,7 +343,7 @@
(let ((description-file (merge-pathnames "description.isc" home)))
(when (probe-file description-file)
(setq description
(with-open-file (in description-file) (read in))))))
(with-open-file (in description-file :external-format #-lispworks :utf-8 #+lispworks :unicode) (read in))))))
(or description (format nil "~a Subsystem" system-designator))))
......
......@@ -18,7 +18,9 @@
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :twenty-four)
;;(in-package :twenty-four)
(in-package :www.genworks.com)
(setf *random-state* (make-random-state t))
......
......@@ -18,8 +18,8 @@
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :twenty-four)
;;(in-package :twenty-four)
(in-package :www.genworks.com)
(defparameter *cards-by-number*
(let ((array (make-array 13))
......
......@@ -19,7 +19,9 @@
;; <http://www.gnu.org/licenses/>.
;;
(in-package :twenty-four)
;;(in-package :twenty-four)
(in-package :www.genworks.com)
(defparameter *operators* '(+ - * /))
......
......@@ -83,14 +83,12 @@
(make-pathname :name :wild :type :wild :version :wild))
#+(or allegro clozure)
(defun copy-directory (from-dir to-dir &rest args)
(declare (ignore args))
#+allegro (excl:copy-directory from-dir to-dir)
#+lispworks (cl-copy-directory to-dir from-dir)
#+clozure (ccl::recursive-copy-directory from-dir to-dir )
#-(or allegro lispworks clozure)
(error "~&copy-directory needed for ~a. Does uiop/filesystem have one yet?~%" (lisp-implementation-type)))
#+clozure (ccl::recursive-copy-directory from-dir to-dir ))
#+nil
......@@ -260,12 +258,12 @@ and \"..\" entries."
(and glisp:*gdl-home* (probe-file (merge-pathnames "../gpl/gs/" glisp:*gdl-home*)))
(and glisp:*gdl-program-home* (probe-file (merge-pathnames "gpl/gs/" glisp:*gdl-program-home*)))
"c:/gs/"))))
(block :daddy
(dolist (gs-dir gs-dirs)
(block :daddy
(dolist (parent-dir parent-dirs)
(let ((candidate (merge-pathnames "bin/gswin32c.exe"
(merge-pathnames gs-dir parent-dir))))
(when (probe-file candidate) (return-from :daddy candidate))))))))
(dolist (parent-dir parent-dirs)
(let ((candidate (merge-pathnames "bin/gswin32c.exe"
(merge-pathnames gs-dir parent-dir))))
(when (probe-file candidate) (return-from :daddy candidate))))))))
(defun find-gs-path (&optional gs-path)
(let ((gs-path
......@@ -582,4 +580,4 @@ please find implementation for the currently running lisp.~%")
#-allegro
(progn
(warn "Need an implementation for without-redefinition-warnings for ~a~%." (lisp-implementation-type))
`(progn ,@body)))
\ No newline at end of file
`(progn ,@body)))
gendl.asd
gwl/gwl.asd
base/base.asd
surf/surf.asd
glisp/glisp.asd
apps/ta2/ta2.asd
demos/bus/bus.asd
apps/tree/tree.asd
apps/yadd/yadd.asd
cl-lite/cl-lite.asd
apps/tasty/tasty.asd
demos/robot/robot.asd
demos/ledger/ledger.asd
geom-base/geom-base.asd
regression/regression.asd
gwl-graphics/gwl-graphics.asd
demos/wire-world/wire-world.asd
apps/translators/translators.asd
demos/twenty-four/twenty-four.asd
documentation/training/g102-tud/examples/examples.asd
gendl.asd
gwl\gwl.asd
base\base.asd
surf\surf.asd
glisp\glisp.asd
apps\ta2\ta2.asd
demos\bus\bus.asd
apps\tree\tree.asd
apps\yadd\yadd.asd
cl-lite\cl-lite.asd
apps\tasty\tasty.asd
demos\robot\robot.asd
demos\ledger\ledger.asd
geom-base\geom-base.asd
regression\regression.asd
gwl-graphics\gwl-graphics.asd
demos\wire-world\wire-world.asd
apps\translators\translators.asd
demos\twenty-four\twenty-four.asd
documentation\training\g102-tud\examples\examples.asd
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