Update of /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim
In directory clnet:/tmp/cvs-serv22716/Apps/Scigraph/dwim
Modified Files:
dwim-system.lisp extensions.lisp load-dwim.lisp macros.lisp
Log Message:
Commit Douglas Crosher's non-symbol case fixes:
* defsystem :clouseau: avoid pathname directory namestrings in file component names;
reworking to be more portable.
* defsystem :clim-examples: add the stopwatch example.
* Update support for the Scieneer CL.
--- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/dwim-system.lisp 2003/11/03 14:02:28 1.2
+++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/dwim-system.lisp 2006/10/28 17:11:30 1.3
@@ -100,6 +100,7 @@
#+(or allegro sbcl) #.(if (fboundp 'compile-file-pathname)
(pathname-type (compile-file-pathname "foo"))
"fasl")
+ #+scl (pathname-type (compile-file-pathname "foo"))
#+lucid (car lcl:*load-binary-pathname-types*)
#+(and (not genera)
(not allegro)
@@ -124,7 +125,8 @@
#+GENERA "GENERA"
#+LUCID "LUCID"
#+ALLEGRO "ALLEGRO"
- #+SBCL "SBCL")
+ #+SBCL "SBCL"
+ #+scl "SCL")
(GUI
#+(and mcl (not clim)) "MAC"
#+(and genera (not clim)) "DW"
--- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/extensions.lisp 2006/03/23 10:09:50 1.6
+++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/extensions.lisp 2006/10/28 17:11:31 1.7
@@ -105,7 +105,9 @@
(:genera (let ((symbol (intern string :scl)))
(and (boundp symbol) (symbol-value symbol))))
(:openmcl (ccl::getenv string))
- (:sbcl (sb-ext:posix-getenv string))))
+ (:sbcl (sb-ext:posix-getenv string))
+ (:scl (cdr (assoc string ext:*environment-list* :test #'string=)))
+ ))
#+allegro
;;>> Allegro 4.2 supports SYSTEM:GETENV. How do I set an environment variable?
@@ -328,7 +330,8 @@
((or :allegro :sbcl)
#.(if (fboundp 'compile-file-pathname)
(pathname-type (compile-file-pathname "foo"))
- "fasl"))
+ "fasl"))
+ (:scl (pathname-type (compile-file-pathname "foo")))
(:lucid (car lcl:*load-binary-pathname-types*))
(:mcl #.(pathname-type ccl:*.fasl-pathname*))
))
--- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/load-dwim.lisp 2003/11/03 14:02:28 1.3
+++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/load-dwim.lisp 2006/10/28 17:11:31 1.4
@@ -64,7 +64,8 @@
#+genera si:*default-binary-file-type*
#+(or allegro sbcl) #.(if (fboundp 'compile-file-pathname)
(pathname-type (compile-file-pathname "foo"))
- "fasl")
+ "fasl")
+ #+scl (pathname-type (compile-file-pathname "foo"))
#+lucid (car lcl:*load-binary-pathname-types*)
#+(and (not genera)
(not allegro)
@@ -88,7 +89,8 @@
#+LUCID "LUCID"
#+ALLEGRO "ALLEGRO"
#+OPENMCL "OPENMCL"
- #+SBCL "SBCL")
+ #+SBCL "SBCL"
+ #+scl "SCL")
(GUI
#+(and mcl (not clim)) "MAC"
#+(and genera (not clim)) "DW"
--- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/macros.lisp 2004/08/08 21:11:17 1.7
+++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/macros.lisp 2006/10/28 17:11:31 1.8
@@ -82,7 +82,7 @@
(mapcar #'(lambda (v) (if (symbolp v) v (car v))) let-vars)))
`(let ,forms (declare (dynamic-extent ,@(get-vars forms))) ,@body)))
-#-(or openmcl-native-threads sb-thread)
+#-(or openmcl-native-threads sb-thread scl)
(defmacro without-interrupts (&body body)
#FEATURE-CASE
((:genera `(scl::without-interrupts ,@body))
@@ -90,7 +90,7 @@
(:allegro `(excl:without-interrupts ,@body))
(:mcl `(ccl:without-interrupts ,@body))))
-#+(or openmcl-native-threads sb-thread)
+#+(or openmcl-native-threads sb-thread scl)
(progn
(defparameter *dwim-giant-lock* (clim-sys:make-lock "dwim giant lock"))
(defmacro without-interrupts (&body body)