Changeset 4732
- Timestamp:
- 11/14/03 01:41:54 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/top-level.lisp
r4729 r4732 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: top-level.lisp,v 1.1 4 2003-11-14 00:56:06piso Exp $4 ;;; $Id: top-level.lisp,v 1.15 2003-11-14 01:41:54 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 30 30 31 31 (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))) 37 36 result)) 38 37
Note: See TracChangeset
for help on using the changeset viewer.