Changeset 4732


Ignore:
Timestamp:
11/14/03 01:41:54 (18 years ago)
Author:
piso
Message:

PROMPT-PACKAGE-NAME: minor refactoring.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/top-level.lisp

    r4729 r4732  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.14 2003-11-14 00:56:06 piso Exp $
     4;;; $Id: top-level.lisp,v 1.15 2003-11-14 01:41:54 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3030
    3131(defun prompt-package-name ()
    32   (let ((names (package-nicknames *package*))
    33         (result (package-name *package*)))
    34     (dolist (name names)
    35       (when (< (length name) (length result))
    36         (setf result name)))
     32  (let ((result (package-name *package*)))
     33    (dolist (nickname (package-nicknames *package*))
     34      (when (< (length nickname) (length result))
     35        (setf result nickname)))
    3736    result))
    3837
Note: See TracChangeset for help on using the changeset viewer.