Changeset 490

Timestamp:

Feb 7, 2004, 1:56:49 PM (21 years ago)

Author:

Gary Byers

Message:

Don't call CHOOSE-FILE-DIALOG when looking for a module.

File:

• trunk/ccl/level-1/l1-files.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-files.lisp

@@ -1191 +1191 @@
                            str *loading-file-source-file*)
                    (unless (member str *modules* :test #'string-equal)
-                     (catch-cancel
-                       (setq pathname (choose-file-dialog
-                                       :file-types '(#+sparc-target "sfsl"
-                                                     #+ppc-target "pfsl"
-                                                     #-(or ppc-target sparc-target) "fasl"
-                                                        "text")))))
+                     (with-terminal-input
+                         (format t "~&pathname: ")
+                       (setq pathname (read)))                     )
                    pathname)))
     (let ((*loading-modules* (cons str *loading-modules*)))