Changeset 4732

Timestamp:

11/14/03 01:41:54 (18 years ago)

Author:

piso

Message:

PROMPT-PACKAGE-NAME: minor refactoring.

File:

• trunk/j/src/org/armedbear/lisp/top-level.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/top-level.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: top-level.lisp,v 1.14 2003-11-14 00:56:06 piso Exp $
+;;; $Id: top-level.lisp,v 1.15 2003-11-14 01:41:54 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -30 +30 @@
 
 (defun prompt-package-name ()
-  (let ((names (package-nicknames *package*))
-        (result (package-name *package*)))
-    (dolist (name names)
-      (when (< (length name) (length result))
-        (setf result name)))
+  (let ((result (package-name *package*)))
+    (dolist (nickname (package-nicknames *package*))
+      (when (< (length nickname) (length result))
+        (setf result nickname)))
     result))