Changeset 6769

Timestamp:

Jun 20, 2007, 11:28:58 AM (17 years ago)

Author:

Gary Byers

Message:

Start to prompt for package; might be better to just (constantly)
search for it.

File:

• branches/ide-1.0/ccl/hemlock/src/echo.lisp (modified) (2 diffs)

branches/ide-1.0/ccl/hemlock/src/echo.lisp

@@ -155 +155 @@
             (write-string (apply #'format nil string args)
                           *echo-area-stream*)
+            ;; keep command loop from clearing the echo area,
+            ;; by asserting that the echo area buffer's unmodified.
             (setf (buffer-modified *echo-area-buffer*) t))))
    (force-output *echo-area-stream*)
@@ -434 +436 @@
     (parse-for-something)))
 
+
+
+
+;;;; Package names.
+(defun make-package-string-table ()
+  (let ((names ()))
+    (dolist (p (list-all-packages))
+      (let* ((name (package-name p)))
+        (push (cons name name) names)
+        (dolist (nick (package-nicknames p))
+          (push (cons nick name) names))))
+    (make-string-table :initial-contents names)))
+
+#||
+(defun prompt-for-package (&key ((:must-exist *parse-value-must-exist*) t)
+                                  (default nil defaultp)
+                                  ((:default-string *parse-default-string*))
+                                  ((:prompt *parse-prompt*) "Package Name:")
+                                  ((:help *parse-help*) "Type a package name."))
+||#