[mcclim-cvs] CVS mcclim/Apps/Scigraph/dwim

[afuchs]

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))) , at 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 , at body))
@@ -90,7 +90,7 @@
    (:allegro `(excl:without-interrupts , at body))
    (:mcl     `(ccl:without-interrupts , at 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)