Index: /branches/ide-1.0/ccl/hemlock/src/echo.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/echo.lisp	(revision 6768)
+++ /branches/ide-1.0/ccl/hemlock/src/echo.lisp	(revision 6769)
@@ -155,4 +155,6 @@
             (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,4 +436,24 @@
     (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."))
+||#