Changeset 7324 for branches/easygui/ccl/level-1/l1-pathnames.lisp

Timestamp:

Sep 30, 2007, 12:40:36 AM (13 years ago)

Author:

gz

Message:

Make find-module-pathnames handle wildcards, and put "ccl:examples;;" on *module-search-path*.

File:

• branches/easygui/ccl/level-1/l1-pathnames.lisp (modified) (1 diff)

branches/easygui/ccl/level-1/l1-pathnames.lisp

@@ -701 +701 @@
 (defparameter *module-search-path* (list
                                     (cons-pathname '(:absolute "bin") nil nil "ccl")
-                                    (cons-pathname  '(:absolute "openmcl" "modules") nil nil "home")
+                                    (cons-pathname '(:absolute "openmcl" "modules") nil nil "home")
                                     (cons-pathname '(:absolute "lib") nil nil "ccl")
                                     (cons-pathname '(:absolute "library") nil nil "ccl")
-                                    (cons-pathname '(:absolute "examples") nil nil "ccl")
+                                    (cons-pathname '(:absolute "examples" :wild-inferiors) nil nil "ccl")
                                     (cons-pathname '(:absolute "tools") nil nil "ccl")
                                     (cons-pathname '(:absolute "objc-bridge") nil nil "ccl")