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)